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

  • Pergunta

  • 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


    • Editado Warsmoom sexta-feira, 29 de setembro de 2017 17:29
    sexta-feira, 29 de setembro de 2017 14:18

Respostas

  • 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

    sexta-feira, 29 de setembro de 2017 17:02

Todas as Respostas

  • 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

    sexta-feira, 29 de setembro de 2017 17:02
  • Valeu mano <3
    sexta-feira, 29 de setembro de 2017 17:29