Что нового

Обьединение 2 кодовов в 1

winstan

Эксплотатор)
Сообщения
406
Репутация
78
вот 2 кода
1 код (отвечает за переключение между мобами)
Код:
#RequireAdmin


MsgBox(4096, "Старт", "бла-бла-бла")
Sleep(3000)
$hWnd1 = _ProcessGetWindow("Nksp.exe")
Opt("PixelCoordMode", 2)
WinActivate($hWnd1)
Sleep(500)
$xa = "680"
$ya = "15"
$bazaa = PixelGetColor($xa, $ya)
MsgBox(4096, "Стат", "бла-бла-бла - 2!")
While 1
	$hila = PixelGetColor($xa, $ya)
	If $hila = $bazaa Then
		ControlSend($hWnd1, "", "", "{TAB}")
		Sleep(100)
	Else
		ControlSend($hWnd1, "", "", "{5}")
	Sleep(1000)
	EndIf
WEnd


Func _ProcessGetWindow($iPID, $iRet = 1)
	Local $aWinList = WinList()
	Local $aRet[2]

	If IsString($iPID) Then
		$iPID = ProcessExists($iPID)
	EndIf

	For $i = 1 To UBound($aWinList) - 1
		If WinGetProcess($aWinList[$i][1]) = $iPID Then
			$aRet[0] = $aWinList[$i][0] ;Title
			$aRet[1] = $aWinList[$i][1] ;WinHandle

			If $iRet = 0 Then
				Return $aRet[0]
			EndIf

			If $iRet = 1 Then
				Return $aRet[1]
			EndIf

			Return $aRet
		EndIf
	Next

	Return SetError(1, 0, $aRet)
EndFunc   ;==>_ProcessGetWindow


2 код отвечает за само лечение
Код:
#RequireAdmin

MsgBox(4096, "Старт", "бла-бла-бла")
Sleep(3000)
$hWnd1 = _ProcessGetWindow("Nksp.exe")
Opt("PixelCoordMode", 2)
WinActivate($hWnd1)
Sleep(500)
$x = "680"
$y = "15"
$bazaa = PixelGetColor($x, $y)
MsgBox(4096, "Стат", "бла-бла-бла - 2!")
While 1
	$hil = PixelGetColor($x, $y)
	If $hil = $baza Then
	Else
		ControlSend($hWnd1, "", "", "{7}")
		Sleep(15000)
	EndIf
WEnd

Func _ProcessGetWindow($iPID, $iRet = 1)
	Local $aWinList = WinList()
	Local $aRet[2]

	If IsString($iPID) Then
		$iPID = ProcessExists($iPID)
	EndIf

	For $i = 1 To UBound($aWinList) - 1
		If WinGetProcess($aWinList[$i][1]) = $iPID Then
			$aRet[0] = $aWinList[$i][0] ;Title
			$aRet[1] = $aWinList[$i][1] ;WinHandle

			If $iRet = 0 Then
				Return $aRet[0]
			EndIf

			If $iRet = 1 Then
				Return $aRet[1]
			EndIf

			Return $aRet
		EndIf
	Next

	Return SetError(1, 0, $aRet)
EndFunc   ;==>_ProcessGetWindow



хотелось бы узнать как их можно обьеденить в 1 код?
ну или обьедините за меня ;)

ну если кому интересно то это для игры
Last Chaos
http://www.lcgame.ru/
 

maxsever

Новичок
Сообщения
3
Репутация
0
Привет, можно пару вопросов?

1. Опиши работу функции - Func _ProcessGetWindow($iPID, $iRet = 1)
2. насколько стабильно у тебя работает лечение перса? у меня чуток другой код, и стабильности не наблюдаю и близко.

Вот вечером попробую по твоему методу сварганить.

Заранее спасибо.
 

Belfigor

Модератор
Локальный модератор
Сообщения
3 591
Репутация
938
OffTopic:
не прошло и года
 
Автор
winstan

winstan

Эксплотатор)
Сообщения
406
Репутация
78
Я уже както очень далековато ушол от этого скрипта))))Belfigor
ну ещёб чучуть и прошол


Добавлено:
Сообщение автоматически объединено:

Вапще у меня всё работает на ура) всё лето проботил
сейчас 134 лвл, правда словил бан за спидхак но уже разбанился)
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
winstan
раз уж ты тут, то
{CodeWarn}
 
Верх