首页  编辑  

鼠标手势Autohotkey MouseGestureL

Tags: /计算机文档/软件应用技巧/   Date Created:
鼠标手势脚本。
MouseGestureL，AutoHotKey脚本。

补充:
  1. ; 资源管理器中，按 Ctrl+Shift+C，复制文件名
  2. #IfWinActive ahk_exe explorer.exe
  3. ^+c::
  4.  send ^c
  5.  sleep,200
  6.  clipboard = %clipboard% ;%null%
  7.  tooltip,%clipboard%
  8.  sleep, 2000
  9.  tooltip,
  10.  return
  11. #IfWinActive

计算数学表达式，支持Wscript语法：
  1. #^z::
  2.  InputBox, express, 表达式计算, `n请输入表达式如数学公式,,400,150,,,,, %Clipboard%
  3.  try { 
  4.   Tempfile := A_Temp . "\mgu_temp.vbs"
  5.   s := Format("WScript.echo Eval(""{}"")", express)
  6.   FileDelete, %Tempfile%
  7.   FileAppend % s, % Tempfile
  8.   cmd := "cscript //nologo " Tempfile
  9.   result := Exec(cmd)
  10.  } catch e {
  11.   result := % "错误: " e.Message "`n行: " e.Line 
  12.  }
  13.  showMessage("结果", result)
  14.  return
  16. Exec(command) {
  17.  shell := ComObjCreate("WScript.Shell")
  18.  exec := shell.Exec(command)
  19.  err := exec.StdErr.ReadAll()
  20.  pos := InStr(err, ": ")
  21.  if (pos > 0) {
  22.   err := SubStr(err, pos + 2)
  23.  }
  24.  return exec.StdOut.ReadAll() . err
  25. }

粘贴为纯文本
  1. ^+v::
  2.  Clip0 = %ClipBoardAll%
  3.  ClipBoard = %ClipBoard%
  4.  Send ^v
  5.  Sleep 100
  6.  ClipBoard = %Clip0%
  7.  VarSetCapacity(Clip0, 0)
  8.  return
HTML内容粘贴为HTML代码（RAW HTML）
  1. ; 获取剪贴板中 CF_HTML 格式数据
  2. ExtractHtmlData() {
  3.  static CF_HTML := DllCall("RegisterClipboardFormat", "Str", "HTML Format")
  4.  DllCall("OpenClipboard", "Uint", 0)
  5.  format := 0
  6.  Loop {
  7.   format := DllCall("EnumClipboardFormats", "Uint", format)
  8.  } until format = CF_HTML || format = 0
  9.  if (format != CF_HTML) {
  10.   DllCall("CloseClipboard")
  11.   return
  12.  }
  13.  hData := DllCall("GetClipboardData", "Uint", CF_HTML, "Ptr")
  14.  pData := DllCall("GlobalLock", "Ptr", hData)
  15.  html := StrGet(pData, "UTF-8")
  16.  DllCall("GlobalUnlock", "Ptr", hData)
  17.  DllCall("CloseClipboard")
  18.  
  19.  pos := InStr(html, "<html")
  20.  if (pos > 1) {
  21.   html := SubStr(html, pos)
  22.  }
  23.  return html
  24. }
  26. ; 定义快捷键Ctrl+Alt+V，粘贴 HTML 原始代码
  27. ^!v::
  28. ^!v::
  29.  Clip0 = %ClipBoardAll%
  30.  ClipBoard := ExtractHtmlData()
  31.  Send ^v
  32.  Sleep 100
  33.  ClipBoard = %Clip0%
  34.  VarSetCapacity(Clip0, 0)
  35.  Return

