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

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


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

Desconectado Desconectado

Mensajes: 61


La vida son dos dias...Carpe Diem!!!


Ver Perfil
Modificar objetos en WebBrowser
« en: 11 Febrero 2006, 06:30 am »

Weno...aca vengo a molestarles de nuevo  ;D
Mi problema es que Visual basic no deja que manipule objetos en un WebBrowser (por ejemplo...que haga click en un botoncito, solo me deja escribir texto)

lo que quiero hacer es un control (onda wand para los que usaron opera) que me pueda loggear automaticamente a una página específica(solo una pagina es la que me interesa por ahora) ;D
por alguna razon no me sale...el codigo de la página a la que intento ingresar como jodido desesperado es:


 
Código:
    <form id="loginform" method="post" action="/gt/login.php?&sid=1b72d338a9565b7dc091c9977973407a?">
            <input type="hidden" name="submit" value="Login"/>
            <input type="hidden" name="sid" value=""/>
            <input type="hidden" name="redirect" value="/"/>
            <input type="text" name="username" id="loginUsername"/>
            <input type="password" name="password" id="loginPassword"/>
            <input type="image" src="http://soylaimagenqueloggea.png" name="login" value="Login" id="loginSubmit"/>
           <input type="checkbox" name="autologin" id="loginAuto" />           
        </form>

Este es el código que hice en Visual Basic
Código:
Private Sub  Command1_Click()
On Error Resume Next
    WebBrowser.Document.All(Text3.Text).Value = TBlogin.Text ' logea username
    WebBrowser.Document.All(Text4.Text).Value = TBpassword.Text ' logea password
    For Each X In WebBrowser.Document(Text5.Text)  ' Encuentra el botón de submit
        If  X.alt = TBimage.Text [b]Then[/b] X.Click ' click it
        Next
        Wait (1)
 
End Sub

Así le hice para asignar "value" con los "nombres" (username, password, image) y así escribir los valores para auto-loggearse, pero cuando se quieren mandar los datos haciendo click en http://soylaimagenqueloggea.png simplemente no da más de si y no hace....NADA! (a pesar que escribí correctamente su nombre)

Valores de las textbox (todas en .text)
Text3.text=Username
TBLogin= aca nombre de usuario correcto
------
Text4.text=Password
TBpassword.text=aca el password
----
Text5.text=imagen
TBimage.text=http://soylaimagenqueloggea.png

Estoy haciendo algo mal???? se han unido los alienigenas-hemorroide para joderme el dia? que no encuentro nada en el MSDN (y se me hace tan enredado que la verdad es que no entiendo casi nada de la ayuda de microsoft) asi que si alguien puede ayudarme...se los agradezco

PS: perdonen tanto rollo...espero que entiendan el problema que tengo...ya que esto es muuuuuy largo  :P

Esto es el login....pero no creo que sirva...por si acaso (solo me falta hacer que VB haga click en "entrar" :-(

saludos


« Última modificación: 11 Febrero 2006, 06:32 am por Webagent007 » En línea

Webagent007

Desconectado Desconectado

Mensajes: 61


La vida son dos dias...Carpe Diem!!!


Ver Perfil
Re: Modificar objetos en WebBrowser
« Respuesta #1 en: 16 Febrero 2006, 02:40 am »

solved! usando las API de Windows , se reemplaza la cadena de texto como arriba y se le hace que declare


Private Type POINTAPI
x As Long
y As Long
End Type

Private Const MOUSEEVENTF_LEFTDOWN = &H2      ' left button down

Private Const MOUSEEVENTF_LEFTUP = &H4        ' left button up

Private Const MOUSEEVENTF_ABSOLUTE = &H8000   ' absolute move

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Dim WithEvents FormSys As FrmSysTray

SetCursorPos 481, 750 (coordenadas X, Y)
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 'Mouse down
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 'Mouse up


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines