線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2271
推到 Plurk!
推到 Facebook!

如何得知IE目前的網址

答題得分者是:qoo1234
老大仔
尊榮會員


發表:78
回覆:837
積分:1088
註冊:2006-07-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-03-02 03:40:13 IP:59.114.xxx.xxx 未訂閱
我想請問一下~
假設目前有三個IE開著(不是用delphi中的WebBrowser元件)
其三個網頁的網址分別是KTOP、YAHOO、PCHOME的網址
那麼我要怎麼知道我目前正在瀏覽哪個網站呢?(假如我是正在瀏覽KTOP的話)
並且要怎麼取得該網址標題呢?(網址和標題要分開取出)
編輯記錄
老大仔 重新編輯於 2009-03-02 03:51:26, 註解 無‧
老大仔 重新編輯於 2009-03-02 03:53:16, 註解 無‧
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-03-02 09:29:24 IP:60.248.xxx.xxx 訂閱
請參考小弟拙作  懶惰鬼自動登入器 - (利用 Delphi 控制網頁的 Demo),這篇有您要的資料

===================引 用 老大仔 文 章===================
我想請問一下~
假設目前有三個IE開著(不是用delphi中的WebBrowser元件)
其三個網頁的網址分別是KTOP、YAHOO、PCHOME的網址
那麼我要怎麼知道我目前正在瀏覽哪個網站呢?(假如我是正在瀏覽KTOP的話)
並且要怎麼取得該網址標題呢?(網址和標題要分開取出)
------
價值的展現,來自於你用哪一個角度來看待它!!
老大仔
尊榮會員


發表:78
回覆:837
積分:1088
註冊:2006-07-06

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-03-02 10:14:09 IP:59.114.xxx.xxx 未訂閱
To careychen大大~
小弟已經讀過您的文章了
那小弟還有個問題
就是~~要怎麼知道我目前是在瀏覽哪個網站呢?
因為您的方法是列出所有IE的網頁
那麼我要如何知道我當前所在的是在哪個IE呢?
(ex:假如我目前開了三個IE,而我目前是在瀏覽KTOP,那麼我要怎麼知道我目前是在瀏覽KTOP?)
careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-03-02 14:47:08 IP:60.248.xxx.xxx 訂閱
hi, 老大仔,不好意思,最近比較忙一點,這一兩天就麻煩您自己先看一下,或是麻煩其他前輩們先看一下了,
工作稍微 down 下來一點時再回答您的問題,不好意思哦!

===================引 用 老大仔 文 章===================
To careychen大大~
小弟已經讀過您的文章了
那小弟還有個問題
就是~~要怎麼知道我目前是在瀏覽哪個網站呢?
因為您的方法是列出所有IE的網頁
那麼我要如何知道我當前所在的是在哪個IE呢?
(ex:假如我目前開了三個IE,而我目前是在瀏覽KTOP,那麼我要怎麼知道我目前是在瀏覽KTOP?)
------
價值的展現,來自於你用哪一個角度來看待它!!
qoo1234
版主


發表:256
回覆:1167
積分:659
註冊:2003-02-24

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-03-07 10:15:26 IP:220.131.xxx.xxx 未訂閱
得知IE 7目前的網址與標題

[code delphi]
function GetText(WindowHandle: hwnd): string;
const
MAX = MAX_PATH - 1;
var
Buffer: array[0..MAX] of Char;
begin
SendMessage(WindowHandle, WM_GETTEXT, MAX, Integer(@Buffer[0]));
result := buffer;
end;

function GetURLFromIntExplorer: string;
var
IE, worker, toolbar, abr, comboboxex, combo, edit: hwnd;
url: string;
begin
IE := FindWindow('IEFrame', nil);
worker := FindWindowEx(IE, 0, 'WorkerW', nil);
toolbar := FindWindowEx(worker, 0, 'reBarwindow32', nil);
abr := FindWindowEx(toolbar, 0, 'Address Band Root', nil);
comboboxex := FindWindowEx(abr, 0, 'comboboxex32', nil);
combo := FindWindowEx(comboboxex, 0, 'ComboBox', nil);
edit := FindWindowEx(combo, 0, 'Edit', nil);
url := GetText(edit);
result := url;
end;

function GetTitleFromIntExplorer: string;
var
IE: hwnd;
title: string;
begin
IE := FindWindow(pchar('IEFrame'), nil);
title := GetText(IE);
result := title;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetTitleFromIntExplorer #13#10
GetURLFromIntExplorer);
end;
[/code]

===================引 用 老大仔 文 章===================
我想請問一下~
假設目前有三個IE開著(不是用delphi中的WebBrowser元件)
其三個網頁的網址分別是KTOP、YAHOO、PCHOME的網址
那麼我要怎麼知道我目前正在瀏覽哪個網站呢?(假如我是正在瀏覽KTOP的話)
並且要怎麼取得該網址標題呢?(網址和標題要分開取出)
編輯記錄
qoo1234 重新編輯於 2009-03-14 18:07:17, 註解 無‧
qoo1234 重新編輯於 2009-03-14 18:08:23, 註解 無‧
系統時間:2024-03-28 16:44:11
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!