Buscar
 
 

Resultados por:
 


Rechercher Búsqueda avanzada

Palabras claves

Últimos temas
» Como crear tu servidor de Darkrobit Privado
Lun Mayo 13, 2013 11:22 pm por Jmpl3

» WINZIP PRO V17.0.10283, PODEROSO COMPRESOR DE FICHEROS ZIP
Jue Abr 25, 2013 2:03 am por Jmpl3

» TECHCENTER [TOOL][DARKORBIT][16/02/13]
Jue Abr 25, 2013 1:59 am por Jmpl3

» TOTAL DO [TOOL][DARKORBIT][03/03/13]
Jue Abr 25, 2013 1:54 am por Jmpl3

» [CODIGO FUENTE - VB.NET] CONEXION A DARKORBIT
Jue Abr 25, 2013 1:49 am por Jmpl3

» Nuevo! Depurador TECJ & Cristian
Jue Abr 25, 2013 1:42 am por Jmpl3

» Solicitudes para entrar al grupo del foro en FB
Lun Abr 16, 2012 9:54 pm por Jmpl3

» Concursos por puntos..
Dom Abr 15, 2012 2:00 pm por Jmpl3

» Bienvenidos a la Tiendas de Puntos
Sáb Abr 14, 2012 3:26 am por Jmpl3

Octubre 2017
LunMarMiérJueVieSábDom
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendario Calendario


[CODIGO FUENTE - VB.NET] CONEXION A DARKORBIT

Ver el tema anterior Ver el tema siguiente Ir abajo

[CODIGO FUENTE - VB.NET] CONEXION A DARKORBIT

Mensaje por Jmpl3 el Jue Abr 25, 2013 1:49 am

Para esto necesitamos:

* Webbrowser
* 2 Textbox
* 1 Boton

Para comenzar van a Form1.vb y como una clase public

Código:
Dim didWeNavigated? As Boolean = False
Dim gottheserver? As Boolean = False
Public Property ScriptErrorsSuppressed As Boolean

Creas un boton y añades la funcion Click

Código:
WebBrowser1.Navigate("http://www.darkorbit.com")
didWeNavigated = True
End Sub

Ahora creas un Webbrowser y le haces click para que aparezca la funcion DocumentCompleted en la codigo

Código:
If didWeNavigated = False Then
Exit Sub
End If
If didWeNavigated = True Then didWeNavigated = False
Dim username As String = TextBox1.Text
Dim password As String = TextBox2.Text WebBrowser1.Document.GetElementById("loginForm_default_username").SetAttribute("Value", username) WebBrowser1.Document.GetElementById("loginForm_default_password").SetAttribute("Value", password) WebBrowser1.Document.GetElementById("loginForm_default_loginButton").Focus()
WebBrowser1.Document.GetElementById("loginForm_default_loginButton").InvokeMember("click")
Dim htmlel As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
Dim el1 As HtmlElement
End Sub

En el proxima programación pondre un post con Webrequest y auto seleccionador de servidor
avatar
Jmpl3
Admin
Admin

Mensajes : 35
Inicio el : 29/12/2011
Edad : 20
Localización : Perú

Ver perfil de usuario http://hackmaster.forolatin.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.