如何用vbs整蛊人
发布网友
发布时间：2022-04-23 16:16
共1个回答
热心网友
时间：2023-10-09 06:01
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("1.vbs", True)
tf.WriteLine("Dim a,b,c")
tf.WriteLine("randomize")
tf.WriteLine("a = CreateObject(""HtmlFile"").ParentWindow.Screen.AvailWidth")
tf.WriteLine("b = CreateObject(""HtmlFile"").ParentWindow.Screen.AvailHeight")
tf.WriteLine("a = a*rnd()")
tf.WriteLine("b = b*rnd()")
tf.WriteLine("a = a*5")
tf.WriteLine("b = b*5")
tf.WriteLine("a = int(a)")
tf.WriteLine("b = int(b)")
tf.WriteLine("c = inputbox(1,,,a,b)")
tf.Close
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 1 to 100
WshShell.Run "1.vbs"
Next
