by Tyler (4 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (3 Votes)
Hits the Reconnect button when it finds the Reconnect Button. I have more to this code, but this is one part of it that is important.
API DeclarationsPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOW = 5
'' Better Off Putting it in a Timer.
'' Set the Interval to 3000.
'' Private Sub Timer1_Timer()
dim findwin as Long
findwin = FindWindow("#32770", "Reestablish Connection")
If findwin <> 0 Then
Call ShowWindow(findwin, SW_SHOW)
SendKeys "{enter}", True
End If
'' End Sub