Hoy les traigo un pequeño problema que me esta comiendo la cabeza, los builders no son lo mio, y mucho menos en vb6
Tengo el siquiente codigo para el builder:
Código: Seleccionar todo
Private Sub build(Applicatie As String)
Dim buffer() As Byte
buffer = LoadResData(101, "CUSTOM")
Open Applicatie For Binary As #1
Put #1, , buffer()
Close #1
Dim options As String * 100
options = Text1.Text & "#" & Text2.Text & "#" & Text3.Text & "#" & Text4.Text
Open Applicatie For Binary As #1
Put #1, LOF(1) + 1, options
Close #1
Exit Sub
End Sub
Private Sub Command1_Click()
build (App.Path & "\Server.exe")
End SubCódigo: Seleccionar todo
Private Sub Form_Load()
Dim options As String * 100
Dim data() As String
Open (App.Path & "\" & App.EXEName & ".exe") For Binary As #1
Get #1, LOF(1) - 99, options
data() = Split(options, "#")
Text1.Text = data(0)
Text2.Text = data(1)
Text3.Text = data(2)
Text4.Text = data(3)
Text5.Text = data(4)
Text6.Text = data(5)
Close #1
End
End Subbuffer = LoadResData(101, "CUSTOM")
Ya probe mil veces y busque distintos codigos, dandome todos el mismo error.
Espero que puedan ayudarme.
