Foro de elhacker.net

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

arametro 	Obligatorio 	Descripción
IP 	NO 	DNS/IP Destinatario (Dejar en blanco para escanearse a si mismo)
Port 	SI 	Indica el Puerto Destinatario
NoHtml 	NO 	Indica si se desea usar Html ( Default = 0 )
# Parametros: 0 = Desactiva la opcion
# 1 = Resultados Sin HTML
# 2 = Resultados Sin HTML y con muestra solo el Codigo de error
# 3 = Resultados Sin HTML y con muestra el Codigo de error y su descripcion (El Codigo de Error esta separado de su descripcion por "--->".)
# Returns: -1 = Error de Rango de Puertos
# 0 = Error de Conexion
# 1 = Conexion Satisfecha
MyIPAddres 	NO 	Si se activa este parametro solo Mostra la IP en texto Plano
# Parametros: 0 = Desactiva la opcion
# 1 = Activar la Opcion

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