|
|
|
Я хочу невидимо контроллировать webbrowser control iwebbrowser2 в своём приложнии
|
|||
|---|---|---|---|
|
#18+
Я хочу невидимо контроллировать webbrowser control iwebbrowser2 в своём приложнии Как послать клик мыши в веббраузер, проблема в том что когда шлю sendmessage то он кликает если простоя страничка хтмл без iframe/frame. НА фрейм или ифрейм не кликает Помогите советом! Я не хочу парсить хтмл страницу и кликать так body.outerhtml, tagname ("A").click Private Sub Command2_Click() Dim lHandle As Long lHandle = GetHandle(ie) MsgBox lHandle SendClick lHandle, Val(Text2.Text), Val(Text3.Text) End Sub Public Sub SendClick(lnghWND As Long, X As Long, Y As Long) Dim lngResult As Long Dim lnglParam As Long lnglParam = (Y * &H10000) + X lngResult = SendMessage(lnghWND, WM_LBUTTONDOWN, 0&, ByVal lnglParam) lngResult = SendMessage(lnghWND, WM_LBUTTONUP, 0&, ByVal lnglParam) txtlog.Text = lnghWND & " " & X & " " & Y & vbCrLf & txtlog.Text End Sub Модератор: Одной темы вполне достаточно, не нужно размазывать один вопрос на несклько топиков. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.06.2007, 06:29 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=230&tid=2163867]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
57ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
50ms |
get tp. blocked users: |
1ms |
| others: | 240ms |
| total: | 399ms |

| 0 / 0 |
