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:
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:
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
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
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
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