13518219792
以记事本为例
成都创新互联拥有一支富有激情的企业网站制作团队，在互联网网站建设行业深耕十多年，专业且经验丰富。十多年网站优化营销经验，我们已为超过千家中小企业提供了网站设计、成都做网站解决方案，按需设计网站，设计满意，售后服务无忧。所有客户皆提供一年免费网站维护!
Public Class Form1
Public Sub ShellAndWait(ByVal ProcessPath As String)
Dim objProcess As System.Diagnostics.Process
Try
objProcess = New System.Diagnostics.Process()
objProcess.StartInfo.FileName = ProcessPath
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
objProcess.Start()
objProcess.WaitForExit()
objProcess.Close()
Catch
MessageBox.Show("无法执行文件 " ProcessPath, "错误")
End Try
End Sub
'监视程序就可以了，若果监视别的窗体的话，用SPY++ 找到句柄，配合FindWindowEx，SendMessage根据其属性做
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShellAndWait("Notepad.exe")
MessageBox.Show("笔记本被关闭后我才会出现")
End Sub
End Class
在VB环境中执行源代码，本身就是调试模式
按F8即可逐语句运行
点击语句左端空白处，将其背景色变为深红，就是添加断点，运行到该语句会停下来
可以在变量、对象等语句上点击右键，选择“添加监视”即可
当进程出现时,向记事本 EDIT 控件发送消息(使用API SendMessageA) dim a as string a=space 1000 SendMessageA（hwnd,D,1000,a） a就是取得的文本
2005程序运行到断点处，右键可以添加到监视窗口。
一般都可以在工具--自定义里找到。
