Перейти к публикации

Добро пожаловать на форум проекта RP GameWorld!

[AHK] Полезные бинды


Kangaroo

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

1 час назад, Bosco сказал:
  Скрыть содержимое

 Проверка на наличие игрока в БД, не сворачивая игру.

Кривой походу :( Засунула в свой бинд и файл удалился безвозвратно почему-то

Не нашёл ошибок, удаления и близко нигде нет

Если файлик дорог - восстановить через Recuva

Ссылка на комментарий
Поделиться на других сайтах

2 часа назад, Bosco сказал:
  Скрыть содержимое

 Проверка на наличие игрока в БД, не сворачивая игру.

Кривой походу :( Засунула в свой бинд и файл удалился безвозвратно почему-то

У меня иногда антивирус удаляет АХК, посмотри в карантине и восстанови оттуда)

Ссылка на комментарий
Поделиться на других сайтах

26 минут назад, Koala сказал:

У меня иногда антивирус удаляет АХК, посмотри в карантине и восстанови оттуда)

Нашла)

Ссылка на комментарий
Поделиться на других сайтах

Все правильно сделала?

Скрытый текст

SendInput /Проверить на СУ:{space}
Input, MY_INPUT, V, {enter}
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://docs.google.com/spreadsheets/d/1thNVLXa0t4J-U_6U9vJvyQ2bNAjMYm1CK1aMKDtnYoA/edit#gid=0", true)
whr.Send()
whr.WaitForResponse()
MY_BLACKLIST := whr.ResponseText
sleep 200
If MY_INPUT is number
{
    sleep 900
    SendInput {f6}/lvl %MY_INPUT%{enter}
    sleep 300
    Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
        IfInString, A_LoopReadLine, ] ID: (
        {
        FoundPos := RegExMatch(A_LoopReadLine, "\) (.*);", MY_NAME)
        MY_INPUT := MY_NAME1
        }
}
IfInString, MY_BLACKLIST, %MY_INPUT%
    SendInput {f6}%MY_INPUT% находится в Списке уволенных^{vk41}
else
    SendInput {f6}%MY_INPUT% не состоит в Списке Уволенных^{vk41}
MY_BLACKLIST :=
MY_NAME1 :=
return

ссылка на список уволенных

чс

Скрытый текст

:?:/ЧС::
SendInput /Проверить на ЧС:{space}
Input, MY_INPUT, V, {enter}
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://docs.google.com/spreadsheets/d/1thNVLXa0t4J-U_6U9vJvyQ2bNAjMYm1CK1aMKDtnYoA/edit#gid=1707384166", true)
whr.Send()
whr.WaitForResponse()
MY_BLACKLIST := whr.ResponseText
sleep 200
If MY_INPUT is number
{
    sleep 900
    SendInput {f6}/lvl %MY_INPUT%{enter}
    sleep 300
    Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
        IfInString, A_LoopReadLine, ] ID: (
        {
        FoundPos := RegExMatch(A_LoopReadLine, "\) (.*);", MY_NAME)
        MY_INPUT := MY_NAME1
        }
}
IfInString, MY_BLACKLIST, %MY_INPUT%
    SendInput {f6}%MY_INPUT% находится в черном списке^{vk41}
else
    SendInput {f6}%MY_INPUT% не состоит в черном списке^{vk41}
MY_BLACKLIST :=
MY_NAME1 :=
return

ссылка

 

Ссылка на комментарий
Поделиться на других сайтах

52 минуты назад, Bosco сказал:

Все правильно сделала?

  Скрыть содержимое

SendInput /Проверить на СУ:{space}
Input, MY_INPUT, V, {enter}
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://docs.google.com/spreadsheets/d/1thNVLXa0t4J-U_6U9vJvyQ2bNAjMYm1CK1aMKDtnYoA/edit#gid=0", true)
whr.Send()
whr.WaitForResponse()
MY_BLACKLIST := whr.ResponseText
sleep 200
If MY_INPUT is number
{
    sleep 900
    SendInput {f6}/lvl %MY_INPUT%{enter}
    sleep 300
    Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
        IfInString, A_LoopReadLine, ] ID: (
        {
        FoundPos := RegExMatch(A_LoopReadLine, "\) (.*);", MY_NAME)
        MY_INPUT := MY_NAME1
        }
}
IfInString, MY_BLACKLIST, %MY_INPUT%
    SendInput {f6}%MY_INPUT% находится в Списке уволенных^{vk41}
else
    SendInput {f6}%MY_INPUT% не состоит в Списке Уволенных^{vk41}
MY_BLACKLIST :=
MY_NAME1 :=
return

ссылка на список уволенных

чс

  Скрыть содержимое

