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