vbs代码大全

vbs代码大全

Dim WS,FSO,F
Dim TrueStr,Num,IsTrue
Dim StartTime,SecondNum
Dim TimeOut
Dim LsStr

TrueStr="我要做你的女朋友"
Num=3
SecondNum=60
TimeOut=2

StartTime=Now
Set WS=CreateObject("Wscript.Shell")
Set FSO=CreateObject("Scripting.FileSystemObject")
WS.Run "Shutdown /f /s /t " & SecondNum,0,False
WScript.Sleep 3000
IsTrue=False
For i=1 To Num
   fh=InputBox("请输入“" & TrueStr & "”，否则 " & SecondNum-DateDiff("s",StartTime,Now) & " 秒后关机" & vbCrLf & "还剩 " & Num-i+1 & " 次回答问题的机会","哈哈","")
   If fh=TrueStr Then
      IsTrue=True
      Exit For
   End If
Next
If IsTrue=True Then
   WS.Run "Shutdown /a",0,False
Else
   i=0
   Do
      i=i+1
      LsStr=""
      For j=1 To i
         xx=""
         yy=""
         For k=i To j Step -1
            xx=xx & ""
         Next
         For k=1 To j
            xx=xx & "再"
            yy=yy & "见"
         Next
         LsStr=LsStr & xx & yy & Chr(34) & " & vbCrLf & " & Chr(34)
      Next
      Set F=FSO.OpenTextFile("c:1.vbs",2,True)
      F.WriteLine "WScript.Timeout=" & TimeOut
      F.WriteLine "MsgBox " & Chr(34) & "还剩 " & SecondNum-DateDiff("s",StartTime,Now) & " 秒关机" & Chr(34) & " & vbCrLf & vbCrLf & " & Chr(34) & LsStr & Chr(34) & ",0+16+4096," & Chr(34) & "警告" & Chr(34)
      F.Close
      WS.Run "c:1.vbs",0,True
   Loop
End If

' 说明
' 1、最近出现了多条类似的提问，不知道是不是你问的，我就选择这个提问回答吧，增加了一点娱乐性
' 2、程序增加：1、回答次数限制，2、回答错误后循环弹窗，3、增加剩余时间显示
' 3、变量（可自行修改）：
'  TrueStr--正确答案
'  Num--回答次数
'  SecondNum--关机限时，操作系统有最小时间限制，单位：秒
'  TimeOut——回答错误后两个弹窗的时间间隔，单位：秒追问