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

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

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


Kangaroo

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

Решение со считыванием списков ЧС и т.п с гугл-таблицы:

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

1.y9NBPKV.png  1S7eOgh.png

 

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

 

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

5 часов назад, PARTAIN сказал:

Привет. Что-то случилось и используя того же попугая, если в слове присутствует буква "е", она заменяется на "Т"

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

 

Привет. Проверь чтобы в этих строках было только это и ничего больше, такого как: "StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, e, T, All"

isTcobt.png

И код если не поможет:


PgDn::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If A_LoopReadLine
MY_REPEAT_STRING := A_LoopReadLine
MY_CHATLOG := (A_Index-1)
}
StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All
Sendinput {f6}%MY_REPEAT_STRING%{home}
return
PgUp::
MY_CHATLOG -= 2
FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All
Sendinput ^{vk41}{del}%MY_REPEAT_STRING%{home}
return

Вот ещё два из личного архива Lewis Flow, а вдруг они удобнее ?


!F1::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    i=%A_Index%
}
FileReadLine, line, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, i-1
line:=stringformat(line)
sendinput, {F6}%line%{enter}
return

!F2::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    i=%A_Index%
}
FileReadLine, line, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, i-1
line:=stringformat(line)
IfInString, line, :
{
    RegExMatch(line,"\Q: \E(.*)",line)
    StringTrimLeft, line, line, 2
}
sendinput, {F6}%line%{enter}
return

!down::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    chatindex := A_Index
}
return

!right::
if !isinchat()
send, {f6}
chatindex += 1
FileReadLine, chatmessage, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, chatindex
if chatmessage not contains :
{
    chatindex +=1
    FileReadLine, chatmessage, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, chatindex
}
chatmessage := stringformat(chatmessage)
Send, {lctrl down}{vk41}{lctrl up}{delete}
sleep 20
sendinput, %chatmessage%{home}
return


 

 

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

Привет всем, я немного переделал чужой скрипт, автора не знаю , для проверки армии онлайн. Список надо обновлять в текстовом файле. Для работы скрипта нужен AHK UDF.

Сам скрипт:

 

Цитата

:?:/ngsa::
IfWinActive, GTA:SA:MP
{
    Sleep 850
    IniRead, path, settings.ini, main, PathToList, %A_WorkingDir%\ngsa.txt
    FileDelete %A_Temp%\ngsalist.txt
addMessageToChatWindow("{00FF00}Армия онлайн:")
    Loop, read, %path%
    {
        FileReadLine, ngsa, %path%, %A_Index%
        ngsaid := getPlayerIdByName(ngsa)
        if (ngsaid != "-1")
        {
            FileAppend, %ngsa%, %A_Temp%\ngsalist.txt
            FileAppend, %ngsa%, %A_Temp%\updcheck.txt
        addMessageToChatWindow("{FFFFFF}" ngsa "{87CEEB} (" ngsaid ")")
        }
    }
    FileRead, ngsa2, %A_Temp%\ngsalist.txt
    if (ngsa2 = "")
addMessageToChatWindow("{FFFFFF}Армия оффлайн")
}
return

 

Список армии (нужно закинуть в файл ngsa.txt), актуальный на 12.05.2020:

Цитата

Tomas_Silver	
Tom_Brick
Vanya_North	
Enot_Silver
Maks_Rapsody
Pool_Silver
Nicholas_Silver
Koba_Silver
Johny_Silver
Mr.Feniks_De_Gold
Shaman_Silver
Leshka_Tenpeny
Dmitriy_Silver
Lexa_North
Ronnie_Milton
Andruxa_Jonss
Alberto_Villa
Darius_Plomingo
Marcus_Mc.Tokio
James_Mc.Tokio
Mason_Mayer
Kirya_Silver
Squal_Tenpeny
Jeremy_Versetti
Salvador_Alvarez
Evgeniy_Giotte
Kiev_Stouner
Serejka_Constantine
Johnny_Makaveli
Barbos_Barbos
Scrowe_Ecje
Andres_Navarro
Roman_Mayer
Alessandro_Neymar
Mark_Grower
Alexandr_Mayer
Sebastian_White
Rud_Hess
Vittorio_Giotte 
Vistr_Flow
Tony_Giotte
Tago_Mayer
Berlino_Tenpeny
Dimka_Silver
Chrisman_Silver
Andrey_Giotte
Makc_Makarios
Nicholas_Vinchete 
Mark_Mayer
Seven_Silver
Jackson_Avery
Johny_Versetti
Emmanuel_Savedra
Eqzo_Anime
Arturo_Versetti
Karat_Uchiha
Julian_Armstrong
Molly_Johnson
Will_Villa
Carlos_Alvares
Eddie_Randlman
Evgeniy_Brover
Armando_Belucci
Neraze_Wayz
Pluxury_Wayz
Carolina_Tiamo
Sergei_White
Try_Messa
Jonny_Carver
Krate_Reyes
Zhenya_North
Eva_Schuldiner
Denis_Khorov
Big_Saymon

 

 

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