给Windows程序添加别名，添加后，按Win键打开菜单，然后输入别名即可运行对应程序
  1. ^#a::
  2.     Gui, Add, Text, x10 y5 w200 h20, 请输入别名，例如 xyz
  3.     Gui, Add, Edit, x10 y30 w300 h20 vAlias, 
  4.     Gui, Add, Text, x10 y55 w200 h20, 请输入可执行文件名和路径
  5.     Gui, Add, Edit, x10 y80 w300 h20 vExe, 
  6.     Gui, Add, Button, x10 y110 w60 h30 gOk Default, 确定
  7.     Gui, Add, Button, x80 y110 w60 h30 gCancel, 取消
  8.     Gui, Show, w320 h150, 添加新命令
  9. return
  11. Ok:
  12.     Gui, Submit, NoHide
  13.     if Alias =
  14.     {
  15.         MsgBox, 48, 错误, 请输入别名
  16.         Return
  17.     }
  18.     if Exe =
  19.     {
  20.         MsgBox, 48, 错误, 请输入可执行文件名和路径
  21.         Return
  22.     }
  23.     Run cmd /c reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%Alias%.exe" /ve /d "%Exe%" /f
  24.     Gui, Destroy
  25. return
  27. Cancel:
  28.     Gui, Destroy
  29.     return
屏幕取色
  1. ; 屏幕取色，Win + Alt + C
  2. #!c:: 
  3.  ; 显示取色信息，跟随鼠标移动显示
  4.  Tooltip, , % "1"
  6.  ; 获取桌面工作区域矩形
  7.  SysGet, WorkArea, MonitorWorkArea
  8.  ; MsgBox % "工作区域矩形: Left=" . WorkAreaLeft . ", Top=" . WorkAreaTop . ", Right=" . WorkAreaRight . ", Bottom=" . WorkAreaBottom
  9.  
  10.  Loop
  11.  {
  12.   ; 监听鼠标移动
  13.   CoordMode, Mouse, Screen
  14.   CoordMode, Pixel, Screen
  15.   CoordMode, ToolTip, Screen
  16.   MouseGetPos, X, Y
  17.   PixelGetColor, color, %X%, %Y%
  18.   R := (color & 0x000000FF)
  19.   G := (color & 0x0000FF00) >> 8
  20.   B := (color & 0x00FF0000) >> 16
  21.   rgb := Format("#{:x}{:x}{:x}", r, g, b)
  22.   s := Format("({},{})颜色:`nHTML - {}`nR={}, G={}, B={}", X, Y, rgb, R, G, B)
  23.   
  24.   ty := Y + 20
  25.   if (ty > WorkAreaBottom - 60) {
  26.    ty := WorkAreaBottom - 60
  27.   }
  28.   ToolTip, % s, % X + 20, % ty
  29.   Sleep, 10
  30.   if (GetKeyState("Escape", "P"))
  31.   {
  32.    ; ESC键退出
  33.    ToolTip
  34.    Clipboard := rgb
  35.    break
  36.   }
  37.  }
  38.  return
显示IP地址
  1. GetIPs() {
  2.  ; 查询本机所有网络适配器的IP地址
  3.  wbemLocator := ComObjCreate("WbemScripting.SWbemLocator")
  4.  wbemServices := wbemLocator.ConnectServer(".", "root\cimv2")
  5.  networkAdapters := wbemServices.ExecQuery("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
  7.  ; 遍历所有网络适配器，输出IP地址
  8.  ip := ""
  9.  for adapter in networkAdapters
  10.  {
  11.   ipAddresses := adapter.IPAddress
  12.   for index, ipAddress in ipAddresses
  13.   {
  14.    ip := ip . "`t" . index . "`n"
  15.   }
  16.  }
  18.  whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
  19.     whr.Open("GET", "https://api.ipify.org", false)
  20.     whr.Send()
  21.  ip := "外部地址: `n`t" . whr.ResponseText . "`n" . "内部地址: `n" . ip
  22.  whr := ""
  23.     return ip
  24. }
  26. showMessage(title, text) {
  27.  Gui +LastFound +ToolWindow +AlwaysOnTop
  28.  WinSet, Transparent, 200
  29.     Gui, Font, s18
  30.     Gui, Add, Edit, x10 y10 w580 h460, %text%
  31.     Gui, Show, w600 h480, %title%
  32. }
  34. #+i:: showMessage("结果(按ESC关闭)", GetIPs())

MouseGestureL.zip (4.5MB)