给你一个可以
获取的(花RMB的)地址
***
--搜索你所需要的, 里面还是花钱的,没有付出,是不行的,呵呵
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压缩包
黑客动画吧记事本源代码不会轻易公开的,那个记事本也不太好,界面也不好,其实破解也很容易的,但是意义不大。
或许是该网吧屏蔽了黑客网站
这个大概是处于网吧安全着想吧
仁者见仁智者见智了 我觉得黑吧vip会员还是比较不错了 至于楼下骂人的那几位我想说的是 哪个网站都有学员说好的 也有说不好的 这个跟学员自身的素质还有水平都是有关系的 毕竟是 *** 上的学习 没有门槛的 什么人都可以学习 自然有学的好的 也有学的差的咯 你说对不对
我相信楼主会有一个明智的选择的 祝你学习愉快
菜鸟学习初级教程-----强烈推荐(看完后成黑客拉) 前言 黑客常用命令大全 net user heibai lovechina /add 加一个heibai的用户密码为lovechina net...
洛阳黑客都有叫什么的 免费给我一个qq号和密码(免费盗号qq号密码软件) 黑客会什么技术 收徒的黑客可信吗(中国第一黑客收徒) 怎么用黑客的方法找回qq 黑客盗微信密码是真...
猪肉,我们日常最为常见,吃的也是最多的一种肉类,在去年下半年时,猪肉价格飙升,往常十几块钱一斤的猪肉硬是升到了三十多一斤。当然,虽然价格奇高,但是这也不能改变人们对它的喜爱,依然很多人去买。而且很多时...
法律事务部职责(公司法律事务部都做些什么?) 经集团公司董事会研究,决定设立集团公司法律事务部。现将其职责及有关事项通知如下,请一并遵照执行。 一、集团公司法律事务部的职权:1、负责办理、协调...
21 5NOTICE: CREATE TABLE will create implicitsequence "tags_id_seq"forserial column "tags...
本文目录一览: 1、超级黑客txt全集下载 2、求小说男主和女主有个孩子小名叫小猴子超级黑客 3、完结小说 要好看的!!!! 4、谁知道有一本小说是主角是杀手也是个超级黑客 名字好像叫阳光...