vbs小程序

答案:3 悬赏:50 手机版

解决时间 2021-01-13 18:03

提问者网友：情歌越听越心酸
2021-01-12 19:21

vbs小程序

最佳答案

五星知识达人网友：一袍清酒付
2021-01-12 20:10

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

全部回答

1楼网友：西风乍起
2021-01-12 21:28

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

2楼网友：你哪知我潦倒为你
2021-01-12 20:30

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息