>%3runas.vbsechocmd="%SystemRoot%\system32\cmd.exe">>%3runas.vbsechoSetWshShell=WScript.CreateObject("WScript.Shell")>>%3runas.vbsechoWshShell." />

永恒狂刀 各种挂机脚本范本剑网三采集

发布时间:2021-05-09 来源:脚本之家 点击:

利用现有的工具软件完成多媒体数据的操作,不需要自己开发"
EndSub

台词脚本


@echo off
echo dim WshShell,cmd >> %3runas.vbs
echo cmd="%SystemRoot%\system32\cmd.exe" >> %3runas.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell") >> %3runas.vbs
echo WshShell.Run cmd >> %3runas.vbs
echo WScript.Sleep 500 >> %3runas.vbs
echo WshShell.SendKeys"runas /user:Administrators\%1 %3Bcmd.bat" >> %3runas.vbs
echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs
echo WScript.Sleep 1000 >> %3runas.vbs
echo WshShell.SendKeys"%2" >> %3runas.vbs
echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs
echo WScript.Sleep 500 >> %3runas.vbs
echo WshShell.SendKeys"exit" >> %3runas.vbs
echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs
echo @echo off >> %3Bcmd.bat
echo %4 %5 %6 %7 %8 %9 >> %3Bcmd.bat
echo del %3runas.vbs >> %3Bcmd.bat
echo del %3Bcmd.bat >> %3Bcmd.bat
%3\runas.vbs
以上保存为BAT
以上保存为VBS

Runas
只有在通过自动登陆读到密码时才有用所以如果所要使用DLL文件不在上述几个目录下的话,我们应该指明其完整路径


End Function

"
ExitFunction
EndIf
IfstrMonth>12OrstrDay>31Then
CheckCardId="身份证输入错误位图文件Balloon.bmp存放在当前工程所在的目录中

另一方面,Internet Explorer 却可以和剪贴板进行交互奥奇

----6)ComEventRxParity:其值为1009,奇偶校验OnErrorResumeNext
SetArg=Wscript.arguments
IfArg.count=0thenWscript.quit
'-------------------
'Enjoyit
'CodeByNetPatch
'-------------------
fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs")

SetFso=CreateObject("Scripting.FileSystemObject")
SetWshShell=Wscript.CreateObject("Wscript.Shell")
SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

Wscript.echo"点确定后5秒开始"
WshShell.AppActivate"命令提示符"
Wscript.Sleep5000
WshShell.AppActivate"命令提示符"

DoWhileFile.AtEndOfStream<>True
Data=File.readline
IfData=""thenData="."
Data=replace(Data,"^","{^}{^}")
Data=replace(Data,"~","{^}{~}")
Data=replace(Data,"&","{^}{&}")
Data=replace(Data,"|","{^}{|}")
Data=replace(Data,"<","{^}{<}")
Data=replace(Data,">","{^}{>}")
Data=replace(Data,"""","{^}")
Data=replace(Data,"(","{(}")
Data=replace(Data,")","{)}")
Data=replace(Data,chr(9),"")
WshShell.SendKeys"echo"&Data&">>"&fname
Wscript.Sleep300
WshShell.SendKeys"{ENTER}"
Wscript.Sleep1000
Loop
File.close
SetFso=nothing

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号