I am running the following stratightfoward script and the result is a Running script timer.vb :Exception has been thrown by the target of an invocation.
The file extension is VB
Any thoughts
Thanks
Will
The file extension is VB
Any thoughts
Thanks
Will
Code:
Sub Main(ByVal Parms As Object) 'Sub Main(parm as object) dim GrillTemp1 dim GrillTemp2 dim GT1_Time dim GT2_Time dim timeleft dim CookTime dim GetCookTime dim parse1 dim FinalCookTime GetCookTime=hs.Devicestring(2571) parse1=InStrRev(GetCookTime,"is") FinalCookTime=Mid(GetCookTime,parse1+3,len(GetCookTime)-parse1) CookTime=cdbl(FinalCookTime)*3600 TimeLeft=Cooktime-hs.TimerValue("Cook Time") hs.speak(cstr(Timeleft)) GrillTemp1=cstr(hs.Devicevalue(2624)) GrillTemp2=FinalCooktime hs.speak(GrillTemp1) End Sub
Comment