Трейнер для GTA: San Andreas

[_Мика_]

Какая то фигня....сделал чтоб деньги изменялись-это нормально работает, ну там через память изменять....

А вот обычные коды не хочет в прошлых верчиях SendKeys работал а щас...увы нет....как надо сделать чтоб все работало?

[uhm]

Э-э-э... *шепотом*: а у тебя есть San-Andreas???

[_Мика_]

*да* а что? официальный релиз 7ого

[uhm]

... я отстал от жизни ...

[_Мика_]

Ни кто подобного не делал?

[Tin]

Я тоже не слышал, что он вышел

[Павлуша]

я видел, но 10-го...
_Мика_ не мог бы ты мне системные требования написать???

[_Мика_]

http://gta.ag.ru/sa/info/faq/tech/
А вообще, всем кто не верит...
http://www.ag.ru/geo/13490

И вообще www.ag.ru рулит! (ЭТО НЕ РЕКЛАМА.... )

[A.A.Z.]

Трейнеры сакс Сначала надо игру пройти, а потом уже пытаться что-то поменять А проходить с кодами - это ацтой

[_Мика_]

Трейнеры сакс Сначала надо игру пройти, а потом уже пытаться что-то поменять А проходить с кодами - это ацтой

С этим согласен, но ГТА это отдельный случай!!!

[Павлуша]

Дааа... мне о Сан-Андреас только мечтать...
с её требованиями и моей конфигурацией...
она под Линух идет или как?

[A.A.Z.]

Кхм Ты бы еще спросил, пойдет ли ВБ на ПлейСтейшене

[A.A.Z.]

А по поводу трейнера - поробуй через keybd_event посылать

[_Мика_]

А по поводу трейнера - поробуй через keybd_event посылать

Точняк....ща попробую....

[ALX_2002]

Вот чего у меня получилось
Пашет класно.

Код: Выделить всё

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Sub Main()
Do

If GetKey(vbKeyF2) Then
ENTER_CODE ("HESOYAM")
End If

Sleep 2
DoEvents
Loop
End Sub

Sub ENTER_CODE(CODE As String)
For n = 1 To Len(CODE)
HoldKey (Asc(Mid(CODE, n, 1))), True
HoldKey (Asc(Mid(CODE, n, 1))), False
Next
End Sub

Sub HoldKey(KEY As Long, ENABLE As Boolean)
If ENABLE Then
Call keybd_event(KEY, 0, 0, 0)
Sleep 50
Else
Call keybd_event(KEY, 0, &H2, 0)
End If
End Sub

Function GetKey(VKEY) As Boolean
If GetKeyState(VKEY) = -127 Or GetKeyState(VKEY) = -128 Then GetKey = True
End Function

[_Мика_]

СПАСИБО БРАТАН!!!!!!!

[_Мика_]

Вот Бета версия!

[ALX_2002]

2 _Мика_: Всегда пжалста . А почему у тебя то не работало ?

[_Мика_]

А у меня HOLD'а не было

[ALX_2002]

HOLD-а ?? Эт ж просто самодельный SUB с нажатием и отпусканием клавиши... хм.. Чё то я не понял . Ну да ладно. Раз пашет, то гуд

[_Мика_]

Ну в том то и дело....HOLD он зажимает клавишу, а потом отпускает....вот этого у меня и не было

[GAGArin]

Таких нужных функций в тренерах еще не видел сегодня вечером/ночью проверю, выложу впечатления.
Я так понимаю он на стандартных кодах в основном?

[_Мика_]

Да....я еще добавлю деньги, они будут не через код, а через память изменяться

[ALX_2002]

А я себе сделал ещё и код для тренировки

У меня по нажати на 4 - генерится нажатие КЛИК + ПРОБЕЛ

Терь 4 - ку нажал и сиди жди - пока он качается Удоообно

[_Мика_]

А я себе сделал ещё и код для тренировки

У меня по нажати на 4 - генерится нажатие КЛИК + ПРОБЕЛ

Терь 4 - ку нажал и сиди жди - пока он качается Удоообно

ЧИТЕР!

[ALX_2002]

Сама такая