hi,
I am trying to get password from IP address
so...this is the steps what I want to do..
First, I am trying to put IP addresses from registry into txtIP comboBox.
Second, When I find IP address from txtIP, then it finds automatically password.
Third. If I type new IP address, it has to be saved into registry when I click upload button.
Would you please help me??
Thank you in advance.
this is my code..
-------------------------
Private Sub txtIP_Change()
End Sub
------
Private Sub txtPass_Change()
End Sub
------
Private Sub UploadButton_Click()
Dim telnetResponse As Long
Inet1.RemoteHost = txtIP.Text
Inet1.UserName = txtUser.Text
Inet1.Password = txtPass.Text
' Write the settings to the Registry
Dim count As Integer
For count = 0 To 6
SaveSetting "speed", "Ihop", "hostname" & Str(count), txtIP.Text
SaveSetting "speed", "Ihop", "username" & Str(count), txtUser.Text
SaveSetting "speed", "Ihop", "password" & Str(count), txtPass.Text
Next count
End Sub
-------
Private Sub Form_Load()
Dim count As Integer
Dim host As String
'Dim psw As String
For count = 0 To 6
host = GetSetting("speed", "Ihop", "hostname" & Str(count))
If (host <> "") Then
txtIP.AddItem (host)
txtPass.Text = GetSetting("speed", "Ihop", "password" & Str(count))
End If
txtUser.Text = GetSetting("speed", "Ihop", "username" & Str(count), "xxx")
Next count
End Sub
I am trying to get password from IP address
so...this is the steps what I want to do..
First, I am trying to put IP addresses from registry into txtIP comboBox.
Second, When I find IP address from txtIP, then it finds automatically password.
Third. If I type new IP address, it has to be saved into registry when I click upload button.
Would you please help me??
Thank you in advance.
this is my code..
-------------------------
Private Sub txtIP_Change()
End Sub
------
Private Sub txtPass_Change()
End Sub
------
Private Sub UploadButton_Click()
Dim telnetResponse As Long
Inet1.RemoteHost = txtIP.Text
Inet1.UserName = txtUser.Text
Inet1.Password = txtPass.Text
' Write the settings to the Registry
Dim count As Integer
For count = 0 To 6
SaveSetting "speed", "Ihop", "hostname" & Str(count), txtIP.Text
SaveSetting "speed", "Ihop", "username" & Str(count), txtUser.Text
SaveSetting "speed", "Ihop", "password" & Str(count), txtPass.Text
Next count
End Sub
-------
Private Sub Form_Load()
Dim count As Integer
Dim host As String
'Dim psw As String
For count = 0 To 6
host = GetSetting("speed", "Ihop", "hostname" & Str(count))
If (host <> "") Then
txtIP.AddItem (host)
txtPass.Text = GetSetting("speed", "Ihop", "password" & Str(count))
End If
txtUser.Text = GetSetting("speed", "Ihop", "username" & Str(count), "xxx")
Next count
End Sub