Danielxmovies
Gebruiker
- Lid geworden
- 8 okt 2011
- Berichten
- 300
Hallo,
ik heb een programmatje met als je daar iets invult het dan opslaat op je computer.
Is het mogelijk dat als je dat programmatje op een site zet en iemand het doet dat het programmatje de antwoorden opslaat in mijn computer inplaats van zijn computer?
Hier wat foto's:
Hier is het lege progammaatje:
Hier het programmatje met informatie:
Als je op Add klikt slaat ie hem hier op:
Nu wil ik dat als iemand anders het doet vanaf andere computer dat ie dan bij mij opgeslagen wordt niet die bij hem.
Hier de Code:
[CPP]Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
If Control.Text = "" Then
MsgBox("Please fill in all fields.", 48 + 4096, "Account Manager")
Exit Sub
End If
End If
Next
Dim question = MsgBox("Is the following information correct?" & vbNewLine _
& "First Name: " & FirstName.Text & vbNewLine _
& "Last Name: " & LastName.Text & vbNewLine _
& "Address: " & Address.Text & vbNewLine _
& "ZIP Code: " & ZIP.Text & vbNewLine _
& "Telephone: " & Telephone.Text, 32 + 4096 + 4, "Verification")
If question = vbYes Then
Try
Dim dir As String = Environment.GetEnvironmentVariable("appdata") & "\Account_Manager"
If IO.Directory.Exists(dir) = False Then IO.Directory.CreateDirectory(dir)
Dim Writer As New IO.StreamWriter(dir & "\" & FirstName.Text + "_" & LastName.Text & ".txt")
Writer.WriteLine("First Name: " & FirstName.Text)
Writer.WriteLine("Last Name: " & LastName.Text)
Writer.WriteLine("Address: " & Address.Text)
Writer.WriteLine("ZIP Code: " & ZIP.Text)
Writer.WriteLine("Telephone: " & Telephone.Text)
Writer.Close()
Catch ex As Exception
MsgBox(ex.Message, 16 + 4096, "Critical Error")
End Try
End If
End Sub
End Class[/CPP]
ik heb een programmatje met als je daar iets invult het dan opslaat op je computer.
Is het mogelijk dat als je dat programmatje op een site zet en iemand het doet dat het programmatje de antwoorden opslaat in mijn computer inplaats van zijn computer?
Hier wat foto's:
Hier is het lege progammaatje:
Hier het programmatje met informatie:
Als je op Add klikt slaat ie hem hier op:
Nu wil ik dat als iemand anders het doet vanaf andere computer dat ie dan bij mij opgeslagen wordt niet die bij hem.
Hier de Code:
[CPP]Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
If Control.Text = "" Then
MsgBox("Please fill in all fields.", 48 + 4096, "Account Manager")
Exit Sub
End If
End If
Next
Dim question = MsgBox("Is the following information correct?" & vbNewLine _
& "First Name: " & FirstName.Text & vbNewLine _
& "Last Name: " & LastName.Text & vbNewLine _
& "Address: " & Address.Text & vbNewLine _
& "ZIP Code: " & ZIP.Text & vbNewLine _
& "Telephone: " & Telephone.Text, 32 + 4096 + 4, "Verification")
If question = vbYes Then
Try
Dim dir As String = Environment.GetEnvironmentVariable("appdata") & "\Account_Manager"
If IO.Directory.Exists(dir) = False Then IO.Directory.CreateDirectory(dir)
Dim Writer As New IO.StreamWriter(dir & "\" & FirstName.Text + "_" & LastName.Text & ".txt")
Writer.WriteLine("First Name: " & FirstName.Text)
Writer.WriteLine("Last Name: " & LastName.Text)
Writer.WriteLine("Address: " & Address.Text)
Writer.WriteLine("ZIP Code: " & ZIP.Text)
Writer.WriteLine("Telephone: " & Telephone.Text)
Writer.Close()
Catch ex As Exception
MsgBox(ex.Message, 16 + 4096, "Critical Error")
End Try
End If
End Sub
End Class[/CPP]