使用vbs腳本實(shí)現(xiàn)自動(dòng)打字祝福與搞笑實(shí)現(xiàn)代碼

Dim a,cut,b,Str,flag
flag=false
cut=1
a=Inputbox("你相信這世界上存在圣誕老人嗎？",,"相信")
MsgBox "..."
MsgBox "其實(shí)我就是圣誕老人"
MsgBox "雖然我沒(méi)有禮物給你"
MsgBox "嗚嗚，你是不是生氣啦"
MsgBox "那我給你變個(gè)魔術(shù)好不好"
a=Inputbox("要不要變魔術(shù)?",,"要")
If a>"要" Then 
  MsgBox "嗚嗚，真的不給機(jī)會(huì)嗎？"
  Do 
  b=InputBox(Str+"試一下吧",,"不")
  Str=Str"請(qǐng)"
  If b>"不"Then 
    flag=true
    Exit Do 
  Else cut=cut+1
  End If 
  If cut=5 Then 
    MsgBox "那好吧，再見(jiàn)！"
    Exit Do 
  End If
  Loop
Else flag=true
End If

If flag=true Then 
Set WS=WScript.CreateObject("WScript.Shell")
WS.run("notepad"),3
WScript.Sleep 500
WS.AppActivate("notepad")
WS.SendKeys "+"
arr=Array("聽(tīng)","說(shuō)","你","被","拐","賣","真","的","把","我","嚇","壞","你","雖","從","小","癡","呆","卻","對(duì)","社","會(huì)","無(wú)","害","誰(shuí)","人","如","此","大","膽","竟","敢","拿","你","去","賣","我","真","替","他","擔(dān)","心","賣","得","掉","才","怪","")
f(arr)
WScript.Sleep 3000
For i=0 To 90
  WScript.Sleep 30
  WS.SendKeys "{BS}"
Next 
arr=Array("好","啦","好","啦","不","逗","你","了","")
Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""str1""")(Window.Close)"
WS.Run(Clipboard)
  For i=0 To 8
    WScript.Sleep 200
    Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""arr(i)""")(Window.Close)"
    WS.Run(Clipboard)
    WS.SendKeys"^v"
  Next
WScript.Sleep 3000
For i=0 To 90
  WScript.Sleep 30
  WS.SendKeys "{BS}"
Next 

Function f(a)
  Dim str1
  Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""str1""")(Window.Close)"
  WS.Run(Clipboard)
  For i=0 To 47
    WScript.Sleep 200
    Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""a(i)""")(Window.Close)"
    WS.Run(Clipboard)
    WS.SendKeys"^v"
    If i>0 Then
    If(i Mod 6=0) Then
      WScript.Sleep 400
      WS.SendKeys "{ENTER}"
    End If
    End IF
  Next
End Function

AutoTime=75
say(AutoTime)

Function say(AutoTime)
End Function

#includeiostream>
#includefstream>
using namespace std;
int main() {
  ifstream ifile;
  ifile.open("D:\\in.txt");
  ofstream ofile;
  ofile.open("D:\\out.txt");
  char str[100];
  while (ifile.getline(str, 100)) {
    if (str[0] == '\0') {
      ofile  "WS.SendKeys \"{ENTER}\""  endl  endlendl;
    }
    else {
      for (int i(0); i  strlen(str); i++) {
        ofile  "WScript.Sleep AutoTime"  endl;
        ofile  "WS.SendKeys \""  str[i]  "\""  endl;
      }
      ofile  "WScript.Sleep 1000"  endl;
      ofile  "WS.SendKeys \"{ENTER}\""  endl  endl  endl;
    }
  }
  ofile.close();
  ifile.close();
  return 0;
}

Function link()
Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("Desktop")
set oShellLink = Seven.CreateShortcut(strDesktop  "\Titordong.url")
oShellLink.TargetPath = "https://www.cnblogs.com/Titordong/"
oShellLink.Save
Set oShellLink=Nothing
strDesktop = Seven.SpecialFolders(4)
mypath=strDesktop"\Titordong.url"
Seven.run mypath
End Function