Olaa amigos soy nuevo en este foro ps quisiera decirles que tengo un problema miren lo que quiero es que al darle click al enlace que sale en el WebBrowser abra una texto abajo del webbrowser diciendo "Ayudenme con este problema xD"
MI PROBLEMA ES QUE CUANDO LE DOY CLICK A ESE ENLACE NO SALE EL TEXTO QUE DEBE TENER OSEA SOLO ME ABRE EL ENLACE CREO Q ESTO ES UNO DE LOS PROBLEMAS DEL WEBBROWSER Y TAMBIEN QUIERO QUE SE REPITA EL CLICK EN EL MISMO ENLACE.
AQUI UNA IMAGEN PARA QUE SE LES ACLARE MAS LOS OJOS :D
Este es el code
Cita: Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Declare Function PostMessageBynum Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub WebBrowser1Click()
Me.Print "Usted hizo click en el enlace"
End Sub
Private Sub WebBrowser1Click()
Me.Print "Usted hizo el segundo click en el enlace"
Dim l As Long, PosX As Long, PosY As Long, PosXY As Long
Dim lpRect As RECT
l = GetWindowRect(Command1.hwnd, lpRect)
PosX = lpRect.Left + ((lpRect.Right - lpRect.Left) / 2)
PosY = lpRect.Top + ((lpRect.Bottom - lpRect.Top) / 2)
l = SetCursorPos(PosX, PosY)
PosXY = (PosY - lpRect.Top) * 65536 + (PosX - lpRect.Left)
l = PostMessageBynum(Command1.hwnd, WM_LBUTTONDOWN, 0&, PosXY)
l = PostMessageBynum(Command1.hwnd, WM_LBUTTONUP, 0&, PosXY)
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://adserving.cpxinteractive.com/st?ad_type=iframe&ad_size=728x90§ion=297178"
End Sub