Basic Snippets :
Ping Website With
Code:
'500 = 500MS 1/2 a second :D
If My.Computer.Network.Ping("www.mpgh.net", 500) Then
MsgBox("Server pinged mpgh.net successfully.")
Else
'half a second to time out, increase to 1000 or 2000 depending on your needs
MsgBox("Ping request timed out.")
End If
Download a file from a server
Code:
My.Computer.Network.DownloadFile _
'from
("filelocationurl/yourfile.entenstion", _
'to
"filelocation\yourfile.extenstion")
Upload a file to a server (ftp access username and password may be required)
Code:
My.Computer.Network.UploadFile( _
'from
"filelocation\file.extension", _
'to , with trailing slash /, but no filename or extension, otherwise you will error
"FileTargetUrl/")