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

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hndw As Long) As Boolean

Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054

Private hWndCap As Long
Private Sub Form_Load()
Timer1.Interval = 1
    hWndCap = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 160, 120, Me.hwnd, 0)
    DoEvents
    SendMessage hWndCap, CONNECT, 0, 0
    Timer1.Enabled = True
    Winsock1.RemoteHost = txtip.Text
End Sub

Private Sub Form_Unload(Cancel As Integer)
    DestroyWindow hWndCap
End Sub

Private Sub Timer1_Timer()
    SendMessage hWndCap, GET_FRAME, 0, 0
    SendMessage hWndCap, COPY, 0, 0
    Picture1.Picture = Clipboard.GetData
    Clipboard.Clear
End Sub

Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub Command3_Click()
Call SavePicture(Picture1.Image, "\image.bmp")
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change()
List1.AddItem Text1.Text
End Sub

Private Sub Winsock1_Connect()
Text1.Text = Winsock1.RemoteHost
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  If w2.State <> sckClosed Then _
    w2.Close
    
  w2.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Imagenes As String
Winsock1.GetData Imagenes
Picture1.Picture Data
End Sub