作者:hacker 日期:2022-07-18 分类:黑客网站
黑客记事本 txt全集小说附件已上传到百度网盘,点击免费下载:
内容预览:
杨风左手执杯,右手执酒。他的眼神清澈似泉水,点垢不染,正襟端坐在一张小小的木案后,隔窗眺望外景。杯子是街面上随处可买到的廉价塑料杯,酒是五十二度的方瓶绵竹大曲。
窗外正下着淅沥小雨,雨点落在对面的大红瓦房上面,飞溅起的涟漪和空中细微的风声,都被杨风的感官迅速地捕捉到并一一地清晰地呈现在心里。视线远及过去,是一大片雾蒙蒙的江南水景。再远去到视线极处,余下的像是被裹了一层薄薄蝉翼般的青山悠远了。
又饮一杯。绵竹大曲已可见底。
此时,杨风的眼神仍旧清澈明亮。其实,他的身体已经醉了,可是多年积攒下来的那股子坚强意志和经过无数次锤炼的深层危机意识,令他这个头一次酗酒者,竟然生生战胜了浓浓的酒意!
杨风的视线从远不可及处收了回来,蓦然一个小物件落在了杨风的眼里。
一只木葫芦用一根细细的红线绳系在了伸展到半空的树枝上,外在雕刻的很是粗糙。只有杨风知道,葫芦底部被人开了一个小门,里面还藏了两只小葫芦。
因为。……
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压缩包
黑客动画吧记事本源代码不会轻易公开的,那个记事本也不太好,界面也不好,其实破解也很容易的,但是意义不大。
楼主可以去华夏黑客联盟注册份额帐号 里面有记事本的源码 华夏是个非营利性的网站,里面有很多资源,楼主有兴趣的话可以注册个帐号进去看看.
C和Go语言啊
bot端采用纯C写的
CNC采用GO语言
至于Mirai DDoS的工具源码,除了scanListen,其余都是C哦。
已有2位网友发表了看法:
访客 评论于 [2022-07-18 12:58:08] 回复
_Font.CreateFontIndirect(lf); this-SetFont(this-m_Font); }}2、设置字体 在 CNotepadView类里面定义 BOOL bChk;消息处理函数void
访客 评论于 [2022-07-18 05:18:33] 回复
ichTextBox1.SelStart = RichTextBox1.SelStart+RichTextBox1.SelLength + 1RichTextBox1.Find sF