如何弹出多个 msgbox vbs？

Question

如题所述

Answer 1

以下代码复制粘贴到记事本，另存为xx.vbs，编码选ANSI
rem vbs弹出多个窗口
title="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)
Set ws=CreateObject("WScript.Shell")
Set fso=CreateObject("Scripting.Filesystemobject")
tmpfile=fso.GetSpecialFolder(2)+"\v.v"
Set f=fso.CreateTextFile(tmpfile,2)
f.Write "msgbox """ & title & """ & vbCrLf & ""Don't be evil."",,""warning"""
f.Close
For i=1 To 10
ws.Run """" & WSH.FullName & """ -e:vbscript """ & tmpfile & """",0,False
WSH.Sleep 1000
Next