[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

HORRIBLE · Отправлено: **00:45, 15-03-2008** | #**251**

Клик происходит в Интернет экспловере. Что делаю загружаю страничку, после ее загрузки, раскрываю ее на полный экран.

Цитата Creat0R:

А где кликается, возможно проще кликать относительно окна?

А это как?

Тут Creat0R приводил пример кода чтоб отправить прогу в бесконечный сон. Вот такой вопросик, если есть несколько своих функций допустим:

_Fight()
_Health()
_Coin()
функия паузы, ее код

каким образом сделать чтобы пауза не включалась при работе допустим функции _Fight() даже если был нажат ESC и включалась только после отработки _Fight() .
Спасибо.

Creat0R · Конфигурация компьютера

HORRIBLE,

Цитата:

А это как?

Можно использовать ControlClick.. для IE (6.x) типичный контроль это «Internet Explorer_Server1», вот относительно ему можно попробовать кликать:

Код:

ControlClick("[CLASS:IEFrame]", "", "Internet Explorer_Server1", "Left", 1, 70, 225)

70 и 255 это координаты взятые с «AutoIt v3 Window Info Tool», из вкладки «Summary» у надписи “ControlClick Coords:”.

А вообще для IE есть библиотека #include <IE.au3>.

Цитата:

каким образом сделать чтобы пауза не включалась при работе допустим функции _Fight() даже если был нажат ESC и включалась только после отработки _Fight() .

Создать ещё одну глобальную переменную со значением False (допустим $Func_Started), в начале нужной функции присваивать этой переменной значение True и в конце False. А в функции паузы проверять это значение:

Код:

Global $Paused          = False
Global $Func_Started    = False

HotKeySet("{ESC}", "ToggleScriptPause")

;;;;

Func ToggleScriptPause(); пауза
    If $Func_Started Then Return ;Если наша функция работает, значит завершаем эту функцию.

    $Paused = Not $Paused

    Local $iOpt_GOEM = Opt("GuiOnEventMode", 1)
    If $iOpt_GOEM = 1 Then Opt("GuiOnEventMode", 0)

    While $Paused
        Sleep(100)
    WEnd
EndFunc

Func _Fight()
    $Func_Started = True

    ;Тут содержимое нашей функции

    $Func_Started = False
EndFunc

Func _Health()
    $Func_Started = True

    ;Тут содержимое нашей функции

    $Func_Started = False
EndFunc

Func _Coin()
    $Func_Started = True

    ;Тут содержимое нашей функции

    $Func_Started = False
EndFunc

DENoszone · Отправлено: **14:55, 15-03-2008** | #**253**

у меня запускается IE не в полное окно? как сделать что бы в полное?

Maza Faka · Отправлено: **15:37, 15-03-2008** | #**254**

DENoszone

Цитата:

у меня запускается IE не в полное окно? как сделать что бы в полное?

Можно так:

Код:

#include <IE.au3>
$oIE = _IECreate("http://forum.oszone.net", 0, 1, 0)
WinWait("[Class:IEFrame]")
WinSetState("[Class:IEFrame]", "", @SW_MAXIMIZE)
_IELoadWait($oIE)

DENoszone · Отправлено: **15:58, 15-03-2008** | #**255**

можно как то код

Код:

 _IEQuit($oIE)
    _IEQuit($oIE_2)

сделать что бы закрывались все окна...или хотя бы текущее

HORRIBLE · Отправлено: **17:20, 15-03-2008** | #**256**

DENoszone
чтобы закрыть вообще все окна IE:

PHP код:


$list = ProcessList("iexplore.exe")

for $i = 1 to $list[0][0]

  ProcessClose($list[$i][1])

next

in-com · Отправлено: **19:19, 15-03-2008** | #**257**

Привет всем!
У меня 2 вопросика:
Как можно запустить изображение без границ, и автоматически активировать всплывающее окно в трее.
Вроде все. Заранее спасибо.

-AleX- · Отправлено: **19:59, 15-03-2008** | #**258**

Подскажите, как можно решить проблему вставки цифр из формы excel в программу стороннего производства. При этом количество цифр в строке excel необходимое для переноса всегда постоянное, количество строк - разное.
Делаю следующим образом

Код:

$n = InputBox("Внимание!", "Какое количество строк необходимо заполнить?", 0, "", 150, 140)  
If $n = 0 
Then      
Exit  
EndIf  
$i = 0  
Do  $i = $i + 1  
; ячейка 1  
WinActivate ("Microsoft Excel - Книга1")  
WinWaitActive ("Microsoft Excel - Книга1")  
Send ("^{insert}" & "{right}")  
WinActivate ("Форма")  
WinWaitActive ("Форма")  
Send ("{space}" & "^v" & "{bs}{enter}")  
; ячейка 2  
WinActivate ("Microsoft Excel - Книга1")  
WinWaitActive ("Microsoft Excel - Книга1")  
Send ("^{insert}" & "{right}")  
WinActivate ("Форма")  
WinWaitActive ("Форма")  
Send ("{space}" & "^v" & "{bs}{enter}")  
; ячейка 3
  ...    
Until $i = $n

Но таким способом получается слишком долго!
Если бы скопировать всю строку (или диапазон) в excel'е, то получилось бы быстрее, но при копировании строки в буфере обмена строка содержится в следующем формате ->
'10,3 23,4 110,4 34,8'
с пробелами между цифрами и одинарными скобками в начале и конце.
Так вот есть ли способ вставлять попеременно из буфера обмена поочередно цифры 10,3 затем 23,4 и т.д. и чтобы не вставлялись одинарные скобки???

Котяра · Конфигурация компьютера

Creat0R, о чем я и говорю. taskkill убивает процесс,

Цитата Creat0R:

т.е не вызывает никаких параметров зарытия для самого процесса. »

ProcessClose закрывает процесс

Цитата Creat0R:

точно также как он сам закрывается при сбое »

Maza Faka · Отправлено: **07:26, 16-03-2008** | #**260**

DENoszone, HORRIBLE

Цитата:

сделать что бы закрывались все окна

Быстрее будет без использования массива:

Код:

Do
    WinClose("[Class:IEFrame]")
Until Not WinExists("[Class:IEFrame]")

Цитата in-com:

Как можно запустить изображение без границ, и автоматически активировать всплывающее окно в трее. »

Код:

#include <GuiConstants.au3>

$hGUI = GUICreate("Test GUI", 300, 200, -1, -1, $WS_POPUP)

$hPic = GUICtrlCreatePic(@SystemDir & "\setup.bmp", 0, 0, 300, 200)
GUICtrlSetState(-1, $GUI_DISABLE)

GUISetState()

TrayTip("Message", "TrayTip", 1)

Do
Until GUIGetMsg() = -3