本篇內容介紹了“怎么用vbs實現的輸入助手”的有關知識，在實際案例的操作過程中，不少人都會遇到這樣的困境，接下來就讓小編帶領大家學習一下如何處理這些情況吧！希望大家仔細閱讀，能夠學有所成！

創新互聯公司是一家集網站建設,西充企業網站建設,西充品牌網站建設,網站定制,西充網站建設報價,網絡營銷,網絡優化,西充網站推廣為一體的創新建站企業，幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學習、思考、沉淀、凈化自己，讓我們為更多的企業打造出實用型網站。

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

復制代碼 代碼如下:

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

“怎么用vbs實現的輸入助手”的內容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業相關的知識可以關注創新互聯網站，小編將為大家輸出更多高質量的實用文章！

文章標題：怎么用vbs實現的輸入助手-創新互聯
轉載來源：http://m.jcarcd.cn/article/dcgpej.html