[RESOLVIDO] Pegar os dados de uma TextBox e gravar em um arquivo .bat

Question

Bom eu preciso pegar os dados de duas text box e gravar em um arquivo, é o sistema de login de um jogo, porem, o meu código não pega os dados e grava a mesma coisa que esta escrita no code.

Imports System
Imports System.IO
Imports System.Text
Public Class Form0


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String = "D:\MyTest.bat"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("MixMaster.exe 3.855000 25.41.241.8 22005 0 TextBox1.Text TextBox2.Text  1 AURORA_BRA")
        fs.Write(info, 0, info.Length)
        fs.Close()
        Form1.Show()
        Me.Hide()
    End Sub

End Class

Esse é o código,  ao invés de sair com os dados da text box, ele resulta em:

MixMaster.exe 3.855000 25.41.241.8 22005 0 TextBox1.Text TextBox2.Text  1 AURORA_BRA

ao invés de:

MixMaster.exe 3.855000 25.41.241.8 22005 0 LOGIN-DIGITADO-NA-TEXT-BOX SENHA-DIGITA-NA-TEXT-BOX  1 AURORA_BRA

Obrigado agradeço desde já <3

Answer 1

Imports System
Imports System.IO
Imports System.Text
Public Class Form0


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim path As String = "D:\MyTest.bat"

        ' Create or overwrite the file.
        Dim fs As FileStream = File.Create(path)

        ' Add text to the file.
        Dim info As Byte() = New UTF8Encoding(True).GetBytes("MixMaster.exe 3.855000 25.41.241.8 22005 0 " & TextBox1.Text & chr(32) & TextBox2.Text & " 1 AURORA_BRA")
        fs.Write(info, 0, info.Length)
        fs.Close()
        Form1.Show()
        Me.Hide()
    End Sub

---

Eduardo Bicudo Junior

Answer 2

Valeu mano <3