锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net模拟键盘复制 vb复制操作

IT技术GLSL

请问如何用VB程序来模拟键盘操作set ws=createobject("wscript.shell")
ws.sendKeys "^{esc}r"VBS中SendKeys的基本应用模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，
其使用格式为：object.SendKeys string
“object”：表示WshShell对象
“string”：表示要发送的按键指令字符串 ， 需要放在英文双引号中 。
1.基本键
一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshShell.SendKeys "x"”即可 。当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如 ， 要发送按键“happy”，可以使用“WshShell.SendKeys "happy"” 。
2.特殊功能键
对于需要与Shift、Ctrl、Alt三个控制键组合的按键 ， SendKeys使用特殊字符来表示：
Shift---------WshShell.SendKeys "+"
Ctrl---------WshShell.SendKeys "^"
Alt---------WshShell.SendKeys "%"
由于“+”、“^”这些字符用来表示特殊的控制按键了，如何表示这些按键呢？
只要用大括号括住这些字符即可 。例如:
要发送加号“+”，可使用“WshShell.SendKeys "{+}"”
另外对于一些不会生成字符的控制功能按键，也同样需要使用大括号括起来按键的名称，例如要发送回车键，需要用“WshShell.SendKeys "{ENTER}"”表示，发送向下的方向键用“WshShell.SendKeys "{DOWN}"”表示 。
Space---------WshShell.SendKeys " "
Enter---------WshShell.SendKeys "{ENTER}"
←---------WshShell.SendKeys "{RIGHT}"
↑---------WshShell.SendKeys "{UP}"
F1---------WshShell.SendKeys "{F1}"
Tips:如果需要发送多个重复的单字母按键，不必重复输入该字母，SendKeys允许使用简化格式进行描述，使用格式为“{按键 数字}” 。例如要发送10个字母“x”，则输入“WshShell.SendKeys "{x 10}"”即可 。
实例：
----------------------------------------------------
按下F5刷新桌面
Dim WshShell,Path,i
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{F5}"
----------------------------------------------------
电脑的自动重启
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^{ESC}u"
WshShell.SendKeys "R"
----------------------------------------------------
启动任务管理器
set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^+{ESC}"
请问如何在VB下实现定时键盘模拟输入在窗体中创建个timer控件然后复制下面代码就行
Private Sub Form_Load()
Timer1.Interval = 60000'Timer1.Interval = 1000 等于1S
End Sub
Private Sub Timer1_Timer()
SendKeys "{F5}"
End Sub
'F5刷新键效果不怎么明显vb.net模拟键盘复制你改成F2 在把上面vb.net模拟键盘复制的时间调个几秒看下效果运行vb.net模拟键盘复制了点个文件就行看时间到文件是不是重命名状态 。
vb如何做剪切、复制、粘贴按钮获得文字直接用
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
不用剪切板可以这样
Dim s
Private Sub Command1_Click()
s = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
s = Text1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + s
End Sub
Private Sub Form_Load()
Command1.Caption = "剪切"
Command2.Caption = "复制"

推荐阅读


上一篇：笔记本没显卡够用吗怎么办，笔记本没显卡能用吗

下一篇：怎么给excel上锁，怎么锁住excel