VB 調(diào)用大漠插件操作記事本實(shí)例
操作過程 需要在VB 中添加一個(gè)模塊 然后添加模塊代碼如下：CODE:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'延時(shí)函數(shù) sleep
Public Function Delay(DT As Long)
For i = 0 To DT Step 2
DoEvents '操作權(quán)交給系統(tǒng) 否則程序會(huì)暫時(shí)無響應(yīng)
Sleep 1
Next i
End Function
Public Function 注冊(cè)(dm As Object) As Object
Shell "regsvr32 dm.dll /s" '注冊(cè)大漠插件到系統(tǒng)
Delay 500
Set dm = CreateObject("dm.dmsoft") '創(chuàng)建大漠插件
End Function然后在FORM1中添加如下代碼：CODE:
Dim dm As Object '聲明 DM 為控件類型
Private Sub Form_Load()
On Error Resume Next '容錯(cuò)處理 遇到錯(cuò)誤直接執(zhí)行下面的語句
Form1.Visible = False 'FORM1 不可見 程序運(yùn)行過程中看不到程序窗體
注冊(cè) dm '調(diào)用模塊 注冊(cè)大漠插件
Shell "NOTEPAD", vbNormalFocus '運(yùn)行 記事本程序 并讓這個(gè)程序帶有焦點(diǎn)
Delay 1000
myhwnd = dm.GetForegroundWindow() '獲得頂層活動(dòng)窗口，因?yàn)檫\(yùn)行 記事本的時(shí)候?qū)⑺O(shè)置為了當(dāng)前窗口 所以這里獲取的是記事本的窗口句柄
Delay 500
hwnd1 = dm.GetForegroundFocus() '獲得頂層具有輸入焦點(diǎn)的窗口句柄 也就是 記事本的 Edit 類的句柄
dm.SendString hwnd1, "我是來測(cè)試的"
Delay 1000
dm.SendString hwnd1, vbCrLf + "這樣我們就簡(jiǎn)單的實(shí)現(xiàn)了 向記事本輸入文本的操作！"
Delay 1000
dm.SendString hwnd1, vbCrLf + "怎么樣？是不是很簡(jiǎn)單呢？"
Delay 1000
dm.SendString hwnd1, vbCrLf + "下來我們讓它自動(dòng)保存為 D:\A.TXT 睜大眼睛看了哦！"
Delay 3000
'以上代碼實(shí)現(xiàn)了 向記事本中輸入文本的功能
dm.SetWindowState myhwnd, 0 '關(guān)閉記事本
Do While 1 < 2
Delay 1000
mhwnd = dm.FindWindow("#32770", "記事本") '去找關(guān)閉時(shí)彈出的對(duì)話框 讓你選擇是否保存
If mhwnd > 0 Then
dm.KeyPress 13 '找到后按下 回車 按鍵
Exit Do
End If
Loop
Kill "d:\a.txt" '如果 D:\a.txt 文件已經(jīng)存在則先刪除
Do While 1 < 2
Delay 1000
mhwnd = dm.FindWindow("#32770", "另存為") '去找 另存為 窗口的句柄
If mhwnd > 0 Then
Exit Do
End If
Loop
hwnd2 = dm.GetForegroundFocus() '和上面一樣 獲得具有輸入焦點(diǎn)的窗口句柄
Delay 1000
dm.SendString hwnd2, "D:\a.txt" '在這里輸入 保存的路徑和文件名
Delay 1000
dm.KeyPress 13 '按下回車鍵 確認(rèn)
a = MsgBox("演示結(jié)束，現(xiàn)在自動(dòng)打開 D:\A.TXT", vbOKOnly) '對(duì)話框提示 演示結(jié)束
Shell "NOTEPAD d:\a.txt", vbNormalFocus '打開剛才保存的文件
Delay 2000
End '延時(shí)兩秒后程序自動(dòng)結(jié)束
End Sub要求 大漠插件和你編輯的工程在同一個(gè)目錄 否則 會(huì)導(dǎo)致注冊(cè)失敗，也可以將代碼粘貼完后 直接生成工程 然后把 DM.DLL 和你生成的工程放在同一個(gè)目錄下就OK了
運(yùn)行程序后 會(huì)自動(dòng)執(zhí)行一系列 記事本操作。有興趣者可以自己試驗(yàn)研究。
|
