Mensajes

Abra que buscar el modo

en el caso de  vb6 funciona así

WebBrowser1.Document.All("Nombre de Boton").Click

si la pagina es  tuya podrias usar el nombre , si no lo es kizas puedas usar la propiedad  getElementById  , es decir:

WebBrowser1.Document.getElementById("ID de Boton").Click

Código [Seleccionar] Expandir

Private Sub Command2_Click()
WebBrowser1.Document.All("submit").Click
End Sub

Private Sub Command3_Click()
WebBrowser1.Document.getElementById("submit").Click
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate2 "C:/Users/Abkanis/Documents/prueba.html"
End Sub


pues los probe  y ambos funcionan, esto es en el caso de VB6,  

en el caso de aun asi no puedes , podrias modificar el boton de dicha pagina con una inyeccion en javascript, asi modificarias el boton y le agregarias el nombre del boton,  seria algo asi  webbrowser1.navigate2 "inyeccion"  alli puedes meterle un textbox para k no te jodan las  comillas.

Prueba HTML:

Código [Seleccionar] Expandir

<input type=button ID=submit value=Enviar onclick="javascript:alert('hola')"/>
<input type=button name=submit value=Enviar onclick="javascript:alert('hola que tal')"/>

Excelente  , gracias  ami tambien me sirbió

se a lo que te refieres, pero ya hay un parche para eso, sin embargo por experiencia  personal, se  como modificar el valor de  algunos parametros. 

checa si te sirve algo de aqui:

Código [Seleccionar] Expandir

Private Sub Form_Resize()
Select Case Me.WindowState
Case Is = 0
Call Shell("notepad", 1) 'abre normal
Case Is = 1
Call Shell("notepad", 2) 'abre minimizado
Case Is = 2
Call Shell("notepad", 3) 'abre maximizado
End Select
End Sub


Código [Seleccionar] Expandir

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbKeyRButton Then
MsgBox "puedes poner el codigo k kieras"
End If
End Sub


o tambien puedes usar:

Código [Seleccionar] Expandir

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
MsgBox "hola"
End If
End Sub