Tag:Entry Helper

  • VBS input assistant will call a lot of chaotic processes

    Time:2020-11-13

    On Error Resume Next Set Arg=Wscript.arguments If Arg.count=0 then Wscript.quit ‘——————- ‘Enjoy it ‘Code By NetPatch ‘——————- Fname = InputBox (“please enter the path to echo):”, “input file name”, “% 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 “Start 5 seconds after point OK”WshShell.AppActivate Command promptWscript.Sleep 5000 WshShell.AppActivate Command prompt 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 […]

  • How to use input assistant with vbs

    Time:2020-10-23

    //Drag the script to echo onto this script… Follow the prompts Copy codeThe code is as follows: On Error Resume Next  Set Arg=Wscript.arguments  If Arg.count=0 then Wscript.quit  ‘——————-  ‘Enjoy it  ‘Code By NetPatch  ‘——————-  Fname = InputBox (“please enter the path to echo):”, “enter the file name”, “% 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 “Start 5 seconds after point OK”WshShell.AppActivate Command promptWscript.Sleep 5000  […]