Título: Modificar objetos en WebBrowser Publicado por: Webagent007 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?"> Este es el código que hice en Visual Basic Código: Private Sub Command1_Click() 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 (http://img.photobucket.com/albums/v249/Dark_Hellfirez/adsa.jpg) Esto es el login....pero no creo que sirva...por si acaso (solo me falta hacer que VB haga click en "entrar" :-( saludos Título: Re: Modificar objetos en WebBrowser Publicado por: Webagent007 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 |