SA:MP программы, Читы, Клео, Программирование

AHK cm-online

Владислав — Mon, 04 Aug 2014 19:04:11 GMT

Описание: AHK, которое каждые 15 минут обновляет страничку.
Обновляет он ее не просто, перед тем как обновить, он включает меню "Ваш
онлайн на сайте", а затем обновляет страничку.

Управление: Alt + 1 - вкл, Alt + 2 - выкл.

Примечания: перед тем как запустить работу данного AHK, на сайте нажмите
кнопку "Главная" а затем жмем Alt + 1, он обновит вам страничку,
убедившись, что AHK правельно работает можете идти на учебу, работу и
т.д. Для корректной работы AHK, после включения лучше не стоит трогать
страницу (лазить, обновлять и т.д.).
Rghost: клик
VT: клик

[SAMP] Server Connect

Владислав — Sun, 23 Mar 2014 09:09:24 GMT

Вот сам исходник этого скрипта его можно скачать в разделе скрипты:

[OTHER] Skype Tool

Владислав — Sun, 23 Mar 2014 09:07:59 GMT

Вот сам исходник для этой программы вы можете скачать саму программу в разделе AHK Программирование » Скрипты

Код

Gui, Add, Text, x4 y2 w270 h50 , Приветствую вас в программе  Skype Tool 0.8
Gui, Add, Button, x-6 y22 w260 h40 gRunNastroika , Настройки
Gui, Add, Button, x-6 y62 w260 h40 gRuninfo , Информация
Gui, Add, Button, x-10 y102 w260 h40 gRunZv , Связь с разработчиком
Gui, Add, Button, x-6 y142 w260 h40 gRunCx , Cheat-Programs.TK
Gui, Add, Text, x4 y182 w250 h30 , Функции
Gui, Add, Text, x4 y202 w240 h80 , 1.Мигающий статус ( его исходник можете посмотреть в другом AHK разделе ) 2.Боты ( Возможность задавать свое кол во ботов ) 3. Флудер ( можно выбирать сколько раз отправить сообщение пользователю ) p.s подойдет не только для скайпа ( ВК И т.д )
Gui, Add, Button, x-6 y282 w260 h60 gRunLog , Лог Обновлений
Gui, Add, Button, x-6 y342 w260 h40 gRunactiv , Активация функций
Gui, Show, x129 y89 h382 w250, Skype Tool
Return

RunNastroika:
Nast:
Gui, 2: Destroy
Gui, 2:Add, Text, x4 y2 w130 h30 , Настройки Skype Tool
Gui, 2:Add, Text, x4 y32 w250 h20 , Сколько ботов добавлять в конференцию
Gui, 2:Add, Edit, x4 y52 w240 h20 vg5,
Gui, 2:Add, Text, x4 y72 w240 h20 , Сколько раз флудить сообщениями
Gui, 2:Add, Edit, x4 y92 w240 h20 vg2,
Gui, 2:Add, Button, x4 y152 w240 h30 gSoxr, Сохранить настройки
Gui, 2:Add, Text, x4 y112 w230 h20 , Сообщения для флуда
Gui, 2:Add, Edit, x4 y132 w240 h20 vg1,
Gui, 2:Show, x237 y116 h183 w248, Skype Tool
Return

RunCx:
Run, http://Cheat-Programs.TK/
Return

RunZv:
MsgBox, Skype Greenpower.nick VK http://vk.com/kirill.fox1337
Return

RunLog:
MsgBox, Скоро... ( в след версии )
Return

Runinfo:
MsgBox, Автор программы Wiz3 a.k.a BH
Return

Runactiv:
MsgBox, Активация Флудера F3, Пауза F4 Активация Ботов F1, Пауза F2 Активация Статуса F5, Пауза F6
Return

Soxr:
Gui,submit,nohide
5 := g5
2 := g2
1 := g1
MsgBox, Настройки успешно сохранены!
return

F1::
5 := g5
Bot:
loop %5%
{
Sendinput,/add caponpidr%A_Index%{enter}
}
F2::pause
Return

F3::
1 := g1
2 := g2
Flooder:
Loop, %2%
SendInput, %1% {enter}
F4:: Pause
Return

F5::
Skypetool:
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vkd}
Sleep, 50
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vk28}{vkd}
Sleep, 50
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vk28 2}{vkd}
Sleep, 50
SendInput, {vkd}
Sleep, 50
WinActivate, Skype
WinwaitActive, Skype
SendInput, {vka4}{vk28}{vk27}{vk28 3}{vkd}
Sleep, 50
Goto, Skypetool
F6::Pause
return

GuiClose:
MsgBox, До свидания до новых встреч
ExitApp

[AHK] Server Connect

Владислав — Sun, 23 Mar 2014 08:59:16 GMT

О скрипте: скрипт подключаться к серверу за пару кликов
Водим АйПи в наш скрипт, и все нас подключает к серверу SA:MP 0.3z ( SA-MP Клиент открывать не надо )

[AHK] Skype Tool Full

Владислав — Sun, 23 Mar 2014 08:53:13 GMT

О программе:

1. Мигающий статус ( исходник можете посмотреть в другом разделе )
2. Боты - можно задать свое количество ботов
3. Флудер - Возможность выбрать сколько раз отправлять сообщения ботов ) пойдет для всего где можно флудить

Как активировать:
Все написано в самой программе

Обновления:

-Исправлены баги.

Определение виртуальных и скан-кодов клавиатуры

Владислав — Sun, 09 Mar 2014 19:38:48 GMT

Скрипт определяет виртуальный (vk) и скан-код (sc) клавиши при её нажатии, а
также название клавиши по её vk или sc. Полученный код можно скопировать
в буфер обмена в виде vkFF или scFF (т. е. в виде, пригодном для
использования в AHK-коде для обозначения горячих клавиш) с помощью
кнопки "Copy".

Когда активно окно скрипта и открыта вкладка "Получить код", скрипт предотвращает системную обработку нажатий всех
клавиш, кроме Alt, Ctrl, Shift и Tab (и некоторых специальных клавиш,
например Power), кроме того, переключается статус Num Lock (от этого
зависят виртуальные коды цифровой клавиатуры), но не переключается его
светодиод. По сочетанию Ctrl + Tab можно осуществить переход между
вкладками, Tab — переключение между контролами, Alt + F4 — завершение
работы скрипта.

Скрипт написан под AHK_La и AHK_Lw x86. Будет работать и под AHK-Basic, но с менее красивыми шрифтами.

Код

