SpareNet Servers Advertising & Link Exchange

اطلاعیه

بستن
هیچ اطلاعیه ای هنوز ایجاد نشده است .

گذاشتن password روی فرم وتغییر از طریق اینترنت

بستن
X
 
  • فیلتر
  • زمان
  • نمایش
پاک کردن همه
نوشته‌های جدید

  • گذاشتن password روی فرم وتغییر از طریق اینترنت

    [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]
    [align=CENTER]:135:بازی دست ما افتاد:135:

    [/align]

  • #2
    RE: گذاشتن password روی فرم وتغییر از طریق اینترنت

    بهتر نبود سورس vb6 رو قرار بدید بعد سورس هاتون!

    الن کدهای فرو دکمه ها یکم بهم ریخته است و برای کاربران عادی فک نکنم بتونن کاری کنن ها!

    نظر

    صبر کنید ..
    X