十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
2005程序运行到断点处,右键可以添加到监视窗口。
创新互联建站是一家专注于成都网站制作、做网站与策划设计,桑日网站建设哪家好?创新互联建站做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:桑日等地区。桑日做网站价格咨询:13518219792
一般都可以在工具--自定义里找到。
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
都不是C#能够简单做出来的。
相关技术: shell hook, ifs(文件过滤驱动)。
通过:
Clipboard.GetText
Clipboard.GetData
可以得到系统剪贴板的内容
如果剪贴板中的内容是文字,Clipboard.GetFormat(1)=True 。
获得文字直接用
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
可以用死循环,但是要有一定时间间隔,这样CPU使用率会降下来,这个间隔你自己掌握,例如10秒或是3秒检查一次,CPU使用率肯定不一样。
线程开始
检查文件是否存在
如果不存在的处理
Thread.Sleep 3000
循环到线程开始
以记事本为例
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