سلام بر اساتید
یه کد لازم دارم که وقتی یه ادرسی تو مرور گر اینترنتی (موزیلا اکسپلورر فایر و.....)
وارد کنیم این برنامه فعال بشه خوب این قسمت اسونه و انجامش دادم ولی اگر کسی پیشنهادی داره بزاره لطفا
ولی بعد از فعال شدن برنامه بیاد به همون صفحه مرورگر یه ادرس دیگه که ما بهش میدیم ارسال کنه به جای اون ادرس قبلی و اینتر کنه این برنام رودیدم ولی خودم نتونستم بنویسمش از هندل و غیره هم استفاده کدم نشده از اساتید هرکی کد یا پیشنهاد داره لطفا بذاره ممنون
تابع Sendkeys رو امتحان کردید؟
این یه نمونه کد به دلفی هست که مرورگر رو به ادرس سایت مایکروسافت میبره
کد:
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;
ممنون وی بی میخوام سند کی جواب نداد
ضمنا میخوام همون تب یا صفحه رو به ادرسم ببره
میتونین تبدیلش کنین به vb
این همون کار انجام میده و کاملا هم از توابع api استفاده میکنه
راحت میشه تبدیل کرد
ببین این به دردت می خوره
شما تو Run اینو بنویس
کد:
iexplore /Mohsen6558.com
می بینی که IE باز می شه و میره تو سایت من خب؟
حالا همین رو با Shell انجام بده
(۲۶-مرداد-۱۳۸۸, ۱۸:۴۵:۰۸)Mohsen6558 نوشته است: [ -> ]می بینی که IE باز می شه و میره تو سایت من
اولا" کدی رو که دادین خودتون امتحان کردین؟ دوما" ایشون نمی خوان اینترنت اکسپلورر باز بشه ، بلکه می خوان وقتی کاربر اینترنت اکسپلورر رو باز کرد ، آدرس داخل آدرس بار(Address Bar) با آدرسی که ایشون می خوان عوض بشه!
اره دوستمون درست میگن دقیقا همینو میخوام ممنون از همزاهی و همکاریتون
هیشکی نیست ایده جدید بده
من مشکلم با تب مرورگرها ی جدید هم هست نمیدونم با اونا چکارکنم
سلام
برای ورژن چنده IE ميخوای؟
روی همه مرورگرها
برای تمام مرورگرها نیاز دازم
ممنون از همه