Dim?p?As?Process?=?Nothing
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
Private?Sub?Form1_Load(sender?As?Object,?e?As?EventArgs)?Handles?MyBase.Load
Timer1.Interval?=?100
Timer1.Enabled?=?True
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(文件过滤驱动).
一般都可以在工具--自定义里找到.
在VB环境中执行源代码,本身就是调试模式
当进程出现时,向记事本 EDIT 控件发送消息(使用API SendMessageA) dim a as string a=space 1000 SendMessageA(hwnd,D,1000,a) a就是取得的文本
以上就是土嘎嘎小编为大家整理的vb.net设置监视的简单介绍vb.net设置监视的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!