Menu, Tray, Icon, Shell32.dll, 45

  ; клавиши дополнительной клавиатуры и Pause, sc которых ф-ция MapVirtualKey не определяет
  ScVk := "45,13|11D,A3|135,6F|136,A1|137,2C|138,A5|145,90|147,24|148,26|149,21|"
  . "14B,25|14D,27|14F,23|150,28|151,22|152,2D|153,2E|15B,5B|15C,5C|15D,5D"

  ; клавиши мыши и их vk, а также Ctrl+Break и Clear
  KeysVK := "LButton,1|RButton,2|Ctrl+Break,3|MButton,4|XButton1,5|XButton2,6|"
  . "Clear,c|Shift,10|Ctrl,11|Alt,12"

  Height := 165 ; высота клиентской области, не включая заголовки вкладок

  Gui, Color, DAD6CA
  Gui, Add, Tab2, vTab gTab x0 y0 w200 h185 AltSubmit hwndhTab, Получить код|Клавиша по коду
  Tab = 2
  VarSetCapacity(RECT, 16)
  SendMessage, TCM_GETITEMRECT := 0x130A, 1, &RECT,, ahk_id %hTab%
  TabH := NumGet(RECT, 12, "UInt")
  GuiControl, Move, Tab, % "x0 y0 w200 h" TabH + Height
  Gui, Add, Text, % "x8 y" TabH + 8 " w183 +" SS_GRAYFRAME := 0x8 " h" Height - 16

  Gui, Font, q5 s12, Verdana
  Gui, Add, Text, vAction x15 yp+7 w170 Center c0033BB, Нажмите клавишу
  Gui, Add, Text, vKey xp yp+35 wp Center Hidden

  Gui, Font, q5 c333333
  Gui, Add, Text, vTextVK xp+8 yp+37 Hidden, vk =
  Gui, Add, Text, vVK xp+35 yp w62 h23 Center Hidden
  Gui, Add, Text, vTextSC xp-35 yp+35 Hidden, sc =
  Gui, Add, Text, vSC xp+35 yp w62 h23 Center Hidden

  Gui, Font, s8
  Gui, Add, Button, vCopyVK gCopy xp+70 yp-35 w50 h22 Hidden, Copy
  Gui, Add, Button, vCopySC gCopy xp yp+33 wp hp Hidden, Copy

  Gui, Tab, 2
  Gui, Add, Text, % "x8 y" TabH + 8 " w183 +" SS_GRAYFRAME " h" Height - 16
  Gui, Add, Text, x15 yp+7 w170 c0033BB
  , Введите код`nв шестнадцатеричном формате без префикса "0x"

  Gui, Font, q5 s11
  Gui, Add, Text, xp yp+58, vk
  Gui, Add, Edit, vEditVK gGetKey xp+25 yp-2 w45 h23 Limit3 Uppercase Center
  Gui, Add, Text, vKeyVK xp+45 yp+2 w105 Center

  Gui, Add, Text, x15 yp+43, sc
  Gui, Add, Edit, vEditSC gGetKey xp+25 yp-2 w45 h23 Limit3 Uppercase Center
  Gui, Add, Text, vKeySC xp+45 yp+2 w105 Center
  Gui, Show, % "w199 h" TabH + Height - 1, Коды клавиш

  hHookKeybd := SetWindowsHookEx()
  OnExit, Exit
  OnMessage(0x6, "WM_ACTIVATE")
  OnMessage(0x102, "WM_CHAR")
  Return

  Tab: ; whenever the user switches to a new tab, the output variable will
  If (Tab = 2 && !hHookKeybd) ; be set to the previously selected tab number in the case of AltSubmit.
  hHookKeybd := SetWindowsHookEx()
  Else if (Tab = 1 && hHookKeybd)
  DllCall("UnhookWindowsHookEx", UInt, hHookKeybd), hHookKeybd := ""
  Return

  Copy:
  GuiControlGet, Code,, % SubStr(A_GuiControl, -1)
  StringLower, GuiControl, A_GuiControl
  Clipboard := SubStr(GuiControl, -1) . SubStr(Code, 3)
  Return

  GetKey:
  GuiControlGet, Code,, % A_GuiControl
  Code := RegExReplace(Code, "^0+")
  Code := "0x" . Code
  SetFormat, IntegerFast, H
  if A_GuiControl = EditVK
  {
  if (Code > 0xA5 && Code < 0xBA)
  Key := "", IsKey := 1

  Loop, parse, KeysVK, |
  {
  if (Substr(Code, 3) = RegExReplace(A_LoopField, ".*,(.*)", "$1"))
  {
  Key := RegExReplace(A_LoopField, "(.*),.*", "$1")
  IsKey = 1
  Break
  }
  }

  if !IsKey
  {
  Loop, parse, ScVk, |
  {
  if (Code = "0x" . RegExReplace(A_LoopField, ".*,(.*)", "$1"))
  {
  Code := RegExReplace(A_LoopField, "(.*),.*", "0x$1")
  IsCode = 1
  Break
  }
  }
  if !IsCode
  Code := DllCall("MapVirtualKey", UInt, Code, UInt, MAPVK_VK_TO_VSC := 0)
  }
  }
  else if (Code = 0x56 || Code > 0x1FF)
  Key := "", IsKey := 1

  if !IsKey
  Key := GetKeyNameText(Code)

  Key := RegExReplace(Key, "(.*)Windows", "$1Win")
  GuiControl,, % "Key" SubStr(A_GuiControl, -1), % Key
  Key := IsKey := IsCode := ""
  Return

  GuiClose:
  ExitApp

  Exit:
  if hHookKeybd
  DllCall("UnhookWindowsHookEx", UInt, hHookKeybd)
  ExitApp

  WM_ACTIVATE(wp)
  {
  global
  if (wp & 0xFFFF = 0 && hHookKeybd)
  DllCall("UnhookWindowsHookEx", UInt, hHookKeybd), hHookKeybd := ""
  if (wp & 0xFFFF && Tab = 2 && !hHookKeybd)
  hHookKeybd := SetWindowsHookEx()
  GuiControl,, Action, % wp & 0xFFFF = 0 ? "Активируйте окно" : "Нажмите клавишу"
  }

  SetWindowsHookEx()
  {
  Return DllCall("SetWindowsHookEx"
  , Int, WH_KEYBOARD_LL := 13
  , UInt, RegisterCallback("LowLevelKeyboardProc", "Fast")
  , UInt, DllCall("GetModuleHandle", UInt, 0)
  , UInt, 0)
  }

  LowLevelKeyboardProc(nCode, wParam, lParam)
  {
  static once, WM_KEYDOWN = 0x100, WM_SYSKEYDOWN = 0x104

  Critical
  SetFormat, IntegerFast, H
  vk := NumGet(lParam+0)
  Extended := NumGet(lParam+0, 8) & 1
  sc := (Extended<<8)|NumGet(lParam+0, 4)
  sc := sc = 0x136 ? 0x36 : sc
  Key := GetKeyNameText(sc)

  if (wParam = WM_SYSKEYDOWN || wParam = WM_KEYDOWN)
  {
  GuiControl,, Key, % Key
  GuiControl,, VK, % vk
  GuiControl,, SC, % sc
  }

  if !once
  {
  Controls := "Key|TextVK|VK|TextSC|SC|CopyVK|CopySC"
  Loop, parse, Controls, |
  GuiControl, Show, % A_LoopField
  once = 1
  }

  if Key Contains Ctrl,Alt,Shift,Tab
  Return CallNextHookEx(nCode, wParam, lParam)

  if (Key = "F4" && GetKeyState("Alt", "P")) ; закрытие окна и выход по Alt + F4
  Return CallNextHookEx(nCode, wParam, lParam)

  Return nCode < 0 ? CallNextHookEx(nCode, wParam, lParam) : 1
  }

  CallNextHookEx(nCode, wp, lp)
  {
  Return DllCall("CallNextHookEx", UInt, 0, Int, nCode, UInt, wp, UInt, lp)
  }

  GetKeyNameText(sc)
  {
  VarSetCapacity(Key, A_IsUnicode ? 32 : 16)
  DllCall("GetKeyNameText", UInt, sc<<16, Str, Key, UInt, 16)
  if Key in Shift,Ctrl,Alt
  Key := "Left " . Key
  Return Key
  }

  WM_CHAR(wp, lp)
  {
  global hBall
  SetWinDelay, 0
  CoordMode, Caret
  WinClose, ahk_id %hBall%
  GuiControlGet, Focus, Focus
  if !InStr(Focus, "Edit")
  Return

  if wp in 3,8,24,26 ; обработка Ctrl + C, BackSpace, Ctrl + X, Ctrl + Z
  Return

  if wp = 22 ; обработка Ctrl + V
  {
  GuiControlGet, Content,, % Focus
  if !StrLen(String := SubStr(Clipboard, 1, 3 - StrLen(Content)))
  {
  ShowBall("Буфер обмена не содержит текста.", "Ошибка!")
  Return 0
  }
  Loop, parse, String
  {
  Text .= A_LoopField
  if A_LoopField not in 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,A,B,C,D,E,F
  {
  ShowBall("Буфер обмена содержит недопустимые символы."
  . "`nДопустимые символы:`n0123456789ABCDEF", "Ошибка!")
  Return 0
  }
  }
  Control, EditPaste, % Text, % Focus, Коды клавиш
  Return 0
  }

  Char := Chr(wp)
  if Char not in 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,A,B,C,D,E,F
  {
  ShowBall("Допустимые символы:`n0123456789ABCDEF", Char " — недопустимый символ")
  Return 0
  }
  Return
  }

  ShowBall(Text, Title="")
  {
  global
  WinClose, ahk_id %hBall%
  hBall := BalloonTip(A_CaretX+1, A_CaretY+15, Text, Title)
  SetTimer, BallDestroy, -2000
  Return

  BallDestroy:
  WinClose, ahk_id %hBall%
  Return
  }

  BalloonTip(x, y, sText, sTitle = "", h_icon = 0)
  {
  ; BalloonTip — это ToolTip с хвостиком
  ; h_icon — 1:Info, 2: Warning, 3: Error, n > 3: предполагается hIcon.

  TTS_NOPREFIX := 2, TTS_ALWAYSTIP := 1, TTS_BALLOON := 0x40, TTS_CLOSE := 0x80

  hWnd := DllCall("CreateWindowEx", UInt, WS_EX_TOPMOST := 8
  , Str, "tooltips_class32", Str, ""
  , UInt, TTS_NOPREFIX|TTS_ALWAYSTIP|TTS_BALLOON|TTS_CLOSE
  , Int, 0, Int, 0, Int, 0, Int, 0
  , UInt, 0, UInt, 0, UInt, 0, UInt, 0)
  VarSetCapacity(TOOLINFO, 40)
  NumPut(40, TOOLINFO)
  NumPut(0x20, TOOLINFO, 4) ; TTF_TRACK = 0x20
  NumPut(&sText, TOOLINFO, 36)

  A_DHW := A_DetectHiddenWindows
  DetectHiddenWindows, On
  WinWait, ahk_id %hWnd%

  SendMessage, 1048,, 500 ; TTM_SETMAXTIPWIDTH
  SendMessage, 1028,, &TOOLINFO ; TTM_ADDTOOL
  SendMessage, 1042,, x|(y<<16) ; TTM_TRACKPOSITION
  SendMessage, 1041, 1, &TOOLINFO ; TTM_TRACKACTIVATE
  SendMessage, 1056 + (A_IsUnicode ? 1 : 0), h_icon, &sTitle ; TTM_SETTITLEA и TTM_SETTITLEW
  SendMessage, 1036 + (A_IsUnicode ? 45 : 0),, &TOOLINFO ; TTM_UPDATETIPTEXTA и TTM_UPDATETIPTEXTW

  DetectHiddenWindows, % A_DHW
  Return hWnd
  }

