/prog/ - made this

Name: Anonymous 2010-12-30 11:05

hi programmers
i'm totally new with this shit and this is the first thing i've made with a little help
what do you guys think(made in vb2008)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Do
WebBrowser1.Navigate(TextBox1.Text)
Loop

End Sub

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

End Sub

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

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
ProgressBar1.Value = 0
MsgBox("De aanval wordt gestopt")
End Sub

Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e As System.Diagnostics.EntryWrittenEventArgs) Handles EventLog1.EntryWritten

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

If My.Computer.Network.IsAvailable = True Then
Label2.Text = "connected"
Label2.ForeColor = Color.Green
Else
Label2.Text = "disconnected"
Label2.ForeColor = Color.Red
End If

End Sub

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

ProgressBar1.Value = 100
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Shell("ping " + (TextBox1.Text) + "-t -l 65500")

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer2.Enabled = False
ProgressBar1.Value = 0
MsgBox("and here it all ends")
ProgressBar1.Value = 0
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

End Sub

Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

End Sub
End Class

Name: Anonymous 2010-12-30 11:09

The last 3 functions are awesome!!!!

Name: Anonymous 2010-12-30 11:49

made in vb2008
Stopped reading right there.

Kid, use a real language on a real operating system.

Name: Anonymous 2010-12-30 12:08

That looks disgusting, and I don't think code tags would help.

I'm so glad I don't have to write VB.

Name: Anonymous 2010-12-30 12:09

COOODEDDDEEEEE TAAAAGGGGSSSSSSS ARE FOR FCOOOOOCDDDEEEE

Name: Anonymous 2010-12-30 13:38

Forced left-justification of code?

Name: Anonymous 2010-12-30 14:14

>>6
I think that visual basic actually looks like that

Name: Anonymous 2010-12-30 16:41

>>7
If I remember my brief hellish torture of a VB class, the editor only shows you one function at a time, and hides the function signature, so what you see/edit is just what's between the 'sub' and 'end sub'. Horribly disgusting, isn't it.

Name: Anonymous 2010-12-30 17:52



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 

Do 

WebBrowser1.Navigate(TextBox1.Text) 

Loop



End Sub



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



End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

Timer1.Enabled = True 

ProgressBar1.Value = 100



End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

Timer1.Enabled = False 

ProgressBar1.Value = 0 

MsgBox("De aanval wordt gestopt") 

End Sub



Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e As System.Diagnostics.EntryWrittenEventArgs) Handles EventLog1.EntryWritten



End Sub



Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click



If My.Computer.Network.IsAvailable = True Then 

Label2.Text = "connected" 

Label2.ForeColor = Color.Green 

Else 

Label2.Text = "disconnected" 

Label2.ForeColor = Color.Red 

End If



End Sub



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

Timer2.Enabled = True



ProgressBar1.Value = 100 

End Sub



Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick 

Shell("ping " + (TextBox1.Text) + "-t -l 65500")



End Sub



Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 

Timer2.Enabled = False 

ProgressBar1.Value = 0 

MsgBox("and here it all ends") 

ProgressBar1.Value = 0 

End Sub



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub



Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged



End Sub



Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click



End Sub



Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click



End Sub 

End Class

Still horrible...

Name: Anonymous 2010-12-30 18:59

Private Sub 

Timer1_Tick(ByVal sender As System.Object,

                ByVal e As System.EventArgs)

Handles Timer1.Tick 



  Do 

    WebBrowser1.Navigate(TextBox1.Text) 

  Loop



End Sub





Private Sub 

TextBox1_TextChanged(ByVal sender As System.Object,

                     ByVal e As System.EventArgs)

Handles TextBox1.TextChanged

End Sub





Private Sub 

Button1_Click(ByVal sender As System.Object, 

              ByVal e As System.EventArgs) 

Handles Button1.Click



  Timer1.Enabled = True 

  ProgressBar1.Value = 100



End Sub





Private Sub 

Button2_Click(ByVal sender As System.Object, 

              ByVal e As System.EventArgs) 

Handles Button2.Click 



  Timer1.Enabled = False 

  ProgressBar1.Value = 0 

  MsgBox("De aanval wordt gestopt")



End Sub





Private Sub 

EventLog1_EntryWritten(ByVal sender As System.Object,

                       ByVal e As System.Diagnostics.EntryWrittenEventArgs)

Handles EventLog1.EntryWritten

End Sub





Private Sub 

Label2_Click(ByVal sender As System.Object, 

             ByVal e As System.EventArgs) 

Handles Label2.Click



  If My.Computer.Network.IsAvailable = True Then 

    Label2.Text = "connected" 

    Label2.ForeColor = Color.Green 

  Else 

    Label2.Text = "disconnected" 

    Label2.ForeColor = Color.Red 

  End If



End Sub





Private Sub 

Button3_Click(ByVal sender As System.Object, 

              ByVal e As System.EventArgs) 

Handles Button3.Click 



  Timer2.Enabled = True

  ProgressBar1.Value = 100 



End Sub





Private Sub 

Timer2_Tick(ByVal sender As System.Object,

            ByVal e As System.EventArgs) 

