Glyph Posted February 5, 2007 Posted February 5, 2007 $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("GET", "http://www.bsed.somee.com/t2t.txt", @SW_HIDE) $oHTTP.Send() AdlibEnable('_AdlibManager3', 6000 );6 seconds while 1 sleep (1000) WEnd Func _AdlibManager3() _msgbox1() Return EndFunc Func _msgbox1() if StringInStr($oHTTP.Responsetext&"", "m5g") Theno ;Run (@scriptdir &"\Progs\msgM.exe","") MsgBox(0,"Kevin says","Kevin says: "&StringRight ($oHTTP.Responsetext&"m5g",60)) ;Sleep (900000);15 minutes 1/4 of an hour sleep (5000) Else ;do nothing EndIf EndFunc It is not reading any ideas? tolle indicium
Glyph Posted February 5, 2007 Author Posted February 5, 2007 Well... seeing as how i cannot properly type... "Then" i just typoed theno. tolle indicium
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now