Dim j As HttpJob
j.Initialize("", Me)
j.Username = "admin"
j.Password = "admin"
Dim strFile As String = "3.4.0.33.bin"
Dim b() As Byte = File.ReadBytes(File.DirAssets, strFile)
j.PutBytes("http://192.168.100.1/ws/files/userfs/WEB/" & strFile, b)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
LogColor("WORKED!!", Colors.Red)
Else
LogColor("Failed", Colors.Red)
End If
j.Release