Handles Timer2.Tick



  Shell("ping " + (TextBox1.Text) + "-t -l 65500")



End Sub





Private Sub 

Button4_Click(ByVal sender As System.Object,

              ByVal e As System.EventArgs) 

Handles Button4.Click 



  Timer2.Enabled = False 

  ProgressBar1.Value = 0 

  MsgBox("and here it all ends") 

  ProgressBar1.Value = 0 



End Sub





Private Sub 

Form1_Load(ByVal sender As System.Object, 

           ByVal e As System.EventArgs) 

Handles MyBase.Load

End Sub





Private Sub 

DateTimePicker1_ValueChanged(ByVal sender As System.Object,

                             ByVal e As System.EventArgs) 

Handles DateTimePicker1.ValueChanged

End Sub





Private Sub 

Label6_Click(ByVal sender As System.Object,

             ByVal e As System.EventArgs) 

Handles Label6.Click

End Sub





Private Sub 

ProgressBar1_Click(ByVal sender As System.Object,

                   ByVal e As System.EventArgs) 

Handles ProgressBar1.Click

End Sub



End Class

I give up.

Name: Anonymous 2010-12-30 19:00

>>1,9

PIG DISGUSTING lack of intendation.

Looks like typical VB code

Name: Anonymous 2010-12-30 19:01

>>9,10
Great, now it's ugly AND Purple.

Name: Anonymous 2010-12-30 19:04

Private Sub

Timer1_Tick(ByVal sender As System.Object,

                ByVal e As System.EventArgs)

Handles Timer1.Tick



  Do

    WebBrowser1.Navigate(TextBox1.Text)

  Loop



End Sub





Private Sub

TextBox1_TextChanged(ByVal sender As System.Object,

                     ByVal e As System.EventArgs)

Handles TextBox1.TextChanged

End Sub





Private Sub

Button1_Click(ByVal sender As System.Object,

              ByVal e As System.EventArgs)

Handles Button1.Click



  Timer1.Enabled = True

  ProgressBar1.Value = 100



End Sub





Private Sub

Button2_Click(ByVal sender As System.Object,

              ByVal e As System.EventArgs)

Handles Button2.Click



  Timer1.Enabled = False

  ProgressBar1.Value = 0

  MsgBox("De aanval wordt gestopt")



End Sub





Private Sub

EventLog1_EntryWritten(ByVal sender As System.Object,

                       ByVal e As System.Diagnostics.EntryWrittenEventArgs)

Handles EventLog1.EntryWritten

End Sub





Private Sub

Label2_Click(ByVal sender As System.Object,

             ByVal e As System.EventArgs)

Handles Label2.Click



  If My.Computer.Network.IsAvailable = True Then

    Label2.Text = "connected"

    Label2.ForeColor = Color.Green

  Else

    Label2.Text = "disconnected"

    Label2.ForeColor = Color.Red

  End If



End Sub





Private Sub

Button3_Click(ByVal sender As System.Object,

              ByVal e As System.EventArgs)

Handles Button3.Click



  Timer2.Enabled = True

  ProgressBar1.Value = 100



End Sub





Private Sub

Timer2_Tick(ByVal sender As System.Object,

            ByVal e As System.EventArgs)

Handles Timer2.Tick



  Shell("ping " + (TextBox1.Text) + "-t -l 65500")



End Sub





Private Sub

Button4_Click(ByVal sender As System.Object,

              ByVal e As System.EventArgs)

Handles Button4.Click



  Timer2.Enabled = False

  ProgressBar1.Value = 0

  MsgBox("and here it all ends")

  ProgressBar1.Value = 0



End Sub





Private Sub

Form1_Load(ByVal sender As System.Object,

           ByVal e As System.EventArgs)

Handles MyBase.Load

End Sub





Private Sub

DateTimePicker1_ValueChanged(ByVal sender As System.Object,

                             ByVal e As System.EventArgs)

Handles DateTimePicker1.ValueChanged

End Sub





Private Sub

Label6_Click(ByVal sender As System.Object,

             ByVal e As System.EventArgs)

Handles Label6.Click

End Sub





Private Sub

ProgressBar1_Click(ByVal sender As System.Object,

                   ByVal e As System.EventArgs)

Handles ProgressBar1.Click

End Sub



End Class

ugly AND Purple.

Name: Anonymous 2010-12-30 19:05

>>13
Fuck, the [code] tag overrides the [aa] tag.

Name: Anonymous 2010-12-30 19:34

^{Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Do

WebBrowser1.Navigate(TextBox1.Text)

Loop

End Sub

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

End Sub

^{Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Timer1.Enabled = True

ProgressBar1.Value = 100

End Sub

^{Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = False

ProgressBar1.Value = 0

MsgBox("De aanval wordt gestopt")

End Sub

^{Private Sub EventLog1_EntryWritten(ByVal sender As System.Object, ByVal e As System.Diagnostics.EntryWrittenEventArgs) Handles EventLog1.EntryWritten

End Sub

^{Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

If My.Computer.Network.IsAvailable = True Then

Label2.Text = "connected"

Label2.ForeColor = Color.Green

Else

Label2.Text = "disconnected"

Label2.ForeColor = Color.Red

End If

End Sub

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

Timer2.Enabled = True

ProgressBar1.Value = 100

End Sub

^{Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Shell("ping " + (TextBox1.Text) + "-t -l 65500")

End Sub

^{Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Timer2.Enabled = False

ProgressBar1.Value = 0

MsgBox("and here it all ends")

ProgressBar1.Value = 0

End Sub

^{Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

^{Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

End Sub

^{Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

End Sub

^{Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

End Sub

End Class}}}}}}}}}}}}}