Код с поддержкой AHK_L x64:

Код

Menu, Tray, Icon, Shell32.dll, 45

  ; клавиши дополнительной клавиатуры и Pause, sc которых ф-ция MapVirtualKey не определяет
  ScVk := "45,13|11D,A3|135,6F|136,A1|137,2C|138,A5|145,90|147,24|148,26|149,21|"
  . "14B,25|14D,27|14F,23|150,28|151,22|152,2D|153,2E|15B,5B|15C,5C|15D,5D"

  ; клавиши мыши и их vk, а также Ctrl+Break и Clear
  KeysVK := "LButton,1|RButton,2|Ctrl+Break,3|MButton,4|XButton1,5|XButton2,6|"
  . "Clear,c|Shift,10|Ctrl,11|Alt,12"

  Height := 165 ; высота клиентской области, не включая заголовки вкладок

  Gui, +AlwaysOnTop
  Gui, Color, DAD6CA
  Gui, Add, Tab2, vTab gTab x0 y0 w200 h185 AltSubmit hwndhTab, Получить код|Клавиша по коду
  Tab = 2
  VarSetCapacity(RECT, 16)
  SendMessage, TCM_GETITEMRECT := 0x130A, 1, &RECT,, ahk_id %hTab%
  TabH := NumGet(RECT, 12, "UInt")
  GuiControl, Move, Tab, % "x0 y0 w200 h" TabH + Height
  Gui, Add, Text, % "x8 y" TabH + 8 " w183 +" SS_GRAYFRAME := 0x8 " h" Height - 16

  Gui, Font, q5 s12, Verdana
  Gui, Add, Text, vAction x15 yp+7 w170 Center c0033BB, Нажмите клавишу
  Gui, Add, Text, vKey xp yp+35 wp Center Hidden

  Gui, Font, q5 c333333
  Gui, Add, Text, vTextVK xp+8 yp+37 Hidden, vk =
  Gui, Add, Text, vVK xp+35 yp w62 h23 Center Hidden
  Gui, Add, Text, vTextSC xp-35 yp+35 Hidden, sc =
  Gui, Add, Text, vSC xp+35 yp w62 h23 Center Hidden

  Gui, Font, s8
  Gui, Add, Button, vCopyVK gCopy xp+70 yp-35 w50 h22 Hidden, Copy
  Gui, Add, Button, vCopySC gCopy xp yp+33 wp hp Hidden, Copy

  Gui, Tab, 2
  Gui, Add, Text, % "x8 y" TabH + 8 " w183 +" SS_GRAYFRAME " h" Height - 16
  Gui, Add, Text, x15 yp+7 w170 c0033BB
  , Введите код`nв шестнадцатеричном формате без префикса "0x"

  Gui, Font, q5 s11
  Gui, Add, Text, xp yp+58, vk
  Gui, Add, Edit, vEditVK gGetKey xp+25 yp-2 w45 h23 Limit3 Uppercase Center
  Gui, Add, Text, vKeyVK xp+45 yp+2 w105 Center

  Gui, Add, Text, x15 yp+43, sc
  Gui, Add, Edit, vEditSC gGetKey xp+25 yp-2 w45 h23 Limit3 Uppercase Center
  Gui, Add, Text, vKeySC xp+45 yp+2 w105 Center
  Gui, Show, % "w199 h" TabH + Height - 1, Коды клавиш

  hHookKeybd := SetWindowsHookEx()
  OnExit, Exit
  OnMessage(0x6, "WM_ACTIVATE")
  OnMessage(0x102, "WM_CHAR")
  Return

  Tab: ; whenever the user switches to a new tab, the output variable will
  If (Tab = 2 && !hHookKeybd) ; be set to the previously selected tab number in the case of AltSubmit.
  hHookKeybd := SetWindowsHookEx()
  Else if (Tab = 1 && hHookKeybd)
  DllCall("UnhookWindowsHookEx", UInt, hHookKeybd), hHookKeybd := ""
  Return

  Copy:
  GuiControlGet, Code,, % SubStr(A_GuiControl, -1)
  StringLower, GuiControl, A_GuiControl
  Clipboard := SubStr(GuiControl, -1) . SubStr(Code, 3)
  Return

  GetKey:
  GuiControlGet, Code,, % A_GuiControl
  Code := RegExReplace(Code, "^0+")
  Code := "0x" . Code
  SetFormat, IntegerFast, H
  if A_GuiControl = EditVK
  {
  if (Code > 0xA5 && Code < 0xBA)
  Key := "", IsKey := 1

  Loop, parse, KeysVK, |
  {
  if (Substr(Code, 3) = RegExReplace(A_LoopField, ".*,(.*)", "$1"))
  {
  Key := RegExReplace(A_LoopField, "(.*),.*", "$1")
  IsKey = 1
  Break
  }
  }

  if !IsKey
  {
  Loop, parse, ScVk, |
  {
  if (Code = "0x" . RegExReplace(A_LoopField, ".*,(.*)", "$1"))
  {
  Code := RegExReplace(A_LoopField, "(.*),.*", "0x$1")
  IsCode = 1
  Break
  }
  }
  if !IsCode
  Code := DllCall("MapVirtualKey", UInt, Code, UInt, MAPVK_VK_TO_VSC := 0)
  }
  }
  else if (Code = 0x56 || Code > 0x1FF)
  Key := "", IsKey := 1

  if !IsKey
  Key := GetKeyNameText(Code)

  Key := RegExReplace(Key, "(.*)Windows", "$1Win")
  GuiControl,, % "Key" SubStr(A_GuiControl, -1), % Key
  Key := IsKey := IsCode := ""
  Return

  GuiClose:
  ExitApp

  Exit:
  if hHookKeybd
  DllCall("UnhookWindowsHookEx", Ptr, hHookKeybd)
  ExitApp

  WM_ACTIVATE(wp)
  {
  global
  if (wp & 0xFFFF = 0 && hHookKeybd)
  DllCall("UnhookWindowsHookEx", UInt, hHookKeybd), hHookKeybd := ""
  if (wp & 0xFFFF && Tab = 2 && !hHookKeybd)
  hHookKeybd := SetWindowsHookEx()
  GuiControl,, Action, % wp & 0xFFFF = 0 ? "Активируйте окно" : "Нажмите клавишу"
  }

  SetWindowsHookEx()
  {
  Return DllCall("SetWindowsHookEx" . (A_IsUnicode ? "W" : "A")
  , Int, WH_KEYBOARD_LL := 13
  , Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
  , Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
  , UInt, 0, Ptr)
  }

  LowLevelKeyboardProc(nCode, wParam, lParam)
  {
  static once, WM_KEYDOWN = 0x100, WM_SYSKEYDOWN = 0x104

  Critical
  SetFormat, IntegerFast, H
  vk := NumGet(lParam+0, "UInt")
  Extended := NumGet(lParam+0, 8, "UInt") & 1
  sc := (Extended<<8)|NumGet(lParam+0, 4, "UInt")
  sc := sc = 0x136 ? 0x36 : sc
  Key := GetKeyNameText(sc)

  if (wParam = WM_SYSKEYDOWN || wParam = WM_KEYDOWN)
  {
  GuiControl,, Key, % Key
  GuiControl,, VK, % vk
  GuiControl,, SC, % sc
  }

  if !once
  {
  Controls := "Key|TextVK|VK|TextSC|SC|CopyVK|CopySC"
  Loop, parse, Controls, |
  GuiControl, Show, % A_LoopField
  once = 1
  }

  if Key Contains Ctrl,Alt,Shift,Tab
  Return CallNextHookEx(nCode, wParam, lParam)

  if (Key = "F4" && GetKeyState("Alt", "P")) ; закрытие окна и выход по Alt + F4
  Return CallNextHookEx(nCode, wParam, lParam)

  Return nCode < 0 ? CallNextHookEx(nCode, wParam, lParam) : 1
  }

  CallNextHookEx(nCode, wp, lp)
  {
  Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wp, UInt, lp)
  }

  GetKeyNameText(sc)
  {
  VarSetCapacity(Key, A_IsUnicode ? 32 : 16)
  DllCall("GetKeyNameText" . (A_IsUnicode ? "W" : "A"), UInt, sc<<16, Str, Key, UInt, 16)
  if Key in Shift,Ctrl,Alt
  Key := "Left " . Key
  Return Key
  }

  WM_CHAR(wp)
  {
  global hBall
  SetWinDelay, 0
  CoordMode, Caret
  WinClose, ahk_id %hBall%
  GuiControlGet, Focus, Focus
  if !InStr(Focus, "Edit")
  Return

  if wp in 3,8,24,26 ; обработка Ctrl + C, BackSpace, Ctrl + X, Ctrl + Z
  Return

  if wp = 22 ; обработка Ctrl + V
  {
  GuiControlGet, Content,, % Focus
  if !StrLen(String := SubStr(Clipboard, 1, 3 - StrLen(Content)))
  {
  ShowBall("Буфер обмена не содержит текста.", "Ошибка!")
  Return 0
  }
  Loop, parse, String
  {
  Text .= A_LoopField
  if A_LoopField not in 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,A,B,C,D,E,F
  {
  ShowBall("Буфер обмена содержит недопустимые символы."
  . "`nДопустимые символы:`n0123456789ABCDEF", "Ошибка!")
  Return 0
  }
  }
  Control, EditPaste, % Text, % Focus, Коды клавиш
  Return 0
  }

  Char := Chr(wp)
  if Char not in 0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,A,B,C,D,E,F
  {
  ShowBall("Допустимые символы:`n0123456789ABCDEF", Char " — недопустимый символ")
  Return 0
  }
  Return
  }

  ShowBall(Text, Title="")
  {
  global
  WinClose, ahk_id %hBall%
  hBall := BalloonTip(A_CaretX+1, A_CaretY+15, Text, Title)
  SetTimer, BallDestroy, -2000
  Return

  BallDestroy:
  WinClose, ahk_id %hBall%
  Return
  }

  BalloonTip(x, y, sText, sTitle = "", h_icon = 0)
  {
  ; BalloonTip — это ToolTip с хвостиком
  ; h_icon — 0: None, 1:Info, 2: Warning, 3: Error, n > 3: предполагается hIcon.

  TTS_NOPREFIX := 2, TTS_ALWAYSTIP := 1, TTS_BALLOON := 0x40, TTS_CLOSE := 0x80

  hWnd := DllCall("CreateWindowEx", UInt, WS_EX_TOPMOST := 8
  , Str, "tooltips_class32", Str, ""
  , UInt, TTS_NOPREFIX|TTS_ALWAYSTIP|TTS_BALLOON|TTS_CLOSE
  , Int, 0, Int, 0, Int, 0, Int, 0
  , UInt, 0, UInt, 0, UInt, 0, UInt, 0)

  NumPut(VarSetCapacity(TOOLINFO, A_PtrSize = 4 ? 48 : 72, 0), TOOLINFO, "UInt")
  NumPut(0x20, TOOLINFO, 4, "UInt") ; TTF_TRACK = 0x20
  NumPut(&sText, TOOLINFO, A_PtrSize = 4 ? 36 : 48, "UInt")

  A_DHW := A_DetectHiddenWindows
  DetectHiddenWindows, On
  WinWait, ahk_id %hWnd%

  WM_USER := 0x400
  SendMessage, WM_USER + 24,, w ; TTM_SETMAXTIPWIDTH
  SendMessage, WM_USER + (A_IsUnicode ? 50 : 4),, &TOOLINFO ; TTM_ADDTOOL
  SendMessage, WM_USER + (A_IsUnicode ? 33 : 32), h_icon, &sTitle ; TTM_SETTITLEA и TTM_SETTITLEW
  SendMessage, WM_USER + (A_IsUnicode ? 57 : 12),, &TOOLINFO ; TTM_UPDATETIPTEXTA и TTM_UPDATETIPTEXTW
  SendMessage, WM_USER + 18,, x|(y<<16) ; TTM_TRACKPOSITION
  SendMessage, WM_USER + 17, 1, &TOOLINFO ; TTM_TRACKACTIVATE

  DetectHiddenWindows, % A_DHW
  Return hWnd
  }

