یه کد زیر خاکی برای فرستادن ادرس به مرورگر

[kimiafars]

سلام بر اساتید
یه کد لازم دارم که وقتی یه ادرسی تو مرور گر اینترنتی (موزیلا اکسپلورر فایر و.....)
وارد کنیم این برنامه فعال بشه خوب این قسمت اسونه و انجامش دادم ولی اگر کسی پیشنهادی داره بزاره لطفا
ولی بعد از فعال شدن برنامه بیاد به همون صفحه مرورگر یه ادرس دیگه که ما بهش میدیم ارسال کنه به جای اون ادرس قبلی و اینتر کنه این برنام رودیدم ولی خودم نتونستم بنویسمش از هندل و غیره هم استفاده کدم نشده از اساتید هرکی کد یا پیشنهاد داره لطفا بذاره ممنون

[Fireninja]

تابع Sendkeys رو امتحان کردید؟

[lord_viper]

این یه نمونه کد به دلفی هست که مرورگر رو به ادرس سایت مایکروسافت میبره

کد:

procedure TForm1.Button1Click(Sender: TObject);
Var
Explorer, Worker, Bar, ComboEx, Combo, Edit : HWND;
Address : String;
begin
Edit := 0;
Explorer := FindWindow('CabinetWClass', nil);
If Explorer <> 0 Then Begin
  Worker := FindWindowEx(Explorer, 0, 'WorkerA', nil);
  If Worker <> 0 Then Begin
   Bar := FindWindowEx(Worker, 0, 'ReBarWindow32', nil);
   If Bar <> 0 Then Begin
    ComboEx := FindWindowEx(Bar, 0, 'ComboBoxEx32', nil);
    If ComboEx <> 0 Then Begin
     Combo := FindWindowEx(ComboEx, 0, 'ComboBox', nil);
     If Combo <> 0 Then Begin
      Edit := FindWindowEx(Combo, 0, 'Edit', nil);
     End;
    End;
   End;
  End;
End;

If Edit <> 0 Then Begin
showmessage('got here');
  Address := 'www.microsoft.com';
  SendMessage(Edit, WM_SETTEXT, 0, Integer(Address));
  SendMessage(Edit, WM_KEYDOWN, VK_RETURN, $011C001);
End;
end;

[kimiafars]

ممنون وی بی میخوام سند کی جواب نداد

---

ضمنا میخوام همون تب یا صفحه رو به ادرسم ببره

[lord_viper]

میتونین تبدیلش کنین به vb
این همون کار انجام میده و کاملا هم از توابع api استفاده میکنه
راحت میشه تبدیل کرد

[Mohsen6558]

ببین این به دردت می خوره
شما تو Run اینو بنویس

کد:

iexplore /Mohsen6558.com

می بینی که IE باز می شه و میره تو سایت من خب؟
حالا همین رو با Shell انجام بده

[Fireninja]

می بینی که IE باز می شه و میره تو سایت من

اولا" کدی رو که دادین خودتون امتحان کردین؟ دوما" ایشون نمی خوان اینترنت اکسپلورر باز بشه ، بلکه می خوان وقتی کاربر اینترنت اکسپلورر رو باز کرد ، آدرس داخل آدرس بار(Address Bar) با آدرسی که ایشون می خوان عوض بشه!

[kimiafars]

اره دوستمون درست میگن دقیقا همینو میخوام ممنون از همزاهی و همکاریتون

[kimiafars]

هیشکی نیست ایده جدید بده

---

من مشکلم با تب مرورگرها ی جدید هم هست نمیدونم با اونا چکارکنم

[CRazYFULL]

سلام
برای ورژن چنده IE ميخوای؟

[kimiafars]

روی همه مرورگرها
برای تمام مرورگرها نیاز دازم
ممنون از همه