Name: Anonymous 2010-12-30 20:10

>>14

[b][u][i][o][s][sup][sub][spoiler][m]CODE TAGS[/m] MAKE THINGS [aa]VERBATIM[/aa][/spoiler][/sub][/sup][/s][/o][/i][/u][/b]

Name: Anonymous 2010-12-30 20:21

>>16
NOT IF YOU PUT THE TAGS OUTSIDE OF IT, ``FAGGOT''

Name: Anonymous 2010-12-30 20:36

>>17
~~^{_{NO SHIT}}~~

Name: Anonymous 2010-12-30 21:00

>>12

Because, In VisualBasic, EveryThing Needs To Be CamelCase. It Is The Cool Thing To Do, Even Though It Makes You Look Like A MotherFucking GodDamn Moron.

Name: Anonymous 2010-12-30 21:10

>>19
It Is AlsoHarderTo Read, Why Are VisualBasic Programmer Such Faggots?

Name: Anonymous 2010-12-30 21:12

>>20
Fuck You, Fucking Code Tag, Why Do You Have To Always Eat My Spaces?

Name: Anonymous 2010-12-30 21:29

>>19
Now I know why people type like that on forums.

Name: Anonymous 2010-12-30 21:41

End Thread

Name: Anonymous 2010-12-30 21:42

Thread Fault (Sage Bumped)

Name: Anonymous 2010-12-31 0:51

>>21
This Is Not An Acceptable Solution. Learn 2 BbCode.

Name: Anonymous 2011-01-01 1:03

Speaking of VB, when will /prog/ be migrated to VBulletin?

Name: Anonymous 2011-01-01 6:55

bbcodetest

Name: Anonymous 2011-01-01 6:56

spoilertest

Name: Anonymous 2011-01-01 6:57

....I think I've just achieved bbcode satori

Name: Anonymous 2011-01-01 7:08

>>29
_{you _{have _mu}}^{^{^ch to} lea}_{r_{n_{,_{_{m_{y_{_f}}}}}}}^{^{^{^{^{^ri}e}n}d}.}

|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|
|••••••••••••••••••••••••••••••••|

That's ^B_BCode ^{S^{A^T}}_{_{_OR}I}

Name: Anonymous 2011-01-01 7:09

>>30
....shit

Name: Anonymous 2011-01-01 7:15

The attempt _{to ooze _{upon _{a man}}} ^{^{^{^{a cre}atu}re}}
^{^{^{^{^{^{^{^{^{^capable}o}f}g}r}o}w}t}h}

Name: Anonymous 2011-01-01 7:31

u fail it

Name: Anonymous 2011-02-03 4:44

Don't change these.

Name:		Email:

Entire Thread Thread List

made this

1 Name: Anonymous 2010-12-30 11:05

2 Name: Anonymous 2010-12-30 11:09

3 Name: Anonymous 2010-12-30 11:49

4 Name: Anonymous 2010-12-30 12:08

5 Name: Anonymous 2010-12-30 12:09

6 Name: Anonymous 2010-12-30 13:38

7 Name: Anonymous 2010-12-30 14:14

8 Name: Anonymous 2010-12-30 16:41

9 Name: Anonymous 2010-12-30 17:52

10 Name: Anonymous 2010-12-30 18:59

11 Name: Anonymous 2010-12-30 19:00

12 Name: Anonymous 2010-12-30 19:01

13 Name: Anonymous 2010-12-30 19:04

14 Name: Anonymous 2010-12-30 19:05

15 Name: Anonymous 2010-12-30 19:34

16 Name: Anonymous 2010-12-30 20:10

17 Name: Anonymous 2010-12-30 20:21

18 Name: Anonymous 2010-12-30 20:36

19 Name: Anonymous 2010-12-30 21:00

20 Name: Anonymous 2010-12-30 21:10

21 Name: Anonymous 2010-12-30 21:12

22 Name: Anonymous 2010-12-30 21:29

23 Name: Anonymous 2010-12-30 21:41

24 Name: Anonymous 2010-12-30 21:42

25 Name: Anonymous 2010-12-31 0:51

26 Name: Anonymous 2011-01-01 1:03

27 Name: Anonymous 2011-01-01 6:55

28 Name: Anonymous 2011-01-01 6:56

29 Name: Anonymous 2011-01-01 6:57

30 Name: Anonymous 2011-01-01 7:08

31 Name: Anonymous 2011-01-01 7:09

32 Name: Anonymous 2011-01-01 7:15

33 Name: Anonymous 2011-01-01 7:31

34 Name: Anonymous 2011-02-03 4:44