Please Help Me with my Script.

Original message moved by ebgreen
Reason : Moved to proper forum
Hello, I am learning VB 2008. I want to create a script that adds 5 numbers together, then submits it to a file on a website. I can obviously get the visual stuff done, but the scripting is hard. I want to have 5 text boxes as hour logger boxes which get added up and submitted to a file on my website. You enter the number into the box then submit it.

I also want to later get a log in system so that a worker can log into his own account to submit his own hours. This is all for my friends and for experimental purposes.

You say Vb 2008. Do you mean VB.Net?

I am not sure, the program itself is called Visual Basic 2008 Express which I heard is VB.NET.

Yes, that would be .Net. This is a VBScript forum not a VB.Net forum. The two are not really all that related except for some vaguely similar syntax.

Oh, Sorry about that.

Not a problem. You may get an answer here anyway. I don't do VB.Net, so I doubt that you will get from me. 

Well, would VB 6 be Visual Script? I have that software too, from a friend who used to do this stuff :)

VB6 would not be VBScript. VB6 is Visual Basic. If you are learning then I would personally suggest VB.Net rather than VB6. It is a more modern language.

VB6 = Visual Basic Before .NET was invented.
VB7 = VB.NET also known as Visual Basic 2002
VB8 = VB.NET also known as Visual Basic 2005
VB9 = VB.NET also known as Visual Basic 2008
VBX =  VB10, VB.NET. This is the Visual Basic released with Silverlight 2.0 and the .NET futures Release

VBS = VBScript, which is visual basic for primarily client side administration and HTML Application Development
VBA = Visual Basic For Applications. Which is the Visual Basic Language that comes built into Microsoft Office

Ok, firstly, don't use Text boxes.  Why?  Because whatever is entered into a textbox is treated as a string.  Vbscript is a bit more forgiving about data types but VB.NET (quite rightly) gets all pissy when you try and add two numbers together that are, in fact, strings.

Instead, use the NumericUpDown control

So let's assume you now have 5 NumericUpDown controls on your form.  To get the total of those you just add them all up as an integer

 Dim MyTotal as Integer = Me.NumericUpDown1.Value _
                                        + Me.NumericUpDown2.Value _
                                        + Me.NumericUpDown3.Value _
                                        + Me.NumericUpDown4.Value _
                                        + Me.NumericUpDown5.Value
 

You could, of course, be even cleverer about it and loop through all the controls in the form, check if they are NumericUpDown controls and then total the values

 dim i as integer
 For Each c as Control in me.Controls
  If TypeOf C Is NumericUpDown Then
  Dim nud As NumericUpDown = DirectCast(C, NumericUpDown )
    i += nud.value
  End If
 Next
 Msgbox i
 

Now then, to uploada file to a webpage you are going to need to use the WebClient control.  The syntax is pretty easy so I'll just you an example

 Dim wc as System.Net.WebClient
 wc.UploadFile ("http:\\www.mywebsite.com","c:\temp\test.txt")
 

Dim wc As System.Net.WebClient wc.UploadFile("http:\\www.mywebsite.com", "c:\temp\test.txt")"

My statement replies with a "End of Statement Expected error, any help?

Also, my complete code is

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyTotal As Integer = Me.NumericUpDown1.Value _
                                      + Me.NumericUpDown2.Value _
                                      + Me.NumericUpDown3.Value _
                                      + Me.NumericUpDown4.Value _
                                      + Me.NumericUpDown5.Value
    End Sub
 
    
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Dim wc As System.Net.WebClient wc.UploadFile("http:\\www.mywebsite.com", "c:\temp\test.txt")
    End Sub
 End Class
 

Pretty sure that you need to escape the \s here:

Dim wc As System.Net.WebClient wc.UploadFile("http:\\www.mywebsite.com", "c:\temp\test.txt")

So it would become:

Dim wc As System.Net.WebClient wc.UploadFile("http:\\\\www.mywebsite.com", "c:\\temp\\test.txt")