How would you be able to open a file from a webserver, like you would open a file on your computer?
Here's my source, and it doesnt work. It gives me run time error 52. Anyone know how to fix this?
Here's my source, and it doesnt work. It gives me run time error 52. Anyone know how to fix this?
Code:
Private Sub Command1_Click()
Dim strArray() As String
form_user = Text1(0).Text
form_pass = Text1(1).Text
address = "HTTP://www.axedio.com/campaign/battle_code/users.php?user=" & form_user & "pass=" & form_pass & ""
Open address For Input As #1
strArray = Split(Input(LOF(1), 1), vbCrLf)
If strArray(0) = "TRUE" Then
Else
MsgBox "Error: Invalid Username!"
End If
If strArray(1) = strArray(2) Then
Text1(0).Visible = False
Text1(1).Visible = False
Label1(0).Visible = False
Label1(1).Visible = False
Command1.Visible = False
Label2.Visible = True
Else
MsgBox "Error: Invalid Password!"
End If
Close #1
End Sub