DLL Функции

Владислав — Sun, 09 Mar 2014 19:34:52 GMT

Вводим в InputBox название .dll и получаем функции этой .dll

Код

InputBox, FunctionToDo, DLL File, Enter the name of the DLL file you want to (suffix with .dll):,,500,120,,,,,shell32.dll
   If not ErrorLevel {
        ThisData:=PE_FunctionExports( FunctionToDo )
        IfExist, %A_Temp%\delete_me.txt
             FileDelete, %A_Temp%\delete_me.txt
        FileAppend, %ThisData%, %A_Temp%\delete_me.txt
        RunWait, %A_Temp%\delete_me.txt
   }
   PE_FunctionExports( PEFile ) {
        ; Lists Exported Functions/ Comp@t: WIN32_NT +AHK +LA +LW
        ;By SKAN www.autohotkey.com/forum/viewtopic.php?p=379086#379086 CD:20100824/LM:20100825

        VarSetCapacity( $LI,48,0 ), DllCall( "ImageHlp\MapAndLoad", A_IsUnicode ? "AStr" :
"Str",PEFile, Int,0, UInt,&$LI, Int,1, Int,1 )
        nPtr := DllCall( "ImageHlp\ImageRvaToVa", UInt,Numget( $LI,12 ), UInt,Numget(
$LI,08 ), UInt, NumGet( ( P := DllCall(
"ImageHlp\ImageDirectoryEntryToData", UInt, NumGet( $LI,8 ), Int,0,
UShort,0, UIntP,nSz )) + 12 ), UInt,0 )
        VarSetCapacity( Var,1024,0 ), VarSetCapacity( List,10240,0 )
        IfEqual,nPtr,0, Return SubStr( DllCall( "ImageHlp\UnMapAndLoad", UInt,&$LI ), 0,0 )
        Loop % NumGet( P+24 ) + 1
             A_IsUnicode ? Var := DllCall( "MulDiv", Int,nPtr, Int,1, Int,1, AStr ) : DllCall(
"lstrcpy", Str,Var, UInt,nPtr ), nPtr := nPtr+StrLen( Var )+1,  List .=
"`n" Var, A_Index=1 ? Omit := StrLen( Var )+2 : StringTrimLeft, List,
List, %Omit%
        DllCall( "ImageHlp\UnMapAndLoad", UInt,&$LI )
        Return List
   }
   ExitApp

