[php]Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Dim pass As String
Public Sub CkeckConnection()
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
MsgBox "شما به اينترنت دسترسي نداريد"
End
Else
pass = Inet1.OpenURL("http://cowboy1.persiangig.com/.C8KemX9oFh/password.txt")
End If
End Sub
Private Sub btnSubmit_Click()
If txtPassword.Text = pass Then
MsgBox "Login successful"
Else
MsgBox "Login failed", vbCritical
End If
End Sub
Private Sub Form_Load()
CkeckConnection
End Sub
[/php]
Dim pass As String
Public Sub CkeckConnection()
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
MsgBox "شما به اينترنت دسترسي نداريد"
End
Else
pass = Inet1.OpenURL("http://cowboy1.persiangig.com/.C8KemX9oFh/password.txt")
End If
End Sub
Private Sub btnSubmit_Click()
If txtPassword.Text = pass Then
MsgBox "Login successful"
Else
MsgBox "Login failed", vbCritical
End If
End Sub
Private Sub Form_Load()
CkeckConnection
End Sub
[/php]
نظر