winstan
Эксплотатор)
- Сообщения
- 406
- Репутация
- 79
вот 2 кода
1 код (отвечает за переключение между мобами)
2 код отвечает за само лечение
хотелось бы узнать как их можно обьеденить в 1 код?
ну или обьедините за меня ;)
ну если кому интересно то это для игры
Last Chaos
http://www.lcgame.ru/
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/