مشکل در سرچ گوگل به صورت کد نویسی!

[Omid.R.A.Candy]

من این کد رو نوشتم ولی هیچی نشد!!!!!!!!1


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

WebBrowser1.Navigate("http://www.google.com/")


End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted

WebBrowser1.Document.GetElementById("gbqfq").SetAttribute("Value", "11")
WebBrowser1.Document.GetElementById("gbqfba").InvokeMember("Click")

End Sub

[shahryari]

سلام
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
web.Navigate("http://www.google.com")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim textElement As HtmlElement = web.Document.All.GetElementsByName("q")(0)
textElement.SetAttribute("value", TextBox1.Text)
textElement.Focus()
Dim btnElement As HTMLButtonElement =
CType(web.Document.All.GetElementsByName("btnG")(0).DomElement,
HTMLButtonElement)
btnElement.click()
End Sub

[Omid.R.A.Candy]

سلام
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
web.Navigate("http://www.google.com")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim textElement As HtmlElement = web.Document.All.GetElementsByName("q")(0)
textElement.SetAttribute("value", TextBox1.Text)
textElement.Focus()
Dim btnElement As HTMLButtonElement =
CType(web.Document.All.GetElementsByName("btnG")(0).DomElement,
HTMLButtonElement)
btnElement.click()
End Sub
کدهاتون کار نمی کنند!

از اون گذشته من می خوم یاد بگیرم ، چرا این کار رو با آدی نکردین و از این روش استفاده کردین؟!


این روش جالب به نظر میرسه! یکم در مورد نحوه استفادش تو سایتهای دیگه و چرا و چه جوری تو این سایت استفاده کردی؟

[shahryari]

دوست عزیز و قتی کپی پیست میکنی ، انتظار نداشته باش کدها کار بکنه
یه نمونه برات نوشتم

[Omid.R.A.Candy]

دوست عزیز و قتی کپی پیست میکنی ، انتظار نداشته باش کدها کار بکنه
یه نمونه برات نوشتم

ممنون، در مورد این 0 ها و همچنین btnG و q توضیح بیشتری بدین از کجا امدن؟

البته فکر کنم مقدار صحیحش btnK باشه نه btnG

و این کد:


Threading.Thread.Sleep(200)

برای چی و چرا مقدارش 200 است؟

[shahryari]

نام دکمه جستجو btnG است
کد زیر هم یک وقفه کوچک بین کد اول و دومی مینداره (برحسب میلی ثانیه)

Threading.Thread.Sleep(200)

[Omid.R.A.Candy]

نام دکمه جستجو btnG است
کد زیر هم یک وقفه کوچک بین کد اول و دومی مینداره (برحسب میلی ثانیه)

Threading.Thread.Sleep(200)


خوب این نام btnG رو از کجا آوردین؟

[aliagamon]

از اینجا:
110691

[Omid.R.A.Candy]

از اینجا:
110691


پس نظرتون رو به این جلب می کنم:

110692

[shahryari]

خوب این نام btnG رو از کجا آوردین؟
خوب کاری میکنی تا یاد نگیری کد رو کپی نکن
در صفحه خالی گوگل راست کلیک کن و گزینه view page source رو بزن (قبلش متن باتن جستجوی گوگل را یادداشت کن که میشه "Google Search")
یک صفحه ای باز یشه که کدهای اچ تی امل رو میتونی ببینی
Ctrl + F روبزن یک تکست باکس کوچک در قسمت پایین باز میشه
اون کلمه اسم باتن رو دراونجا بنویس
حالا میتونی نام اون دکمه روببینی


110693

[aliagamon]

:لبخند:اینم از این قرتی بازی های این بی دیناست(گوگلو میگم)(شوخی).....دلیلشو نمیدونم ولی شما این btnk رو هم تست کن ببین هر دو کار میکنن...

[Omid.R.A.Candy]

خوب کاری میکنی تا یاد نگیری کد رو کپی نکن
در صفحه خالی گوگل راست کلیک کن و گزینه view page source رو بزن (قبلش متن باتن جستجوی گوگل را یادداشت کن که میشه "Google Search")
یک صفحه ای باز یشه که کدهای اچ تی امل رو میتونی ببینی
Ctrl + F روبزن یک تکست باکس کوچک در قسمت پایین باز میشه
اون کلمه اسم باتن رو دراونجا بنویس
حالا میتونی نام اون دکمه روببینی


110693



من الان یکم گیج شدم بالاخره برا این جور کارا ما از view page source استفاده کنیم ؟ یا Inspect Element

در کل چه فرقی باهم دارن؟ کجا این؟ و کجا اون؟!!!!

[Omid.R.A.Candy]

دوست عزیز و قتی کپی پیست میکنی ، انتظار نداشته باش کدها کار بکنه
یه نمونه برات نوشتم


بعد این هم چندین بار تست کردم، ولی کدهاتون مورد دارن، یعنی متن تکس باکس رو به گوگل منتقل میکنه،ولی دکمه رو نمی فشاره!!! باید چندین بار بزنی تا سرچ انجام بشه! بعضی وقتها هم کلا تعطیله.این ربطی به سرعت اینترنتم نداره.چون پهنای باندم 4مگه.

[Omid.R.A.Candy]

خوب کاری میکنی تا یاد نگیری کد رو کپی نکن
در صفحه خالی گوگل راست کلیک کن و گزینه view page source رو بزن (قبلش متن باتن جستجوی گوگل را یادداشت کن که میشه "Google Search")
یک صفحه ای باز یشه که کدهای اچ تی امل رو میتونی ببینی
Ctrl + F روبزن یک تکست باکس کوچک در قسمت پایین باز میشه
اون کلمه اسم باتن رو دراونجا بنویس
حالا میتونی نام اون دکمه روببینی


110693

گفتین:


(قبلش متن باتن جستجوی گوگل را یادداشت کن که میشه "Google Search")



این Google Search از کجا گیر بیارم تا یاد داشت کنم؟

[shahryari]

گفتین:


(قبلش متن باتن جستجوی گوگل را یادداشت کن که میشه "Google Search")



این Google Search از کجا گیر بیارم تا یاد داشت کنم؟

از اینجااااااااااااااااااااا ااااااااااااااااااااااااا ااااااااااااااااااااااااا ااااااا.................................... ..

110709

[Sadra viba]

چرا این همه سرتون رو به درد میارین فرض کنیم web کنترل Web Browser ماست الآن با این کد و توضیحات آن کارما راه می افته
Dim Input As String = InputBox("متن را برای جستجو در گوگل وارد کنید")
web.Navigate("Https://www.google.com/?q=" & Input)
به این راحتی فقط در متغیر Input متن دلخواه خود را قرار دهید!!!!!!!!!!!!