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.

Original Author: Tyler

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

Code

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 83 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.