How do you convet a simple script like this to a .vb script
Thanks
Thom
Thanks
Thom
PHP Code:
Sub main()
Dim Path
Dim Pathloc
Dim strng
Dim Stcolor
Path="http://192.168.0.1"
Pathloc="/status/status_bar.html"
strng=hs.GetURL(Path,Pathloc,False,80)
Stcolor=hs.stringitem (strng,2,"src=/fs/images/")
Stcolor=hs.stringitem (Stcolor,1,".GIF")
If Lcase(Stcolor)="green" then
hs.SetDeviceString "s55", "<img src='/images/green.gif'> <font color='Green'> Satellite Up"
elseif Lcase(Stcolor)="yellow" then
hs.SetDeviceString "s55", "<img src='/images/yellow.gif'> <font color='Yellow'> Satellite Degraded"
hs.Speak "Direc Way Is Reporting That The Satellite Signal Is Degraded"
elseif Lcase(Stcolor)="red" then
hs.SetDeviceString "s55", "<img src='/images/red.gif'> <font color='Red'> Satellite Down"
hs.Speak "Direc Way Is Reporting That The Satellite Signal Is Down"
end if
end sub
Comment