Ярым любителям подрочить на онлайн ПО посвящается: скрипт выводит онлайн ЛСПД/НГСА/ФБР по отдельности по команде /gostop

uX04pSD.png

 

:?:/gostop::
ngsa_online := 0
lspd_online := 0
fbi_online := 0
URLDownloadToFile, https://classic.rp-gameworld.ru/online/, %A_Temp%\online.txt
FileRead, siteisok, %A_Temp%\online.txt
If !RegExMatch(siteisok, "gameworld")
    return
Loop, read, %A_Temp%\online.txt
{
    If RegExMatch(A_LoopReadLine, "iS)/profile/(.*)/")
    {
        FileReadLine, fraction, %A_Temp%\online.txt, % A_Index+2
        RegExMatch(fraction, "<td>(.*)</td>", frac)
        If RegExMatch(frac1, "Los Santos Police Department")
            lspd_online++
        If RegExMatch(frac1, "Federal Bureau of Investigation")
            fbi_online++
        If RegExMatch(frac1, "National Guard of San Andreas")
            ngsa_online++
        fraction := ""
        frac1 := ""
    }
}
SendInput, {f6}/b ПО-ОНЛАЙН | LSPD: %lspd_online%; NGSA: %ngsa_online%; FBI: %fbi_online%{enter}
FileDelete, %A_Temp%\online.txt
return

 

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

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

 

Привет. Проверь чтобы в этих строках было только это и ничего больше, такого как: "StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, e, T, All"

isTcobt.png

И код если не поможет:



PgDn::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If A_LoopReadLine
MY_REPEAT_STRING := A_LoopReadLine
MY_CHATLOG := (A_Index-1)
}
StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All
Sendinput {f6}%MY_REPEAT_STRING%{home}
return
PgUp::
MY_CHATLOG -= 2
FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All
Sendinput ^{vk41}{del}%MY_REPEAT_STRING%{home}
return

Вот ещё два из личного архива Lewis Flow, а вдруг они удобнее ?



!F1::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    i=%A_Index%
}
FileReadLine, line, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, i-1
line:=stringformat(line)
sendinput, {F6}%line%{enter}
return

!F2::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    i=%A_Index%
}
FileReadLine, line, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, i-1
line:=stringformat(line)
IfInString, line, :
{
    RegExMatch(line,"\Q: \E(.*)",line)
    StringTrimLeft, line, line, 2
}
sendinput, {F6}%line%{enter}
return


!down::
loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
    chatindex := A_Index
}
return

!right::
if !isinchat()
send, {f6}
chatindex += 1
FileReadLine, chatmessage, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, chatindex
if chatmessage not contains :
{
    chatindex +=1
    FileReadLine, chatmessage, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, chatindex
}
chatmessage := stringformat(chatmessage)
Send, {lctrl down}{vk41}{lctrl up}{delete}
sleep 20
sendinput, %chatmessage%{home}
return

 

 

 

 

 

Ничего не помогло, к сожалению

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

8 минут назад, PARTAIN сказал:

Ничего не помогло, к сожалению

Версия AHK? (cм. в разделе "Удалить или изменить программу")

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

11 минуту назад, killerganjubas сказал:

Версия AHK? (cм. в разделе "Удалить или изменить программу")

1.1.32.00

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

5 минут назад, PARTAIN сказал:

1.1.32.00

Попробуй 1.1.26.01, ибо там в 1.1.27.00(.01) очень много "фиксов"

https://github.com/Lexikos/AutoHotkey_L/releases/tag/v1.1.26.01

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

4 минуты назад, killerganjubas сказал:

Попробуй 1.1.26.01, ибо там в 1.1.27.00(01) очень много "фиксов"

https://github.com/Lexikos/AutoHotkey_L/releases/tag/v1.1.26.01

