Foro de elhacker.net

Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const WM_LBUTTONDOWN = &H201: Const WM_LBUTTONUP = &H202

Public Sub Clicar(lHwnd As Long, x As Long, y As Long)

Dim Rst As Long
Dim Prm As Long

Prm = y + x
Rst = PostMessage(lHwnd, WM_LBUTTONDOWN, 0&, ByVal Prm)
Rst = PostMessage(lHwnd, WM_LBUTTONUP, 0&, ByVal Prm)

End Sub


Private Sub Command1_Click()

Call Clicar(WebBrowser1.hwnd, 1, 1)

End Sub

Me.WB1.Document.Forms(0).submit.Click

Option Explicit

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_ENTER = &HD: Private Const WM_CHAR = &H102

Public Sub Clicar(lHwnd As Long, x As Long, y As Long)
  Dim Rst As Long: Dim Prm As Long
  Prm = y + x
  Rst = PostMessage(lHwnd, WM_CHAR, vbKeySpace, ByVal Prm)
End Sub

Private Sub Command1_Click()
  Call Clicar(Text1.hwnd, 1, 1)
End Sub
Private Sub Command2_Click()
  Call Clicar(Text1.hwnd, 1, 10)
End Sub

Private Sub Form_Load()
Text1 = "X"
End Sub