Ayuda escribiendo archivos en Biniario

[ranslsad]

Hola amigos, toy haciendo un proyecto que modifique a otro (lo lei de este post: http://foro.elhacker.net/index.php/topic,147434.msg692671.html#msg692671)
y lo modifique a mi gusto... pero no me hace las funciones que encesito...
yo les quiero dejar el codigo haber si saben que puede ser ya que yo de esto no se casi nada :S

Codigo del Editor:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim Code()              As Byte
Dim opciones                  As String * 20
Dim ip                  As String * 20
Dim nombreserver                  As String * 20

opciones = "si"
ip = Text1.Text
nombreserver = Text2.Text
                   
Code = LoadResData(101, "CUSTOM")
                                               
Open "\Launcher.exe" For Binary Access Write As #1
Put #1, , Code
Put #1, , opciones
Put #1, , ip
Put #1, , nombreserver
Close #1
End Sub

Codigo del archivo a modificar:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim opciones As String
Dim ip As String
Dim puerto As String
Dim nombreserver As String
Dim web As String
Dim foro As String
extrarer
Label2.Caption = " Lacunher By Ranslsad para " & nombreserver & "Disfruten del Servidor"
Me.Caption = "Bienvenido al Servidor " & nombreserver & " - By RanSoft"
If opciones = "si" Then
Command2.Enabled = True
Else
Command2.Enabled = False
End If
If web = "si" Then
Command3.Enabled = True
Else
Command3.Enabled = False
End If
If web = "si" Then
Command4.Enabled = True
Else
Command4.Enabled = False
End If

End Sub

Function extrarer() As String
Dim IPt                As String * 20
Dim OPCIONESt                As String * 20
Dim PUERTOt                As String * 20
Dim NOMBRESERVERt                As String * 20
Dim WEBt                As String * 20
Dim FOROt                As String * 20
On Local Error Resume Next
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Seek (1), LOF(1) - 19
                                                   
                                                   
Get #1, , IPt
Get #1, , OPCIONESt
Get #1, , PUERTOt
Get #1, , NOMBRESERVERt
Get #1, , WEBt
Get #1, , FOROt
Close #1

ip = Trim(IPt)
opciones = Trim(OPCIONESt)
puerto = Trim(PUERTOt)
nombreserver = Trim(NOMBRESERVERt)
web = Trim(WEBt)
foro = Trim(FOROt)
                                                   
                                                   

End Function

Bueno espero que sepan ayudarme...
Desde ya Gracias.

Salu2

Ranslsad

[SheKeL_C$]

y q es lo q pasa al archivo a modificar ???.

Kizas asi a primera vista sea q las variables se t kedan en blanco, tendrias q declararlas fuera de cualkier rutina.

Pero nose como no des mas explicaciones...





Salu2

[ranslsad]

Bueno.. aqui te dejo el source para que lo veas...
http://www.megaupload.com/es/?d=GM6N70BX

Bueno... haber si sabes..
Desde ya. Gracias

Salu2

Ranslsad

[ranslsad]

Hola, escribo este post porque veo que baja y nadie sabe contestar.. bueno.. haber si alguien que sepa puede contestar ya que no encuentro nada :S

Bueno.. desde ya Gracias...

Salu2

Ranslsad