VB Code:
Private Sub loopingIt()
Dim foundUrl As String, counter As Integer
counter = 0
While IEHndl <> 0
counter = counter + 1
If counter > 1000 Then
foundUrl = ""
foundUrl = findIEUrl
DoEvents
Debug.Print "LOOPING"
If Trim(foundUrl) <> "" And Left(Trim(foundUrl), 4) = "http" Then
PostMessage IEHndl, WM_CLOSE, 0, 0&
DoEvents
Shell "C:\Program Files\Mozilla Firefox\firefox.exe " + foundUrl, vbNormalFocus
End If
counter = 0
End If
Wend
tmrCheckWindow.Interval = 2000
tmrCheckWindow.Enabled = True '<<<<<<<<<<<<<<<<<<<<< Here
End Sub
Private Sub Form_Load()
App.TaskVisible = False
End Sub
Private Sub tmrCheckWindow_Timer()
findIEUrl
Debug.Print "JuST CHECKING"
If IEHndl <> 0 Then
loopingIt
tmrCheckWindow.Enabled = False
End If
End Sub
The timer never starts up again. I've breakpointed the .enabled = true line, and it's triggering, but the timer never restarts