Question

vbs 中能不能用sendKeys函数发送汉字啊？

Answer 1

答案是否定，不能，肯定不能~~下面的代码是以前答过的，看看是不是可以Set ws=createobject("wscript.shell") Call main()Sub main()
Dim str,a
str="你好，很高兴你能打开这个文件。"_
&"这是我为你儿子做的一个文档，" _
&"你放心这不是病毒木马，"_
&"这是一个安全的文档，"_
&"现在请你细心的看完这段留言。" '定义要打字的字符串
call shutdown(1) '关机
do while a<>"402"
a=inputbox("警告:该程序已经加密，"_
&"请输入管理员密码。""402"" ","错误") '密码框
loop
call shutdown(2) '解除关机
ws.run "notepad",3,ture '打开记事本
do while ws.appactivate("无标题 - 记事本")=False '激活记事本
wscript.sleep 100
loop
Call write(str) '写入内容(记事本)
Call save("儿子") '保存文件
End SubSub shutdown (n)
' Dim n
' Select Case n
' Case 2:ws.Run "shutdown /a"
' Case 1:ws.Run "shutdown /s /t 2000"
' End Select
End SubSub write(text)
Dim i,s
for i=1 to len(text)
s=mid(text,i,1)
ws.Run("mshta vbscript:clipboarddata.setdata(""text"","""&s&""")(close)"),0,true
wscript.sleep 60 '打字速度。数值越小越快。
ws.appactivate("无标题 - 记事本")
WScript.Sleep 80
ws.SendKeys "^v"
Next
End SubSub save(name) '保存文件
ws.SendKeys "^s"
WScript.Sleep 100
ws.Run("mshta vbscript:clipboarddata.setdata(""text"","""&name&""")(close)"),0,True
WScript.Sleep 50
ws.SendKeys "^v"
ws.SendKeys "{enter}"
End sub