Code:
On Error Resume Next
On Error Resume Next
Dim i As Integer
Dim pageadd As String, sText As String
pageadd = "http://xxx/auth/ips.txt"
sText = Inet1.OpenURL(pageadd)
Do While Inet1.StillExecuting
DoEvents
Loop
Text1.Text = sText
If InStr(sText, txtIP.Text) Then
Me.Caption = "authorized"
Form2.Show
Me.Hide
Else
Form2.Hide
Form1.Show
Me.Caption = "you not authorized"
End Ifhow do i read ips.txt list using instr ? it can read 1st line how do i read all the lines and match ip