大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
以记事本为例
成都创新互联拥有一支富有激情的企业网站制作团队,在互联网网站建设行业深耕十多年,专业且经验丰富。十多年网站优化营销经验,我们已为超过千家中小企业提供了网站设计、成都做网站解决方案,按需设计网站,设计满意,售后服务无忧。所有客户皆提供一年免费网站维护!
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程序运行到断点处,右键可以添加到监视窗口。
一般都可以在工具--自定义里找到。