Цитата DENoszone:
|
а может эта программа производить поиск по брауеру по открытой странице и нажимать на определыные фразы? »
|
Смотри в справке функцию
_IELinkClickByText().
Цитата DENoszone:
|
как добавить в скрипт что бы нажималась "Page Down" »
|
Код:
Send("{PGDN}")
Цитата DENoszone:
|
как сделать что бы последний клик в цикле все время изменялся +10 по Х »
|
Если я правильно тебя понял:
Код:
Opt("MouseClickDelay", 50) ;Задаём паузу между кликами мыши в 50 милисекунд
HotKeySet("{Esc}", "_Exit") ;задаём горячую клавишу (Escape) для завершения скрипта
Dim $plus = 0
Global $aMousePos[11][2] ;создаём двумерный массив
$aMousePos[0][0] = 10 ;указываем кол-во элементов
;Заполняем 0 размерность Х-координатами
$aMousePos[1][0] = 100
$aMousePos[2][0] = 200
$aMousePos[3][0] = 300
$aMousePos[4][0] = 400
$aMousePos[5][0] = 500
$aMousePos[6][0] = 600
$aMousePos[7][0] = 700
$aMousePos[8][0] = 800
$aMousePos[9][0] = 900
$aMousePos[10][0] = 1000
;Заполняем 1 размерность Y-координатами
$aMousePos[1][1] = 50
$aMousePos[2][1] = 100
$aMousePos[3][1] = 150
$aMousePos[4][1] = 200
$aMousePos[5][1] = 250
$aMousePos[6][1] = 300
$aMousePos[7][1] = 350
$aMousePos[8][1] = 400
$aMousePos[9][1] = 450
$aMousePos[10][1] = 500
;запускаем цикл
While 1
For $i = 1 To $aMousePos[0][0]
If $i = 10 Then
$plus += 10
MouseClick("left", $aMousePos[$i][0] + $plus, $aMousePos[$i][1]) ;последний клик в цикле все время изменяется +10 по Х
ContinueLoop
EndIf
MouseClick("left", $aMousePos[$i][0], $aMousePos[$i][1]) ;кликаем в 10 разных местах
Next
MouseClick("left", 10, 10, 1, 50) ;потом ещё в 1 месте :)
Sleep(50)
WEnd
Func _Exit()
$aMousePos = 0
Exit
EndFunc
