Building Another File

• • Reply

  12 years ago

  by zamando

  jon

  , United Kingdom

  Joined 13 years ago
  MsgBox in stub.exe doesn't show what I type into TextBox2.Text, but, it shows: "System.Resource.RuntimeResourceSet".
  What have I done wrong? Here's Client.exe:
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles Button1.Click
          Const SettingSplit = "##@##"
          Dim sStub As String
          Dim sPath As String
          sPath = My.Computer.FileSystem.CurrentDirectory
          FileOpen(1, sPath & "\stub.exe", OpenMode.Binary, OpenAccess.Default)
          sStub = Space(LOF(1))
          FileGet(1, sStub)
          FileClose()
  
          FileOpen(1, sPath & "\server.exe", OpenMode.Binary, OpenAccess.Default)
          FilePut(1, sStub & SettingSplit & TextBox2.Text)
          FileClose(1)
          MsgBox("Finished")
      End Sub
  
  And Stub.exe:
  
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          Const SettingSplit = "##@##"
          Dim sStub As String
          Dim sPath As String
          sPath = My.Computer.FileSystem.CurrentDirectory
          FileOpen(1, sPath & "\" & My.Application.Info.AssemblyName & ".exe", OpenMode.Binary, OpenAccess.Default)
          sStub = Space(LOF(1))
          FileGet(1, sStub)
          FileClose()
          Dim sEmail() As String = sStub.Split(SettingSplit)
          MsgBox(sEmail(1))
      End Sub
  
  Thanks,
  
  James.
  
  Report abuse