File 如何批量生成vbs文件
我试图使这个批处理文件运行很多东西,它只输入最后一个vbs行到实际的vbs文件File 如何批量生成vbs文件,file,batch-file,File,Batch File,我试图使这个批处理文件运行很多东西,它只输入最后一个vbs行到实际的vbs文件 :run cls color 0a cd "%userprofile% \desk" if exist run1.vbs del run1.vbs copy Nul "run1.vbs" echo set b=createobject("wscript.shell") >> "run1.vbs" echo x=inputbox ("type:") > "run1.vbs" echo strtext
:run
cls
color 0a
cd "%userprofile% \desk"
if exist run1.vbs del run1.vbs
copy Nul "run1.vbs"
echo set b=createobject("wscript.shell") >> "run1.vbs"
echo x=inputbox ("type:") > "run1.vbs"
echo strtext = (x) > "run1.vbs"
echo if x=("exe") then > "run1.vbs"
echo y=inputbox("run:") > "run1.vbs"
echo b.run (y) > "run1.vbs"
echo end if > "run1.vbs"
echo if x=("spam") then > "run1.vbs"
echo z=inputbox ("spam:") > "run1.vbs"
echo wscript.sleep 2000 > "run1.vbs"
echo for var = 1 to 50 > "run1.vbs"
echo b.sendkeys z > "run1.vbs"
echo b.sendkeys "{ENTER}" > "run1.vbs"
echo next > "run1.vbs"
echo end if > "run1.vbs"
cd "%userprofile% \desk"
start run1.vbs
ping -n 3 127.0.0.1>nul
exit
最好尝试创建一个:
set b=createobject(“wscript.shell”)
x=输入框(“类型:”)
strtext=(x)
如果x=(“exe”),则
y=输入框(“运行:”)
b、 运行(y)
如果结束
如果x=(“垃圾邮件”),则
z=输入框(“垃圾邮件:”)
wscript.sleep 2000
对于var=1至50
b、 sendkeys z
b、 sendkeys“{ENTER}”
下一个
如果结束
来自Unix shell体验:
截断文件,然后写入其中。请尝试使用>
或Windows批处理用于追加运算符的任何命令。靠近末尾的cd命令看起来不正确-请删除\前面的空格,并在cd后面添加a/d,以防您从其他驱动器运行。最好检查此项:
<!-- : Begin batch script
@echo off
:run
cls
color 0a
cd "%userprofile%\desk"
cscript //nologo "%~f0?.wsf"
ping -n 3 127.0.0.1>nul
exit /b
----- Begin wsf script --->
<job><script language="VBScript">
set b=createobject("wscript.shell")
x=inputbox ("type:")
strtext = (x)
if x=("exe") then
y=inputbox("run:")
b.run (y)
end if
if x=("spam") then
z=inputbox ("spam:")
wscript.sleep 2000
for var = 1 to 50
b.sendkeys z
b.sendkeys "{ENTER}"
next
end if
</script></job>