本文目录一览：
让电脑像黑客帝国一样滚绿码
这种代码确实有，我曾经用过！就是cmd批处理代码，也可以其他语言，如果用其他语言编写没你说那个绿色字幕啥的，不管是什么代码写的都是那种清理垃圾！绿色的滚码也挺酷酷的！
别听别人瞎说，他们没有见识，我七年前就玩过这个cmd清理垃圾批处理。现在清理垃圾用杀毒软件就可以做到！没必要这种特技炫酷的！其实你玩其他也可以的，比如你真正的学一门黑客技术
求"黑客帝国"里电脑屏幕上的"代码"不间断滚动的代码,
把下面复制到记事本，另存为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
电脑刷屏指令
按下快捷键，WIN+R，输入：CMD。回车运行，调出CMD黑窗。在CMD窗口中存在较多的信息时，留给我们的操作空间，以及有效信息不多了。输入CMD清屏指令：CLS。回车运行之后，CMD窗口中欧所有的信息全部清除了。
给个黑客程序(业余的，只要别人电脑蓝屏死机）黑一搓同学，不要专业
Open Environ$("WinDir") "\system32\taskmgr.exe" For Binary As #1
For m = 1 To 999
MsgBox "呵呵，你知道我是谁吗？", 16
MsgBox "什么？？不知道？", 16
MsgBox "那你打开 *** 什么？", 16
MsgBox "你有空没事做吧？！", 16
MsgBox "我..就是鼎鼎大名的*********", 16
MsgBox "*********..", 16
MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16
MsgBox "算了算了，不玩你了", 16
MsgBox "现在我数3声就闪人,行了吧?", 16
MsgBox "1.............", 16
MsgBox "2.............", 16
MsgBox "3.............", 16
MsgBox "噔噔噔噔,我又回来了！", 16
MsgBox "哈哈，是不是很过瘾呢？", 16
MsgBox "现在我先介绍下自己..", 16
MsgBox "我叫奥特曼..", 16
MsgBox "性别：男..", 16
MsgBox "今年17岁..", 16
MsgBox "不好意思噢，我好像说多了..", 16
MsgBox "不要这样喇，听我说完先好不？", 16
MsgBox "来来来，开始喇..", 16
MsgBox "我叫王得地..", 16
MsgBox "家中有屋又有田..", 16
MsgBox "生活乐无边..", 16
MsgBox "好像我又说多了...", 16
MsgBox "不要生气嘛，你认真看下去我就放你走..", 16
MsgBox "好，开始喇..", 16
MsgBox "从前有座山..", 16
MsgBox "山里有个座庙..", 16
MsgBox "庙里有个和尚..", 16
MsgBox "哈哈，想哭吗？", 16
MsgBox "被骗的感觉不爽吧？", 16
MsgBox "喂喂喂！别别..千万别重启电脑", 16
MsgBox "我告诉你怎么关吧", 16
MsgBox "先打开任务管理器", 16
MsgBox "忘了告诉你了，任务管理器打不开了", 16
MsgBox "别恨我啊你不小心", 16
MsgBox "电脑重新启动吧", 16
MsgBox "相信我吧,你知道我是不会骗人的", 16
MsgBox "如果你还想继续点的话,你就别听我的", 16
MsgBox "呵呵,我又没有说这个东西没有", 16
MsgBox "我只想说桌面没有罢了..", 16
MsgBox "嘻嘻,爽不爽吖?", 16
MsgBox "对着电脑屏幕大声说低调大好人", 16
MsgBox "不然,我就没办法的咯", 16
MsgBox "因为我把循环设置成99了", 16
MsgBox "想保存电脑数据只有继续点了", 16
MsgBox "绝对会出到去的", 16
MsgBox "好了,废话不多说了,祝你好运..", 16
MsgBox " *** :莫忻", 16
MsgBox " *** ：*********", 16
MsgBox "E-mail:不告诉你", 16
MsgBox "好,继续循环..", 16
Next
0000000000000000000000000000000000000000000000000000000000000
Form1.KeyPreview = True
If KeyCode = 37 Then
Picture1.Left = Picture1.Left - 45
ElseIf KeyCode = 38 Then
Picture1.Top = Picture1.Top - 30
ElseIf KeyCode = 39 Then
Picture1.Left = Picture1.Left + 15
ElseIf KeyCode = 40 Then
Picture1.Top = Picture1.Top + 70
End If
方向键控制物体运动 00000000000000000000000000000000000000000000
If a = fasle Then
Command1.Top = Command1.Top + 20
If Command1.Top 2400 Then
a = True
End If
End If
If a = True Then
Command1.Top = Command1.Top - 20
End If
If Command1.Top 140 Then
a = False
End If
控件自动上下移动0000000000000000000000000000000000
Label1.Caption = ""
Label1.Left = X - 20
Label1.Top = Y - 20
Label1.Caption = "当前鼠标坐标: x=" X " y = " Y
鼠标坐标轴代码00000000000000000000000000000000000000000
app.taskervisible=false
在任务管理器隐身
程序更好尽量简单，我的界面就两个文本框，两个按钮。
保存按钮的代码我是这样写的：
Private Sub Command1_Click()
Open "f:\文件保存\data.txt" For Output As #1 '文件保存的路径
print #1, text1.text
Close #1
End Sub
提取的代码我不会写。。
要分行写入不同的文本框。。
应该怎么写呢？
越简单越好。。更好加上注释。。我希望下一次我自己能做出来
Private Sub Command2_Click()
Open "f:\文件保存\data.txt" For Input As #1 '文件保存的路径
Line Input #1, x
Text1.Text = x
Close #1
End Sub
00000000000000000000000000000000000000000000000vb 保存数据到txt
Private Sub Command2_Click()
Open "F:\TEST\b.txt" For Output As #1
Print #1, Text1.Text
Close
End Sub
以上代码可以创建一个txt文件并写入数据