AutoHotkey[2] Команды

Владислав — Sun, 09 Mar 2014 19:33:27 GMT

Команда Описание

{ ... } Означает блок. Блоки обычно используются в функциях и командах Else, Loop и IF.

AutoTrim Определяет, удаляют ли операторы SetEnv и "var = value" пробелы и табуляции из начала и конца строки.

BlockInput Запрещает или позволяет пользователю взаимодействовать с компьютером при помощи клавиатуры, мыши и других устройств ввода.

Break Выводит из цикла (завершает цикл). Команда действительна только внутри цикла.

ClipWait Ожидает момента поступления данных в буфер обмена.

Continue Пропускает остаток текущей итерации цикла и начинает новую. Команда действительна только внутри цикла.

Control Вносит различные изменения в элементы управления.

ControlClick Посылает элементу управления события кнопки и колеса мыши.

ControlFocus Устанавливает фокус ввода на заданный элемент управления окна.

ControlGet Извлекает различную информацию об элементе управления.

ControlGetFocus Извлекает элемент управления целевого окна, имеющий фокус ввода (если таковой имеется).

ControlGetPos Извлекает позицию и размер элемента управления.

ControlGetText Извлекает текст из элемента управления.

ControlMove Перемещает элемент управления или изменяет его размеры.

ControlSendRaw Посылает окну или элементу управления эмулированные нажатия клавиш.

