黑客动画吧记事本源代码
VB.net编程方法：
'新建文件
Private Sub mnuNew_Click()
RichTextBox1.Text = "" '清空文本框
FileName = "未命名"
Me.Caption = FileName
End Sub
'打开文件
Private Sub mnuOpen_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" FileName
End Sub
'保存文件
Private Sub mnuSave_Click()
CommonDialog1.Filter="文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(center(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "超级记事本：" FileName
End Sub
'退出
Private Sub mnuExit_Click()
End
End Sub
'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
'剪切
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
'全选
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
'粘贴
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
'查找
Private Sub mnuFind_Click()
sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub
'继续查找
Private Sub mnuFindOn_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength + 1
RichTextBox1.Find sFind, , Len(RichTextBox1)
End Sub
'使用说明
Private Sub mnuReadme_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt",rtfText'请写好Readme.txt文件并存入程序所在文件夹中
Me.Caption = "超级记事本：" "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除，请与作者联系。", vbOKOnly, " 错误信息"
End Sub
VC++编程方法：
首先用VC++创建一个MFC AppWizard(exe)单文档工程，名字Notepad。在Advanced里面File extension(文件扩展名)里面写txt就是关联txt文件，在Base class里面要选CEditView类（意思是基于这个类派生出你用的类）
其实这样生成的就是一个记事本了，但是和原来的记事本还是有区别的
所以我们还要添加点功能，这样才能起到让新人了解VC++的目的
1、我们先加一个设置字体
在 CNotepadView类里面定义字体（就是public） CFont m_Font;
定义消息处理函数：
void CNotepadView::OnFormatFont()
{
// TODO: Add your command handler code here
LOGFONT lf;
CFont *font=this-GetEditCtrl().GetFont();
if(font==NULL)
{
font =new CFont;
font-CreatePointFont(120,"Fixedsys");
font-GetLogFont(lf);
delete font;
}
else
{
font-GetLogFont(lf);
}
CFontDialog cf(lf);
if(cf.DoModal()==IDOK)
{
this-m_Font.DeleteObject();
this-m_Font.CreateFontIndirect(lf);
this-SetFont(this-m_Font);
}
}
2、设置字体
在 CNotepadView类里面定义 BOOL bChk;
消息处理函数
void CNotepadView::OnFormatReturn()
{
// TODO: Add your command handler code here
bChk=!bChk;
if(!bChk)
{
ShowScrollBar(SB_HORZ,true);
}
else
{
ShowScrollBar(SB_HORZ,false);
}
}
下面是源代码RAR压缩包
http://mysky66.51.net/Notepad.rar
黑客动画吧记事本源代码不会轻易公开的，那个记事本也不太好，界面也不好，其实破解也很容易的，但是意义不大。
黑客怎么编程序？
不知道你要学那一种：Asp.net编程中的数组基础实例学习asp.net数组(Array)可以视为储存多个数据类型相同的值的变量，以同一个变量名称，不同的索引值来区分表示多个值。多用来存放性质或类型相同的数据。 1.数组的声明数组的声明有以下两种格式：以下是引用片段：
Dim数组名(元素数量) 【As数据类型】
Dim数组名() 【As数据类型】={元素值l，元素值2…}
2.数组元素的表示当声明一个数组并赋予其元素之后，该数组即可开始执行，其中数组的元素表示方式如下：数组名(索引值)=元素值提示： 索引值自O起计算。数组元素量最多可声明264一1个(即Long类型)。3.范例编写一个asp程序，利用数组制作进入网页后显示当日日期的功能。程序代码：以下是引用片段：
01html
02hr
03 ％
04 Dim cw(7)
05 cw(O)=¨星期日" ．
06 cw(1)=¨星期一”
07 cw(2)="星期二”
08 cw(3)=¨星期三”
09 cw(4)=¨星期四¨
10 cw(5)=¨星期五”
11 cw(6)=¨星期六¨
1 2 response．write(¨今天是¨yea r(now())"年")
13 response．write(month(now()) "月" day(now()) ＆ "日")
14 response．write(cw(Wee kDay(now())一1))
l5 ％
1 6hr
l7／html
本程序的说明如下· 第3-1 5行：为asp程序的主体。· 第4行：声明一个数组CW，数组中元素有7个。· 第5～11行：定义数组中的每一个元素，数据类型是字符串。· 第1 2-1 4行：利用日期时间函数与数组将日期用response对象的write方法输出，其中在第l 4行，以WeekDay函数代.A,now()函数以求出星期值，其值范围在1～7，因为要代入数组中的索引值，而数组中的索引值从O计算，所以在此输出程序中要减1，将求出的星期值范围定在O～6，才能符合数组的索引值，以带出各索引值所代表的字符串。
黑客文字怎么做？
本实例编辑出很多的字母串从上到下又慢慢地消失的效果。本实例先使用文本工具，在舞台中编辑出文字内容，再运用分离功能，编辑出文本由亮到暗，再由暗到亮的动画效果，最后运用Action Scrip，使画面中出现多条字母串。
操作步骤：
1. 启动FLASH8，新建一空白FLASH文档。
2. Ctrl+J，打开文档属性对话框，设置尺寸：宽650px，高400px，背景色为黑色。
3. Ctrl+F8，打开创建新元件对话框，设置名称：文字，行为：影片剪辑。
4. 确定后进入元件文字的编辑画面。选择文本工具，设置字体为Adlib BT，字号为10，文本颜色为绿色（＃00CC00），在舞台中输入文本“welcome to www.lccrzzx.com”。
5. 选择舞台中的文字，按下Ctrl+B将文本分离。
6. 按Ctrl+Shift+D，将文字分散到层。
7. 现在图层1为空图层，我们可以将它删除掉。选择图层1，右击鼠标，选择删除命令。
8. 选择时间轴上的所有字母，按下Ctrl+B将字母分离，为所有图层的第45帧插入关键帧。
9. 选中所有的图层，在属性面板中设置补间为形状。
10. 选中所有的图层的第45帧，Shift+F9，打开混色器面板，将Alpha值调整到0％。
11. 选中图层2的第1帧，按住鼠标左键不放，再往后拖曳鼠标到第45帧，选中图层1的所有帧。
12. 将选中的帧全部往后拖一个帧格。
13. 用同样的方法将下面各个图层的帧的位置往后移，每往下一个图层多往后移动一个帧格。
14. 回到舞台，Ctrl+L，打开库面板。
15. 选择库面板中的文字，拖曳到舞台。
16. 在属性面板中设置文字实例的位置，X：373，Y：55。
17. 在属性面板中设置实例名称为w。
18. 选择图层1的第1帧，F9，打开动作面板输入脚本：
for(n=1;n75;n++){
duplicateMovieClip("w","w" add n,n);
setProperty("w" add n,_x,random(650)+1);
setProperty("w" add n,_y,random(200)+1);
setProperty("w" add n,_xscale,random(100)+1);
setProperty("w" add n,_yscale,random(125)+1);
}
脚本解释：
第1句：设置常量n，并赋值为1，设置循环条件为：n50时执行下列操作，每执行一次n+1。
第2句：复制实例名为w的元件，命名为”w” add n。
第3句：设置”w” add n的X坐标为0～650中随机的一个值再加1。
第4句：设置”w” add n的Y坐标为0～200中随机的一个值再加1。
第5句：设置”w” add n的宽为0～100中随机的一个值再加1。
第6句：设置”w” add n的高为0～125中随机的一个值再加1。
19. 本实例制作完毕，按Ctrl+Enter观看最终效果。
黑客代码在哪输入
开始————运行——CMD 黑客dos命令: net use \\ip\ipc$ " " /user:" " 建立IPC空链接 net use \\ip\ipc$ "密码" /user:"用户名" 建立IPC非空链接 net use h: \\ip\c$ "密码" /user:"用户名" 直接登陆后映射对方C：到本地为H: net use h: \\ip\c$ 登陆后映射对方C：到本地为H: net use \\ip\ipc$ /del 删除IPC链接 net use h: /del 删除映射对方到本地的为H:的映射 net user 用户名 密码 /add 建立用户 net user guest /active:yes 激活guest用户 net user 查看有哪些用户 net user 帐户名 查看帐户的属性 net localgroup administrators 用户名 /add 把“用户”添加到管理员中使其具有管理员权限 等等还有很多。。。。。。
黑客脚本
拥有黑客技术的人员会利用一些有别于正常的编程代码程序，专用的一些源码文件，这些文件都有着特有的格式，当黑客要利用它编写代码时就直接调用加以修改等生成全新的程序用于其目标，脚本应该是这个意思。不知道这样解释能听懂吗？
黑客代码都是怎么编辑的？
针对不同的程序／对象，使用不同的语言。本人痛狠无孔不入的黑客，所以，只能告诉你：那些代码都是手写的。