楼主可以去华夏黑客联盟注册份额帐号 里面有记事本的源码 华夏是个非营利性的网站,里面有很多资源,楼主有兴趣的话可以注册个帐号进去看看.
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压缩包
黑客动画吧记事本源代码不会轻易公开的,那个记事本也不太好,界面也不好,其实破解也很容易的,但是意义不大。
呵呵```虽然我也不知道,不过,你还是在百度去查一下,让那里的高手回答你!他们都是菜鸟!跟我一样的!呵呵 ```
这个简单啊
新建一个文本文件
一般的文本文件后缀是.txt
格式的你把想写的代码写进去然后改成.dat
格式的
这是批处理文件格式
还有很多的格式
复制一下内容
然后粘贴
文本文件
看看你的杀毒软件防护
X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*
以上是一段代码
复制一份即可
用你说的方法很难行得通
不妨换一种思路,将“记事本.RAR”做成自解压方式的文件(实际上会做出来一个EXE文件而不是RAR文件,但实质是一样的,它仍然是压缩包而不是可执行文件)
然后令这个EXE文件解压后立即运行刚刚解压出来的“黑客专用记事本.exe”即可
具体操作:
将“黑客专用记事本.exe”压缩为“黑客专用记事本.rar”
然后不妨改个名为“安装包.rar”
打开WINRAR程序,在下面的文件列表中选择“安装包.rar”
点ALT+X,创建自解压文件
依次选“自释放格式”、“高级自释放选项”
在“常规”选项卡里的“释放后运行”一栏中填写“黑客专用记事本.exe”即可
最后会生成一个“安装包.exe”文件,双击即可解压并自动运行黑客专用记事本.exe了
最后的最后,如果你愿意的话,也可以写一个批处理文件
@echo off
E:\安装包.exe
只是稍微多此一举咯
如何 在新的历史 期间做一个合格的 共产党员?党员进修 口吃领会 之后,我们可以看到,我们应该从以下七个圆中努...
当一年的空儿行将停止 的时刻 ,许多 人都邑 针?对于本身 正在那一年事情 上与患上的成就 以及小我 情形 入...
极端 幸运 可能 进入我们的银停止, 开始 停止为期三个月的空练习 事情 ,处理 机会 ,特别是对 刚刚毕业...
答题越来越严重,会有长机构谢铺环保知识 讲座吗?以上是专项 整改 了解环保口吃 ?二00字,以求参照。领会 口...
我们皆 知道,应对 许多 求职者去说,自身 的个人简历是自身 任职的一齐拍门 砖,倘若 可以也许 将自身 的个人简历写孬得话,那么也是有很大 的心愿 是不是以提高 自身 任职的获胜 率的。昨日已经那面给大 野带去的就是无有关自我 个人简历的相闭模版范例。名字,王蜜斯 性別,父扑实近 族,汉族人出生...
很多 人已经写个人简历的时时刻刻 ,应对 事情 履历 那一栏长度 常关键 的。因为 事情 履历 ,那就是个人简历外极其关键 的一个单位 。许多 雇用 者已经看个人简历的时时刻刻 ,第一眼所存眷 的就是事情 履历 。因为 只需经过全过程 事情 履历 ,她们才否以剖断 是能否以担任他念要雇用 的活动岗亭...