这么多API浏览器器,我就喜欢VB编程助手!最可恶的是,它是要注册的!每过一点时间就弹出注册信息!真的好烦人!于是做出这个小程序!
先新建一个模块!写上声明:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
下面是代码:
Private Sub Check2_Click()
CloseWindow Me.hwnd
End Sub
Private Sub Timer1_Timer()
If Check1.Value = 1 Then
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
Else
SetWindowPos Me.hwnd, 1, 0, 0, 0, 0, 3
End If
Dim a As Long, b As Long, c As Long
a = FindWindow(vbNullString, "注册VB编程助手")
b = FindWindowEx(a, 0, "ThunderRT6CommandButton", vbNullString)
c = FindWindowEx(a, 0, "Button", vbNullString)
If a > 0 Then
Label2.Caption = "发目标窗口,我帮你关闭它!"
PostMessage b, WM_LBUTTONDOWN, 0, 0 '模拟单击
PostMessage b, WM_LBUTTONUP, 0, 0
PostMessage c, WM_LBUTTONDOWN, 0, 0
PostMessage c, WM_LBUTTONUP, 0, 0
Else
Label2.Caption = "没有发现目标窗口!俺正在很认真地监时着目标窗口,请主人放心!"
End If
End SubPrivate Sub Check2_Click()
CloseWindow Me.hwnd
End Sub
Private Sub Timer1_Timer()
If Check1.Value = 1 Then
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
Else
SetWindowPos Me.hwnd, 1, 0, 0, 0, 0, 3
End If
Dim a As Long, b As Long, c As Long
a = FindWindow(vbNullString, "注册VB编程助手")
b = FindWindowEx(a, 0, "ThunderRT6CommandButton", vbNullString)
c = FindWindowEx(a, 0, "Button", vbNullString)
If a > 0 Then
Label2.Caption = "发目标窗口,我帮你关闭它!"
PostMessage b, WM_LBUTTONDOWN, 0, 0 '后台模拟鼠标单击
PostMessage b, WM_LBUTTONUP, 0, 0
PostMessage c, WM_LBUTTONDOWN, 0, 0
PostMessage c, WM_LBUTTONUP, 0, 0
Else
Label2.Caption = "没有发现目标窗口!俺正在很认真地监时着目标窗口,请主人放心!"
End If
End Sub
VB编程助手辅助工具源代码VB编程助手辅助工具.rar
