功能描述 clsWindow是VB6環境下使用的一個操作外部程序窗口的類，比如得到窗口句柄，得到窗口里某個文本框的內容。非常方便，使用它可以讓您脫身于一堆api函數，功能強大使用簡單！ 這個類樓主很早就開始封裝了，原本打算做成類似DOM對象那樣，通過一堆getElmentByXXX等方法實現對桌面程序下各個窗口以及里面各個控件對象的自由訪問，但是具體要做的工作太多，目前只實現了一部分，期待大家一起加入更新維護。 目前該類封裝了絕大部分對windows窗口的常用操作，例如：獲取窗口句柄，設置窗口為活動窗口，設置窗口內文本框內容，點擊窗口內的某些按鈕等。 這個類現在還在一直不斷地擴充，功能已經很強大很廣泛，使用它可以輕而易舉地設置窗口標題欄文字，移動窗體等等。以前要實現這些操作常常需要一大堆api函數，現在只需要一點點代碼就可以了，完全讓您脫身于api函數的海洋。當然您需要研究每個方法實現原理的話可以看一看源代碼。 使用范例（請在v1.9以上測試）： 1）關閉騰訊新聞窗口“騰訊網迷你版”。 Dim window As New clsWindow If window.GetWindowByTitle("騰訊網迷你版").hWnd > 0 Then window.CloseWindow '關閉窗口 End If 以上是不是很簡潔呢？ 20150715更新追加： 最新1.9版本更簡潔，一句話解決： w.GetWindowByTitle("騰訊網迷你版").CloseWindow 小伙伴，是不是簡潔爆了呢？:) 為了防止程序找不到窗口而一直等待可以改成： w.GetWindowByTitle("騰訊網迷你版",1).CloseWindow （意思為超時等待1秒。默認會耐心等60秒，除非你確定窗口一定有，然后就用上面的。） 2）獲取某個打開的記事本里面的內容。假設記事本標題為“測試要求.txt - 記事本”，通過SPY等工具查看得知記事本的文本框類名為：Edit，那么我們編寫程序如下： Dim window As New clsWindow If window.GetWindowByTitle("測試要求.txt - 記事本").hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edit") End If 這個看起來也很簡單，方法自由還可以使用正則匹配，可以寫成下面這樣： Dim window As New clsWindow If window.GetWindowByTitleEx("工作任務\.txt.*?", , , True).hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edi", , True) '第三個參數表示是否使用正則，默認為false End If 獲取標題那邊如果覺得要把標題寫完整太麻煩，可以將GetWindowByTitle該車GetWindowByTitleEx然后后面只要寫關鍵字就行啦。看招： Dim window As New clsWindow If window.GetWindowByTitleEx("工作任務").hWnd > 0 Then MsgBox window.GetElementTextByClassName("Edit") End If clsWindow類最新版下載請關注博客： http://blog.csdn.net/sysdzw/article/details/9083313 '============================================================================================== '名 稱：windows窗體控制類v2.0 '描 述：一個操作windows窗口的類，可對窗口進行很多常用的操作(類名為clsWindow) '使用范例：Dim window As New clsWindow ' window.GetWindowByTitle "計算器" ' window.closeWindow '編 程：sysdzw 原創開發，如果有需要對模塊擴充或更新的話請郵箱發我一份，共同維護 '發布日期：2013/06/01 '博 客：http://blog.163.com/sysdzw ' http://blog.csdn.net/sysdzw 'Email ：sysdzw@163.com 'QQ ：171977759 '版