admin管理员组文章数量:1530842
2024年6月27日发(作者:)
黑客整人代码
1、我是猪
on error resume next
dim WSHshellA
set WSHshellA = object("")
" /c shutdown -r -t 60 -c ""说我是猪,
不说我是猪就一分钟关你机,不信,试试"" ",0 ,true
dim a
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说
不说","不说",8000,7000)
do while(a <> "我是猪")
msgbox "快点说!马上就要关机了啊,你看着办吧!"
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说
不说","不说",8000,7000)
loop
msgbox "早说就行了嘛,真是的!"
dim WSHshell
set WSHshell = object("")
" /c shutdown -a",0 ,true
msgbox "哈哈哈哈,你很乖噢,我就喜欢你这样!"
2、爱情测试
const yourname = "张三"
const title = "爱情测试"
const question = "你最喜欢的人是谁?请在下面的方框中输入他
的名字"
const info = "你在说谎!不要逃避嘛,实话实说,快点说啦!"
const scend = "你终于说出你的心扉了,赶紧向他表白吧,赶紧
啰!哈哈!"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info,
vbinformation + vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation + vbokonly, title
3、关不掉的窗口
("嘿,谢谢你打开我哦,我等你很久拉!
"&TSName)
("你是可爱的小朋吗?")
("哈,我想你拉,这你都不知道吗?")
("怎么才来,说~是不是不关心我")
("哼,我生气拉,等你这么久,心都凉啦。")
("小强很生气,后果很严重哦。")
("嘿嘿!你也会很惨滴哦")
("是不是想清除我?")
("那你要点上50下哦,不过会给你惊喜滴")
("还剩49下,快点点哦")
("还剩48下,快点,小笨蛋!")
("还剩47下对,就这样快点点!")
("还剩46下。你啊就是笨,要快哦,我先不打扰你
工作。")
("还剩45下,记得要快哦!")
("还剩43下")
("还剩42下")
("还剩41下")
("还剩40下")
("还剩39下")
("还剩38下")
("还剩37下")
("还剩36下")
("还剩35下")
("还剩34下")
("还剩33下")
("还剩32下")
("还剩30下")
("还剩29下")
("还剩28下")
("还剩27下")
("还剩26下")
("还剩25下")
("还剩24下")
("还剩23下")
("还剩22下")
("还剩21下")
("还剩20下")
("还剩19下")
("还剩18下")
("还剩17下")
("
还剩16下")
("还剩15下")
("还剩14下")
版权声明:本文标题:黑客整人代码 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://m.elefans.com/xitong/1719500790a781962.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论