PDA

View Full Version : وارد شدن به سايت باWebBrowser



farzad879
پنج شنبه 22 تیر 1391, 14:45 عصر
دوستان شايد سوالم تكراري باشه ولي سرچ كردم چيزي پيدا نشد
من ميخوام با برنامم وارد يه سايت بشم با دادن يوزر و پسورد
و با بعد از وارد شدن بره به يه مسير دگ و پست ارسال كنه
مثلا يه انجمني مثل همينجا
ممنون

MohammadGh2011
پنج شنبه 22 تیر 1391, 15:05 عصر
سلام عليکم
به انجمن برنامه نويس خوش آمديد.
شما بايد نام شيء ها رو که در سايت قرار دارند رو پيداکنيد و روي اونها کليک کنيد يا متن ارسال کنيد.
مثلا تکست باکسها يا کامندها.

خيلي درباره اين موضوع گفتگو شده تا همين ديروز بحثش بود در صفحه اول يا دوم انجمن vb6 باشه.
جستجو کنيد.



موفق باشيد

MohammadGh2011
پنج شنبه 22 تیر 1391, 15:14 عصر
لينک زير رو بررسي کنيد:

http://barnamenevis.org/showthread.php?349349-%D9%86%D8%AD%D9%88%D9%87-%D8%A7%D8%AA%D8%B5%D8%A7%D9%84-%DB%8C%DA%A9-%D8%AA%DA%A9%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1-%D9%88%DB%8C-%D8%A8%DB%8C-%D8%A8%D9%87-%DB%8C%DA%A9-%D8%AA%DA%A9%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D9%88%D9%86-%DB%8C%DA%A9-%D8%B3%D8%A7%DB%8C%D8%AA%D8%9F!!!!

farzad879
پنج شنبه 22 تیر 1391, 15:56 عصر
اينو ديدم ولي جوابمو نگرفتم
الان يه سورس ساده برا همين سايت مثال ميزنيد؟

just4froum
پنج شنبه 22 تیر 1391, 16:23 عصر
بفرمایید :

Private Sub Command1_Click()
web.Document.All("vb_login_username").Value = "User"
web.Document.All("vb_login_password").Value = "Pass"
web.Document.Forms(0).submit
End Sub

Private Sub Form_Load()
web.Navigate "http://barnamenevis.org/forumdisplay.php?43-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%D8%AF%D8%B1-6-VB"
web.Silent = True
End Sub

محسن واژدی
جمعه 23 تیر 1391, 05:19 صبح
سلام علیکم
هم با استفاده از نام اشیاء که دوستان فرمودند و هم با ارسال بسته درخواستی http که عموما از نوع POST میتوانیم به وبسایت وارد شویم

موفق باشید