十年網(wǎng)站開發(fā)經(jīng)驗 + 多家企業(yè)客戶 + 靠譜的建站團隊
量身定制 + 運營維護+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
以記事本為例
成都創(chuàng)新互聯(lián)擁有一支富有激情的企業(yè)網(wǎng)站制作團隊,在互聯(lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)深耕十多年,專業(yè)且經(jīng)驗豐富。十多年網(wǎng)站優(yōu)化營銷經(jīng)驗,我們已為超過千家中小企業(yè)提供了網(wǎng)站設(shè)計、成都做網(wǎng)站解決方案,按需設(shè)計網(wǎng)站,設(shè)計滿意,售后服務(wù)無憂。所有客戶皆提供一年免費網(wǎng)站維護!
Public Class Form1
Public Sub ShellAndWait(ByVal ProcessPath As String)
Dim objProcess As System.Diagnostics.Process
Try
objProcess = New System.Diagnostics.Process()
objProcess.StartInfo.FileName = ProcessPath
objProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
objProcess.Start()
objProcess.WaitForExit()
objProcess.Close()
Catch
MessageBox.Show("無法執(zhí)行文件 " ProcessPath, "錯誤")
End Try
End Sub
'監(jiān)視程序就可以了,若果監(jiān)視別的窗體的話,用SPY++ 找到句柄,配合FindWindowEx,SendMessage根據(jù)其屬性做
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ShellAndWait("Notepad.exe")
MessageBox.Show("筆記本被關(guān)閉后我才會出現(xiàn)")
End Sub
End Class
在VB環(huán)境中執(zhí)行源代碼,本身就是調(diào)試模式
按F8即可逐語句運行
點擊語句左端空白處,將其背景色變?yōu)樯罴t,就是添加斷點,運行到該語句會停下來
可以在變量、對象等語句上點擊右鍵,選擇“添加監(jiān)視”即可
當進程出現(xiàn)時,向記事本 EDIT 控件發(fā)送消息(使用API SendMessageA) dim a as string a=space 1000 SendMessageA(hwnd,D,1000,a) a就是取得的文本
2005程序運行到斷點處,右鍵可以添加到監(jiān)視窗口。
一般都可以在工具--自定義里找到。