[Tutorial] Searcher
[Tutorial] Searcher
Well, im back, this time with a tutorial, hopefully this thread doesn't get closed, would be my first time... that it wasn't closed, hehe, not that im a... gulp* uhh, nevermind
Anyways, Lets get started(applause*)
First, if your in this section, you probably have vb, if not, just search Visual Basic on google, you should get a microsoft page
Im using Visual Basic 2008 Express Edition(its free), idk if this would be different with other versions, to be safe you can use this one
Step 1:
Add a button, 1 Textbox, 1 ComboBox, and 2 Labels
It should look somewhat like this:
(I didn't do this, but its better to do, go to the combo box properties, and change the DropDownStyle to Drop Down List)
Step 2, Coding:
First of all, Click the com
x, and click edit items, write:
Then, double click your button to go into code mode(fail rhyme)
Then Write
Now for the search part
Go ahead and go to google.com(i think the search url has changed, but the old one still works, so im going to give it to you anyways)
and search anything, head up to the url, and copy the whole thing
Next, go back to vb, and under the Else of the textbox1 code(make sure your End If for the textbox is at the end, behind all this code)
Then(view the youtube instructions on actually coding it, this is just the code)
that is the code for google
now youtube
go ahead and do the same thing as google(Youtube and yahoo idk if they changed the links since i first had this, so to be safe you can use mine)
go to youtube.com, search something, copy the url, and take out the middle word(the search word, which is what you searched), and change it to Textbox1.Text, and between it and the two parts of the link, write + and each side, like this:
then, again for yahoo, but since you know what to do, im just going to show the code
Thats Pretty much it, report any errors here, and you can add any search provider you want
Bye 4 Now
Oh, and if theres anything wrong with this thread, that you feel the need to close it, plz don't, just tell me whats wrong and ill take it out/fix it
Anyways, Lets get started(applause*)
First, if your in this section, you probably have vb, if not, just search Visual Basic on google, you should get a microsoft page
Im using Visual Basic 2008 Express Edition(its free), idk if this would be different with other versions, to be safe you can use this one
Step 1:
Add a button, 1 Textbox, 1 ComboBox, and 2 Labels
It should look somewhat like this:
(I didn't do this, but its better to do, go to the combo box properties, and change the DropDownStyle to Drop Down List)
Step 2, Coding:
First of all, Click the com
x, and click edit items, write:Code:
Google Youtube Yahoo
Then Write
Code:
If TextBox1.Text = "" Then
MsgBox("Write your own error message here", MsgBoxStyle.Critical)Else
Go ahead and go to google.com(i think the search url has changed, but the old one still works, so im going to give it to you anyways)
and search anything, head up to the url, and copy the whole thing
Next, go back to vb, and under the Else of the textbox1 code(make sure your End If for the textbox is at the end, behind all this code)
Then(view the youtube instructions on actually coding it, this is just the code)
Code:
If ComboBox1.Text = "Google" Then
System.Diagnostics.Process.Start("http://www.google.com/search?hl=en&q=" + TextBox1.Text + "&btnG=Google+Search")
now youtube
go ahead and do the same thing as google(Youtube and yahoo idk if they changed the links since i first had this, so to be safe you can use mine)
go to youtube.com, search something, copy the url, and take out the middle word(the search word, which is what you searched), and change it to Textbox1.Text, and between it and the two parts of the link, write + and each side, like this:
Code:
If ComboBox1.Text = "Youtube" Then System.Diagnostics.Process.Start("http://www.youtube.com/results?search_query=" + TextBox1.Text + "&search_type=")
End If
Code:
If ComboBox1.Text = "Yahoo" Then System.Diagnostics.Process.Start("http://search.yahoo.com/search?p=" + TextBox1.Text + "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8")
End If
Bye 4 Now
Oh, and if theres anything wrong with this thread, that you feel the need to close it, plz don't, just tell me whats wrong and ill take it out/fix it
