Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Ftp_gebruikersnaam As String
Dim Ftp_wachtwoord As String
Dim Ftp_host As String
Dim Temp_path As String
Ftp_gebruikersnaam = ""
Ftp_wachtwoord = ""
Ftp_host = "ftp://windows7crack.comli.com"
Temp_path = My.Computer.FileSystem.SpecialDirectories.Temp
If File.Exists(Temp_path & "/home.txt") Then
Dim Hometext As String = IO.File.ReadAllText(Temp_path & "/home.txt")
Home_text.Text = Hometext
ElseIf File.Exists(Temp_path & "/pagina1.txt") Then
Dim pagina1text As String = IO.File.ReadAllText(Temp_path & "/pagina1.txt")
Pagina1_text.Text = pagina1text
ElseIf File.Exists(Temp_path & "/pagina2.txt") Then
Dim pagina2text As String = IO.File.ReadAllText(Temp_path & "/pagina2.txt")
Pagina2_text.Text = pagina2text
Else
MsgBox("Kon geen bestand laden. Programma nog nooit eerder gebruikt.")
End If
End Sub
Private Sub ToolStripComboBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Dim Ftp_gebruikersnaam As String
Dim Ftp_wachtwoord As String
Dim Ftp_host As String
Dim Temp_path As String
Ftp_gebruikersnaam = ""
Ftp_wachtwoord = ""
Ftp_host = "ftp://windows7crack.comli.com"
Temp_path = My.Computer.FileSystem.SpecialDirectories.Temp
Dim WriteToFile As New StreamWriter(Temp_path & "/home.txt", False, System.Text.Encoding.ASCII)
WriteToFile.Write(Home_text.Text)
WriteToFile.Close()
WriteToFile.Dispose()
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(Ftp_host & "/public_html/home.txt"), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential(Ftp_gebruikersnaam, Ftp_wachtwoord)
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim File() As Byte = System.IO.File.ReadAllBytes(Temp_path & "/home.txt")
Dim strZ As System.IO.Stream = request.GetRequestStream()
strZ.Write(File, 0, File.Length)
strZ.Close()
strZ.Dispose()
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim Ftp_gebruikersnaam As String
Dim Ftp_wachtwoord As String
Dim Ftp_host As String
Dim Temp_path As String
Ftp_gebruikersnaam = ""
Ftp_wachtwoord = ""
Ftp_host = "ftp://windows7crack.comli.com"
Temp_path = My.Computer.FileSystem.SpecialDirectories.Temp
Dim WriteToFile As New StreamWriter(Temp_path & "/pagina1.txt", False, System.Text.Encoding.ASCII)
WriteToFile.Write(Pagina1_text.Text)
WriteToFile.Close()
WriteToFile.Dispose()
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(Ftp_host & "/public_html/pagina1.txt"), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential(Ftp_gebruikersnaam, Ftp_wachtwoord)
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim File() As Byte = System.IO.File.ReadAllBytes(Temp_path & "/pagina1.txt")
Dim strZ As System.IO.Stream = request.GetRequestStream()
strZ.Write(File, 0, File.Length)
strZ.Close()
strZ.Dispose()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Dim Ftp_gebruikersnaam As String
Dim Ftp_wachtwoord As String
Dim Ftp_host As String
Dim Temp_path As String
Ftp_gebruikersnaam = ""
Ftp_wachtwoord = ""
Ftp_host = "ftp://windows7crack.comli.com"
Temp_path = My.Computer.FileSystem.SpecialDirectories.Temp
Dim WriteToFile As New StreamWriter(Temp_path & "/pagina2.txt", False, System.Text.Encoding.ASCII)
WriteToFile.Write(Pagina2_text.Text)
WriteToFile.Close()
WriteToFile.Dispose()
Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(Ftp_host & "/public_html/pagina2.txt"), System.Net.FtpWebRequest)
request.Credentials = New System.Net.NetworkCredential(Ftp_gebruikersnaam, Ftp_wachtwoord)
request.Method = System.Net.WebRequestMethods.Ftp.UploadFile
Dim File() As Byte = System.IO.File.ReadAllBytes(Temp_path & "/pagina2.txt")
Dim strZ As System.IO.Stream = request.GetRequestStream()
strZ.Write(File, 0, File.Length)
strZ.Close()
strZ.Dispose()
End Sub
Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
Dim Temp_path As String
Temp_path = My.Computer.FileSystem.SpecialDirectories.Temp
'Home opslaan
Dim WriteToFile As New StreamWriter(Temp_path & "/home.txt", False, System.Text.Encoding.ASCII)
WriteToFile.Write(Home_text.Text)
WriteToFile.Close()
WriteToFile.Dispose()
'Pagina 1 opslaan
Dim WriteToFile1 As New StreamWriter(Temp_path & "/pagina1.txt", False, System.Text.Encoding.ASCII)
WriteToFile1.Write(Pagina1_text.Text)
WriteToFile1.Close()
WriteToFile1.Dispose()
'Pagina 2 opslaan
Dim WriteToFile2 As New StreamWriter(Temp_path & "/Pagina2.txt", False, System.Text.Encoding.ASCII)
WriteToFile2.Write(Pagina2_text.Text)
WriteToFile2.Close()
WriteToFile2.Dispose()
End Sub
End Class
