Hola, buscando en google encontré este code que sirve para sacar la IP a una DNS pero me manda la solución en un MsgBox y necesitaria que se pudiera copiar. He intentado con todo lo que he podido pero no consigo hacerlo...

Option Explicit
 
Private Declare Function DnsQuery Lib "dnsapi" Alias "DnsQuery_A" (ByVal strname As String, ByVal wType As Integer, ByVal fOptions As Long, ByVal pServers As Long, ppQueryResultsSet As Long, ByVal pReserved As Long) As Long
Private Declare Function DnsRecordListFree Lib "dnsapi" (ByVal pDnsRecord As Long, ByVal FreeType As Long) As Long
Private Declare Function lstrlen Lib "kernel32" (ByVal straddress As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, ByVal Source As Long, ByVal Length As Long)
Private Declare Function inet_ntoa Lib "ws2_32.dll" (ByVal pIP As Long) As Long
Private Declare Function inet_addr Lib "ws2_32.dll" (ByVal sAddr As String) As Long
 
Private Const DnsFreeRecordList         As Long = 1
Private Const DNS_TYPE_A                As Long = &H1
Private Const DNS_QUERY_BYPASS_CACHE    As Long = &H8
 
Private Type VBDnsRecord
    pNext           As Long
    pName           As Long
    wType           As Integer
    wDataLength     As Integer
    flags           As Long
    dwTel           As Long
    dwReserved      As Long
    prt             As Long
    others(35)      As Byte
End Type
 
Private Sub Command1_Click()
    MsgBox Resolve("google.com", "208.67.222.222")
End Sub
 
Private Function Resolve(sAddr As String, Optional sDnsServers As String) As String
    Dim pRecord     As Long
    Dim pNext       As Long
    Dim uRecord     As VBDnsRecord
    Dim lPtr        As Long
    Dim vSplit      As Variant
    Dim laServers() As Long
    Dim pServers    As Long
    Dim sName       As String
 
    If LenB(sDnsServers) <> 0 Then
        vSplit = Split(sDnsServers)
        ReDim laServers(0 To UBound(vSplit) + 1)
        laServers(0) = UBound(laServers)
        For lPtr = 0 To UBound(vSplit)
            laServers(lPtr + 1) = inet_addr(vSplit(lPtr))
        Next
        pServers = VarPtr(laServers(0))
    End If
    If DnsQuery(sAddr, DNS_TYPE_A, DNS_QUERY_BYPASS_CACHE, pServers, pRecord, 0) = 0 Then
        pNext = pRecord
        Do While pNext <> 0
            Call CopyMemory(uRecord, pNext, Len(uRecord))
            If uRecord.wType = DNS_TYPE_A Then
                lPtr = inet_ntoa(uRecord.prt)
                sName = String(lstrlen(lPtr), 0)
                Call CopyMemory(ByVal sName, lPtr, Len(sName))
                If LenB(Resolve) <> 0 Then
                    Resolve = Resolve & " "
                End If
                Resolve = Resolve & sName
            End If
            pNext = uRecord.pNext
        Loop
        Call DnsRecordListFree(pRecord, DnsFreeRecordList)
    End If
End Function

saludos y gracias de antemano

Haces la inversión de los pasos o pones DWORD en 0 para desactivarlo

Si quieres usarlo con un solo objetivo de tu gusto que para mi es lo mejor usas de 1 conexión, pero si lo que quieres es obtener objetivos al azar y muchos hazlo multiconexión


saludos

Los pasos para impedir que los usuarios puedan borrar el historial de nuestra navegación de Internet son los siguientes(INTERNET EXPLORER):


1.- Debemos dirigirnos al Inicio luego Ejecutar y acá escribir “regedit” y le damos clic a Aceptar.
2.- Luego Dirígete a la clave HKEY_LOCAL_MACHINE/SOFTWARE/Policies/Microsoft.
3.- Acá le damos clic al menú Edición / Nuevo / Clave y ponle de nombre Internet Explorer.
4.- Creamos una sub-clave llamada Restriccion.
5.- En esta sub-clave (HKEY_LOCAL_MACHINE/SOFTWARE/Policies/Microsoft/Internet Explorer/Restricion) crea un nuevo valor DWORD con el nombre de History
6.- Demosle doble clic sobre este valor y asígnale el valor 1 para impedir que se borre el historial de Internet.

saludos

+1


Ya tengo la invitación, gracias @Dreamaker


saludos

http://www.delitosinformaticos.com/estafas/delito.shtml


aqui esta, googlea un poco y encontrarás más


saludos y @el-brujo, en vez de hacer lo de la publicidad podrías reclamar al acusado del delito 2000 euros por los gastos del servidor

Gracias por apoyarme  jajajja

saludos

Avast no te lo recomiendo, y sí DrWeb para mi es el mejor al igual que el Malwarebytes Scanner no el AV así que si el Malwarebytes no va bien recomiendo el que para mi es el mejor porksi lo usas en Modo de fallo de pruebas lo detecta "casi" todo

HAzme caso, enciende el pc a "Modo de Fallo de Pruebas" y usaa el DRWeb, luego nos cuentas


saludos

Tendría que dejar una cosa clara, y es de que ahora me acabo de dar cuenta que hacer eso es delito, es una estafa y puede caer una pena de 2 a 4 años de cárcel según los ingresos 

Entendido gracias