ControlSetText Изменяет текст в элементе управления.

CoordMode Устанавливает режим координат различных команд на соответствие активному окну или экрану.

Critical Не позволяет другим потокам прерывать текущий поток.

DetectHiddenText Определяет "видим" ли невидимый текст в окне в целях нахождения этого окна.
Данная команда воздействует на такие команды, как IfWinExist и WinActivate.

DetectHiddenWindows Определяет "видит" ли скрипт невидимые окна.

DllCall() Вызывает изнутри DLL функцию (например, стандартную функцию Windows API).

Drive Выдвигает/задвигает поддон CD или DVD-привода или задает метку тома диска.

DriveGet Извлекает различную информацию о диске (дисках) компьютера.

DriveSpaceFree Извлекает свободное пространство на диске в мегабайтах.

Edit Открывает скрипт для редактирования в ассоциированном редакторе.

Else Если результатом IF-оператора является FALSE, определяет команду(ы) для исполнения. Если определено несколько команд, сформируйте из них блок (заключите в фигурные скобки).

EnvAdd Задает переменной значение, равное сумме значения самой переменной и данного значения (может также прибавлять или вычитать время из значения дата-время (date-time)). Синоним: var += value

EnvDiv Задает переменной значение, равное результату деления самой переменной на данное значение. Синоним: var /= value

EnvMult Задает переменной значение, равное произведению самой переменной и данного значения. Синоним: var *= value

EnvSet Присваивает значение переменной, содержащейся в среде.

EnvSub Задает переменной значение, равное разности самой переменной и заданного значения (может также сравнивать значения даты-времени (date-time)). Синоним: var -= value

EnvUpdate Оповещает операционную систему и все запущенные приложения об изменении переменной окружения.

Exit Завершает текущий поток или весь скрипт (если скрипт завершает работу автоматически и не содержит горячих клавиш).

ExitApp Безусловно завершает скрипт.

FileAppend Добавляет в конец файла текст (при необходимости сначала создав файл).

FileCopy Копирует один или несколько файлов.

FileCopyDir Копирует папку вместе с подпапками и файлами (похоже на xcopy).

FileCreateDir Создает папку.

FileCreateShortcut Создает ярлык (.lnk-файл).

FileDelete Удаляет один или несколько файлов.

FileInstall Включает в скомпилированный скрипт заданные файлы.

FileGetAttrib Сообщает атрибуты папки или файла (только для чтения, скрытый и т.д.).

FileGetShortcut Извлекает информацию о ярлыке (.lnk-файле), например, его целевой файл.

FileGetSize Извлекает размер файла.

FileGetTime Извлекает дату-время изменения файла или папки.

FileGetVersion Извлекает версию файла.

FileMove Перемещает или переименовывает один или несколько файлов.

FileMoveDir Перемещает папку вместе с подпапками и файлами. Может также переименовывать папку.

FileRead Считывает в переменную весь текст файла.

FileReadLine Считывает определенную строку из файла и сохраняет текст в переменной.

FileRecycle Посылает, если возможно, файл или каталог в корзину.

FileRecycleEmpty Очищает корзину.

FileRemoveDir Удаляет папку.

FileSelectFile Отображает стандартный диалог, позволяющий пользователю выбирать файл(ы).

FileSelectFolder Отображает стандартный диалог, позволяющий пользователю выбрать папку.

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

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

FormatTime Преобразует временную метку YYYYMMDDHH24MISS в заданный формат даты/времени.

GetKeyState Проверяет, нажата или отпущена клавиша клавиатуры или кнопка мыши/джойстика. Извлекает также статус джойстика.

Gosub Переходит к заданной метке и продолжает выполнение до команды Return.

Goto Переходит к заданной метке и продолжает выполнение.

GroupActivate Активирует следующее окно в группе окон, заданных командой GroupAdd.

GroupAdd Добавляет спецификацию окна в группу окон, при необходимости создавая группу.

GroupClose Закрывает активное окно, если оно было только что активировано командами GroupActivate или GroupDeactivate. Затем активирует следующее окно в последовательности. Может также закрыть все окна группы.

GroupDeactivate Похоже на команду GroupActivate, однако активирует следующее окно не в группе.

GUI Создает и управляет окнами и элементами управления. Подобные окна можно использовать в качестве форм ввода данных или собственных пользовательских интерфейсов.

GuiControl Вносит различные изменения в элемент управления в окне GUI.

GuiControlGet Извлекает различную информацию об элементе управления в окне GUI.

HideAutoItWin, On|Off (Устарела – эквивалент данной команды: Menu, tray, NoIcon|Icon)
Hotkey Создает, изменяет, блокирует, разблокирует горячую клавишу во время работы скрипта.
if Если сравнение переменной со значением истинно (TRUE), задает команду(ы) для исполнения. Если команд несколько, сформируйте из них блок (заключите в фигурные скобки).
if (expression) Если выражение истинно(TRUE), задает команду(ы) для исполнения.
If var [not]between Проверяет, находится ли содержимое переменной численно или в алфавитном порядке между двумя значениями (включительно).

If var [not]in/contains MatchList Проверяет, совпадает ли содержимое переменной с одним из пунктов в списке.

If var is [not]type Проверяет, содержит ли переменная число, принадлежит ли строковое содержимое переменной верхнему регистру и т.д.

IfEqual/IfNotEqual Проверяет, равна ли переменная значению. Синоним: if var = value | if var <> value
IfExist

FileExist() Проверяет существование файла или папки.

IfGreaterOrEqual Сравнивает переменную со значением. Синоним: if var > value | if var >= value
IfInString

InStr() Проверяет, содержит ли переменная заданную строку.

IfLessOrEqual Сравнивает переменную со значением. Синоним: if var < value | if var <= value

IfMsgBox Проверяет, какую кнопку нажал пользователь во время последенй команды MsgBox.

IfWinActive
IfWinNotActive Проверяет, существует ли заданное окно и активно ли оно в момент проверки (на переднем плане).

IfWinExist
IfWinNotExist Проверяет, существует ли заданное окно.

ImageSearch Осуществляет поиск изображения в области экрана.

IniDelete Удаляет значение из стандартного формата .ini-файла.

IniRead Считывает значение из стандартного формата .ini-файла.

IniWrite Присваивает значение стандартного формата .ini-файла.

Input Ожидает, пока пользователь печатает строку (не поддерживается в Windows 9x).

InputBox Отображает окно для ввода данных, приглашая пользователя напечатать строку.

KeyHistory Отображает информацию о скрипте и историю последних нажатий клавиш и кликов мыши.

KeyWait Ожидает, когда будет нажата или отпущена клавиша или кнопка мыши/джойстика.

