给你一个可以
获取的(花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会员还是比较不错了 至于楼下骂人的那几位我想说的是 哪个网站都有学员说好的 也有说不好的 这个跟学员自身的素质还有水平都是有关系的 毕竟是 *** 上的学习 没有门槛的 什么人都可以学习 自然有学的好的 也有学的差的咯 你说对不对
我相信楼主会有一个明智的选择的 祝你学习愉快
前语 前两章分别对BeEF结构做了开端介绍以及讲解了初始化操控。 前情概要:浏览器进犯结构BeEF Part 1,浏览器进犯结构BeEF Part 2:初始化操控 接下来便是介绍怎么让BeEF继续操控...
此刻有越来越多的年青人相识到奶茶行业的市场,纷纷想要本身加盟一家奶茶店,但是此刻市面上的奶茶店有许多,他们的生意怎么样呢?迩来就有人在我们91创业网网留言问到:济南冷饮奶茶加盟店生意怎么样?加盟奶茶店...
“新余私人伴游-【王茜】” 学历:本科星座:天蝎座提高鉴别经纪人真伪的能力是很关键的一件事哦 不要和妹子们直接联系哦各位先生们,经纪人是您财产和信息安全的保障伴游时间:双日子生肖:鼠 学...
SEO提升(SEO实际怎么优化) seo具体怎么优化?想来许多从业营销推广从业人员想要知道这一的回答。提及实际的seo优化,无非做下列两根: 1、网站内部优化 2、站外优化 先从非常简单的说,站外优化...
首先在电脑上下载并安装好wps办公软件,然后右键单击pdf文件,选择打开方式,在弹出的菜单中找到wps office并点击,待进入到页面后即可成功查看到pdf文件。 品牌型号:联想GeekPro 20...
北京时间4月17日凌晨消息,随着离汉离鄂通道管控解除,复工复产,提振经济,居民生活逐步恢复正轨已成为武汉下一步安排重点。今日,武汉宣布,4 月 19 日起至7 月 31日将通过支付宝等平台发放23...