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

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