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

[havi]

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

 

[MnM]

havi
Покажите код, возможно требуется поставить паузы в циклах

 

[havi]

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]

:-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.

 

[inververs]

Dima1337 [?]

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

Избегайте таких циклов, каждый While желательно разружать паузой хотя бы в 100 мс, что бы не грузить проц.

 

[havi]

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

Разве с этим он не будет вызывать функциюкаждые 2с? То есть функция будет реагировать не мгновенно при появлении пикселя?

 

[---Zak---]

Моя версия:

Спойлер

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