بدست آوردن ليست سايتهاي مورد استفاده در internet explorer

[amir_1351]

با سلام خدمت اساتيد محترم

من به دنبال راهي هستم تا آدرس سايتهايي را كه كاربر در internet explorer به آنها مراجعه كرده را در يك tabel يا يك فايل txt ذخيره كنم . اين آدرسها در كجا ذخيره ميشن ( اگر در رجيستري است ، كجاي رجيستري):اشتباه:
لطفا چنانچه دوستان در اين مورد تجربه اي دارند لطفا راهنمايي كنند.:خجالت:

[سعید صابری]

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs

[amir_1351]

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs

با تشكر
آيا براي واكشي از ديگر مرورگرها مانند گوگل كروم هم راهي وجود دارد؟

[سعید صابری]

کروم دقیق نمیدانم کجاست. یه جایی خواندم در این آدرسه C:\Users\[USERNAME]\AppData\Local\Google\Chrome\
دیگر مرورگرها فایرفاکس یک دیتابیس داره از نوع sqlite .قبلا آدرسش گذاشتم در همین سایت.

[amir_1351]

با تشكر
مشكل من در مورد بدست آوردن ليست سايتها حل شد ولي هر بار كه برنامه را اجرا ميكنم ليست سايتهاي قبلي هم كه در مسير HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs وجود داره در جدول اضافه ميشه آيا راهي هست تا بتوان آدرس سايتها در هر بار اجراي برنامه حذف شود ( آدرس سايتها مسير HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs حذف شود )

[سعید صابری]

کل کلید urls typed پاک کن
به محض باز کردن سایت IE خودش مجدد میسازه

[amir_1351]

با تشكر
اگر ممكنه راهنمايي كنيد كه چطور ميشه با كد نويسي اين كليد رو پاك كرد .

[Mask]

روش کار با رجیستری چندین بار آموزش داده شده.لطفا جستجو کنید.

[nilufari]

از این فانکشن استفاده کن:


function GetUrlFromIE (Handle: THandle; List: TStringList): boolean; stdcall;
var
hWndIE, hWndIEChild : HWND;
Buffer : array[0..255] of Char;
begin
//get the window caption
SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
//look for the Internet Explorer window with "Buffer" caption
hWndIE := FindWindow('IEFrame', Buffer);
if hWndIE > 0 then

(* continues below... *)
begin
//try to get a handle to IE's toolbar container
hWndIEChild := FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild > 0 then
begin
//get a handle to address bar
hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);
if hWndIEChild > 0 then
begin
//finally, locate combo box and add its text to the list
hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);
if hWndIEChild > 0 then
begin
SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer));
//List.AddObject(Buffer,TObject(hWndIE));
List.Add(Buffer)
end;
end;
end;
end;
//continue enumeration
Result :=True;
end; (*GetUrlFromIE*)

روش استفاده:

EnumWindows(@GetUrlFromIE, LParam(ComboBox1.Items));
که اطلاعات URL رو داخل ComboBox1 میریزه.

[amir_1351]

از این فانکشن استفاده کن:


function GetUrlFromIE (Handle: THandle; List: TStringList): boolean; stdcall;
var
hWndIE, hWndIEChild : HWND;
Buffer : array[0..255] of Char;
begin
//get the window caption
SendMessage(Handle, WM_GETTEXT, 255, integer(@Buffer[0]));
//look for the Internet Explorer window with "Buffer" caption
hWndIE := FindWindow('IEFrame', Buffer);
if hWndIE > 0 then

(* continues below... *)
begin
//try to get a handle to IE's toolbar container
hWndIEChild := FindWindowEx(hWndIE, 0, 'WorkerW', nil);
if hWndIEChild > 0 then
begin
//get a handle to address bar
hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ReBarWindow32', nil);
if hWndIEChild > 0 then
begin
//finally, locate combo box and add its text to the list
hWndIEChild := FindWindowEx(hWndIEChild, 0, 'ComboBoxEx32', nil);
if hWndIEChild > 0 then
begin
SendMessage(hWndIEChild, WM_GETTEXT, 255, integer(@Buffer));
//List.AddObject(Buffer,TObject(hWndIE));
List.Add(Buffer)
end;
end;
end;
end;
//continue enumeration
Result :=True;
end; (*GetUrlFromIE*)

روش استفاده:

EnumWindows(@GetUrlFromIE, LParam(ComboBox1.Items));
که اطلاعات URL رو داخل ComboBox1 میریزه.
با تشكر
متاسفانه من برناه نويس VFP بوده و با delphi آشنايي ندارم . آيا ممكنه كه فايل اجرايي اين كد رو برام بزاريد و يا اين كه راهنمايي كنيد تادر خود VFP اين كار را انجام بدم
البته توي VFP تا اينجاي كار رو ميدونم ولي باقيش رو نه :
DECLARE INTEGER RegDeleteValue IN advapi32;
INTEGER hKey,;
STRING lpValueName