VFP 愛用者社區

[Ruey]

如何實時取得 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