PDA

View Full Version : حرفه ای: ارتباط يك TextBox با TextBox در يك سايت



MohammadGh2011
چهارشنبه 12 مرداد 1390, 05:48 صبح
سلام اساتيد گرامي
من روي فورمم يك تكست باكس دارم و ميخوام با يك تكست در سايت ارتباطش بدم يعني هرچي تو اين تكست vb نوشتي انگار كه تو همون سايت نوشتي و ميخوام جوابش رو برام روي فورم هم print كنه يعني همون چيزهايي كه نتيجه اش رو تو همون سايت نشون ميده روي فورم من نشون بده!!!

اساتيدان گرامي آيا همچين چيزي با vb ميشه كه يك سايت رو ارتباط بديم؟
لطفا راهنمايي كنيد.

_behnam_
پنج شنبه 13 مرداد 1390, 00:25 صبح
چرا نشه !!!
فقط کافیه Name اون تکست سایت رو پیدا کنی بعد هم کد زیر
تکست باکس
Web.Document.Forms(0).elements("TextBoxName").Value = Text1.Text
کلیک روی کامند
Web.Document.Forms(0).elements("button name").Click

به همین سادگی به همین خوشمزگی

MohammadGh2011
پنج شنبه 13 مرداد 1390, 04:41 صبح
سلام جناب آقاي _behnam_
يه كم توضيح ميدين كه چه جوريه؟
اين جا پس اسم اون سايت كو؟ و چه طور ميتونم اسم اون تكست رو همون طور كه گفتيد پيدا كنم؟
و آخرين سوال:فقط بايد همين كدها رو بنويسم از كامپوننتي نبايد استفاده شه(مثلا web browser)؟

مثلا تكست باكس همين سايت (جستجو) چه طور تكست باكسش رو با تكست باكس وي بي ارتباط بدم كه تو تكست باكس وي بي هم جستجو رو انجام بده و نتيجه رو مثلا تو يك List نمايش بده؟!!
خيلي ممنونم

_behnam_
جمعه 14 مرداد 1390, 00:11 صبح
با web browser سایت مورد نظر رو لود میکنی
این کدهارو اجرا میکنی
میتونی اسم Textbox رو در سایت اینجوری پیدا کنی


<input type="text" name="txtYahoo" value="Yahoo ID">
اسم تکست باکس مقابل Name= نوشته میشه

king ag
جمعه 14 مرداد 1390, 13:58 عصر
خوب چطور در صفحه استفاده میشه؟؟؟؟
یعنی مثلا کجا این کد رو مینویسیم تا بدست بیاره؟؟؟؟

saeedzx
جمعه 14 مرداد 1390, 14:13 عصر
شما می بایست اول از همه کامپونت WebBrowser1 رو بارگزاری کنید سپس

از دستور

WebBrowser1 .Document.Forms(0).elements("TextBoxName").Value = Text1.Text

استفاده کنی

Text1.Text همان تکستی هست که در برنامه کار می زاری
و
TextBoxName تکستی است که در صفحه وب سایت استفاده شده که شما برای بدست آوردنش کافی سورس وب سایت رو نگاه کنی

MohammadGh2011
جمعه 14 مرداد 1390, 14:20 عصر
سلام

سورس وب سایت رو نگاه کنی
اين رو متوجه نشدم !!!

خواهشا يكي از اساتيدان بزرگ درست و حسابي همينا رو تو يك پست كامل توضيح بده!!!!!
خيلي ممنونم

_behnam_
جمعه 14 مرداد 1390, 14:45 عصر
اینم یه نمونه سورس

MohammadGh2011
جمعه 14 مرداد 1390, 15:37 عصر
سلام جناب آقاي _behnam_
خيلي ممنونم كه اين سورس رو گذاشتين بهتر متوجه شدم.
ولي يكي سوال ديگه دارم.لطف كنيد به اين يكي هم جواب بديد.

شما توي Text1_Change اين كد رو نوشتين Me.WebBrowser1.Document.Forms(0).elements("inpYahooID").Value = Text1.Text
inpYahooID چيه؟ من خواستم همين سايت رو بزارم يعني تكست باكس همين سايت(جستجو) ولي نشد!

و تو كامند هم اين كد رو زحمت كشيدين گذاشتين Me.WebBrowser1.Document.Forms(0).elements("btncheck").Click
btncheck چيه و چه طور پيداش كردين؟

من بخوام مثلا باسه تكست باكس همين سايت درست كنم بايد چه چيزهايي(كدهايي) جايگزين اين ها كدها كنم؟؟؟؟؟!
ممنونم

MohammadGh2011
جمعه 14 مرداد 1390, 16:09 عصر
سلام دوستان آقا بهنام عزيز پاسخ سوالم رو دادند ممنونم
بايد بري سورس وب سايت رو ببيني و دنبال اسم تكست باكس اون باشي.

خداحافظ همگي دوستان

saeedzx
جمعه 14 مرداد 1390, 22:59 عصر
سورس وب سایت برای بدست آوردنش کافیه روی صفحه مورد نظر کلیک راست و گذینه viwe page source رو انتخاب کنی :قلب:

king ag
جمعه 14 مرداد 1390, 23:15 عصر
له میدونم
ولی در بعضی صفحه ها چنین چیزی وجود نداره
اونجا چی؟؟؟
http://barnamenevis.org/showthread.php?298615-%D8%B3%D8%A7%D8%AE%D8%AA-%D8%AF%DB%8C%DA%A9%D8%B4%D9%86%D8%B1%DB%8C-%D8%A2%D9%86%D9%84%D8%A7%DB%8C%D9%86-%DA%AF%D9%88%DA%AF%D9%84