Безрезультатно

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

32 минуты назад, PARTAIN сказал:

Безрезультатно

Я не понимаю в чем причина, как по мне это вообще не в АХК в дело

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

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

34 минуты назад, killerganjubas сказал:

Я не понимаю в чем причина, как по мне это вообще не в АХК в дело

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

Если не сложно, давайте попробуем

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

1 час назад, PARTAIN сказал:

Если не сложно, давайте попробуем

Долго ебался, если не поможет? - проблема не в обработке, а в выводе строки (что-то в винде мб стоит)

 

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

T_replacement(mystr)
{
	If RegExMatch(mystr, " ")
	{
		stringarray := StrSplit(mystr, A_Space)
		Loop, % stringarray.MaxIndex()
		{
			mystr := stringarray[A_Index]
			firstsymbol := SubStr(mystr, 1, 1)
			If (firstsymbol == "T")
			{
				StringTrimLeft, mystr, mystr, 1
				mystr := RegExReplace(mystr, "T", "e")
				notenou := "T" mystr ""
			}
			else
				notenou := RegExReplace(mystr, "T", "e")
			If (A_Index == stringarray.MaxIndex())
				outstring .= notenou
			else
				outstring .= "" notenou " "
		}
	}
	else
	{
		firstsymbol := SubStr(mystr, 1, 1)
		If (firstsymbol == "T")
		{
			StringTrimLeft, mystr, mystr, 1
			mystr := RegExReplace(mystr, "T", "e")
			outstring := "T" mystr ""
		}
		else
			outstring := RegExReplace(mystr, "T", "e")
	}
	return outstring
}

PgDn::
Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
{
If A_LoopReadLine
MY_REPEAT_STRING := A_LoopReadLine
MY_CHATLOG := (A_Index-1)
}
StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All
MY_REPEAT_STRING := T_replacement(MY_REPEAT_STRING)
Sendinput {f6}%MY_REPEAT_STRING%{home}
return
PgUp::
MY_CHATLOG -= 2
FileReadLine, MY_REPEAT_STRING, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt, %MY_CHATLOG%
StringTrimLeft, MY_REPEAT_STRING, MY_REPEAT_STRING, 11
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, !, {!}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, +, {+}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, #, {#}, All
StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, ^, {^}, All
MY_REPEAT_STRING := T_replacement(MY_REPEAT_STRING)
Sendinput ^{vk41}{del}%MY_REPEAT_STRING%{home}
return

 

 

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

10 hours ago, Koala said:

Привет всем, я немного переделал чужой скрипт, автора не знаю , для проверки армии онлайн

 

8 hours ago, killerganjubas said:

Ярым любителям подрочить на онлайн ПО посвящается: скрипт выводит онлайн ЛСПД/НГСА/ФБР по отдельности по команде /gostop

 

Выложу и свой вариантик тогда

!F4::
	try {
		http := ComObjCreate("WinHttp.WinHttpRequest.5.1")
		http.Open("GET", "https://classic.rp-gameworld.ru/online", false)
		http.Send()
		http.WaitForResponse()
		response := http.ResponseText()

		RegExReplace(response, "National Guard of San Andreas",, armyOnline, -1, 1)
		RegExReplace(response, "Los Santos Police Department",, lspdOnline, -1, 1)
		RegExReplace(response, "Federal Bureau of Investigation",, fbiOnline, -1, 1)
		total := armyOnline + lspdOnline + fbiOnline

		SendInput, {F6}NGSA: %armyOnline% | LSPD: %lspdOnline% | FBI: %fbiOnline% | Total: %total%
	} catch e {
		SendInput, {F6}Something went wrong
	}
return

 

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

6 часов назад, PARTAIN сказал:

Если не сложно, давайте попробуем

Можешь скинуть код бинда, который ты используешь? 
И когда возникла проблема, что-то поменялось у тебя в компе перед этим?

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

@Kangaroo Такая идея... Реализация обратного таймера. Тип кобра крадёт нарко у фбр, и не всегда удобно смотреть на время и думать скок осталось, и успеешь или нет. Так вот... Из этой строки " В течение 8 минут можете их использовать для кражи эликсира жизни!" начать обратный 8ми минутный таймер, ну и на клавишу нажимая показывает скок времени осталось до отказа доступа. 

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

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

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

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

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

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

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

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

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

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

    • Нет пользователей, просматривающих эту страницу.
×
×
  • Создать...