Что нового

При запуске скрипта компьютер начинает вести себя неадекватно

havi

Новичок
Сообщения
30
Репутация
1
При запуске 2х или более скриптов, окна перестают сворачиваться, начинают дико лагать и нельзя их переместить.
Скрипты все одинаковые - на проверку цвета и на нажатие определённой кнопки.
Может было у кого? Вообще понять не могу в чём проблема
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
havi
Покажите код, возможно требуется поставить паузы в циклах
 
Автор
H

havi

Новичок
Сообщения
30
Репутация
1
Код:
HotKeySet('{F6}', '_Exit')
While 1
$may = PixelSearch( 99, 67, 99, 67, 0xFFFFDE)
$hWnd = WinWait("World of Warcraft")
$i=0
If IsArray($may) and $hWnd Then
While $i <= 5
Send ("9")
Sleep (200)
$i=$i+1
$pet = PixelSearch( 594, 649, 594, 649, 0xE7AB8E)
if @error Then ExitLoop
WEnd
EndIf
WEnd

Func _Exit()
    Exit
EndFunc
 

Dima1337

Осваивающий
Сообщения
186
Репутация
24
:-X Воспользуйтесь этим:
Код:
Global $hWnd1 = WinGetHandle("World of Warcraft") ;Это нужно для ControlSend

AdlibRegister(_heal1,2000);Вот это цикл на 2 секунды для Функции _heal1
AdlibRegister(_heal2,2000);Вот это цикл на 2 секунды для Функции _heal2

HotKeySet('{F6}', '_Exit')

While 1
   ToolTip("Проверка хр включена",0,0)
WEnd

Func _heal1()
   $i_am = PixelSearch( 99, 67, 99, 67, 0xFFFFDE)
   If Not @error Then
	  ControlSend($hWnd1, "","", "{5}") ;Вот тут от жмет 5 когда находит пиксель
	  Sleep(1000)
   Else
      ;................ Вот тут он будет жать если не находит.
	  Return
   EndIf
EndFunc

Func _heal2()
   $Pet = PixelSearch( 594, 649, 594, 649, 0xE7AB8E)
   If Not @error Then
	  ControlSend($hWnd1, "","", "{6}") ;Вот тут от жмет 6 когда находит пиксель
	  Sleep(1000)
   Else
	  ;................ Вот тут он будет жать если не находит.
	  Return
   EndIf
EndFunc

Func _Exit()
    Exit
 EndFunc

И воздержитесь от запуска нескольких скриптов. Лучше напрячь голову и написать 1.
 
Автор
H

havi

Новичок
Сообщения
30
Репутация
1
Код:
AdlibRegister(_heal1,2000);Вот это цикл на 2 секунды для Функции _heal1
Разве с этим он не будет вызывать функциюкаждые 2с? То есть функция будет реагировать не мгновенно при появлении пикселя?
 

---Zak---

Скриптер
Сообщения
455
Репутация
120
Моя версия:

Код:
HotKeySet('{F6}', '_Exit')

Func _Exit()
    Exit
EndFunc

While 1 ;~ бесконечный цикл
	$hWnd = WinWaitActive("World of Warcraft", "", 5) ;~ Ждем активное окно 5 сек
	If $hWnd Then ;~ Окно есть 
		$May = PixelSearch( 99, 67, 99, 67, 0xFFFFDE) ;~ ищем пиксель
		If Not @error Then ;~ нашли пиксель
			For $i = 0 To 5 ;~ цикл от 0 до 5
				Send ("9") ;~ отправили кнопку "9"
				Sleep(500)  ;~ слип 500 мс
				$Pet = PixelSearch( 594, 649, 594, 649, 0xE7AB8E) ;~ ищем пиксель
				If @error Then ;~ если пискеля нет
					ExitLoop 1 ;~ то выходим из цикла
				EndIf
			Next
		EndIf
	EndIf
	Sleep(500) ;~ слип 500 мс
WEnd
 
Верх