Что нового

Обьединение 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,603
Репутация
941
OffTopic:
не прошло и года
 
Автор
winstan

winstan

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


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

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

kaster

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