黑客动画吧记事本源代码
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压缩包
黑客动画吧记事本源代码不会轻易公开的，那个记事本也不太好，界面也不好，其实破解也很容易的，但是意义不大。
源码是怎么来的？要给我详细说明
源码、、
分为很多种，程序源码，网站源码，动画源码，等等等
所谓源码，就是程序员制作时候的源代码
源码的来处有很多种
1.程序员自己发布到网上，供大家下载（很伟大，赞一个）
2.黑客入侵服务器，偷到之后，放到网上给大家下载
3.相关有源码的公司进行出售
好了，全收打，给点分吧
我想变成一名黑客(不是骇客)应该怎么做呢?
首先该指明，不是每个人都能成为黑客的~`。
黑客不是自封的，
想成为黑客首先要建立非常好的基础。好要有好的运气
电脑的方法有很多，比如说看杂志、上网学习，杂志比较好的有《电脑爱好者》、《计算机应用文摘》、《电脑报》。我更建议你买合订本，更经济实惠，还有收藏价值。我就买前两种杂志的合订本。有不懂得问题还可以上网查询，但是要注意的是网上也有很多答案不好，经过细心学习体会自己就会明白的。学电脑关键在于积累。关于黑客的书籍我推荐你读《黑客防线》、《黑客X档案》等杂志。
其次，你要扎下心来学，电脑知识有很多技巧，关键在于熟记，多操作。电脑除了故障怎么解决？自己要学会自己分析，是软件的毛病？还是硬件的问题，还是网络有问题？可以请教高手，可以查资料，通过这样体会，自己在解决故障的时候也学到了另外的很多东西。比如，随着系统启动的软件都有哪些？哪些是可以去掉的？哪些不能删去，这些程序都隐藏在哪里啊？这当然都需要熟记，这些启动程序所关联的dll文件都是出自哪个文件的？当然都要记住。上网的时候为什么上过有些网站之后，IE的地址栏被改得乱七八糟？网页病毒（恶意代码）篡改了注册表中的那些键值？记不住怎么能解决问题啊？！学习编程更是如此，比如说C语言，光理解每个函数怎么用还不行，还要具体背几个典型的例子，再结合上机多练习，反复体会，学习编程没有技巧，只有反复实践、塌下心来学。而且想要成为一名真正的黑客不仅仅要熟练操作系统，更重要的是你要学习编程，尤其是网络编程，如汇编语言、C++、Java等的计算机语言。还有如 JavaScrip语言，脚本语言等等。要知道每个真正的黑客客都是程序员级别的任务啊！
还有黑客是离不开网络的，所以你要熟悉计算机网络。路由器以及操作系统、互连网原理和网络协议、WINDOWS/LINUX一些网络操作系统的服务器配置等等。
学什么东西都要有兴趣，电脑有很多东西很有意思，相信你也知道，而且当自己为别人解决问题的时候，自己得到的是快乐。如果有兴趣，学习黑客知识你要注意，在了解操作的同时也能学到很多东西，可以由浅入深。但是要注意，不要去攻击别人，这样在道德上是不文明的，在法律上也是不容许的。更是还是违背黑客精神的！黑客就是寻找漏洞修补漏洞的人，发现站有漏洞，当你入侵成功后把漏洞告知被入侵者，提向他们补上漏洞，这才是黑客精神之所在。
最后祝你好运，早日成为一名计算机高手！成为一名真正的黑客！
0条大神的评论