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

[CrazyMEmber]

سلام دوستان
من یه برنامه ای نوشتم و می خوام روی این برنامه رمز بزارم و هر موقع خواستم بتونم رمزشو عوش کنم.
مثلا رمز رو توی یه فایل txt یا html بنویسم و توی یه سایتی مثلا persiangig اپلود کنم بعد برنامه رو هر کس خواست باز کنه اول برنامه به این لینک فایل txt یا html بره و پسورد رو از اون تو بخونه و اگر کاربر همون پسوورد رو وارد کرد برنامه باز بشه . می خوام هر موقع که خواستم رمز توی فایل txt و html رو عوض کردم هر کس این برنامه رو داره و بخواد باز کنه رمز جدید رو بزنه . نمی دونم منظورمو متوجه میشید یا نه خیلی فوریه لطفا کمکم کنید .

[CrazyMEmber]

دوستان خیلی فوریه خواهش می کنم اگر کسی می دونه راهنماییم کنه

[reza13812]

سلام.
این کار شدنیه اما باید به یه نکته توجه کنی، اونم اینه که تو فورم لود باید چک کنی ببینی اینترنت وصله یا نه!!
اگه این کارو نکنی موقع دریافت اطلاعات از نت ارور میده و از برنامه خارج میشه!
کد نهایی اینه!!
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

[CrazyMEmber]

ممنون کار کرد