vbs新年祝福,怎么样

Posted zmf-wolfclub

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbs新年祝福,怎么样相关的知识，希望对你有一定的参考价值。

复制一下就可以，或者是下载文档，改一下备注

  1
Set ws=CreateObject("wscript.shell")

Dim a,cut,b,Str,flag
flag=false
cut=1
a=Inputbox("快过年了，有什么愿望吗？",,"有")
MsgBox "........."
MsgBox "我就知道你会有愿望的"
MsgBox "那我就我送你个礼物给你"
MsgBox "给你发个新年祝福"
MsgBox "闭上眼"
a=Inputbox("要不要新年祝福?",,"要")
If a<>"要" Then 
    MsgBox "呜呜，真的不给机会吗？"
    Do 
    b=InputBox(Str+"试一下吧",,"不")
    Str=Str&"请"
    If b<>"不"Then 
        flag=true
        Exit Do 
    Else cut=cut+1
    End If 
    If cut=5 Then 
        MsgBox "那好吧，再见！"
        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("听","说","你","被","拐","卖","真","的","把","我","吓","坏","你","虽","从","小","痴","呆","却","对","社","会","无","害","谁","人","如","此","大","胆","竟","敢","拿","你","去","卖","我","真","替","他","担","心","卖","得","掉","才","怪","")
‘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 
AutoTime=75
say(AutoTime)

end If
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

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

Function say(AutoTime)
WScript.Sleep AutoTime
WS.SendKeys "D"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "f"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "d"
WScript.Sleep AutoTime
WS.SendKeys ":"
WScript.Sleep 1000
WS.SendKeys "{ENTER}"


WS.SendKeys "{ENTER}"


WScript.Sleep AutoTime
WS.SendKeys "H"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "c"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys "?"
WScript.Sleep 1000
WS.SendKeys "{ENTER}"

WScript.Sleep 1000
WS.SendKeys "{ENTER}"

WScript.Sleep AutoTime
WS.SendKeys "I"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "p"
WScript.Sleep AutoTime
WS.SendKeys "p"
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "N"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys ","
WScript.Sleep 1000
WS.SendKeys "{ENTER}"


WScript.Sleep 1000
WS.SendKeys "{ENTER}"



WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "j"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "d"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "c"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys ","

WScript.Sleep 1000
WS.SendKeys "{ENTER}"

WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys "d"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "k"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "b"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "b"
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime

WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "c"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys "p"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys ","

WScript.Sleep 1000
WS.SendKeys "{ENTER}"


WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "c"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys ","

WScript.Sleep 1000
WS.SendKeys "{ENTER}"

WScript.Sleep AutoTime
WS.SendKeys "c"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "d"
WScript.Sleep AutoTime
WS.SendKeys ","

WScript.Sleep 1000
WS.SendKeys "{ENTER}"

WScript.Sleep AutoTime
WS.SendKeys "b"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys "."
WScript.Sleep 1000
WS.SendKeys "{ENTER}"

WScript.Sleep AutoTime
WS.SendKeys "p"

WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "p"
WScript.Sleep AutoTime
WS.SendKeys "p"
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "v"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "d"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys ","
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "n"


WScript.Sleep AutoTime
WS.SendKeys "d"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "d"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys " "

WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "c"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "i"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "v"
WScript.Sleep AutoTime
WS.SendKeys "e"

WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys ","

WScript.Sleep 1000
WS.SendKeys "{ENTER}"


WS.SendKeys "{ENTER}"


WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "p"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys "l"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "o"

WS.SendKeys "f"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "n"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "w"
WScript.Sleep AutoTime
WS.SendKeys " "
WS.SendKeys "y"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "a"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "e"

WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "e"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "b"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "i"


WS.SendKeys "g"
WScript.Sleep AutoTime
WS.SendKeys "h"
WScript.Sleep AutoTime
WS.SendKeys "t"
WScript.Sleep AutoTime
WS.SendKeys "!"

WScript.Sleep 1000
WS.SendKeys "{ENTER}"


WS.SendKeys "{ENTER}"


WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "-"
WScript.Sleep AutoTime
WS.SendKeys "-"
WScript.Sleep AutoTime
WS.SendKeys "-"
WScript.Sleep AutoTime
WS.SendKeys "-"
WScript.Sleep AutoTime
WS.SendKeys "Y"
WScript.Sleep AutoTime
WS.SendKeys "o"
WScript.Sleep AutoTime
WS.SendKeys "u"
WScript.Sleep AutoTime
WS.SendKeys "r"
WScript.Sleep AutoTime
WS.SendKeys "s"
WScript.Sleep AutoTime
WS.SendKeys " "
WScript.Sleep AutoTime
WS.SendKeys "z"
WScript.Sleep AutoTime
WS.SendKeys "m"
WScript.Sleep AutoTime
WS.SendKeys "f"
WScript.Sleep 1000
WS.SendKeys "{ENTER}"



a=msgbox("来我空间看看吧,你将打开zmf的空间的?",vbOKCancel)

if a=vbok then

Set Sh = WScript.CreateObject("WScript.Shell")

Sh.Run "https://user.qzone.qq.com/1335476765", 3 
end if



End Function


 




 




自己慢慢的弄得，不愧对大家的祝福，所以我就不群发了，哈
以上是关于vbs新年祝福,怎么样的主要内容，如果未能解决你的问题，请参考以下文章
 

 vbs脚本实现自动打字祝福&搞笑


 经典温馨新年祝福朋友圈话语


 2023新春祝福html代码，包你学会


 新年祝福短信集锦


 python 新年祝福


 2019年新年祝福