|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期日 五月 04, 2003 4:30 pm 文章主題: 取得 IE 視窗的位址資訊(轉貼) |
|
|
如何實時取得 IE 窗體中位址欄的位址資訊
***************************************************************
*標 題:如何實時取得IE窗體中位址欄的位址資訊
*說 明:這只是一個實時取得IE窗體中位址欄的位址資訊的示
* 例代碼的一個核心部分,結合以前我貼的其他的API函
* 數,可實現類似黑客程式的效果
* 注 :把以下代碼粘貼到一個程式,然後運行,即會有相應的提示
*程式員:藍色雪狐
***************************************************************
Clea
Clea Dlls
Declare Long FindWindowEx In "user32" Long, Long, String, String &&找到子窗體的控制碼
Declare Long SendMessage In "user32" Long, Long, Long, String &&獲得IE視窗的位址欄中的字串長度及字串
#Define WM_GETTEXT 13
#Define WM_GETTEXTLENGTH 14
hClass = "IEFrame" &&IE窗體類變量
eCaption = .Null.
hWnd = FindWindowEx(0, 0, hClass, eCaption) &&獲得IE窗口的控制碼
hClass = ("WorkerA")
hWnd = FindWindowEx(hWnd, 0, hClass, eCaption)
hClass = ("ReBarWindow32")
hWnd = FindWindowEx(hWnd, 0, hClass, eCaption)
hClass = ("ComboBoxEx32")
hWnd = FindWindowEx(hWnd, 0, hClass, eCaption)
hClass = ("ComboBox")
hWnd = FindWindowEx(hWnd, 0, hClass, eCaption)
hClass = ("Edit")
hWnd = FindWindowEx(hWnd, 0, hClass, eCaption) &&獲得當前我們想要的控制碼
nText = SendMessage(hWnd, WM_GETTEXTLENGTH, 0, "") &&向系統發送獲得IE視窗的位址欄中的字串長度命令
Buffer = Space(nText)
SendMessage(hWnd, WM_GETTEXT, nText + 1, @Buffer) &&向系統發送獲得IE窗體地址欄中的字串命令
If Empty(Allt(Buffer)) Then
MessageBox("MicroSoft Internet Explorer 瀏覽器沒有運行..." + Space(8),0 + 64,"提示資訊")
Retu
Else
MessageBox("網址: " + Buffer + Space(8),0 + 64,"提示資訊")
EndIf
Clea All
Clea Dlls
RETU |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|