[Помощь] AHK + гугл документы

Balast · 18 Апр 2017

Помогите как убрать привязку со скрипта которой дает доступ к пользованию скрипту только тем кто есть в списке гугл документы?

quattroxd · 19 Апр 2017

Код:

F1::
ShowDialog("0", "Команды и горячие клавиши скрипта","{FFD700}/fa {40E0D0}- {ADD8E6}Список 13+ ЛВА/СФА и 6+ ФБР онлайн`n{FFD700}/vo [0-999] {40E0D0}- {ADD8E6}проверка наличия бойца в списке состава ВО`n{FFD700}/sobr [0-999] {40E0D0}- {ADD8E6}проверка наличия бойца в списке состава СОБР`n{FFD700}/com [0-999] {40E0D0}- {ADD8E6}проверка наличия бойца в списке общего состава РВР/ПАТ СФА и комендатуры ЛВА", "Закрыть")
Return
#SingleInstance force
:?:/fa::
sleep 200
File = %A_ScriptDir%\Komendant.txt
FileDelete, %File%
FileEncoding, UTF-8-RAW
FileRead, text, %File%
FileDelete, %File%
name:=getUsername()
FileEncoding, UTF-8-RAW
UrlDownloadToFile, https://docs.google.com/spreadsheets/d/17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA/export?format=csv&id=17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA&gid=0, %A_ScriptDir%\Komendant.txt
FileRead, text, %File%
FileDelete, %File%
Loop, parse, text, `n, `r
if RegExMatch(A_LoopField, "([A-Z][a-z]*?\s[A-Z][a-z]*[a-z])", SubPat)
loop 1000
{
    id:=A_Index-1
    name:=getPlayerNameById(id)
    StringReplace, name, name, _, %A_SPACE%, All
    if (name==SubPat1)
    {
    kuku:=RegExReplace(A_LoopField, "\,", "{F5F5F5} [" id "]{778899}. Кто это: {F5FFFA}")
    AddMessageToChatWindow("{00FF00} " kuku)
        s:=s+1
        break
    }
}
addChatMessage("{FFFF00}" "Проверка завершена.")
return
:?:/аф::
sleep 200
File = %A_ScriptDir%\Komendant.txt
FileDelete, %File%
FileEncoding, UTF-8-RAW
UrlDownloadToFile, https://docs.google.com/spreadsheets/d/17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA/export?format=csv&id=17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA&gid=1251949369, %A_ScriptDir%\Komendant.txt
FileRead, text, %File%
FileDelete, %File%
name:=getUsername()
if not RegExMatch(text, "s).*" name)
{
AddMessageToChatWindow("{FF0000} Ты не имеешь доступа, поэтому скрипт будет удален с твоего компьютера!")
    #Persistent
    Run %comspec% /c timeout /t 3 && del "%A_ScriptFullPath%",, hide
    ExitApp
}
FileEncoding, UTF-8-RAW
UrlDownloadToFile, https://docs.google.com/spreadsheets/d/17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA/export?format=csv&id=17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA&gid=0, %A_ScriptDir%\Komendant.txt
FileRead, text, %File%
FileDelete, %File%
Loop, parse, text, `n, `r
if RegExMatch(A_LoopField, "([A-Z][a-z]*?\s[A-Z][a-z]*[a-z])", SubPat)
loop 1000
{
    id:=A_Index-1
    name:=getPlayerNameById(id)
    StringReplace, name, name, _, %A_SPACE%, All
    if (name==SubPat1)
    {
    kuku:=RegExReplace(A_LoopField, "\,", "{F5F5F5} [" id "]{778899}. Кто это: {F5FFFA}")
    AddMessageToChatWindow("{00FF00} " kuku)
        s:=s+1
        break
    }
}
addChatMessage("{FFFF00}" "Проверка завершена.")
return
$~Enter::
if(!checkHandles())
return
LastLine:=GetChatText()
if (lastLine==-1)
return
if (RegExMatch(lastLine, "^\/vo\s(\d+)$", id) or RegExMatch(lastLine, "^\/мщ\s(\d+)$", id))
{
    NameWantedPlayer:=getPlayerNameById(id1)
    StringReplace, NameWantedPlayer, NameWantedPlayer, _, %A_SPACE%, All
    sleep 200
    File = %A_ScriptDir%\Komendant.txt
    FileDelete, %File%
    FileEncoding, UTF-8-RAW
    UrlDownloadToFile, https://docs.google.com/spreadsheets/d/17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA/export?format=csv&id=17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA&gid=1251949369, %A_ScriptDir%\Komendant.txt
    FileRead, text, %File%
    FileDelete, %File%
    name:=getUsername()
    if not RegExMatch(text, "s).*" name)
    {
    AddMessageToChatWindow("{FF0000} Ты не имеешь доступа, поэтому скрипт будет удален с твоего компьютера!")
        #Persistent
        Run %comspec% /c timeout /t 3 && del "%A_ScriptFullPath%",, hide
        ExitApp
    }
    UrlDownloadToFile, https://docs.google.com/spreadsheets/d/1ndYKrQKxmMAK2huo_hMs6bNb7i39frUEjTwDsqUkvrg/pubhtml#, %A_ScriptDir%\VO.txt
    File = %A_ScriptDir%\VO.txt
    FilePath = %A_ScriptDir%\VO.txt
    FileRead, text, %File%
    s:=0
    text:=RegExReplace(text, "\<.*?\>")
text:=RegExReplace(text, "s)\{.*?\}")
    text:=RegExReplace(text, "s).*Форма\sдля\sотметок3")
    text:=RegExReplace(text, "s)Утренняя\sотметка.*")
    FileDelete %File%
    if RegExMatch(text, NameWantedPlayer)
addChatMessage("{EEA2AD}" " " NameWantedPlayer " числится во взводе обеспечения.")
    else
addChatMessage("{FF0000}" " Бойца по имени " NameWantedPlayer " нет в составе взвода обеспечения.")
}
if (RegExMatch(lastLine, "^\/sobr\s(\d+)$", id) or RegExMatch(lastLine, "^\/ыщик\s(\d+)$", id))
{
    NameWantedPlayer:=getPlayerNameById(id1)
    StringReplace, NameWantedPlayer, NameWantedPlayer, _, %A_SPACE%, All
    sleep 200
    File = %A_ScriptDir%\Komendant.txt
    FileDelete, %File%
    FileEncoding, UTF-8-RAW
    UrlDownloadToFile, https://docs.google.com/spreadsheets/d/17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA/export?format=csv&id=17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA&gid=1251949369, %A_ScriptDir%\Komendant.txt
    FileRead, text, %File%
    FileDelete, %File%
    name:=getUsername()
    if not RegExMatch(text, "s).*" name)
    {
    AddMessageToChatWindow("{FF0000} Ты не имеешь доступа, поэтому скрипт будет удален с твоего компьютера!")
        #Persistent
        Run %comspec% /c timeout /t 3 && del "%A_ScriptFullPath%",, hide
        ExitApp
    }
    FileEncoding, UTF-8-RAW
    UrlDownloadToFile, https://docs.google.com/spreadsheets/d/1WIPOGLsqIhxY0XxcWgNDWYdo3Gnf0A-1OD6pWd7pcEo/pubhtml, %A_ScriptDir%\SOBR.txt
    File = %A_ScriptDir%\SOBR.txt
    FilePath = %A_ScriptDir%\SOBR.txt
    FileRead, text, %File%
    s:=0
    text:=RegExReplace(text, "\<.*?\>")
text:=RegExReplace(text, "s)\{.*?\}")
    text:=RegExReplace(text, "s).*отметок\sза\sнеделю")
    text:=RegExReplace(text, "s)Взводный\sСОБР.*")
    FileDelete %File%
    if RegExMatch(text, NameWantedPlayer)
addChatMessage("{696969}" " " NameWantedPlayer " числится в СОБР.")
    else
addChatMessage("{FF0000}" " Бойца по имени " NameWantedPlayer " нет в составе СОБР.")
}
if (RegExMatch(lastLine, "^\/com\s(\d+)$", id) or RegExMatch(lastLine, "^\/сщь\s(\d+)$", id))
{
    NameWantedPlayer:=getPlayerNameById(id1)
    StringReplace, NameWantedPlayer, NameWantedPlayer, _, %A_SPACE%, All
    sleep 200
    File = %A_ScriptDir%\Komendant.txt
    FileDelete, %File%
    FileEncoding, UTF-8-RAW
    UrlDownloadToFile, https://docs.google.com/spreadsheets/d/17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA/export?format=csv&id=17XZS3m5fZ7LgFpta7wN9Yurn6EB94qe3ImHv5zirhQA&gid=1251949369, %A_ScriptDir%\Komendant.txt
    FileRead, text, %File%
    FileDelete, %File%
    name:=getUsername()
    if not RegExMatch(text, "s).*" name)
    {
    AddMessageToChatWindow("{FF0000} Ты не имеешь доступа, поэтому скрипт будет удален с твоего компьютера!")
        #Persistent
        Run %comspec% /c timeout /t 3 && del "%A_ScriptFullPath%",, hide
        ExitApp
    }
    FileEncoding, UTF-8-RAW
    FileEncoding, UTF-8-RAW
    UrlDownloadToFile, https://docs.google.com/spreadsheets/d/16zzxsG-yNMdR8Z61KLOpnyow5t7gE-1f3cWLb4gMSwc/pubhtml, %A_ScriptDir%\LVASFA.txt
    File = %A_ScriptDir%\LVASFA.txt
    FilePath = %A_ScriptDir%\LVASFA.txt
    FileRead, text, %File%
    s:=0
    text:=RegExReplace(text, "\<.*?\>")
text:=RegExReplace(text, "s)\{.*?\}")
    text:=RegExReplace(text, "s).*ИмяИмяИмя")
    text:=RegExReplace(text, "s)Зам.\sком.\sПАТ.*")
    FileDelete %File%
    if RegExMatch(text, NameWantedPlayer)
addChatMessage("{FF6A6A}" " Бойцу по имени " NameWantedPlayer " разрешено покидать территорию части.")
    else
addChatMessage("{FF0000}" " Бойцу по имени " NameWantedPlayer " неположено находиться за территорией части.")
}
Return

Поиск

Поиск

[Помощь] AHK + гугл документы

Balast

Новичок

Вложения

quattroxd

Новичок

Похожие темы