LeftClick (Устарела – команда MouseClick обеспечивает бoльшую гибкость.)

LeftClickDrag (Устарела – команда MouseClickDrag обеспечивает бoльшую гибкость.)

ListHotkeys Отображает на экране горячие клавиши, используемые текущим скриптом, информацию о том, запущены ли их подпрограммы и используют ли они обработчик клавиатурных прерываний или кликов мыши.

ListLines Отображает последние выполненные строки скрипта.

ListVars Отображает переменные скрипта: их имена и текущее содержимое.

Loop (normal) Многократно выполняет ряд команд: заданное количество раз или до команды break.

Loop (files & folders) Поочередно извлекает заданные файлы или папки.

Loop (parse a string) Поочередно извлекает подстроки из строки.

Loop (read file contents) Поочередно извлекает строки текстового файла (работает быстрее, чем команда FileReadLine).

Loop (registry) Извлекает содержимое заданного подраздела реестра, по одному элементу.

Menu Создает, удаляет, изменяет и отображает меню и пункты меню. Изменяет иконку трея и всплывающую подсказку иконки трея. Проверяет, можно ли открыть главное окно скомпилированного скрипта.

MouseClick Нажимает или удерживает кнопку мыши, или прокручивает колесико мыши.

MouseClickDrag Нажимает и удерживает заданную кнопку мыши, перемещает мышь к заданным координатам, затем отпускает кнопку
.
MouseGetPos Извлекает текущую позицию курсора мыши и, по желанию, окно или элемент управления, над которым он находится.

MouseMove Перемещает курсор мыши.

MsgBox Отображает заданный текст в маленьком окне с одной или несколькими кнопками (например, с кнопками Yes и No).

OnExit Определяет подпрограмму, которая будет запущена автоматически, когда скрипт будет завершать работу.

OnMessage() Определяет функцию, которая будет запущена автоматически при получении скриптом заданного сообщения.

OutputDebug Посылает строку в отладчик (если таковой существует) для отображения.

Pause Приостанавливает текущий поток скрипта.

PixelGetColor Извлекает цвет пиксела, находящегося в заданных координатах экрана x,y.

PixelSearch Ищет в области экрана пиксел определенного цвета.

PostMessage Помещает сообщение в очередь сообщений окна или элемента управления.

Process Выполняет над процессом следующие операции: проверяет, существует ли процесс; изменяет его приоритет; закрывает его; ждет, пока он закроется.

Progress Создает или обновляет окно, содержащее индикатор выполнения.

Random Создает псевдослучайное число.

RegDelete Удаляет из реестра подключ или значение.

RegRead Считывает из реестра значение.

RegWrite Записывает значение в реестр.

Reload Заменяет текущий запущенный экземпляр скрипта на новый.

Repeat…EndRepeat (Устарела-- команда Loop обеспечивает бoльшую гибкость.)

Return Осуществляет возврат из подпрограммы, вызванной функцией, командой Gosub, активацией горячей клавиши, командой GroupActivate или другими способами.

RightClick (Устарела-- команда MouseClick обеспечивает бoльшую гибкость.)

RightClickDrag (Устарела-- команда MouseClickDrag обеспечивает бoльшую гибкость.)

Run Запускает внешнюю программу.

RunAs Задает параметры доступа пользователя для последующего использования команд Run и RunWait. Требует Windows 2000/XP или более поздних версий.

RunWait Запускает внешнюю программу и ждет завершения ее исполнения.

Send
SendRaw Посылает активному окну эмулированные нажатия клавиш.

SendMessage Посылает окну или элементу управления сообщение и ждет подтверждение приема.

SetBatchLines Определяет, как быстро будет выполняться скрипт (влияет на коэффициент загрузки центрального процессора).

SetCapslockState Задает состояние клавиши Capslock. Может включать ее или выключать.

SetControlDelay Задает задержку после каждой команды, влияющей на элементы управления.

SetDefaultMouseSpeed Задает скорость мыши, если она не была определена в командах MouseMove/Click
/Drag.

SetFormat Задает формат получаемых в результате математических операций целых чисел и чисел с плавающей запятой.

SetKeyDelay Задает задержку после каждого нажатия клавиши, посланного командой Send или ControlSend.

SetMouseDelay Задает задержку после каждого движения или щелчка мыши.

SetNumlockState Задает состояние клавиши Numlock. Может включать ее или выключать.

SetScrollLockState Задает состояние клавиши Scrolllock. Может включать ее или выключать.

SetStoreCapslockMode Определяет, восстанавливать ли после команды Send состояние клавиши CapsLock.

SetTimer Многократно автоматически запускает подпрограмму в заданные промежутки времени.

SetTitleMatchMode Задает соответствующее поведение параметра WinTitle в таких командах, как WinWait.

SetWinDelay Задает задержку после каждой команды, управляющей окнами, такой, как WinActivate.

SetWorkingDir Изменяет текущий рабочий каталог скрипта.

Shutdown Завершает работу (shut down) системы, перезапускает (restart) систему или выходит из системы (log off).

Sleep Перед продолжением работы, выжидает заданное количество времени.

Sort Располагает содержимое переменной в алфавитном, числовом или случайном порядке (по желанию удаляет копии).

SoundBeep Издает звук из динамика ПК.

SoundGet Извлекает из звукового устройства различные настройки (приглушение звука, громкость и т.д.)

SoundGetWaveVolume Извлекает из звукового устройства волновую выходную громкость.

SoundPlay Проигрывает звук, видео и другие поддерживаемые типы файлов.

SoundSet Изменяет различные настройки звукового устройства (приглушение звука, громкость и т.д.)

SoundSetWaveVolume Изменяет волновую выходную громкость звукового устройства.

SplashImage Создает или обновляет окно, содержащее JPG, GIF или BMP изображения.

SplashTextOn Создает настраиваемый текст всплывающего окна.

SplashTextOff Закрывает все ранее открытые окна.

SplitPath Разделяет имя файла или URL на имя, каталог, расширение и диск.

StatusBarGetText Извлекает текст из стандартного элемента управления "строка состояния" (status bar).

StatusBarWait Ожидает появления в строке состояния окна заданной строки.

StringCaseSense Определяет, является ли сравнение строк чувствительным к регистру (по умолчанию "no").

StringGetPos Извлекает позицию заданной подстроки в строке.

StringLeft Извлекает заданное количество символов в левой части строки.

StringLen
StrLen() Определяет количество символов в строке.

StringLower Конвертирует строку в нижний регистр.

StringMid Извлекает из заданной позиции в строке один или несколько символов.

StringReplace Заменяет заданную подстроку новой строкой.

StringRight Извлекает заданное количество символов в правой части строки.

StringSplit Разделяет строку на массив подстрок при помощи заданного разделителя.

StringTrimLeft Удаляет некоторое количество символов из левой части строки.

