' =============================================
' 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
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
Quieres hacer un bot para registrar visitas únicas en una misma web?
Cita de: ||MadAntrax|| en 11 Noviembre 2013, 10:19 AM
Quieres hacer un bot para registrar visitas únicas en una misma web?
esa es la idea XD pero no creo que funcione :D
Sí que funciona, solo necesitas un listado con servidores proxy válidos y almacenados en un TX con un formato específico:
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
Cita de: ||MadAntrax|| en 11 Noviembre 2013, 15:32 PM
Sí que funciona, solo necesitas un listado con servidores proxy válidos y almacenados en un TX con un formato específico:
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