vbs输入助手执行会调用好多乱的进程

2009-10-9 17:31 569 0

摘要: 　　用vbs实现输入助手　　On Error Resume Next 　　Set Arg=Wscript.arguments 　　If Arg.count=0 then Wscript.qui...

　　用vbs实现输入助手　　On Error Resume Next 　　Set Arg=Wscript.arguments 　　If Arg.count=0 then Wscript.quit 　　'------------------- 　　'Enjoy it 　　'Code By NetPatch 　　'------------------- 　　fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs") 　　Set Fso=CreateObject("Scripting.FileSystemObject") 　　Set WshShell=Wscript.CreateObject("Wscript.Shell") 　　Set File=Fso.OpenTextFile(Arg(0),1,False,-2) 　　Wscript.echo "点确定后5秒开始" 　　WshShell.AppActivate "命令提示符" 　　Wscript.Sleep 5000 　　WshShell.AppActivate "命令提示符" 　　Do While File.AtEndOfStream <> True 　　Data=File.readline 　　If Data="" then 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,")","{)}") 　　Data=replace(Data,chr(9),"") 　　WshShell.SendKeys "echo "&Data&">>"&fname 　　Wscript.Sleep 300 　　WshShell.SendKeys "{ENTER}" 　　Wscript.Sleep 1000 　　Loop 　　File.close 　　Set Fso=nothing

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除