So I am using this to put information into a file:
And this to pull it from that file and use the information:
I am getting so much fail it hurts. Can you guys look over it and tell me how to fix it?
Code:
Dim Stub, text1, text2, PW As String
Const FileSplit = "@#$%SWAGDAYZ%$#@"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Input As String = Nothing
Dim q As String = FileSplit
text1 = TextBox1.Text
text2 = Encrypt(TextBox2.Text, TextBox3.Text)
TextBox3.Text = text2
PW = TextBox3.Text
Input = Stub & q & text1 & q & text2 & q & PW
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
Stub = Space(LOF(1))
FileGet(1, Stub)
FileClose(1)
If File.Exists(Application.StartupPath + "\Server.exe") Then
My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\Server.exe")
End If
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, Input)
FileClose(1)
MsgBox("Server made successfully", MsgBoxStyle.OkOnly, "Success")
End SubAnd this to pull it from that file and use the information:
Code:
Dim stub, text1, text2, PW As String
Dim user, pass As String
Const FileSplit = "@#$%SWAGDAYZ%$#@"
Dim options() As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ShowInTaskbar = False
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
text1 = Space(LOF(1))
text2 = Space(LOF(1))
PW = Space(LOF(1))
FileGet(1, text1) ' options(1)
FileGet(1, text2) ' options(2)
FileGet(1, PW) 'options(3)
FileClose(1)
options = Split(text1, FileSplit)
passBox.Text = text1
'options = text1.Split(FileSplit)
'text2 = Decrypt(text2, PW)
'passBox.Text = text2
'Check1()
End Sub