Foro de elhacker.net

Public Sub CargarRes(NumNAME As Integer, ruta As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(ruta) = "" Then
myArray = LoadResData(NumNAME, "CUSTOM")
myFile = FreeFile
Open ruta For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End If
End Sub

Private Sub Form_Load()

 Dim IPt                As String * 20          'es una varible con 10 espacios
 Dim Ip                 As String               'es una variable
 On Local Error Resume Next
 me.caption = "SERVER"
 
 Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1 'se abre a si mismo en binario
 Seek (1), LOF(1) - 19                              'se va a la parte dinal de todo su codigo,
                                                    'pero ojo no al final del todo sino exactamente 19 posiciones
                                                    'antes de tocar el final
 Get #1, , IPt                                      ' y asi lee lo ultimo q tiene, q sera la ip
 Close #1                                           'se cierra el archivo
 
 Ip = Trim(IPt)                                     'lo q ahora tendremos seria la ip seguida de unos espacios,
                                                    'por ejemplo "127.0.0.1         ", lo q se acre es quitar esos espacios
                                                    'y ponerlos en la variable ip
 MsgBox Ip                                          'aqui t lo muestra en pantalla
End Sub

Private Sub Form_Load()
Dim Code()              As Byte                 'aqui se almacenara el codigo del otro exe, demomento esta vacio
Dim IP                  As String * 20          'aqui la ip q pasaremos al otro exe,demomento esta vacio

IP = "69.69.69.69"                              'la ip e escrito esa pero si agregas el winsock lo remmplazarias x la ip
Me.Caption = "EDITOR"                           'esto lo pongo pa q sepas q es el editor
Code = LoadResData(101, "CUSTOM")               'ahora carga del archivo de recursos, el archivo con numero
                                                '101 y q este en la categoria CUSTOM

Open "C:\Cacarutas.exe" For Binary Access Write As #1   'abre el archivo cacarutas
Put #1, , Code                                          'pone el code dentro del archivo
Put #1, , IP                                            'y luego la ip q esos escogido, 69.69....
Close #1                                                'y se cierra el archivo

End Sub