elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  proxy webbrowser
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: proxy webbrowser  (Leído 2,822 veces)
asdexiva

Desconectado Desconectado

Mensajes: 217



Ver Perfil
proxy webbrowser
« 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


En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.166


Cheats y Trainers para todos!


Ver Perfil WWW
Re: proxy webbrowser
« Respuesta #1 en: 11 Noviembre 2013, 10:19 am »

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


En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
asdexiva

Desconectado Desconectado

Mensajes: 217



Ver Perfil
Re: proxy webbrowser
« Respuesta #2 en: 11 Noviembre 2013, 14:44 pm »

Quieres hacer un bot para registrar visitas únicas en una misma web?
esa es la idea XD pero no creo que funcione :D
En línea

Mad Antrax
Colaborador
***
Desconectado Desconectado

Mensajes: 2.166


Cheats y Trainers para todos!


Ver Perfil WWW
Re: proxy webbrowser
« Respuesta #3 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
En línea

No hago hacks/cheats para juegos Online.
Tampoco ayudo a nadie a realizar hacks/cheats para juegos Online.
asdexiva

Desconectado Desconectado

Mensajes: 217



Ver Perfil
Re: proxy webbrowser
« Respuesta #4 en: 11 Noviembre 2013, 20:35 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
« Última modificación: 11 Noviembre 2013, 20:41 pm por asdexiva » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
webbrowser y proxy
Programación Visual Basic
rubeng 2 1,957 Último mensaje 30 Julio 2007, 18:58 pm
por sircid
proxy en webbrowser « 1 2 »
Programación Visual Basic
rubeng 16 6,012 Último mensaje 28 Octubre 2007, 11:43 am
por sircid
WebBrowser y proxy
.NET (C#, VB.NET, ASP)
junxcosio 0 2,318 Último mensaje 4 Febrero 2010, 15:42 pm
por junxcosio
WebBrowser con proxy
.NET (C#, VB.NET, ASP)
diego_lp 5 6,670 Último mensaje 28 Mayo 2010, 16:00 pm
por [D4N93R]
[VB .NET] Navegación vía Proxy en WebBrowser.
.NET (C#, VB.NET, ASP)
kub0x 2 5,616 Último mensaje 27 Noviembre 2011, 14:18 pm
por kub0x
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines