Sub Button_AllOff_Click
Dim j As HttpJob
j.Initialize("", Me)
j.Username=""
j.Password=""
'j.Download("http://192.168.1.185/control.cgi?outlet=0&command=0")
'j.Download2("http://192.168.1.185/control.cgi", Array As String ("outlet","0","command","0"))
Wait For (j) jobdone (j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
End Sub