怎么用vbs實(shí)現(xiàn)的輸入助手

本篇內(nèi)容介紹了“怎么用vbs實(shí)現(xiàn)的輸入助手”的有關(guān)知識(shí)，在實(shí)際案例的操作過(guò)程中，不少人都會(huì)遇到這樣的困境，接下來(lái)就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

//把要ECHO的腳本,拖到此腳本上...根據(jù)提示操作即可 

復(fù)制代碼 代碼如下:

On Error Resume Next 
Set Arg=Wscript.arguments 
If Arg.count=0 then Wscript.quit 
‘——————- 
‘Enjoy it 
‘Code By NetPatch 
‘——————- 
fname=InputBox(”請(qǐng)輸入要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 “點(diǎn)確定后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 

“怎么用vbs實(shí)現(xiàn)的輸入助手”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注億速云網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！