UC知道一个VBS的改法
来源：百度知道 编辑：UC知道 时间：2024/05/30 13:59:13
以下VBS语法相信会VBS的就能看懂吧..set wshshell=createobject("wscript.shell")
wscript.sleep 4000
for i=0 to 500
wscript.sleep 200
wshshell.sendkeys i
wscript.sleep 100
wshshell.sendkeys "%s"
next
我想把它自动输入出来的数字改成汉字..而且是循环输入的..请问该怎么改..
不了解VBS...找高手!!!!
虽然我不会VBS但是我知道这题应该不难。.你还想要多少分?
wscript.sleep 4000
for i=0 to 500
wscript.sleep 200
wshshell.sendkeys i
wscript.sleep 100
wshshell.sendkeys "%s"
next
我想把它自动输入出来的数字改成汉字..而且是循环输入的..请问该怎么改..
不了解VBS...找高手!!!!
虽然我不会VBS但是我知道这题应该不难。.你还想要多少分?
随你自己吧~ 只是个意思而已。。。。
a="你想说的话"
set ws=createobject("wscript.shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text",a
for i= 1 to 500
Ws.AppActivate "QQ信息攻击脚本"
Ws.Sendkeys"^v"
Ws.SendKeys"%s"
wscript.sleep 2000
next
strCopy = "伊诺♂蝶 水若伊诺痕 "
dim wsh,jtb
Set jtb = CreateObject("InternetExplorer.Application")
set wsh=createobject("wscript.shell")
jtb.Navigate("about:blank")
for i=1 to len(strcopy)
wscript.sleep 500
str=mid(strcopy,i,1)
jtb.document.parentwindow.clipboardData.SetData "text", str
wsh.sendkeys "^v"
next
运行后，会自动在文本里输入：伊诺♂蝶 水若伊诺痕
看好，是依次输入的哦～