Code: Select all
Error executing script event
Invalid pointer operation
Code: Select all
Dim bHalt
bHalt = False
Sub StartSearch(oPanel, sSearchTerm, sSearchArtist, sSearchAlbum)
Script.RegisterEvent SDB.CreateTimer(0), "OnTimer", "Timeout"
End Sub
Sub FinishSearch(oPanel)
bHalt = True
Script.UnRegisterAllEvents
End Sub
Sub Timeout(tTimer)
tTimer.Enabled = False
SDB.Tools.Sleep(1000)
SDB.ProcessMessages
If bHalt Then
msgbox("Halted! but will throw an error!")
Else
tTimer.Enabled = True
End If
End Sub
Windows 8 x64