killerganjubas Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 Решение со считыванием списков ЧС и т.п с гугл-таблицы: Скрытый текст 1. Из-за запрета возможности скачки файла не из-под авторизированного аккаунта лист нужно публиковать, ссылку из графы как обычно вставить в скрипт, обязательна галочка внизу чтобы лист после редактирования обновлялся. 1 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
killerganjubas Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 (изменено) 5 часов назад, PARTAIN сказал: Привет. Что-то случилось и используя того же попугая, если в слове присутствует буква "е", она заменяется на "Т" Скрытый текст Привет. Проверь чтобы в этих строках было только это и ничего больше, такого как: "StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, e, T, All" И код если не поможет: 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 Изменено 12 мая 2020 пользователем killerganjubas Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Koala Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 Привет всем, я немного переделал чужой скрипт, автора не знаю , для проверки армии онлайн. Список надо обновлять в текстовом файле. Для работы скрипта нужен 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 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
killerganjubas Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 (изменено) Ярым любителям подрочить на онлайн ПО посвящается: скрипт выводит онлайн ЛСПД/НГСА/ФБР по отдельности по команде /gostop :?:/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 Изменено 12 мая 2020 пользователем killerganjubas 4 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
PARTAIN Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 4 часа назад, killerganjubas сказал: Скрыть содержимое Привет. Проверь чтобы в этих строках было только это и ничего больше, такого как: "StringReplace, MY_REPEAT_STRING, MY_REPEAT_STRING, e, T, All" И код если не поможет: 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 Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 8 минут назад, PARTAIN сказал: Ничего не помогло, к сожалению Версия AHK? (cм. в разделе "Удалить или изменить программу") Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
PARTAIN Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 11 минуту назад, killerganjubas сказал: Версия AHK? (cм. в разделе "Удалить или изменить программу") 1.1.32.00 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
killerganjubas Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 (изменено) 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 Изменено 12 мая 2020 пользователем killerganjubas Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
PARTAIN Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 4 минуты назад, killerganjubas сказал: Попробуй 1.1.26.01, ибо там в 1.1.27.00(01) очень много "фиксов" https://github.com/Lexikos/AutoHotkey_L/releases/tag/v1.1.26.01 Безрезультатно Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
killerganjubas Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 32 минуты назад, PARTAIN сказал: Безрезультатно Я не понимаю в чем причина, как по мне это вообще не в АХК в дело Если уж совсем отчаишься я могу сделать чтобы Т обратно заменяло на е, без первой заглавной буквы Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
PARTAIN Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 34 минуты назад, killerganjubas сказал: Я не понимаю в чем причина, как по мне это вообще не в АХК в дело Если уж совсем отчаишься я могу сделать чтобы Т обратно заменяло на е, без первой заглавной буквы Если не сложно, давайте попробуем Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
killerganjubas Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 (изменено) 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 Изменено 12 мая 2020 пользователем killerganjubas Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Форд Опубликовано: 12 мая 2020 Поделиться Опубликовано: 12 мая 2020 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 3 Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Kangaroo Опубликовано: 12 мая 2020 Автор Поделиться Опубликовано: 12 мая 2020 6 часов назад, PARTAIN сказал: Если не сложно, давайте попробуем Можешь скинуть код бинда, который ты используешь? И когда возникла проблема, что-то поменялось у тебя в компе перед этим? Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Mr.Max Опубликовано: 15 мая 2020 Поделиться Опубликовано: 15 мая 2020 @Kangaroo Такая идея... Реализация обратного таймера. Тип кобра крадёт нарко у фбр, и не всегда удобно смотреть на время и думать скок осталось, и успеешь или нет. Так вот... Из этой строки " В течение 8 минут можете их использовать для кражи эликсира жизни!" начать обратный 8ми минутный таймер, ну и на клавишу нажимая показывает скок времени осталось до отказа доступа. Цитата Ссылка на комментарий Поделиться на других сайтах Больше способов поделиться...
Рекомендованные сообщения
Присоединяйтесь к обсуждению
Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.