Dim p As Process = Nothing
目前创新互联公司已为上1000+的企业提供了网站建设、域名、雅安服务器托管、绵阳服务器托管、企业网站设计、广河网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
p = Process.Start("notepad")
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If p IsNot Nothing AndAlso p.HasExited Then
p = Nothing
MsgBox("程序已退出!")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘监控文件夹和文件。
FileSystemWatcher1.IncludeSubdirectories = True’监控子文件夹
End Sub
Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
MsgBox(e.FullPath vbCrLf e.Name)
End Sub'捕获新路径
你监控test不就好了,若要排除其他文件夹,IncludeSubdirectories 设为假,用多个FileSystemWatcher就行了,用数组或其他方式创建。
都不是C#能够简单做出来的。
相关技术: shell hook, ifs(文件过滤驱动)。
2005程序运行到断点处,右键可以添加到监视窗口。
一般都可以在工具--自定义里找到。
在VB环境中执行源代码,本身就是调试模式
按F8即可逐语句运行
点击语句左端空白处,将其背景色变为深红,就是添加断点,运行到该语句会停下来
可以在变量、对象等语句上点击右键,选择“添加监视”即可
当进程出现时,向记事本 EDIT 控件发送消息(使用API SendMessageA) dim a as string a=space 1000 SendMessageA(hwnd,D,1000,a) a就是取得的文本