vbs小程序

2024年11月17日 20:26

有3个网友回答

网友（1）：

s="set WshShell = CreateObject("&chr(34)&"WScript.Shell"&chr(34)&")"&vbcrlf
execute s
s=s&"for i = 1 to 20"&vbcrlf
s=s&"msgbox "&chr(34)&"哈哈！你中招了！"&chr(34)&",4096,"&chr(34)&"系统提示"&chr(34)&vbcrlf
s=s&"WScript.Sleep(1000*5)"&vbcrlf
s=s&"next"
set fso = createobject("scripting.filesystemobject")
for i = 1 to 10     '10就是你自己想要的数目
set a = fso.createtextfile(i & "`.vbs")
a.write s
a.close
WshShell.run i & "`.vbs"
wscript.sleep 500
fso.DeleteFile i & "`.vbs",true
next

网友（2）：

那样要多线程才行。不过可惜VBS无法实现多线程。建议你用支持多线程的语言编写

网友（3）：

用C++写嘛，网上找大侠帮忙