UC知道vbs代码怎么用
来源：百度知道 编辑：UC知道 时间：2024/06/19 00:17:32
请问网上给出的VBS代码怎么使用。用文本文件保存为.vbs就可以吗？
Set tx=CreateObject("Wscript.Shell")
;延时
Wscript.Sleep 8000
;SendKeys发送按键
tx.SendKeys "{F3}"
Wscript.Sleep 3000
tx.SendKeys "Password"
Wscript.Sleep 3000
tx.SendKeys "{Enter}"
;删除自身
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(WScript.ScriptName)
我这个直接这么做了但不能使用啊。
Set tx=CreateObject("Wscript.Shell")
;延时
Wscript.Sleep 8000
;SendKeys发送按键
tx.SendKeys "{F3}"
Wscript.Sleep 3000
tx.SendKeys "Password"
Wscript.Sleep 3000
tx.SendKeys "{Enter}"
;删除自身
Set fso=Wscript.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(WScript.ScriptName)
我这个直接这么做了但不能使用啊。
这段代码是对当前的活动窗口发送键盘消息, 你保存成.vbs再运行是向这个vbs发送键盘消息. 在Wscript.Sleep 8000下面一行加一句tx.AppActivate "你要的程序名字"就好了
比如说要往一个记事本1.txt里面写
a
b
c
就这样写(1.txt必须开着的)
Set tx=CreateObject("Wscript.Shell")
Wscript.Sleep 8000
tx.AppActivate "1.txt"
tx.SendKeys "a"
Wscript.Sleep 3000
tx.SendKeys "{Enter}"
tx.SendKeys "b"
Wscript.Sleep 3000
tx.SendKeys "{Enter}"
Wscript.Sleep 3000
tx.SendKeys "c"
tx.SendKeys "{Enter}"