• Home
 · 
• Internet/HTML
 · 
• DUN Auto Reconnect

DUN Auto Reconnect

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 Declarations
Private 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


Rate DUN Auto Reconnect

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'' 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