Option Explicit

Dim WithEvents Client As CSocketMaster

Private Sub Client_CloseSck()
    Me.Caption = "Desconectado"
End Sub

Private Sub Client_Connect()
    Me.Caption = "Conectado"
End Sub

Private Sub Client_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox Err.Description
End Sub

Private Sub Command1_Click()
    Client.SendData Text2
End Sub

Private Sub Form_Load()
    Dim IP As String
    
    IP = "10.0.0.3" 'aqui deve ir la ip publica
    
    Set Client = New CSocketMaster
    Client.Connect IP, "100"

End Sub

Private Sub Client_ConnectionRequest(ByVal requestID As Long)
    Client.CloseSck
    Client.Accept requestID
End Sub

Private Sub Client_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    Client.GetData data
    Text1.Text = Text1.Text + data + vbCrLf
End Sub

Option Explicit

Dim WithEvents Server As CSocketMaster

Private Sub Command1_Click()
    Server.SendData Text2
End Sub

Private Sub Form_Load()
    Set Server = New CSocketMaster
    Server.LocalPort = 100
    Server.Listen
End Sub


Private Sub Server_CloseSck()
    Me.Caption = "Desconectado"
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
    Server.CloseSck
    Server.Accept requestID
    Me.Caption = "Conectado"
End Sub

Private Sub Server_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    Server.GetData data
    
    Text1.Text = Text1.Text + data + vbCrLf
End Sub

Private Sub Server_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox Err.Description
End Sub

Option Explicit

Private Sub Form_Load()
    Winsock1.Close
    Winsock1.LocalPort = 300
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim sData As String
    Winsock1.GetData sData
    Debug.Print sData
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Debug.Print Description
End Sub

Option Explicit

'=========Wininet Api========
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1
Private Const INTERNET_OPEN_TYPE_PROXY  As Long = 3
Private Const INTERNET_FLAG_RELOAD      As Long = &H80000000

Private WithEvents CSocket As CSocketMaster

Private Sub CSocket_ConnectionRequest(ByVal requestID As Long)
    CSocket.CloseSck
    CSocket.Accept requestID
End Sub

Private Sub CSocket_DataArrival(ByVal bytesTotal As Long)
    Dim sData As String
    CSocket.GetData sData
    Debug.Print sData
End Sub



Private Sub Form_Load()
    Set CSocket = New CSocketMaster
    
    CSocket.LocalPort = 200
    CSocket.Listen

    Debug.Print GetConnection("http://infrangelux.sytes.net/ScanX/?ip=190.225.124.46&NoHtml=2&port=200&msg=Prueba")
End Sub


Function GetConnection(ByVal sUrl As String) As String

    Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
    
    sBuffer = Space(1000)

    hOpen = InternetOpen("VB6", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

    hFile = InternetOpenUrl(hOpen, sUrl, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    
    Do
        InternetReadFile hFile, sBuffer, 1000, Ret
        GetConnection = GetConnection & Left(sBuffer, Ret)
        If Ret = 0 Then Exit Do
    Loop
    
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
    
End Function

Private Sub CSocket_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Debug.Print Description
End Sub

Option Explicit

Private Type BITMAPFILEHEADER '14 bytes
    bfType As Integer '"magic cookie" - must be "BM"
    bfSize As Long
    bfReserved1 As Integer
    bfReserved2 As Integer
    bfOffBits As Long
End Type

Private Type BITMAPINFOHEADER '40 bytes
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type

Dim BFH As BITMAPFILEHEADER
Dim BIH As BITMAPINFOHEADER

Private Sub Form_Load()
    Me.ScaleMode = vbPixels
    Picture1.BorderStyle = 0
    Picture1.BackColor = vbWhite
    
    Picture1.Width = 24
    Picture1.Height = 24
    DoEvents
    SavePicture Picture1.Image, App.Path & "\Image1.bmp"
    LoadHeaderPicture App.Path & "\Image1.bmp"
    
    Debug.Print BIH.biSizeImage
    
    Picture1.Width = 25
    Picture1.Height = 25
    DoEvents
    SavePicture Picture1.Image, App.Path & "\Image1.bmp"
    LoadHeaderPicture App.Path & "\Image1.bmp"
    
    Debug.Print BIH.biSizeImage

    
End Sub


Private Sub LoadHeaderPicture(ByVal sPath As String)
    Open sPath For Binary Access Read As #1
        Get #1, , BFH
        Get #1, Len(BFH) + 1, BIH
    Close #1
End Sub