te aseguro que si, lo hice porque lo preguntaron muchas veces

me olvide de avisarles pero esta en el texto qeu te muestra el winrar.. como dijo ░▒▓BlackZeroҖ▓▒░   es
empaqueta los archivos en el exe

capas falseando el referer¿

postea el codigo donde se encuentra el link para ver como es.. yo tengo bloqueados los ads 

si lo que queres es que simule clicks en adsense, bux y esas cosas me parece que te conviene usar sockets y no el webbrowser, porque gastas muchos menos recursos al no interpretar la pagina y no mostrarla

yo diria que busques el link en el codigo de fuente.. un ejemplo: http://www.nullbytes.net/desafiando-a-buxto-clone-script/

Manual sobre el uso de Fusion para eliminar las dependencias

Les dejo un videotuto PASO POR PASO sobre como instalar y usar fusion para eliminar las dependencias de los ejecutables... osea, nada de pasar ocx's o dll's, solo el exe

es mi primer videotuto, asi que seguramente hayan cosas mal hechas por el lado de la grabacion

es largo porque explique hasta la instalacion (quiero que se entienda bien para evitar las preguntas sobre este tema que se ven a menudo)

descargar videotuto (12.385 kb)
descargar firma digital (.sig) mi llave publica para comprobarla


en el manual dejo links del fusion, pero despues de hacerlo lo subi a mi host

descargar fusion v3 shareware (el del video - 3.469 kb)
descargar firma digital (.sig) mi llave publica para comprobarla

donde declaras PropertyBag??

probaste usar el debuguer de vb6?

creo que al leer con "    Get #1, LOF(1), Datos" lees todo el archivo, y en Secuencia no te queda nada.. debuguea y fijate

En las vacaciones, como no tenia nada para hacer, agarre un libro de vb4 y me puse a leer como se usa pset…

Hice un código que toma un dibujo ascci y lo convierte con pset. Permite el uso de dos colores (0 y 1), aumento de tamaño (baja la velocidad) y disminucion de calidad (aumenta la velocidad)

Imágen:


Como ven, no es muy bueno para dibujar, pero sirve para aprender del codigo…

El sub mas importante:

Private Sub Dibujar(Dibujo As String, Color1 As Long, Color2 As Long, Tam As Integer, Velocidad As Integer, Objeto As Object)
 
 
Dim I As Long
Dim II As Long
Dim III As Long
Dim Y As Long
Dim X As Long
 
Y = 1
X = 1
 
For I = 1 To Len(Dibujo)
    If Mid(Dibujo, I, Len(vbCrLf)) = vbCrLf Then
        Y = Y + Tam
        X = 1
        I = I + 1
    Else
        X = X + Tam
        DoEvents
 
        If Mid(Dibujo, I, 1) = 1 Then
            Objeto.PSet (X, Y), Color1
                For II = 1 To Tam
                    For III = 0 To Tam Step Velocidad
                        Objeto.PSet (X + II, Y + III), Color1
                    Next III
                Next II
        ElseIf Mid(Dibujo, I, 1) = 0 Then
            Objeto.PSet (X, Y), Color2
            For II = 1 To Tam
                    For III = 0 To Tam Step Velocidad
                        Objeto.PSet (X + II, Y + III), Color2
                    Next III
            Next II
        End If
    End If
 
    'X = X + 1
    'Y = Y + 1
 
DoEvents
 
Next I
End Sub
 
 
 

DESCARGAR TODO EL PROGRAMA

desde aca

por que tiene que ser con vb6 

busca como sacar la reserva de ancho de banda para QoS.. y tambien podes intentar pagar un mejor plan a tu isp xD

yo lo vi antes, pero vino mi hermana y me corto el cable de alimentacion



linda historia tiene el foro..