❤ ЦГБ Арзамаса ❤ AHK для сотрудников.

Тема в разделе "Корзина", создана пользователем Caldwell_Winston, 14 янв 2019.

Статус темы:
Закрыта.
  1. Caldwell_Winston

    Caldwell_Winston Легенда

    Сообщения:
    1.555
    Симпатии:
    395
    Баллы:
    83
    Ник:
    Caldwell_Winston
    Сервер:
    01
    В этой теме вы можете взять AHK скрипт для вашего удобство.
    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/me встал на колено{Enter}
    sleep 1500
    Sendinput,{F6}/do Сидит.{Enter}
    sleep 1500
    Sendinput,{F6}/me достал клятву Российского врача{Enter}
    sleep 1500
    Sendinput,{F6}/do Клятва Российского врача перед глазами.{Enter}
    sleep 1500
    Sendinput,{F6}Добровольно вступая в медицинское сообщество, я торжественно клянусь.{Enter}
    sleep 1500
    Sendinput,{F6}И даю письменное обязательство посвятить себя служению жизни других людей,{Enter}
    sleep 1500
    Sendinput,{F6}Всеми профессиональными средствами стремясь продлить ее и сделать лучше.{Enter}
    sleep 1500
    Sendinput,{F6}Здоровье моего пациента всегда будет для меня высшей наградой.{Enter}
    sleep 1500
    Sendinput,{F6}Клянусь постоянно совершенствовать мои медицинские познания.{Enter}
    sleep 1500
    Sendinput,{F6}Отдать все знания и силы охране здоровья человека и ни при каких обстоятельствах,{Enter}
    sleep 1500
    Sendinput,{F6}Я не только не использую сам, но и никому не позволю использовать их в ущерб нормам гуманности.{Enter}
    sleep 1500
    Sendinput,{F6}Всеми профессиональными средствами стремясь продлить ее и сделать лучше.{Enter}
    sleep 1500
    Sendinput,{F6}Клянусь безотлагательно оказывать неотложную медицинскую помощь любому, кто в ней нуждается,{Enter}
    sleep 1500
    Sendinput,{F6}Внимательно, заботливо, уважительно и беспристрастно относиться к своим пациентам.{Enter}
    sleep 1500
    Sendinput,{F6}Я даю эту клятву свободно и искренне. Я исполню врачебный долг по совести и с достоинством.{Enter}
    sleep 1500
    Sendinput,{F6}/me закончил читать{Enter}
    sleep 1500
    Sendinput,{F6}/do Встал.{Enter}
    Return

    ;Скрипт создан для Интернов - Терапевтов
    ;Внимательно все прочитайте и настройте под себя
    ;Numpad1 - Произносит ваше имя, должность и спрашивает чем бы вы могли помочь
    ;Numpad2 - Лечим голову
    ;Numpad3 - Говорим что лем головную боль
    ;Numpad5 - Автоматически открывает рацию и вписывает ваш тэг, ТЭГ ИЗМЕНИТЬ НА ВАШ
    ;ТЭГИ -Интерн - [И], Мед.Брат - [М.Б], Мед.Сестра - [М.С], Врач-Терапевт - [В.Т]
    ;Numpad9 - Автоматически включает ваш бейджик

    Numpad1::
    SendMessage, ox50,, 0x4190419,, A
    SendInput,{F6} Здравствуйте я "Звание" Скорой Помощи города Арзамаса"Фамилия Имя" {Enter}
    Sleep 1500
    SendInput,{F6}/do Бейджик "Звание" на груди.{Enter}
    Sleep 1500
    SendInput,{F6}Чем могу Вам помочь?{Enter}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{Enter}
    Sleep 1200
    SendInput, {f6}Введите ID: {SPASE}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sendinput,{F6}Cейчас я вас выпишу.{Enter}
    sleep 1500
    Sendinput,{F6}/me снял медицинскую сумку затем нашел упаковку таблеток "Пенталгин"{Enter}
    sleep 1500
    Sendinput,{F6}/b Как я закончу пропишите /accheal.{Enter}
    sleep 1500
    Sendinput,{F6}/do Упаковка таблеток "Пенталгин" в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me открыл упаковку таблеток и выдавил одну таблетку из упаковки{Enter}
    sleep 1500
    Sendinput,{F6}/me передал таблетку человеку напротив{Enter}
    sleep 1500
    Sendinput,{F6}/healhp %ID%{Enter}
    Sleep 5100
    SendInput,{F6}Скоро головная боль утихнет и Вам станет намного лучше.{Enter}
    Return

    Numpad3::
    SendMessage, ox50,, 0x4190419,, A
    SendInput,{F6} /s Лечу головную боль! {Enter}
    Return

    Numpad9::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/clist 7
    Return

    Numpad5::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/r [ваш тэг] {SPASE}
    Return

    ;Скрипт создан для Инфекционистов
    ;Внимательно все прочитайте и настройте под себя
    ;Numpad1 - Произносит ваше имя, должность и спрашивает чем бы вы могли помочь
    ;Numpad2 - Лечим ОРВИ
    ;Numpad3 - Лечим гастрит
    ;Numpad5 - Автоматически открывает рацию и вписывает ваш тэг
    ;Numpad9 - Автоматически включает ваш бейджик


    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}Здравствуйте я Врач-инфекционист Городской Больницы города Арзамаса (Ваше имя и фамилия).{Enter}
    Sleep 1500
    SendInput,{F6}/do Бейджик врача инфекциониста на груди.{Enter}
    Sleep 1500
    SendInput,{F6}Чем могу Вам помочь?{Enter}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {Enter}
    Sleep 1200
    SendInput, {f6}Введите ID: {SPASE}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sendinput,{F6}/do Медицинская сумка на плече.{Enter}
    sleep 1500
    Sendinput,{F6}/me снял медицинскую сумку{Enter}
    sleep 1500
    Sendinput,{F6}/do Медицинская сумка снята.{Enter}
    sleep 1500
    Sendinput,{F6}/me открыв медицинскую сумку, достал чистые перчатки{Enter}
    sleep 1500
    Sendinput,{F6}/me надел чистые перчатки{Enter}
    sleep 1500
    Sendinput,{F6}/do Чистые перчатки одеты.{Enter}
    sleep 1500
    Sendinput,{F6}/me достал одноразовый ватный тампон{Enter}
    sleep 1500
    Sendinput,{F6}/do Ватный тампон пропитанный спиртом в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me протёр место укола тампоном затем достал шприц с лекарством "Анальгин"{Enter}
    sleep 1500
    Sendinput,{F6}/do Шприц руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me поставил укол человеку напротив{Enter}
    sleep 1500
    Sendinput,{F6}/syringe %ID%{Enter}
    Sleep 5100
    Sendinput,{F6}/me положил шприц на тумбочку затем нашел упаковку таблеток в медицинской сумке{Enter}
    sleep 1500
    Sendinput,{F6}/do Упаковка таблеток "Эргоферон" в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me открыл упаковку таблеток и выдавил одну таблетку из упаковки{Enter}
    sleep 1500
    Sendinput,{F6}/do Таблетка "Эргоферон" в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me передал таблетку человеку напротив{Enter}
    sleep 1500
    Sendinput,{F6}/healorvi %ID%{Enter}
    Sleep 5100
    SendInput,{F6}Скоро температура понизится и Вам станет намного лучше. За следующим сеансом...{Enter}
    sleep 1500
    SendInput,{F6}... можете подойти через 3 часа. Удачного Вам дня.{Enter}
    Return

    Numpad3::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput, {Enter}
    Sleep 1200
    SendInput, {f6}Введите ID: {SPASE}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sendinput,{F6}/do Медицинская сумка на плече.{Enter}
    sleep 1500
    Sendinput,{F6}/me снял медицинскую сумку{Enter}
    sleep 1500
    Sendinput,{F6}/do Медицинская сумка снята.{Enter}
    sleep 1500
    Sendinput,{F6}/me открыв медицинскую сумку, достал чистые перчатки{Enter}
    sleep 1500
    Sendinput,{F6}/me надел чистые перчатки{Enter}
    sleep 1500
    Sendinput,{F6}/do Чистые перчатки одеты.{Enter}
    sleep 1500
    Sendinput,{F6}/me достал одноразовый ватный тампон{Enter}
    sleep 1500
    Sendinput,{F6}/do Ватный тампон пропитанный спиртом в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me протёр место укола тампоном затем достал шприц с лекарством "Анальгин"{Enter}
    sleep 1500
    Sendinput,{F6}/do Шприц руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me поставил укол человеку напротив{Enter}
    sleep 1500
    Sendinput,{F6}/syringe %ID%{Enter}
    Sleep 5100
    Sendinput,{F6}/me положил шприц на тумбочку затем нашел упаковку таблеток в медицинской сумке{Enter}
    sleep 1500
    Sendinput,{F6}/do Упаковка таблеток "Креон" в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me открыл упаковку таблеток и выдавил одну таблетку из упаковки{Enter}
    sleep 1500
    Sendinput,{F6}/do Таблетка "Креон" в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me передал таблетку человеку напротив{Enter}
    sleep 1500
    Sendinput,{F6}/healgast %ID%{Enter}
    Sleep 5100
    SendInput,{F6}Скоро температура понизится и Вам станет намного лучше. За следующим сеансом...{Enter}
    sleep 1500
    SendInput,{F6}... можете подойти через 3 часа. Удачного Вам дня.{Enter}
    Return


    Numpad5::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/r [В.И] {SPASE}
    Return

    Numpad9::
    SendMessage, 0x50,,

    0x4190419,, A
    Sendinput,{F6}/clist 2
    Return

    ;Скрипт создан для Наркологов
    ;Внимательно все прочитайте и настройте под себя
    ;Numpad1 - Произносит вашу должность и просит паспорт
    ;Numpad2 - Выписываем чек на лечения нарко, расценки для больных расположены в другой теме
    ;Numpad3 - Лечим нарко
    ;Numpad5 - Автоматически открывает рацию и вписывает ваш тэг
    ;Numpad9 - Автоматически включает ваш бейджик


    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput, {F6} Здравствуйте,я Врач-Нарколог Скорой Помощи г.Арзамаса
    Sleep 2000
    Sendinput, {F6} Разрешите Ваш паспорт? {Enter}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput, {F6} Сейчас,я Вам выпишу чек на оплату процедуры. {Enter}
    Sleep 2000
    Sendinput, {F6}/me Достал бланк и ручку {Enter}
    Sleep 2000
    Sendinput, {F6}/me Вписал ФИО больного {Enter}
    Sleep 2000
    Sendinput, {F6}/me Поставил подпись и печать " ЦГБ-А". {Enter}
    Sleep 2000
    Sendinput, {F6} Распишитесь и оплатите процедуру. {Enter}
    Sleep 2000
    Return

    Numpad3::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{Enter}
    Sleep 1200
    SendInput, {f6}Введите ID: {SPASE}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sendinput, {F6}Присаживайтесь и снимайте всю верхнюю одежду. {Enter}
    Sleep 2000
    Sendinput, {F6}/me помыл руки и одел перчатки{Enter}
    Sleep 1000
    Sendinput, {F6}/me достал аптечку и открыл её{Enter}
    Sleep 1000
    Sendinput, {F6}/me достал шприц{Enter}
    Sleep 1000
    Sendinput, {F6}/me протёр ваткой место укола {Enter}
    Sleep 1000
    Sendinput, {F6}/do Детоксикация...{Enter}
    Sleep 1000
    Sendinput, {F6}/me достал аппарат "Налтрексон"{Enter}
    Sleep 1500
    Sendinput, {F6}/me поставил капельницу и подключил к ней аппарат{Enter}
    Sleep 1000
    Sendinput, {F6}/do Очищение крови...{Enter}
    Sleep 1000
    Sendinput, {F6}/me отключил аппарат и убрал капельницу{Enter}
    Sleep 1000
    Sendinput, {F6}/seans %ID%{Enter}
    sleep 5000
    Sendinput, {F6}Cеанс прошел хорошо, приходите через 3 часа. Всего доброго.{Enter}
    Return

    Numpad5::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/r [В.Н] {SPASE}
    Return

    Numpad9::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/clist 5
    Return

    ;Скрипт создан для пульмонологов
    ;Внимательно все прочитайте и настройте под себя
    ;Numpad1 - Произносит ваше имя, должность и спрашивает чем бы вы могли помочь
    ;Numpad2 - Лечим ХОБЛ
    ;Numpad3 - Говорим что лечим ХОБЛ
    ;Numpad5 - Автоматически открывает рацию и вписывает ваш тэг
    ;Numpad9 - Автоматически включает ваш бейджик


    Numpad1::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}Здравствуйте я Врач-Пульмонолог больницы г.Арзамаса (Фамилия Имя){Enter}
    Sleep 1500
    SendInput,{F6}/do Бейджик Врача-Пульмонолога на груди.{Enter}
    Sleep 1500
    SendInput,{F6}Чем могу Вам помочь?{Enter}
    Return

    Numpad2::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{Enter}
    Sleep 1200
    SendInput, {f6}Введите ID: {SPASE}
    Input, ID, V I M, {enter}
    SendInput {end}+{home}{del}{esc}
    Sendinput,{F6}/do Медицинская сумка на плече.{Enter}
    sleep 1500
    Sendinput,{F6}/me открыв медицинскую сумку, достал чистые перчатки{Enter}
    sleep 1500
    Sendinput,{F6}/me надел чистые перчатки{Enter}
    sleep 1500
    Sendinput,{F6}/do Чистые перчатки одеты.{Enter}
    sleep 1500
    Sendinput,{F6}/me достал одноразовый ватный тампон{Enter}
    sleep 1500
    Sendinput,{F6}/do Ватный тампон пропитанный спиртом в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me протёр место укола тампоном{Enter}
    sleep 1500
    Sendinput,{F6}/me затем достал шприц с лекарством "Инсперон"{Enter}
    sleep 1500
    Sendinput,{F6}/do Шприц в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/syringe %ID%{Enter}
    Sleep 5100
    Sendinput,{F6}/me положил шприц на тумбочку{Enter}
    sleep 1500
    Sendinput,{F6}/me нашел упаковку таблеток в медицинской сумке{Enter}
    sleep 1500
    Sendinput,{F6}/do Упаковка таблеток "Преднизолон" в руке.{Enter}
    sleep 1500
    Sendinput,{F6}/me открыл упаковку таблеток и выдавил одну таблетку из упаковки{Enter}
    sleep 1500
    Sendinput,{F6}/me передал таблетку человеку напротив{Enter}
    sleep 1500
    Sendinput,{F6}/healhobl %ID%{Enter}
    Sleep 5100
    SendInput,{F6} Скоро Вам станет намного лучше.{Enter}
    sleep 1500
    SendInput,{F6} Не курите так много.{Enter}
    Return

    Numpad3::
    SendMessage, 0x50,, 0x4190419,, A
    SendInput,{F6}/s Лечу Хроническую Обструктивную Болезнь Лёгких.{Enter}
    Return

    Numpad5::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/r [В.П] {SPASE}
    Return

    Numpad9::
    SendMessage, 0x50,, 0x4190419,, A
    Sendinput,{F6}/clist 14
    Return
    [​IMG]
    С уважением Колдуэлл Умаров.
    [​IMG]
    01 SERVER
    Deputy team
    Якудза | Заместитель - [17.09.2018 - 30.09.2018]
    Aрмия ВВС | Полковник - [15.11.2018 - 13.12.2018]
    ГИБДД | Полковник - [13.12.2018 - 22.12.2018]
    ЦГБ-А | Заместитель - [28.12.2018 - 14.01.2019]
    [​IMG]
    Leader team
    ЦГБ-А | Лидер - [14.01.2019 - хх.xx.xxxx]
    [​IMG]
    [​IMG]

    [​IMG]
     
    Последнее редактирование: 14 янв 2019
Статус темы:
Закрыта.

Поделиться этой страницей