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 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 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 InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1
Private Const INTERNET_FLAG_RELOAD = &H80000000
'Variables
Public Cuenta As String
Public Data, Data1, Data3 As String
Public i, j As Integer
Public z As Long
Public CUserP() As String, Tpass As String
Public Lista() As String
Public Correos() As String
Public Cuser, Cpass, CPan As String
'Variables de Smtp
Public GHost, HHost, GAsunto, GMensaje As String
Public GPuerto As Integer
'Variables

Private Function GET_(hURL As String, Optional hUserAgent As String = "Mozilla Firefox") As String

    Dim hInternet    As Long
    Dim hFile        As Long
    Dim hBuffer      As String * 10000
    hBuffer = Space(150000)
    Dim hRead        As Long

    hInternet = InternetOpen(hUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)

        If hInternet <> 0 Then

            hFile = InternetOpenUrl(hInternet, hURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)

                 If hFile <> 0 Then

                    Do
                       Call InternetReadFile(hFile, hBuffer, 1000, hRead)

                       GET_ = GET_ & Left$(hBuffer, hRead)

                       If hRead = 0 Then Exit Do

                       DoEvents

                    Loop

                 End If
        End If

        If hInternet <> 0 Then Call InternetCloseHandle(hInternet)
        If hFile <> 0 Then Call InternetCloseHandle(hFile)

End Function

Private Function Textbetween(hData As String, hDelimit1 As String, hDelimit2 As String) As String

    On Error Resume Next

    Textbetween = Left$(Mid$(hData, InStr(hData, hDelimit1) + Len(hDelimit1)), InStr(Mid$(hData, InStr(hData, hDelimit1) + Len(hDelimit1)), hDelimit2) - 1)

End Function


Private Function Back(hData As String, Char As String) As String

    If InStrRev(hData, Char) <> 0 Then Back = Right(hData, Len(hData) - InStrRev(hData, Char))

End Function
 Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
     Randomize
     Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
 End Function

Sub Cuentas(LCuentas As String, LCorreos As String, LMensaje As String)
On Error Resume Next
    Data = GET_(LCuentas)
    Data1 = GET_(LCorreos)
    Data3 = GET_(LMensaje)

Correos = Split(Data1, vbCrLf)
Lista = Split(Data, vbCrLf)
CUserP = Split(Data, ":")

End Sub
Sub CargarUser()
On Error Resume Next

   CUserP = Split(Lista(Aleatorio(1, UBound(Lista))), ":")
         Cuser = CUserP(0)
         Cpass = CUserP(1)
Form1.Label1.Caption = Cuser
Form1.Label2.Caption = Cpass

End Sub
Sub CargarCorreo()
On Error Resume Next
         CPan = Correos(Aleatorio(1, UBound(Correos)))
         Form1.Label3.Caption = CPan

End Sub