Estoy tratando de hacer un builder en vb.net.Todo compila perfecto, pero despues no funciona :-\
~Cliente~
Public Class Form1
Const Delimiter As String = "/***\"
Dim Stub, msg As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Dialog As New SaveFileDialog
Dialog.Filter = "Exe | Windows Executable Files"
Dialog.ShowDialog()
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
Stub = Space(LOF(1))
FileGet(1, Stub)
FileClose(1)
FileOpen(1, Dialog.FileName, OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, Stub & Delimiter & TextBox1.Text & Delimiter & "Webos")
FileClose(1)
MsgBox("Server was made with success", MsgBoxStyle.Information, "Underc0de Downloader")
End Sub
End Class
~Stub~
Public Class Form1
Const Delimiter As String = "/***\"
Dim Stub As String
Dim TITULO As String
Dim wea As String
Dim Splitter() As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error Resume Next
FileOpen(Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
Stub = Space(LOF(1))
FileGet(1, Stub)
FileClose(1)
Splitter = Split(Stub, Delimiter)
TITULO = Splitter(1)
wea = Splitter(2)
MsgBox(TITULO, , wea)
End
End Sub
End Class
Por mas que lo observo, no veo el error.
-Saludos-
Sacale la linea On error resume Next del stub
y ya te va a lanzar un error que te va a orientar.
Saludos
Te doy otra ayuda mira como abres un archivo en el builder
FileOpen(1, Application.StartupPath & "\Stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
Y ahora en el Stub
FileOpen(Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
Que falta?¿ xD
Cago en todo :o, como no lo pude ver >:(.
Gracias tio! ;)
-Saludos-