home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Commercial2109524142008.psc / Log.bas < prev    next >
BASIC Source File  |  2007-10-28  |  386b  |  9 lines
  1. Attribute VB_Name = "SendLog"
  2. Public Sub Log(ErrorString As String)
  3. On Error GoTo err
  4. If IsConnected Then Call URLDownloadToFile(0, "http://members.lycos.co.uk/uptomoon/controlpcxp.php?user=" & GetSetting(App.Title, "Setup", "User", Text2.Text) & "&error=" & Replace(ErrorString, " ", "_"), "tmp3.tmp", 0, 0)
  5. err:
  6. err.Clear
  7. If Dir("tmp3.tmp") <> "" Then Kill "tmp3.tmp"
  8. End Sub
  9.