StringTrimRight Удаляет некоторое количество символов из правой части строки.

StringUpper Конвертирует строку в верхний регистр.

Suspend Блокирует или разблокирует все выбранные горячие клавиши.

SysGet Извлекает разрешение экрана, информацию о мониторах, размерность системных объектов и другие системные свойства.

Thread Задает приоритет или возможность прерывания потоков. Может также временно заблокировать все таймеры.

ToolTip Создает в любом месте экрана окно, всегда расположенное поверх других окон.

Transform Исполняет различные математические функции, побитовые операции и такие задачи, как преобразования ASCII/Unicode.

TrayTip Создает рядом с иконкой в трее всплывающее окно сообщений. Требует Windows 2000/XP или более поздних версий.

URLDownloadToFile Загружает из Интернета файл.

Var = value Присваивает переменной заданное значение.

Var := expression Вычисляет выражение и сохраняет результат в переменной.

VarSetCapacity() Увеличивает ёмкость переменной или освобождает ее память. Обычно данная команда необходима только в чрезвычайных случаях, таких, как при вызове DllCall().

WinActivate Активирует заданное окно (перемещает его на передний план).

WinActivateBottom То же самое, что и WinActivate, только активирует самое нижнее подходящее окно (самое первое из недавно открытых), а не окно, находящееся на самом верху.

WinClose Закрывает все заданные окна.

WinGetActiveStats Комбинирует функции WinGetActiveTitle и WinGetPos в одну команду.

WinGetActiveTitle Извлекает название активного окна.

WinGetClass Извлекает имя класса заданного окна.

WinGet Извлекает уникальный идентификатор, идентификатор процесса, имя процесса или список элементов управления заданного окна. Может также извлекать список всех окон, подпадающих под определенные критерии.

WinGetPos Извлекает позицию и размер заданного окна.

WinGetText Извлекает из заданного окна текст.

WinGetTitle Извлекает заголовок заданного окна.

WinHide Скрывает заданное окно.

WinKill Закрывает заданное окно.

WinMaximize Увеличивает заданное окно до максимального размера.

WinMenuSelectItem Запускает пункт меню из строки меню заданного окна.

WinMinimize Сворачивает заданное окно в кнопку на панели задач.

WinMinimizeAll Минимизирует все окна.

WinMinimizeAllUndo Отменяет результат выполнения предыдущей команды WinMinimizeAll.

WinMove Изменяет позицию и/или размер заданного окна.

WinRestore Отменяет команды WinMinimize и WinMaximize для заданного окна.

WinSet Вносит в заданное окно различные изменения, такие, как прозрачность и "всегда поверх других окон".

WinSetTitle Изменяет заголовок заданного окна.

WinShow Показывает скрытое заданное окно.

WinWait Ожидает появления заданного окна.

WinWaitActive Ожидает активизации заданного окна.

WinWaitClose Ожидает исчезновения (закрытия) заданного окна.

WinWaitNotActive Ожидает деактивизации заданного окна.

[Общее] [AHK] Шифр Цезаря

Владислав — Sun, 09 Mar 2014 19:20:17 GMT

Текст шифруется

Код

Gui, Add, Edit, x1 y1 w309 h85 -Multi vEncrypt,
Gui, Add, Button, x0 y86 w102 h23 Default gCesar, Шифровать
Gui, Add, Edit, x1 y110 w309 h85 -Multi +ReadOnly vDecrypt,
Gui, Show, Center w311 h197, Шифр Цезаря
Return
Cesar:
Gui, Submit, NoHide
Text_Decrypt := Cesar(Encrypt)
GuiControl, , Encrypt, %Text_Decrypt%
Return
Cesar(Encrypt)
{
     StringCaseSense, on
     AutoTrim, off
     StringLen, length, Encrypt
     source = abcdefghijklmnopqrstuvwxyz
     source_CAPS = ABCDEFGHIJKLMNOPQRSTUVWXYZ
     StringSplit, source, source
     StringSplit, Encrypt, Encrypt
     StringSplit, source_CAPS, source_CAPS
     Loop, %length%
     {
     char_pos = %A_Index%
     Loop, 26
       {
       comp_char := source%A_Index%
       If Encrypt%char_pos% = %comp_char%
         {
         replace := A_Index + 3
           If replace > 26
             replace -= 26
           Encrypt%char_pos% := source%replace%
         break
         }
        comp_char := source_CAPS%A_Index%
       If Encrypt%char_pos% = %comp_char%
         {
         replace := A_Index + 3
           If replace > 26
             replace -= 26
           Encrypt%char_pos% := source_CAPS%replace%
         break
         }
       }
     }
Text_new =
Loop, %length%
{
new_char := Encrypt%A_Index%
Text_new = %Text_New%%new_char%
}
return Text_new
}
return
GuiClose:
ExitApp

[AHK] Исходник - Будильника

Владислав — Sun, 09 Mar 2014 19:17:54 GMT

Код

Menu,Tray,NoStandard
  Menu,Tray,DeleteAll
  Menu, tray, Add, AHK-Power.RU,zz
  Menu, tray, Add, Выйти., Exit
  Gui, Add, Text, x6 y11 w130 h90 vMyTime, Пододжите
  Gui, Font, S8 CRed, Verdana
  Gui, Add, GroupBox, x146 y1 w250 h100 , Будильник
  Gui, Font, S8 CBlack, Verdana
  Gui, Add, Edit, x156 y21 w40 h20 vPCh, ч.
  Gui, Add, Edit, x206 y21 w70 h20 vPMin, мин.
  Gui, Add, Edit, x286 y21 w60 h20 vPSek, сек.
  Gui, Add, Button, x166 y61 w100 h30  gPostt, Поставить
  ; Generated using SmartGUI Creator 4.0
  Gui, Show, x131 y91 h116 w409, Будильник 0.1
  SetTimer, c, 10
  rabota = 0
  Return

  zz:
  Run, www.ahk-power.ru
  return

  GuiClose:
  ExitApp

  Exit:
  ExitApp
  return

  Postt:
    If (rabota = 0)
       {
       rabota = 1
       }
  else
  rabota = 0
  return

  c:
  Gui, Submit, NoHide
    If (rabota = 1)
       {
           vremia =
           (
  Ваше время:
  %A_Hour%:%A_Min%:%A_Sec%
  Время звонка:
  %PCH%:%PMin%:%PSek%
           )
           GuiControl,,MyTime,%vremia%`n`n`nAHK-power.ru
           If (PCH=A_Hour) and (PMin=A_Min) and (PSek<=A_Sec)
              {
              MsgBox,БЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗЗ
              rabota = 0
              GuiControl,,ln,Поставить
              }
      }

  else
  vremia =
  (
  Ваше время:
  %A_Hour%:%A_Min%:%A_Sec%
  )
  GuiControl,,MyTime,%vremia%`n`n`nAHK-power.ru
  return