Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: asdexiva en 11 Noviembre 2013, 04:55 am


Título: proxy webbrowser
Publicado por: asdexiva en 11 Noviembre 2013, 04:55 am
Código:
' =============================================
' 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:
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

Título: Re: proxy webbrowser
Publicado por: Mad Antrax en 11 Noviembre 2013, 10:19 am
Quieres hacer un bot para registrar visitas únicas en una misma web?

Título: Re: proxy webbrowser
Publicado por: asdexiva en 11 Noviembre 2013, 14:44 pm
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

Título: Re: proxy webbrowser
Publicado por: Mad Antrax 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:

Código
  1. Open "proxylist.txt" for Input As #1
  2.  While Not EOF(1)
  3.   Line Input #1, Buffer
  4.   Call CargarProxy(Buffer)
  5.  Wend
  6. Close #1
  7.  
  8. Function CargarProxy()
  9.  Server = Split(Buffer,":")(0)
  10.  Port = Split(Buffer,":")(1)
  11.  'A partir de aquí ya tienes el proxy y server almacenados, llama al resto de la función
  12. Sleep(1500) 'Pon un Sleep por si acaso xD Usa la API
  13. End Function
  14.  

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

Título: Re: proxy webbrowser
Publicado por: asdexiva en 11 Noviembre 2013, 20:35 pm
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:

Código
  1. Open "proxylist.txt" for Input As #1
  2.  While Not EOF(1)
  3.   Line Input #1, Buffer
  4.   Call CargarProxy(Buffer)
  5.  Wend
  6. Close #1
  7.  
  8. Function CargarProxy()
  9.  Server = Split(Buffer,":")(0)
  10.  Port = Split(Buffer,":")(1)
  11.  'A partir de aquí ya tienes el proxy y server almacenados, llama al resto de la función
  12. Sleep(1500) 'Pon un Sleep por si acaso xD Usa la API
  13. End Function
  14.  

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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines