[umami smokes shisha]

Hello, my name is UMAMI and I am new to visual basics, and have not seen too many good tutorials on HF, so I decided to post on how to make a simple VB pinger or dos. this tut WILL include pictures to be more noob friendly!
~BLUE WORDS ARE IMPORTANT~

Requirements
-any version of VB preferably 2008 + -- http://www.microsoft.com/express/vb/Default.aspx
-at least a little bit of knowledge in coding
-creativity

after you have installed your selected version of visual basics, run it.
once the client has opened, head over to the top left corner where it says file and click "New Project..." and select the settings like so.
Spoiler (Click to View)[img]http://img12.imageshack.us/img12/6394/picone.png[/img] and press continue

You should now have a blank form🤗
you can rescale this form to the size you want, but being that it is just a simple program..lets start smallish. On the left side of the Vb client there should be a toolbox filled with tools that you can use. Lets start by finding the TextBox tool (the tools are in alphabetical order). Place the TextBox some where near the top of your form and make it not too big.
Now look on the ToolBox for a tool called Button, it should be near the top of the list. Once you found it, place two buttons onto your form.
single click on Button1 and follow the settings as shown
Spoiler (Click to View)[img]http://img14.imageshack.us/img14/8537/pictwo.png[/img] and do the same to the second button, but name it "Stop".

Now scroll down the ToolBox until you find a tool named Timer and place it to the side of your buttons(the Timer won't be visible once this is all finished). Make sure on the right side that the timers "Enabled" is False, and to set the Interval to 250.

HERE COMES THE ACTUAL CODING PART!
double click on all of the tools on the form, including the time which is at the bottom below the form, and make the code look exactly like this
Spoiler (Click to View)[img]http://img11.imageshack.us/img11/5864/picthree.png[/img]

if you would like to just copy and paste the whole code here it is
Spoiler (Click to View)Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Shell("Ping " + (TextBox1.Text) + "-1" + "65000"))
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

I'll add a second spoiler with the same code to explain each bit!
Spoiler (Click to View)Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True //when the start button is clicked, the timer activates causing the ping.
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False //stops the timer thus stopping the ping
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Shell("Ping " + (TextBox1.Text) + "-1" + "65000")) //sends ping to the IP you enter into the TextBox
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

TO finish up you can test your new application by pressing F5, customize it a bit, or save and exit VB and enjoy your new but SIMPLE pinger👍


Post if you liked it or if you feel like I should add/change some bits...
THANK-YOU <3

[Amped-]

I'll test this out now :P

Thanks m8! I'll come back to show pics and tell you how it worked out

[umami smokes shisha]

Okay thank-you ^.^
and please leave constructive criticism, but not too much.. I am still new to VB <3

[Amped-]

Hey bro, This should be the coding for the Timer1.

Shell("Ping " + (TextBox1.Text + "-1" + "65000"))

Add the )) at the end. not just )

[umami smokes shisha]

Hey bro, This should be the coding for the Timer1.

Shell("Ping " + (TextBox1.Text + "-1" + "65000"))

Add the )) at the end. not just )

sorry I must have clipped it out xD thank-you and I'll edit it in right now!
other than that, how was it?

[Amped-]

sorry I must have clipped it out xD thank-you and I'll edit it in right now!
other than that, how was it?

Good, it's good :P
Just built mine :P I'll show you a pic in a min.

---

[IMG]http://i34.[censored].com/24ex1tc.png[/IMG]
There it is :P

[umami smokes shisha]

very nice design!
any one else try this?

[Entrepreneur]

I am having problems , i have check twice ,

i copied and pasted the code , but i wil check again and psot back , otherwise great tut xD

EDIT : Its all fine now , I has my buttons named as Button11 not Button1 xD

Thanks :)

[umami smokes shisha]

what kind of a problem is it?
make sure you don't copy and paste the one with the comments but the one above it :p
or just copy the bits you need to add and paste where needed.

[Ak l 3 G E N D]

Worked out nicely!! =) Great Tut 😉

[Resident]

Thanks, I'm learning vb.net too and this is handy!

[TheY CaLL Me SlicK]

Shoudlnt this

Shell("Ping " + (TextBox1.Text) + "-1" + "65000")) //sends ping to the IP you enter into the TextBox

be

Code

Shell("Ping " & TextBox1.text & " -l" & " 65000")

[Viperx28]

Very nice , Thank You!!

[TehShrink]

I'm just wondering, is there any way to get the "result" (latency in this case) to a textbox?

[umami smokes shisha]

Shoudlnt this
be

Code

Shell("Ping " & TextBox1.text & " -l" & " 65000")

I am still new to VB but perhaps both methods work? maybe one better than the other... but I once I learn a bit more I am going to post a tut on how to make a more effective pinger ^.^

thanks for the comments people!

EDIT: Although no one has posted about it yet, sorry for not putting the coding in code tags! It won't let me edit my first post =\