1、打开VB,新建工程
2、键入代码:
Private 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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_QUIT = &H12
Private Sub Form_Load()
Dim h As Long
h = FindWindow(vbNullString, "请求帮助")
PostMessage h, WM_QUIT, 0, 0
End Sub
3、任务栏右下角,右键极域的图标,点“请求帮助”,会弹出一个窗口(当然另外的窗体也行,代码里标题名改一下就OK)
4、运行程序
5、极域电子教室K.O!
这应该是最简单的关掉极域的方法了。
2、键入代码:
Private 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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_QUIT = &H12
Private Sub Form_Load()
Dim h As Long
h = FindWindow(vbNullString, "请求帮助")
PostMessage h, WM_QUIT, 0, 0
End Sub
3、任务栏右下角,右键极域的图标,点“请求帮助”,会弹出一个窗口(当然另外的窗体也行,代码里标题名改一下就OK)
4、运行程序
5、极域电子教室K.O!
这应该是最简单的关掉极域的方法了。