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.
No one has replied yet! Why not be the first?
Sign in or Join us (it's free).