Word模拟手写 

/*一、基于手写机、其他材料的 VBA 代码
优点是：同类字体的不同细节，可以更高的模拟手写情况。*/

Sub 模拟手写()
    Dim R_Character As Range
  
    '定义字体大小，随机选取以下大小，可以根据需要改写
    Dim FontSize(5)
    FontSize(1) = "16"
    FontSize(2) = "16.2"
    FontSize(3) = "16.5"
    FontSize(4) = "17"
    FontSize(5) = "17.2"
  
    '定义字体名称，随机选取以下名称，可以根据需要改写
    Dim FontName(7)
    FontName(1) = "郑大白"
    FontName(2) = "郑大风"
    FontName(3) = "郑大黑"
    FontName(4) = "郑大黄"
    FontName(5) = "郑大绿"
    FontName(6) = "郑大清"
    FontName(7

Excel自适应行高增加10 

Sub 自适应行高()
	Set Rng = Range("a1").Resize(Range("a" & Rows.Count).End(xlUp).Row,1)
	Rng.Rows.AutoFit '自动行高
	For Each r In Rng.Rows
		r.RowHeight = r.RowHeight + 10
	Next
End Sub

Excel打印预览&所有行列缩放到一页 

ActiveWindow.SelectedSheets.PrintPreview  '打印预览
ActiveSheet.PageSetup.FitToPagesTall = 1 '所有行缩放到一页
ActiveSheet.PageSetup.FitToPagesWide = 1 '所有列缩放到一页

Space(空格键)增强(作为修饰键) 

#NoEnv
#SingleInstance, Force
SendMode, Input
SetBatchLines, -1
SetWorkingDir, %A_ScriptDir%
StringCaseSense, On

AnyKeyPressedOtherThanSpace(mode = "P") {
    keys = 1234567890-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./
    Loop, Parse, keys
    {    
        isDown :=  GetKeyState(A_LoopField, mode)
        if(isDown)
            return True
    }

    return False
}


supressed := False
RestoreInput(){
    BlockInput, Off
    Global supressed
    supressed := False
}

Supr

以管理员权限运行AutoHotkey脚本 

; 将这段代码赋值到脚本最前面即可让本脚本以管理员身份运行
Loop A_Args.Length  ; For each parameter:
  {
    param := %A_Index%  ; Fetch the contents of the variable whose name is contained in A_Index.
    params .= A_Space . param
  }
; 在V2版本中A_IsUnicode已经被删除，默认就是Unicode
; V1版本判断代码
; ShellExecute := A_IsUnicode ? "shell32\ShellExecute":"shell32\ShellExecuteA"
ShellExecute := "shell32\ShellExecute"
if not A_IsAdmin
{
    If A_IsCompiled
       DllCall(ShellExecute, "uint", 0, "str", "RunAs", "str", A_ScriptFull

同一个按键开始暂停(鼠标连点器) 

F1::
	Sleep,300
	loop
	{
		Send,1{Click}
		Sleep,70
		if GetKeyState("F1")
		{
			break
		}
	}
return

AutoHotkey以管理员身份运行时，以普通用户权限运行程序 

Run_AsUser(ProgramPath,arg) {
    ComObjCreate("Shell.Application")
    .Windows.FindWindowSW(0, 0, 0x08, 0, 0x01)  
    .Document.Application.ShellExecute(ProgramPath,arg) 
}

Autohotkey同一按键开关功能 

    k :=0
    $%需要发送的热键%::   
    k := 1-k
    if (k == 1)
        settimer, Sendkey, %间隔时间%
    else
        settimer, Sendkey, off
    Return
   
    Sendkey:
    {
        send %需要发送的热键%
    }
    return

锁屏并熄灭屏幕 

/*
  锁屏并熄灭屏幕
*/
LockAndOffScreen()
{
  Sleep 200
  Run rundll32.exe user32.dll`,LockWorkStation
  Sleep 200
  SendMessage,0x112,0xF170,2,,Program Manager
  Return
}

打开激活隐藏Chrome等软件 

;Chrome等程序的窗口会存在N个子窗口。所以增加了寻找主窗口HWND的过程，就可以正常激活了。

hyf_onekeyWindow(exePath, titleClass := "", titleReg := "")
{ ;有些窗口用Ahk_exe exeName判断不准确，所以自定义个titleClass
    SplitPath, exePath, exeName, , , noExt
    If !hyf_processExist(exeName)
    {
        ;hyf_tooltip("启动中，请稍等...")
        Run,% exePath
        ;打开后自动运行 TODO
        funcName := noExt . "_runDo"
        If IsFunc(funcName)
        {
            ;hyf_tooltip("已自动执行函数：" . funcName)
            Func(funcName).Call()
        }

循环切换虚拟桌面 

IniRead iniNum, switch-desktop.ini, Common, DesktopNum, 2

idx := 0
num := iniNum

#`::
if (num >= 2) {
  Send {Blind}{Ctrl down}
  if (idx >= num - 1) {
    while (idx > 0) {
      Send {Blind}{Left}
      idx--
      if (idx > 0)
        Sleep 100
    }
  } else {
    Send {Blind}{Right}
    idx++
  }
  Send {Blind}{Ctrl up}
}
return

#!`::
InputBox inputNum, Desktop number
num := inputNum
IniWrite % num, switch-desktop.ini, Common, DesktopNum
return

设置当前窗口置顶以及不被Win+D最小化 

#Requires AutoHotkey v2.0
^+l::{
    WinSetAlwaysOnTop(-1, "A") ; 强制置顶窗口
    WinSetExStyle("^0x80","A") ; 设置窗口不被Win+D最小化
    return
}

增加当前词语到Rime自定义词库 

; 添加选中的“短语 触发词”到Rime输入法自定义短语
RimeAppend( ){
    ClipSaved := ClipboardAll  ; 保存当前剪贴板内容
    Clipboard := ""            ; 清空剪贴板以便于接下来的操作
    Send, ^c                   ; 复制选中的文本
    ClipWait, 1                ; 等待剪贴板更新

    if (Clipboard != "")
    {       
      if (InStr(Clipboard, " "))    ; 使用正则表达式检查是否符合"aaa 空格 bbb"的形式
      {
          ; 将"空格"替换为"Tab"
          ModifiedText := StrReplace(Clipboard, " ", A_Tab)
          ; 追加结果到指定文件
          FileAppend, %ModifiedText%`n, D:\User

设置任意键为Hotstring的终止符 


Loop
{
   Input ch, I L1 V
   HOTY = %HOT%
   HOT  =
}
;此处设置为你喜欢的终止符热键
!l::  
   If (Asc(A_PriorHotKey) = Asc(":") and HOTY <> "")
      Send % "{BS " StrLen(A_PriorHotKey)-5 "}" HOTY
Return
;rtfm替换为热字符串
; HOT = 替换为热字符串对应需要发送的字符。
:*B0:rtfm::
   HOT = read the fantastic manual
Return

禁止关闭按钮关闭时最小化当前窗口 

#IfWinActive ahk_class Notepad2U
LButton::
Click Down
IfWinNotActive ahk_class Notepad2U
{
   KeyWait LButton
   Click Up
}
return

LButton Up::
CoordMode, Mouse, Screen
MouseGetPos, x, y
SendMessage, 0x84,, (x & 0xFFFF) | (y & 0xFFFF) << 16  ; WM_NCHITTEST
if (ErrorLevel = 20) ; close button
   WinMinimize, A
Click Up
return

统计选中文字的字符数目 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 统计字符数. 小众计数器未提供源码，自己实现
;
; F12: 统计当前选中文字中的中英文单词数
;
; gaochao.morgen@gmail.com
; 2015/6/21
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

#Persistent
#SingleInstance Force
#NoTrayIcon
#NoEnv

; 英文标点符号
global Symbols := "^[:;,_!'\-\\\.\*\?\+\[\{\|\(\)\^\$]"
global ToolTipX := A_ScreenWidth / 2
global ToolTipY := A_ScreenHeight / 2

F12::
	ClipSaved := ClipboardAll   ; 保存剪切板的内容

	; 把当前选中的文本拷贝到剪切板，然后统计剪切板的内容
	ClipBoard