:?:/ЧС::
SendInput /Проверить на ЧС:{space}
Input, MY_INPUT, V, {enter}
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", "https://docs.google.com/spreadsheets/d/1thNVLXa0t4J-U_6U9vJvyQ2bNAjMYm1CK1aMKDtnYoA/edit#gid=1707384166", true)
whr.Send()
whr.WaitForResponse()
MY_BLACKLIST := whr.ResponseText
sleep 200
If MY_INPUT is number
{
    sleep 900
    SendInput {f6}/lvl %MY_INPUT%{enter}
    sleep 300
    Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
        IfInString, A_LoopReadLine, ] ID: (
        {
        FoundPos := RegExMatch(A_LoopReadLine, "\) (.*);", MY_NAME)
        MY_INPUT := MY_NAME1
        }
}
IfInString, MY_BLACKLIST, %MY_INPUT%
    SendInput {f6}%MY_INPUT% находится в черном списке^{vk41}
else
    SendInput {f6}%MY_INPUT% не состоит в черном списке^{vk41}
MY_BLACKLIST :=
MY_NAME1 :=
return

ссылка

 

Нет. БД должна быть залита в сыром виде, т.е. только текст.

github, pastebin (raw режим) в помощь.

Ссылка на комментарий
Поделиться на других сайтах

Бинд по ключевой фразе перекидывает в папку назначения абсолютно все скрины, помогите

~F8::
sleep 3000

Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    MY_CHATLOG = %A_Index%
    IfInString, A_LoopReadLine, {88AA62}Скриншот сохранен {FFA500}
        MY_SCREENSHOT := A_LoopReadLine
}
MY_CHATLOG := (MY_CHATLOG - 20)

FoundPos := RegExMatch(MY_SCREENSHOT, "{88AA62}Скриншот сохранен {FFA500}(.*) {88AA62}(нажмите {FFA500}ПКМ -> Скриншоты {88AA62}на иконке лаунчера в трее) {88AA62}", MY_SCREENSHOT)
loop 20
{
    FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
    MY_CHATLOG +=1
    
    IfInString, MY_REPEAT_STRING, ] * Вы арестовали
        FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Аресты


    IfInString, MY_REPEAT_STRING, азаза
        FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Опра
        
}
Return

 

Ссылка на комментарий
Поделиться на других сайтах

Скрытый текст

 

12 минуты назад, a_bianco сказал:

Бинд по ключевой фразе перекидывает в папку назначения абсолютно все скрины, помогите



~F8::
sleep 3000

Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    MY_CHATLOG = %A_Index%
    IfInString, A_LoopReadLine, {88AA62}Скриншот сохранен {FFA500}
        MY_SCREENSHOT := A_LoopReadLine
}
MY_CHATLOG := (MY_CHATLOG - 20)

FoundPos := RegExMatch(MY_SCREENSHOT, "{88AA62}Скриншот сохранен {FFA500}(.*) {88AA62}(нажмите {FFA500}ПКМ -> Скриншоты {88AA62}на иконке лаунчера в трее) {88AA62}", MY_SCREENSHOT)
loop 20
{
    FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
    MY_CHATLOG +=1
    
    IfInString, MY_REPEAT_STRING, ] * Вы арестовали
        FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Аресты


    IfInString, MY_REPEAT_STRING, азаза
        FileCopy, %A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\%MY_SCREENSHOT1%,%A_MyDocuments%\GTA San Andreas User Files\SAMP\screens\Опра
        
}
Return

 

 

Псевдо-выводы текстовых подсказок с цветовыми кодами работать без вызова функции не могут.

Думаю это кусок кода, никак не полный код. Все проверки на совпадения в строке используют эти псевдо-выводы.

Изменено пользователем killerganjubas
Ссылка на комментарий
Поделиться на других сайтах

В чём проблема использовать на 1й странице — Распределение скриншотов по папкам для написания отчетов? Там же все идеально работает

Ссылка на комментарий
Поделиться на других сайтах

45 минут назад, a_bianco сказал:

FoundPos := RegExMatch(MY_SCREENSHOT, "{88AA62}Скриншот сохранен {FFA500}(.*) {88AA62}(нажмите {FFA500}ПКМ -> Скриншоты {88AA62}на иконке лаунчера в трее) {88AA62}", MY_SCREENSHOT)

Ошибка, скорее всего, в этой строке. Откуда этот текст? На ГВ изменилось сообщение при создании скриншота?

Ссылка на комментарий
Поделиться на других сайтах

Только что, a_bianco сказал:

К сожалению, да сообщение при создании скриншота изменилось, так как играю в CR-MP на лаунчере GTA RP

Скинь мне строку из чатлога, когда скриншот делаешь.

 

Только что, Mr.Max сказал:

Кен вернулся в свой топик :D

Иногда поглядываю)

Ссылка на комментарий
Поделиться на других сайтах

2 минуты назад, Kangaroo сказал:

Скинь мне строку из чатлога, когда скриншот делаешь.

 

Иногда поглядываю)

https://imgur.com/a/coUrZ9t
Из чат лога и из игры на всякий случай

Ссылка на комментарий
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.

Гость
Ответить в теме...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

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

×
×
  • Создать...