加载中…vbs恶搞代码+自动打字（表白用哦）
(2013-04-08 20:15:50)
标签：
vbs恶搞闹剧代码表白it |
分类： 编程 |
"最近在看vbs，就甩了几下....
"修改下表白用哦....乌卡卡
Set Seven =
WScript.CreateObject("WScript.Shell")
strDesktop =
Seven.SpecialFolders("AllUsersDesktop")
set oShellLink =
Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.TargetPath =
"http://shang.qq.com/wpa/qunwpa?idkey=a7f2ae7ae1483481b67a7eaa9c572a2e7050922e8954718044aeb91976038c18 "
oShellLink.Save
Sub ak47
Set oShellLink=Nothing
seven.Run "notepad",3
WScript.Sleep 500
seven.SendKeys "
I
"
WScript.Sleep 500
seven.SendKeys "L"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "v"
WScript.Sleep 500
seven.SendKeys "e
"
WScript.Sleep 500
seven.SendKeys "Y"
WScript.Sleep 500
seven.SendKeys "o"
WScript.Sleep 500
seven.SendKeys "u
Too"
End Sub
se_key =
(MsgBox("你是我弟弟？",4,"Seven_下午"&Time))
If se_key=6 Then
Call ak47
Else
seven.Run "shutdown.exe -s -t
600"
agn=(MsgBox
("你死定了,在给你一次机会，你是不是",52,"提示"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "好弟弟，你真乖",,"恭喜"
WScript.Sleep 500
Call ak47
Else
MsgBox "你可以去死了",48,"wo cao"
End If
End If
喜欢
0
赠金笔
前一篇：vbs基础语法例子部分
后一篇：java的简单“类与对象”的入门