proxy webbrowser

[asdexiva]

Código [Seleccionar] Expandir

' =============================================
' Autor : Bruno Capuano
' Fecha : 29-09-2005
' =============================================

dim strProxyServer

' define el proxy y el puerto si es necesario
strProxyServer = "MyProxyServer:80"

' ubicacion en la registry
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")

' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
     
' notificacion
Msgbox "Proxy setting enabled. " & VbCrLf & "Server - " & strProxyServer

' destroy   
Set oWshShell = Nothing

ay alguna forma de que este codigo cambie laproxy desde un archivo text

Código [Seleccionar] Expandir

strProxyServer = "MyProxyServer:80"

donde dice myproxyserver:80 van las proxys pero necesito saber como hacer para que reccora cada proxy del archivo text

ejemplo

carga la proxy 192.85.65.4:80
abre pagina
espera tiempo
vuelve al inicio y carga otra proxy desde el archivo text

el archivo text lo tendria asi y quisiera que cargara una por una
156.456.65.54:80
456.465.46.5:65
156.456.65.54:7854

si me pudieran ayudar muchisimas gracias

[Mad Antrax]

Quieres hacer un bot para registrar visitas únicas en una misma web?

[asdexiva]

Quieres hacer un bot para registrar visitas únicas en una misma web?

esa es la idea XD pero no creo que funcione

[Mad Antrax]

Sí que funciona, solo necesitas un listado con servidores proxy válidos y almacenados en un TX con un formato específico:

Código (vb) [Seleccionar] Expandir


Open "proxylist.txt" for Input As #1
While Not EOF(1)
  Line Input #1, Buffer
  Call CargarProxy(Buffer)
Wend
Close #1

Function CargarProxy()
Server = Split(Buffer,":")(0)
Port = Split(Buffer,":")(1)
'A partir de aquí ya tienes el proxy y server almacenados, llama al resto de la función
Sleep(1500) 'Pon un Sleep por si acaso xD Usa la API
End Function


Acabo de escribir el código de cabeza, creo que me he cargado un poco la sintaxis pero la idea sería esa. Saludos

[asdexiva]

Sí que funciona, solo necesitas un listado con servidores proxy válidos y almacenados en un TX con un formato específico:

Código (vb) [Seleccionar] Expandir


Open "proxylist.txt" for Input As #1
While Not EOF(1)
 Line Input #1, Buffer
 Call CargarProxy(Buffer)
Wend
Close #1

Function CargarProxy()
Server = Split(Buffer,":")(0)
Port = Split(Buffer,":")(1)
'A partir de aquí ya tienes el proxy y server almacenados, llama al resto de la función
Sleep(1500) 'Pon un Sleep por si acaso xD Usa la API
End Function


Acabo de escribir el código de cabeza, creo que me he cargado un poco la sintaxis pero la idea sería esa. Saludos

gracias