首先，先做下广告 http://www.pyb.net.ru (烂泥天空) 这是我的论坛 一个休闲 娱乐 技术 全方位的论坛 欢迎大家光临 论坛现在招斑竹N名 条件是多发贴 发好贴 有兴趣的朋友跟我联系 QQ:373168212 (教程收录人员请保留这部分)
///////////////////////////////////////////////////////////////
今天做的这个教程是对窗口进行操作的 我们经常看到一些远程控制软
件中可以关闭远程电脑打开的窗口 比如pcshare 黑洞 等等 都有窗口管
理的这一项 下面我就简单的做下 如何实现这种效果 。。。。
大家看好操作就行了 我每次做教程都会把程序代码解释先做好 大家仔
细看好代码说明就行了 操作的对象是windows自带的计算器
看演示。。。。
界面已经设计好了 下面我们添加代码 声明部分要写在模块里 这样方便
调用 好了 我们来调试下 这里 我对一些新手说下 你们最好去把那
些代码都弄懂 呵呵 这里代码写反了 看到效果了 呵呵
教程结束。。。
程序完整代码如下：
////////////////////////////////////////////////////////////////
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
上面为程序的声明部分（因为全局变量所以我们就把它写在一个模块中）
////////////////////////////////////////////////////////////////
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "计算器") ’找到caption为计算器的窗口
Debug.Print winHwnd ’用来调试 在立即窗口中输入winhnd
If winHwnd <> 0 Then ’这里是判断窗口是否启动 如果窗口不存在那么值为0
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) ’关闭窗口
If RetVal = 0 Then ’如果窗口没有启动 就弹出下面的信息
MsgBox "置入消息错误！"
End If
Else
MsgBox "计算器没有打开！"
End If
End Sub
Private Sub Command2_Click()
Shell "calc.exe" ’用shell来启动计算器
End Sub
/////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////
今天做的这个教程是对窗口进行操作的 我们经常看到一些远程控制软
件中可以关闭远程电脑打开的窗口 比如pcshare 黑洞 等等 都有窗口管
理的这一项 下面我就简单的做下 如何实现这种效果 。。。。
大家看好操作就行了 我每次做教程都会把程序代码解释先做好 大家仔
细看好代码说明就行了 操作的对象是windows自带的计算器
看演示。。。。
界面已经设计好了 下面我们添加代码 声明部分要写在模块里 这样方便
调用 好了 我们来调试下 这里 我对一些新手说下 你们最好去把那
些代码都弄懂 呵呵 这里代码写反了 看到效果了 呵呵
教程结束。。。
程序完整代码如下：
////////////////////////////////////////////////////////////////
Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
上面为程序的声明部分（因为全局变量所以我们就把它写在一个模块中）
////////////////////////////////////////////////////////////////
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "计算器") ’找到caption为计算器的窗口
Debug.Print winHwnd ’用来调试 在立即窗口中输入winhnd
If winHwnd <> 0 Then ’这里是判断窗口是否启动 如果窗口不存在那么值为0
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) ’关闭窗口
If RetVal = 0 Then ’如果窗口没有启动 就弹出下面的信息
MsgBox "置入消息错误！"
End If
Else
MsgBox "计算器没有打开！"
End If
End Sub
Private Sub Command2_Click()
Shell "calc.exe" ’用shell来启动计算器
End Sub
/////////////////////////////////////////////////////
-
