【金山文档】集中存放资源共享文件夹-2022年10月3日
www.cnblogs.com/delphixx/p/16750423.html
1、为了实时自动保存正在编辑的正文内容，请用手机微信扫码登录金山文档网页版。
新建文档或者表格，把新建金山文档或者金山文档的在线表格作为开始办公的第1步。
（金山文档网页版登录网址是 www.kdocs.cn ，笔记本电脑、安卓智能手机、微信账号各位应该都有的，手机微信扫一扫登录金山文档网页版也比较快捷易用。所以这1步操作很容易实现，关键是应当养成这样操作的习惯，请不要直接在WPS或者Office或者EmEditer中编辑文档或表格。
2、除了手机微信扫码登录金山文档网页版中的文档、表格等文件之外，其他所有电子文件的最新版本都保存在Synology群晖DS920+网络附属存储服务器NAS之中。用RaiDrive_2022.6.56_x64.exe或者群晖QuickConnect或者FlashFXP或者ES文件浏览器安卓版来异地远程连接群晖NAS的SFTP文件服务，来搜索、查看、筛选、分类、整理、收纳、编辑、备份电子文件。
3、通过BAT批处理脚本、AutoHotkey自动化热键脚本和Embarcadero.Delphi.11.v28.Lite.v17集成开发环境来制作全自动的、静默的、智能的、一键的解决问题的资源包。
所有资源包都集中统一保存在文件夹“OneKey”中，资源包不分类，单一的文件夹层级，搜索资源时无需层层查找，所有资源包都在“OneKey”这1个文件夹中，。
资源文件夹中只有单个文件时资源文件夹与这个文件同名。资源文件夹中有两个或两个以上文件时在资源文件夹中新建一个BAT批处理脚本文件用于运行程序，BAT批处理脚本文件名以下划线开始加上资源文件夹名。自由文件夹名称用常规通用的、见名知意的、能够快速找到的资源包专用文件夹名，建议取主窗口标题的一部分作为资源包的专用文件夹名称。资源包对应的专用文件夹和批处理脚本文件以4位阿拉伯数字和减号作为命名前缀连续编号，开始编号0010-，递增10，分隔符-，重新编号软件“Bulk Rename Utility 简体中文汉化版”，资源文件夹名中只可以出现阿拉伯数字、英文字母、简体中文字符、英文半角减号和英文半角下划线这6种字符，英文半角下划线只用于BAT批处理脚本文件前缀。再系统允许的情况下文件名可以适当详细复杂一点，可以中文名称加上英文名称一起放，可以加功能作用和特征优点描述到最后。
资源包可以是文档、表格、图片 或者
资源包可以是电脑软件安装包 或者
资源包可以是音乐音频 或者
资源包可以是电影视频 或者
资源包可以是电子书 或者
资源包可以是源代码 或者
资源包可以是电脑软件安装包 或者
资源包可以是驱动程序安装包 或者
制作成与磁盘盘符无关的批处理脚本，使得批处理脚本能用于不同的移动固态硬盘盘符
@echo off
rem 搜索并且运行容量是4TB的SanDisk闪迪移动固态硬盘E81中的Maye程序的批处理脚本源码文件
rem set "FileName=Maye.EXE"
echo 正在搜索，请稍候...
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
if exist %%a:\Prog\系统\Maye\Maye.exe (
start %%a:\Prog\系统\Maye\Maye.exe
exit
)
)
通过%~dp0来表示批处理脚本文件本身所在的文件夹，
用Windows右键菜单“创建快捷方式”来创建批处理脚本文件的快捷方式
在批处理脚本文件中cd /D %~dp0的意思是更改当前目录为批处理本身的目录
用Total Commander 10.50 （支持拼音首字母筛选的版本，快捷键用Maye设置为~波浪号） 或者
IYF （ 网址 www.indexyourfiles.com ） 或者
Archivarius 3000 （ 网址 www.likasoft.com ） 来预先索引并搜索资源包。
文件夹“OneKey”中的资源包不分类，用FastCopy ver4.2.0 或者 GoodSync-V11复制拷贝同步备份上传文件夹“OneKey”的副本到笔记本电脑、台式电脑、群晖NAS服务器、Windows局域网共享文件夹、百度网盘、阿里云盘、天翼云盘和4TB的闪迪E81移动固态硬盘。
; AHKInfo-1.3.5-是一个相当好用的AutoHotkey窗口信息获取工具，
; 还能生成后台发送按键或鼠标操作控件的代码。是一个AutoHotkey必备工具。
SetBatchLines -1
; AHK脚本以管理员权限自启
if !(A_IsAdmin || InStr(DllCall("GetCommandLine", "str"), ".exe"" /r"))
RunWait % "*RunAs " (s:=A_IsCompiled ? "" : A_AhkPath " /r ") """" A_ScriptFullPath """" (s ? "" : " /r")
;AHK版本: AutoHotkey_L 1.1.09.02
;~ #NoTrayIcon
;定义标题,在多处用到的!还是定义个变量比较好!后期修改时只改这里就行了
AHKInfo_Title=AHKInfo 1.3.5
;********************************************
;图标数据
Cross_CUR:="000002000100202002000F00100034010000160000002800000020000000400000000100010000000000800000000000000000000000020000000200000000000000FFFFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF83FFFFFE6CFFFFFD837FFFFBEFBFFFF783DFFFF7EFDFFFEAC6AFFFEABAAFFFE0280FFFEABAAFFFEAC6AFFFF7EFDFFFF783DFFFFBEFBFFFFD837FFFFE6CFFFFFF83FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF28000000"
Full_ico:="0000010001002020100000000000E8020000160000002800000020000000400000000100040000000000000200000000000000000000100000001000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFFFF000FFFFFFFFFF00FF0FF00FFFFFFFFFF000FFFFFFFFF0FF00000FF0FFFFFFFFF000FFFFFFFF0FFFFF0FFFFF0FFFFFFFF000FFFFFFF0FFFF00000FFFF0FFFFFFF000FFFFFFF0FFFFFF0FFFFFF0FFFFFFF000FFFFFF0F0F0FF000FF0F0F0FFFFFF000FFFFFF0F0F0F0FFF0F0F0F0FFFFFF000FFFFFF0000000F0F0000000FFFFFF000FFFFFF0F0F0F0FFF0F0F0F0FFFFFF000FFFFFF0F0F0FF000FF0F0F0FFFFFF000FFFFFFF0FFFFFF0FFFFFF0FFFFFFF000FFFFFFF0FFFF00000FFFF0FFFFFFF000FFFFFFFF0FFFFF0FFFFF0FFFFFFFF000FFFFFFFFF0FF00000FF0FFFFFFFFF000FFFFFFFFFF00FF0FF00FFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000007770CCCCCCCCCCCCCCCCCCCCC07770007070CCCCCCCCCCCCCCCCCCCCC07070007770CCCCCCCCCCCCCCCCCCCCC0777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFF80000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000FFFFFFFFFFFFFFFFFFFFFFFF"
Null_ico:="0000010001002020100000000000E8020000160000002800000020000000400000000100040000000000000200000000000000000000100000001000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000007770CCCCCCCCCCCCCCCCCCCCC07770007070CCCCCCCCCCCCCCCCCCCCC07070007770CCCCCCCCCCCCCCCCCCCCC0777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFF80000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000FFFFFFFFFFFFFFFFFFFFFFFF"
Cross_CUR_File=%A_Temp%\Cross.CUR
Full_ico_File=%A_Temp%\Full.ico
Null_ico_File=%A_Temp%\Null.ico
控件宽 = 330
窗口宽 := 控件宽 + 20
;********************************************
; 创建菜单
;********************************************
SetBatchLines -1
OptionsMenu_Text1=总在最前`tWin+Shift+T
Menu, OptionsMenu, Add, %OptionsMenu_Text1% ,GuiMenu
_MenuIsCheck( "OptionsMenu", OptionsMenu_Text1, "AlwaysOnTop")
if (ErrorLevel=-1) ;没有记录时将默认置顶
Menu,OptionsMenu,Check, %OptionsMenu_Text1%
Hotkey,#+t,GuiOnTop
Menu, OptionsMenu, Add,
OptionsMenu_Text2=复制时带 ahk_***`tWin+Shift+C
Menu, OptionsMenu, Add, %OptionsMenu_Text2% ,GuiMenu
_MenuIsCheck( "OptionsMenu", OptionsMenu_Text2, "Copy.ahk_***")
Hotkey, #+C, Copy_ahk_T
Menu, OptionsMenu, Add,
OptionsMenu_Text3=自动捕捉`tWin+Shift+F
Menu, OptionsMenu, Add, %OptionsMenu_Text3% ,GuiMenu
_MenuIsCheck( "OptionsMenu", OptionsMenu_Text3, "AutoCapture")
Hotkey,#+f,AutoCapture
;++++++++++++++++++++++++++++++++++
Menu, MyMenuBar, Add, 选项(&O), :OptionsMenu
;-----------------------------------------------
Menu, aboutMenu, Add, 清除工具属性记录 ,GuiMenu
Menu, aboutMenu, Add
Menu, aboutMenu, Add, AHK中文帮助`t(&H) ,GuiMenu
Menu, aboutMenu, Add, AHK中文论坛`t(&L) ,GuiMenu
Menu, aboutMenu, Add, AHK中文社区`t(&S) ,GuiMenu
Menu, aboutMenu, Add, AHK英文论坛`t(&E) ,GuiMenu
Menu, aboutMenu, Add, 关于`t(&A) ,GuiMenu
Menu, MyMenuBar, Add, 帮助(&H), :aboutMenu
;-----------------------------------------------
Gui, 1:Menu, MyMenuBar
;===============================================
; 创建窗口控件
;===============================================
Gui, 1:Add, GroupBox, x12 y5 w252 h40 , 窗口信息
Gui, 1:Add, Text, x26 y22 w42 h19 , 标题：
Gui, 1:Add, Edit, x62 y19 w190 h19 ReadOnly -Wrap vTitle
Gui, 1:Add, Picture, x280 y10 w32 h32 gSetico vPic
Gui, 1:Add, Tab2,+Theme -Background -Wrap AltSubmit gTab_Click x6 y50 w340 h358 vTab1,窗口|控件|文本|样式表|操作|IE元素|IE操作
;==========================================================
Gui, 1:Tab, 1 ;以下创建的控件属于第一个标签页
Gui, 1:Add, ListView,NoSort Grid NoSortHdr -Multi gListView_DoubleClick vListView1 x10 y75 w%控件宽% h306 , 属性|值
;列表控件1中的项目,貌似这样写的代码比较少
ListView1_Text=窗口标题|窗口类|窗口ID|坐标|大小|窗口点击|样式|扩展样式|进程PID|进程名|进程路径|透明色|全局坐标|颜色 RGB|颜色 BGR
StringSplit,ListView1_Text_A,ListView1_Text,|
loop,%ListView1_Text_A0%
LV_Add("",ListView1_Text_A%A_Index%)
;调整所有列的宽度以适应行的内容
LV_ModifyCol(1), LV_ModifyCol(2, 259)
Gui, 1:Add, Text,x14 y388 w74 VText_T,透明度:
Gui, 1:Add, Slider, AltSubmit Center Range0-255 NoTicks ToolTip Line1 vSlider1 gSlider x90 y384 w222 h20,255
GuiControl, Disable,Slider1
;==========================================================
Gui, 1:Tab, 2 ;以下创建的控件属于第2个标签页
Gui, 1:Add, ListView,NoSort Grid NoSortHdr -Multi gListView_DoubleClick vListView2 x10 y75 w%控件宽% h158 , 属性|值
ListView2_Text=类别名|文本|实例编号|句柄|坐标|大小|点击坐标|样式|扩展样式
StringSplit,ListView2_Text_A,ListView2_Text,|
loop,%ListView2_Text_A0%
LV_Add("",ListView2_Text_A%A_Index%)
LV_ModifyCol(1), LV_ModifyCol(2, 256)
;......................
Gui, 1:Add, ListView,AltSubmit Checked Grid NoSort -Multi HwndLV4H gListView_DoubleClick vListView4 x10 y233 w%控件宽% h170 ,控件列表|ID|句柄|文本|
;==========================================================
Gui, 1:Tab, 3 ;以下创建的控件属于第3个标签页 []
Gui, 1:Add, Edit,HScroll ReadOnly x10 y75 w%控件宽% h162 vVisible_text,这里将显示的是可见文本
Gui, 1:Add, Edit,HScroll ReadOnly x10 y240 w%控件宽% h162 vHidden_text,这里将显示的是全部文本
;==========================================================
Gui, 1:Tab, 4 ;以下创建的控件属于第4个标签页
;~ Gui, 1:Add, GroupBox, x5 y310 w266 h90 , 全局鼠标
;~ ;全局鼠标列表
Gui, 1:Add, ListView,HwndLV3H NoSort NoSortHdr AltSubmit Checked Grid -Multi gListView_DoubleClick vListView3 x10 y75 w%控件宽% h325 , 窗口样式|值|说明
ListView3_Text=WS_BORDER,0x00800000,细边框|WS_POPUP,0x80000000,弹出式|WS_CAPTION,0x00C00000,标题栏|WS_DISABLED,0x08000000,不可用|WS_DLGFRAME,0x00400000,对话框边框|WS_MAXIMIZE,0x01000000,初始状态为最大化|WS_MAXIMIZEBOX,0x00010000,最大化按钮|WS_MINIMIZE,0x20000000,初始状态为最小化|WS_MINIMIZEBOX,0x00020000,最小化按钮|WS_OVERLAPPED,0x00000000,层叠|WS_SIZEBOX,0x00040000,可调整边框|WS_SYSMENU,0x00080000,标题菜单|WS_VSCROLL,0x00200000,垂直滚动条|WS_HSCROLL,0x00100000,水平滚动条|WS_VISIBLE,0x10000000,可见|WS_EX_TOPMOST,0x00000008,置顶状态|WS_EX_TOOLWINDOW,0x00000080,工具窗口|WS_EX_WINDOWEDGE,0x00000100,凸起边框
StringSplit,ListView3_Text_A,ListView3_Text,|
loop,%ListView3_Text_A0% {
StringSplit,ListView3_Text_A_L,ListView3_Text_A%A_Index%,`,
LV_Add("",ListView3_Text_A_L1,ListView3_Text_A_L2,ListView3_Text_A_L3)
}
LV_ModifyCol()
;==========================================================
Gui, 1:Tab, 5 ;以下创建的控件属于第5个标签页
Gui, Add, Text, x9 y77,窗口识别条件:
Gui, Add, Checkbox,Checked x90 y74 w44 h18 vCheckbox1,标题
Gui, Add, Checkbox,Checked x137 y74 w34 h18 vCheckbox2,类
Gui, Add, Checkbox, x174 y74 w38 h18 vCheckbox3,exe
Gui, Add, Checkbox, x215 y74 w44 h18 vCheckbox4,Text
Gui, Add, Checkbox, x262 y74 w38 h18 vCheckbox5,DPI
Gui, Add, Button,x305 y73 w35 h20 gButton1,生成
Gui, 1:Add, Edit, HScroll ReadOnly x10 y95 w%控件宽% h305 vGenerate_text
;==========================================================
Gui, 1:Tab, 6 ;以下创建的控件属于第6个标签页 IE元素
Gui, 1:Add, ListView,AltSubmit NoSort NoSortHdr Grid -Multi HwndLV5H gListView_DoubleClick vListView5 x10 y75 w%控件宽% h234 , 元素属性|属性值
ListView5_Text=document.title|document.url|statustext|tagname|type|name|id|classname|value|title|outertext|innertext|src|href|target
StringSplit,ListView5_Text_A,ListView5_Text,|
loop,%ListView5_Text_A0%
LV_Add("",ListView5_Text_A%A_Index%)
LV_ModifyCol()
Gui, Add, Radio, x14 y312 gRadio vRadio1,innerhtml
Gui, Add, Radio,Checked x104 y312 gRadio vRadio2,outerhtml
Gui, 1:Add, Edit,ReadOnly x10 y326 w%控件宽% h75 vEdit1
Radio1Text=
Radio2Text=
;==========================================================
Gui, 1:Tab, 7 ;以下创建的控件属于第7个标签页 IE操作
Gui, Add, Radio,Checked x14 y74 h18 gRadio vRadio3, 简单代码
Gui, Add, Radio, x104 y74 h18 gRadio vRadio4, 比较准确
Gui, 1:Add, Edit, HScroll ReadOnly x10 y94 w%控件宽% h308 vIeGenerate_text
global Radio3_Text=
global Radio4_Text=
;~ GuiControl,Choose,tab1,7
;==========================================================
Gui, 1:+HwndAHKID +OwnDialogs
X:=_RegR("X")="" ? 0:_RegR("X")
Y:=_RegR("Y")="" ? 0:_RegR("Y")
;~ MsgBox,%X%
Gui, 1:Show,x %X% y %Y% w%窗口宽% h412, %AHKInfo_Title%
;=====================================================
Gui, 2:Color,FF0000
Gui, 2:-Caption +ToolWindow +Border +AlwaysOnTop +LastFound
WinSet, TransColor,FF0000 250
OnMessage(0x203, "WM_LBUTTONDBLCLK")
FileDelete,%A_Temp%\Cross.CUR
FileDelete,%A_Temp%\Full.ico
FileDelete,%A_Temp%\Null.ico
;图片控件
IfNotExist,%Full_ico_File%
BYTE_TO_FILE(StrToBin(Full_ico),Full_ico_File)
GuiControl,,Pic,%Full_ico_File%
;-----------------------------
;改为屏幕模式
CoordMode,Mouse
CoordMode,Pixel
;窗口是否置顶
IsCheck:=IsMenuItemChecked( 0, 0, AHKID )
if (IsCheck=1)
WinSet,AlwaysOnTop,On,ahk_id %AHKID%
;捕捉功能
IsCheck:=IsMenuItemChecked( 0, 4, AHKID )
if (IsCheck=0)
SetTimer,GetPos,Off
else{
SetTimer,GetPos,On
WinSetTitle,ahk_id %AHKID%,,(自动)%AHKInfo_Title%
}
;==============全局变量============
global wb
global ele
;----------------热键-------------------
;一键捕捉 ;沿用旧版本ahkinfo的热键
Hotkey,~MButton,GetPos ;鼠标中键
Hotkey,~#ctrl,GetPos ;LWin+Ctrl
Hotkey,~^LWin,GetPos ;Ctrl+LWin
;定义窗口的热键
Hotkey,IfWinActive,ahk_id %AHKID%
Hotkey,Esc,GuiClose ;按Esc退出
return
;===========================
GuiClose:
WinGetPos,X,Y,,,ahk_id %AHKID%
_RegW("X",X), _RegW("Y",Y)
FileDelete,%A_Temp%\Cross.CUR
FileDelete,%A_Temp%\Full.ico
FileDelete,%A_Temp%\Null.ico
ExitApp
Slider:
IfWinExist,ahk_id %OutWin3%
{
GuiControl,,Text_T,透明度(%Slider1%):
if Slider1!=
WinSet,Transparent,%Slider1%,ahk_id %OutWin3%
}
return
WM_LBUTTONDBLCLK(wParam, lParam) {
if (A_GuiControl != "Generate_text")
return
SetTimer 延时获取整行, -50
return
延时获取整行:
SendInput {LButton Up}{LButton Up}
Send {Home}
Sleep 50
Send +{Down}
SendInput ^c
_ToolTip("复制成功")
return
}
GuiMenu: ;菜单事件
Gui +OwnDialogs
ThisMenuItemPos:=A_ThisMenuItemPos-1
ItemPos=%A_ThisMenu%%ThisMenuItemPos%
;~ **********************
;~ * 以下是帮助菜单内容 *
;~ **********************
if (ItemPos = "aboutMenu0") { ;清除工具的属性记录
MsgBox, 4132, 询问, 是否要清除AHKInfo的属性记录并退出?
IfMsgBox,Yes
{
RegDelete,HKCU,Software\AutoHotKey\AHKInfo
ExitApp
}
}else if (ItemPos = "aboutMenu2") { ;AHK中文帮助
Run,https://www.autoahk.com/help/autohotkey/zh-cn/docs/Tutorial.htm
}else if (ItemPos = "aboutMenu3") { ;AHK中文论坛
Run,https://www.autohotkey.com/boards/viewforum.php?f=26
}else if (ItemPos = "aboutMenu4") { ;中文社区
Run,https://www.autoahk.com/
}else if (ItemPos = "aboutMenu5") { ;英文社区
Run,https://www.autohotkey.com/boards/
}else if (ItemPos = "aboutMenu6") { ;关于
MsgBox, 262208, 关于 %AHKInfo_Title%, 作者: 星雨朝霞`nQQ: 458926486
; 加宽窗口,添加DPI生成功能 dbgba 2022年1月13日
; 加宽窗口,添加DPI生成功能修改后脚本下载网址提供 aahk QQ-E-Mail: [email protected] 2022年8月3日
;~ **********************
;~ * 以下是选项菜单内容 *
;~ **********************
}else if (ItemPos = "OptionsMenu0"){ ;切换置顶
Menu,%A_ThisMenu%,ToggleCheck,%A_ThisMenuItem%
IsCheck:=IsMenuItemChecked( 0, 0, AHKID )
_RegW("AlwaysOnTop",IsCheck)
if (IsCheck=1)
WinSet,AlwaysOnTop,On,ahk_id %AHKID%
else
WinSet,AlwaysOnTop,Off,ahk_id %AHKID%
}else if (ItemPos = "OptionsMenu2"){ ;切换复制时带上 ahk_***
Menu,%A_ThisMenu%,ToggleCheck,%A_ThisMenuItem%
IsCheck:=IsMenuItemChecked( 0, 2, AHKID )
_RegW("Copy.ahk_***",IsCheck)
}else if (ItemPos = "OptionsMenu4"){ ;自动捕捉 AutoCapture
Menu,%A_ThisMenu%,ToggleCheck,%A_ThisMenuItem%
IsCheck:=IsMenuItemChecked( 0, 4, AHKID )
if (IsCheck=0) {
SetTimer,GetPos,Off
;~ GuiControl,,Pic,%A_Temp%\Full.ico
WinSetTitle,ahk_id %AHKID%,,%AHKInfo_Title%
}else{
SetTimer,GetPos,On
WinSetTitle,ahk_id %AHKID%,,(自动)%AHKInfo_Title%
}
_RegW("AutoCapture",IsCheck)
}else
MsgBox,%ItemPos%
return
GuiOnTop: ;窗口置顶
;为了能选中菜单项又能触发它的事件!我只想到这种貌似有效又简单的方法
WinMenuSelectItem,ahk_id %AHKID%,,1&,1&
return
Copy_ahk_T: ;切换复制时带上 ahk_***
WinMenuSelectItem,ahk_id %AHKID%,,1&,3&
return
AutoCapture: ;自动捕捉 AutoCapture
WinMenuSelectItem,ahk_id %AHKID%,,1&,5&
return
Tab_Click:
GuiControlGet,var,,tab1
;~ MsgBox,%var%
return
ListView_DoubleClick:
Gui, 1:ListView,%A_GuiControl% ;切换下面的列表命令对应的列表控件,A_GuiControl包含了当前点击的控件关联变量名
;双击列表复制
if (A_GuiControlEvent="DoubleClick"){ ;只有是双击时才触发
if (A_GuiControl="ListView1" or A_GuiControl="ListView2" or A_GuiControl="ListView3" or A_GuiControl="ListView5") and (A_EventInfo!=0){
LV_GetText(LV_Text,A_EventInfo ,2) ;获取选中的项目第二列的内容,A_EventInfo包含了当前选中的行数
if LV_Text !=
{ ;如果内容不为空
ahk_x= ;定义一个变量,(我也不知道要不要这样)
;检查是否选中 复制时带 ahk_
IsCheck:=IsMenuItemChecked( 0, 2, AHKID ) ;所检查的菜单位置: 第一个菜单第三个项目
if (IsCheck=1){ ;如果菜单项是选中状态
if (A_GuiControl="ListView1"){ ;如果是指定的控件
if (A_EventInfo=2) ;
ahk_x=ahk_class
if (A_EventInfo=3)
ahk_x=ahk_id
if (A_EventInfo=9)
ahk_x=ahk_pid
if (A_EventInfo=10)
ahk_x:=ahk_exe
}
if (A_GuiControl="ListView5")
ahk_x:="." _LV_GetText(A_EventInfo) ":="
}
Clipboard=%ahk_x%%LV_Text%
_ToolTip( "Clipboard= " Clipboard)
}
}
;控件列表双击事件
if (A_GuiControl="ListView4" and A_EventInfo!=0){
LV_GetText(ListView4_T1,A_EventInfo,1), LV_GetText(ListView4_T2,A_EventInfo,4), LV_GetText(ListView4_T3,A_EventInfo,2), LV_GetText(ListView4_T4,A_EventInfo,3)
ControlGetPos,lvx,lvy,lvw,lvh,%ListView4_T1%,ahk_id %OutWin3%
ListView4_T5=%lvx%,%lvy%
ListView4_T6=%lvw%,%lvh%
ListView4_T7=
ControlGet,ListView4_T8,Style,,%ListView4_T1%,ahk_id %OutWin3% ;控件样式
ControlGet,ListView4_T9,ExStyle,,%ListView4_T1%,ahk_id %OutWin3% ;控件扩展样式
Gui, 1:ListView,ListView2
loop,9
LV_Modify(A_Index,"Col2",ListView4_T%A_Index%)
LV_ModifyCol() ;重新调整列宽
}
}
;列表选中事件
MouseGetPos,,,,LV,2
if (LV=LV4H and A_GuiControl="ListView4" and A_GuiControlEvent="I" and A_EventInfo!=0){
IfWinExist,ahk_id %OutWin3%
{
LV_GetText(LV_Text,A_EventInfo,1)
if % InStr(ErrorLevel, "C", true)
Control,Show,,%LV_Text%,ahk_id %OutWin3%
else if % InStr(ErrorLevel, "c", true)
Control,Hide,,%LV_Text%,ahk_id %OutWin3%
;~ WinSet,Redraw,,ahk_id %OutWin3%
}
}
if (LV=LV5H and A_GuiControl="ListView5" and A_GuiControlEvent="I" and A_EventInfo!=0 and IsObject(wb) and IsObject(ele)){
if _LV_GetText(A_EventInfo)="Checked" {
if InStr(ErrorLevel, "C", true)
ele.Checked:=true
if InStr(ErrorLevel, "c", true)
ele.Checked:=false
}}
;~ MsgBox,%A_GuiControl%
;双右击时事件
if (A_GuiControlEvent="R") {
if (A_GuiControl="ListView5" and IsObject(wb) and IsObject(ele)){
LV_GetText(LV_Text1,A_EventInfo,1)
LV_GetText(LV_Text2,A_EventInfo,2)
WV=title,url,value,outertext,innertext
if InStr(WV,LV_Text1) {
InputBox,LV_TextOut,元素属性值,输入元素属性值`n%LV_Text1% =,,,150,,,,,%LV_Text2%
if !ErrorLevel {
LV_Modify(A_EventInfo,"Col2",LV_TextOut)
if _LV_GetText(A_EventInfo)="title"
wb.document.title:=LV_TextOut
if _LV_GetText(A_EventInfo)="url"
wb.Navigate(LV_TextOut)
if _LV_GetText(A_EventInfo)="value"
ele.value:=LV_TextOut
if _LV_GetText(A_EventInfo)="innertext"
ele.innertext:=LV_TextOut
if _LV_GetText(A_EventInfo)="outertext"
ele.outertext:=LV_TextOut
}
}}}
;窗口样式
if (LV=LV3H and A_GuiControl="ListView3" and A_GuiControlEvent="I" and A_EventInfo!=0 and OutWin3!=AHKID){
DetectHiddenWindows, on
IfWinExist,ahk_id %OutWin3%
{
;~ MsgBox,
;~ if (OutWin3!=AHKID) {
LV_GetText(LV_Text1,A_EventInfo,1)
LV_GetText(LV_Text,A_EventInfo,2)
if % InStr(ErrorLevel, "C", true)
if % InStr(LV_Text1,"EX")
WinSet,ExStyle,+%LV_Text%,ahk_id %OutWin3%
else
WinSet,Style,+%LV_Text%,ahk_id %OutWin3%
else if % InStr(ErrorLevel, "c", true)
if % InStr(LV_Text1,"EX")
WinSet,ExStyle,-%LV_Text%,ahk_id %OutWin3%
else
WinSet,Style,-%LV_Text%,ahk_id %OutWin3%
;~ WinSet,Redraw,,ahk_id %OutWin3%
} ;}
DetectHiddenWindows, Off
}
return
;图标控件点击事件
Setico:
IfNotExist,%Cross_CUR_File%
BYTE_TO_FILE(StrToBin(Cross_CUR),Cross_CUR_File)
IfNotExist,%Null_ico_File%
BYTE_TO_FILE(StrToBin(Null_ico),Null_ico_File)
GuiControl,,Pic,%Null_ico_File%
;设置鼠标指针为十字标
CursorHandle := DllCall( "LoadCursorFromFile", "Str",Cross_CUR_File )
DllCall( "SetSystemCursor", "Uint",CursorHandle, "Int",32512 )
SetTimer,GetPos,500
GuiControl,,ieGenerate_text,等待...
SetText("等待...")
;等待左键弹起
KeyWait,LButton
Gui, 2:Hide
SetTimer,GetPos,Off
;还原鼠标指针
DllCall( "SystemParametersInfo", "UInt",0x57, "UInt",0, "UInt",0, "UInt",0 )
;图标设置为原样
IfNotExist,%Full_ico_File%
BYTE_TO_FILE(StrToBin(Full_ico),Full_ico_File)
GuiControl,,Pic,%Full_ico_File%
;~ GuiControlGet,TABVar,,TAB1 ;当前选项卡序号
;~ if (TABVar>=6) {
return
Generate(){ ;生成简单代码
Gui, 1:ListView,ListView1 ;切换到窗口列表以设置数据
GuiControlGet,Checkbox1_C,,Checkbox1
GuiControlGet,Checkbox2_C,,Checkbox2
GuiControlGet,Checkbox3_C,,Checkbox3
GuiControlGet,Checkbox4_C,,Checkbox4
GuiControlGet,Checkbox5_C,,Checkbox5
GuiControlGet,ALL_text,,Hidden_text
StringSplit,ALL_text,ALL_text,`n
LV_GetText(text1,1,2) ;标题
LV_GetText(text2,2,2) ;类名
LV_GetText(text3,10,2) ;进程名
LV_GetText(text4,6,2) ;窗口内指定坐标
Gui, 1:ListView,ListView2
LV_GetText(text5,1,2) ;获取控件类
LV_GetText(text6,7,2) ;获取控件内坐标
loop,%ALL_text0%
{
Index:=ALL_text0-A_Index+1
Text_index:=ALL_text%Index%
WinText:=Text_index!="" ? ", " SubStr(Text_index,1,10):
if Text_index!=
break
;~ if Text_index!=
;~ {
;~ WinText:=SubStr(Text_index,1,10)
;~ Break
;~ }
}
WinTitle:=
if (Checkbox1_C=1)
WinTitle=%text1%
if (Checkbox2_C=1)
WinTitle=%WinTitle% ahk_class %text2%
if (Checkbox3_C=1)
WinTitle=%WinTitle% ahk_exe %text3%
if (Checkbox4_C!=1)
WinText:=""
if (Checkbox5_C=1)
DPI修正提示:="【DPI缩放通用坐标修正】", text4 := StrReplace(StrReplace(text4,"x","% ""x"" ")," y","*A_ScreenDPI//" A_ScreenDPI " "" y"" ") "*A_ScreenDPI//" A_ScreenDPI
SetText("",0)
if (WinTitle!="" and WinTitle!="ahk_class") {
;~ SetText(";------<<操作代码>>-------")
text=
(
;等待指定标题窗口出现
WinWait, %WinTitle%%WinText%
)
SetText(text)
text=
(
;点击窗口内指定坐标 %DPI修正提示%
ControlClick, %text4%, %WinTitle%%WinText%
)
SetText(text)
if text5!=
{
text=
(
;点击控件
ControlClick, %text5%, %WinTitle%%WinText%
)
SetText(text)
if text6!=
{
text=
(
;左键点击控件内指定坐标1次
ControlClick, %text5%, %WinTitle%%WinText%, , Left, 1, %text6%
)
SetText(text)
}
if % InStr(text5,"Button")
{
text=
(
;控件选中(如果此控件为选择框或单选框) Check替换为Uncheck即取消选中
Control, Check, , %text5%, %WinTitle%%WinText%
)
SetText(text)
}
text=
(
;向控件发送空格键
ControlSend, %text5%,{Space}, %WinTitle%%WinText%
)
SetText(text)
}}
;~ Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据
;~ IE_Array:=Object()
Gui, 1:Tab, 7
iUrl:=GetV("document.url",2)
itagname:=GetV("tagname",2)
itype:=GetV("type",2)
iID:=GetV("id",2)
iValue:=GetV("Value",2)!="" ? GetV("Value",2):"设置新属性值"
Index=1
iCode=
(
;脚本由 AHKInfo 生成
ComObjError(false) ;关闭对象错误提示
for window in ComObjCreate("Shell.Application").Windows {
if InStr(window.document.url,"%iUrl%") { ;网页地址子字符串
ie:=window
break
}} ;连接符合条件的IE窗口,其它窗口上的IE控件请用 IEAttach() 帖子: http://ahk.5d6d.net/viewthread.php?tid=5501
if IsObject(ie)=0 {
;Exit ;如果连接IE对象失败就退出当前线程,(貌似跳过后面的代码了)
ie:=ComObjCreate("InternetExplorer.Application") ;如果连接IE对象失败就创建一个IE窗口
ie.visible :=true ;浏览器窗口可见
ie.Navigate("%iUrl%") ;如果先加载空白页面 about:blank ,这样IE窗口应该响应得快一点点
}
Loop { ;等待网页加载完成!
Sleep, 200
if (ie.readyState="complete" or ie.readyState=4 or A_LastError!=0)
break
} ;****************************************************************`n`n
)
iCode2:=GetV("tagname",2)!="" ? ("if (" itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" " ):
iCode2.=GetV("id",2)!="" ? ("and " itagname ".item(A_Index-1).id=`"`"" GetV("id",2) "`"`" " ):
iCode2.=GetV("src",2)!="" ? ("and " itagname ".item(A_Index-1).src=`"`"" GetV("src",2) "`"`" " ):
iCode2.=GetV("name",2)!="" ? ("and " itagname ".item(A_Index-1).name=`"`"" GetV("name",2) "`"`" " ):
iCode2.=GetV("classname",2)!="" ? ("and " itagname ".item(A_Index-1).classname=`"`"" GetV("classname",2) "`"`" " ):
iCode2.=GetV("href",2)!="" ? ("and " itagname ".item(A_Index-1).href=`"`"" GetV("href",2) "`"`" " ):
iCode2.=GetV("target",2)!="" ? ("and " itagname ".item(A_Index-1).target=`"`"" GetV("target",2) "`"`" " ):
;~ iCode2.=GetV("classname",2)!="" ? ".classname`n":
;~ iCode2.=GetV("innertext",2)!="" ? ".innertext`n":
;~ iCode2.=GetV("value",2)!="" ? ".value`n":
Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据
Radio4_Text_value=
(
%itagname%:=ie.document.GetElementsByTagName("%itagname%")
Loop `% %itagname%.length {
%iCode2%) {
%itagname%.item(A_Index-1).value:="%iValue%"
break ;找到一个符合条件的元素进行操作后,就退出循环,后面的元素就不比较了,可以提高一点点效率
}}
)
Radio4_Text_Click=
(
%itagname%:=ie.document.GetElementsByTagName("%itagname%")
Loop `% %itagname%.length {
%iCode2%) {
%itagname%.item(A_Index-1).Click()
break ;找到一个符合条件的元素进行操作后,就退出循环,后面的元素就不比较了,可以提高一点点效率
}}
)
Radio4_Text_Check=
(
%itagname%:=ie.document.GetElementsByTagName("%itagname%")
Loop `% %itagname%.length {
%iCode2%) {
;选择单选`/复选框并激活onChange/OnClick事件;设置为 false 即取消选择
%itagname%.item(A_Index-1).Checked:=true
%itagname%.item(A_Index-1).fireEvent("onChange")
%itagname%.item(A_Index-1).fireEvent("OnClick")
break ;找到一个符合条件的元素进行操作后,就退出循环,后面的元素就不比较了,可以提高一点点效率
}}
)
;=*********************************************************************
if (itagname="Input") {
if (itype="text" or itype="password")
if (iID=""){
Radio3_Text=;设置新属性值`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).value:="%iValue%"`n`n
Radio4_Text:=Radio4_Text_value
}else{
Radio3_Text=;设置新属性值`nie.document.getElementById("%iID%").value:="%iValue%"`n`n
Radio4_Text:=Radio4_Text_value
}
if (itype="submit" or itype="button" or itype="image")
if (iID=""){
Radio3_Text=;点击元素`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).Click()
Radio4_Text:=Radio4_Text_Click
}else{
Radio3_Text=;点击元素`nie.document.getElementById("%iID%").Click()
Radio4_Text:=Radio4_Text_Click
}
if (itype="radio" or itype="checkbox")
if (iID=""){
Radio3_Text=;选择单选`/复选框并激活onChange/OnClick事件;设置为 false 即取消选择`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).Checked:=true`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).fireEvent("onChange")`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).fireEvent("OnClick")
Radio4_Text:=Radio4_Text_Check
}else{
Radio3_Text=;选择单选`/复选框并激活onChange/OnClick事件;设置为 false 即取消选择`nie.document.getElementById("%iID%").Checked:=true`nie.document.getElementById("%iID%").fireEvent("onChange")`nie.document.getElementById("%iID%").fireEvent("OnClick")
Radio4_Text:=Radio4_Text_Check
}}else if (itagname="button" or itagname="a" or itagname="img" or itagname="span" or itagname="area" or itagname="input_image" `
or itagname="input_button" or itagname="input_submit" or itagname="input_radio" or itagname="input_reset" `
or itagname="li" or itagname="td" or itagname="table"){
if (iID=""){
Radio3_Text=;点击元素`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).Click()
Radio4_Text:=Radio4_Text_Click
}else{
Radio3_Text=;点击元素`nie.document.getElementById("%iID%").Click()
Radio4_Text:=Radio4_Text_Click
}
}else if (itagname="textarea"){
if (iID="")
Radio3_Text=;设置新属性值`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).value:="设置新属性值"`n`n
else
Radio3_Text=;设置新属性值`nie.document.getElementById("%iID%").value:="设置新属性值"`n`n
}else{
Radio3_Text=MsgBox,0,`% ".item(%TagIndex%).outerhtml",`% ie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).outerhtml
;~ Radio4_Text=MsgBox,0,outerhtml,`% %outerhtml%
Radio4_Text=
(
%itagname%:=ie.document.GetElementsByTagName("%itagname%")
Loop `% %itagname%.length {
%iCode2%) {
MsgBox,0,`% ".item(" A_Index-1 ").outerhtml",`% %itagname%.item(A_Index-1).outerhtml
}}
)
}
;"if (" itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" "
if InStr(Radio4_Text,itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" and")
StringReplace,Radio4_Text,Radio4_Text,% itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" and"
else
Radio4_Text:=Radio3_Text
global Radio3_TextS:=iCode Radio3_Text "`n"
global Radio4_TextS:=iCode Radio4_Text "`n"
GuiControlGet,Check_C,,Radio3
if Check_C=1
GuiControl,,ieGenerate_text,%Radio3_TextS%
else
GuiControl,,ieGenerate_text,%Radio4_TextS%
}
;==================
GetV(VV,Col=1) {
Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据
loop,% LV_GetCount() {
LV_GetText(outvar,A_Index)
if (outvar=VV) {
return _LV_GetText(A_Index,Col)
}}
}
SetText(iText,o=1){
StringReplace,iText,iText,%A_Tab% ,,All
if (o=1){
GuiControlGet,ControlText,,Generate_text
if ControlText=`n
StringReplace,ControlText,ControlText,`n,,All
GuiControl,,Generate_text,%ControlText%%iText%`n
}else
GuiControl,,Generate_text,%iText%`n
}
Radio:
GuiControlGet,sRadio1,,Radio1
if sRadio1=1
GuiControl,,Edit1,%Radio1Text%
else
GuiControl,,Edit1,%Radio2Text%
GuiControlGet,sRadio1,,Radio3
if sRadio1=1
GuiControl,,IeGenerate_text,%Radio3_TextS%
else
GuiControl,,IeGenerate_text,%Radio4_TextS%
return
;******************************************************************************************************
GetPos:
MouseGetPos,OutX,OutY,OutWin3,OutCtrl1 ;取鼠标下信息
WinGetPos,WinX,WinY,WinW,WinH,ahk_id %OutWin3% ;取鼠标下窗口坐标/大小
WinGetTitle,OutWin1,ahk_id %OutWin3% ;取鼠标下窗口标题
WinGetClass,OutWin2,ahk_id %OutWin3% ;取鼠标下窗口类名
ControlGetPos,OutCtrlX,OutCtrlY,OutCtrlW,OutCtrlH,%OutCtrl1%,ahk_id %OutWin3% ;控件坐标/大小
GuiControlGet,TABVar,,TAB1 ;当前选项卡序号
;=========================================================
if (OutWin3=AHKID) { ;如果鼠标下窗口为自身清空所有
GuiControl,,Title,
Gui, 1:ListView,ListView1 ;切换到窗口列表以设置数据
loop,%ListView1_Text_A0%
LV_Modify(A_Index,"Col2","")
LV_ModifyCol()
Gui, 1:ListView,ListView2 ;切换到控件列表以设置数据
loop,%ListView2_Text_A0%
LV_Modify(A_Index,"Col2","")
LV_ModifyCol() ;重新调整列宽
Gui, 1:ListView,ListView3 ;切换到列表控件3
loop,%ListView3_Text_A0%
LV_Modify(A_Index,"-Check")
Gui, 1:ListView,ListView4 ;切换到列表控件4 类别名|ID|句柄|文本|
LV_Delete()
LV_ModifyCol(1,"80","控件列表")
LV_ModifyCol(2,50) ;重新调整列宽
LV_ModifyCol(3,50)
LV_ModifyCol(4,50)
GuiControl,,Hidden_text,
GuiControl,,Visible_text,
GuiControl,,Edit1,
}
;===================网页操作===========================
if InStr(OutCtrl1,"Internet Explorer_Server") {
ControlGet,CtrlHwnd,Hwnd,,%OutCtrl1%,ahk_id %OutWin3%
global wb:=_IEObjGetFromHwnd(CtrlHwnd) ;从控件句柄转到对象
if IsObject(wb) {
Gui, 1:ListView,ListView5 ;切换到列表控件5 IE
LV_ModifyCol(2,"","属性值 (等待)" )
GuiControl,,Title,% wb.document.title
global ele:=wb.document.elementFromPoint(OutX-(WinX+OutCtrlX),OutY-(WinY+OutCtrlY)) ;取鼠标下网页元素对象
loop,% LV_GetCount() {
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="document.title" ? wb.document.title:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="statustext" ? wb.statustext:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="target" ? ele.target:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="name" ? ele.name:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="href" ? ele.href:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="id" ? ele.id:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="classname" ? ele.classname:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="src" ? ele.src:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="outertext" ? ele.outertext:)|
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="innertext" ? ele.innertext:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="type" ? ele.type:)
;~ LV_Modify(A_Index,_LV_GetText(A_Index)="checked" and _LV_GetText(A_Index,2)!="" and ele.checked=-1 ? "Col2 Check":"Col2 -Check",_LV_GetText(A_Index)="checked" ? (ele.checked=-1 ? "True":"false"):)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="title" ? ele.title:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="tagname" ? ele.tagname:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="id" ? ele.id:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="value" ? ele.value:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="name" ? ele.name:)
LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="document.url" ? wb.document.url:)
}
LV_ModifyCol(), Radio1Text:=ele.innerhtml, Radio2Text:=ele.outerhtml
gosub,Radio
}
}
if (OutWin3!=AHKID){ ;不获取自身..和标签页为6以上.IE
global OutWin3
;==============设置窗口列表的数据===================
;~ OutWin1= ;标题
;~ OutWin2= ;类名
;~ OutWin3= ;句柄
;~ OutWin4= ;窗口坐标
;~ OutWin5= ;窗口大小
;~ OutWin6= ;窗口点击
;~ OutWin7= ;窗口样式
;~ OutWin8= ;窗口扩展样式
;~ OutWin9= ;进程PID
;~ OutWin10= ;进程名
;~ OutWin11= ;进程路径
;===========================================
Gui, 1:ListView,ListView1 ;切换到窗口列表以设置数据
GuiControl,,Title,%OutWin1%
OutWin4=%WinX%,%WinY%
OutWin5=%WinW%,%WinH%
OutWin6_X:=OutX-WinX, OutWin6_Y:=OutY-WinY
OutWin6=x%OutWin6_X% y%OutWin6_Y%
WinGet,OutWin7, Style,ahk_id %OutWin3% ;窗口样式
WinGet,OutWin8, ExStyle,ahk_id %OutWin3% ;窗口扩展样式
WinGet,OutWin9,PID,ahk_id %OutWin3% ;窗口进程PID
WinGet,OutWin10,ProcessName,ahk_id %OutWin3% ;窗口进程名
WinGet,OutWin11,ProcessPath,ahk_id %OutWin3% ;窗口进程路径
WinGet,OutWin12,TransColor,ahk_id %OutWin3% ;获取窗口的透明色
OutWin13=%OutX% , %OutY%
PixelGetColor,OutWin14,%OutX%,%OutY%,Slow RGB ;获取鼠标下RGB颜色值
PixelGetColor,OutWin15,%OutX%,%OutY%,Slow ;获取鼠标下BGR颜色值
WinGet,OutWin17,Transparent,ahk_id %OutWin3% ;获取窗口的透明度
if OutWin16=
OutWin16=255
GuiControl, Enable,Slider1
GuiControl, ,Slider1,%OutWin16%
GuiControl,,Text_t,透明度(%OutWin16%):
loop,%ListView1_Text_A0%
LV_Modify(A_Index,"Col2",OutWin%A_Index%)
LV_ModifyCol()
;=============设置控件列表的数据===================
;~ OutCtrl1= ;控件类别名
;~ OutCtrl2= ;控件文本
;~ OutCtrl3= ;控件编号
;~ OutCtrl4= ;控件句柄
;~ OutCtrl5= ;控件坐标
;~ OutCtrl6= ;控件大小
;~ OutCtrl7= ;控件内点击坐标
;~ OutCtrl8= ;控件样式
;~ OutCtrl9= ;控件扩展样式
;===========================================
Gui, 1:ListView,ListView2 ;切换到控件列表以设置数据
if (OutCtrl1!=""){ ;如果控件类别名不为空
ControlGetText,OutCtrl2,%OutCtrl1%,ahk_id %OutWin3% ;获取控件文本
ControlGet,OutCtrl4,Hwnd,,%OutCtrl1%,ahk_id %OutWin3% ;控件句柄
OutCtrl3 := DllCall("GetDlgCtrlID", "uint", OutCtrl4) ;控件ID
if (OutCtrl3<=0) ;如果获取的控件ID小于0就把控件ID变量置空
OutCtrl3=
if (OutCtrlX!="") {
OutCtrl5=%OutCtrlX%,%OutCtrlY%
OutCtrl6=%OutCtrlW%,%OutCtrlH%
if (TABVar<6) ;
Gui2Show(WinX+OutCtrlX,WinY+OutCtrlY,OutCtrlW,OutCtrlH)
}else{
OutCtrl5=
OutCtrl6=
}
if (OutCtrl6!="") { ;控件内点击坐标
if (OutX-(WinX+OutCtrlX)>=0) {
OutCtrl7_X:=OutX-(WinX+OutCtrlX)
OutCtrl7_Y:=OutY-(WinY+OutCtrlY)
OutCtrl7=x%OutCtrl7_X% y%OutCtrl7_Y%
}else
OutCtrl7=
}else
OutCtrl7=
ControlGet,OutCtrl8,Style,,%OutCtrl1%,ahk_id %OutWin3% ;控件样式
ControlGet,OutCtrl9,ExStyle,,%OutCtrl1%,ahk_id %OutWin3% ;控件扩展样式
;上面所获取的数据变量名都设置为 同变量名+序号 是为了这里能两句命令就能解决复赋值问题
loop,%ListView2_Text_A0%
LV_Modify(A_Index,"Col2",OutCtrl%A_Index%)
LV_ModifyCol() ;重新调整列宽
;~ if (TABVar=1) ;如果当前标签是第1个,
;~ GuiControl, Choose, Tab1,2 ;激活第2个标签页
;===========================================
}else{
;如果控件类别名为空的,控件标签页中全部置空
loop,%ListView2_Text_A0%
LV_Modify(A_Index,"Col2","")
;~ if (TABVar=2) ;如果当前标签是第2个,
;~ GuiControl, Choose, Tab1,1 ;激活第1个标签页
}
;===========================================
Gui, 1:ListView,ListView3 ;切换到列表控件3
loop,%ListView3_Text_A0% {
LV_GetText(LV_TEXT,A_Index,2)
;~ MsgBox,%LV_TEXT%
if (OutWin7 & LV_TEXT or OutWin8 & LV_TEXT)
LV_Modify(A_Index,"Check")
else
LV_Modify(A_Index,"-Check")
}
LV_ModifyCol()
;=============设置可见文本的数据===================
DetectHiddenText,Off
WinGetText,OutWinText_Visible,ahk_id %OutWin3%
GuiControl,,Visible_text,%OutWinText_Visible%
;=============设置全部文本的数据===================
DetectHiddenText,On
WinGetText,OutWinText_Hidden,ahk_id %OutWin3%
GuiControl,,Hidden_text,%OutWinText_Hidden%
;===========================================
Gui, 1:ListView,ListView4 ;切换到列表控件4 类别名|ID|句柄|文本|
WinGet,CtrList,ControlList,ahk_id %OutWin3%
LV_Delete()
loop, Parse,CtrList,`n
{
ControlGet,CtrlHwnd,Hwnd,,%A_LoopField%,ahk_id %OutWin3%
CtrlID:= DllCall("GetDlgCtrlID", "uint", CtrlHwnd)
if (CtrlID<=0)
CtrlID=
ControlGetText,CtrlText,%A_LoopField%,ahk_id %OutWin3%
ControlGet,Visible,Visible,,%A_LoopField%,ahk_id %OutWin3%
if (Visible=1)
Visible=Check
else if (Visible=0)
Visible=-Check
LV_Add(Visible,A_LoopField,CtrlID,CtrlHwnd,CtrlText)
LV_ModifyCol(1,"","类别名[列表](" A_Index ")")
}
LV_ModifyCol()
}
;取元素集合序号
eletag:=wb.document.GetElementsByTagName(ele.tagname)
loop % eletag.length
if (eletag.item(A_Index-1).id=ele.id and eletag.item(A_Index-1).classname=ele.classname and eletag.item(A_Index-1).name=ele.name `
and eletag.item(A_Index-1).innertext=ele.innertext and eletag.item(A_Index-1).outerhtml=ele.outerhtml `
and eletag.item(A_Index-1).target=ele.target and eletag.item(A_Index-1).title=ele.title and eletag.item(A_Index-1).outertext=ele.outertext){
global TagIndex:=A_Index-1
break
}
Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据
LV_ModifyCol(2,"","属性值 (" eletag.length-1 "/" TagIndex ")" ), Generate()
return
_LV_GetText(Index,Col=1) {
LV_GetText(sText,Index,Col)
return sText
}
Button1:
Generate()
return
_MenuIsCheck( ThisMenu, ThisMenuItem, ValueName) { ;从注册表读取属性
RegRead,ThisCheck,HKCU,Software\AutoHotKey\AHKInfo,%ValueName%
if (ThisCheck=1) {
Menu,%ThisMenu%,Check,%ThisMenuItem%
ErrorLevel=1
}else if (ThisCheck=0) {
Menu,%ThisMenu%,UnCheck,%ThisMenuItem%
ErrorLevel=0
}else
ErrorLevel=-1
}
_RegW( ValueName, value ) { ;写注册表
RegWrite,REG_DWORD ,HKCU,Software\AutoHotKey\AHKInfo,%ValueName%,%value%
}
_RegR( ValueName) { ;读注册表
RegRead,Outvalue,HKCU,Software\AutoHotKey\AHKInfo,%ValueName%
return %Outvalue%
}
IsMenuItemChecked( MenuPos, SubMenuPos, hWnd ) { ; 检查菜单项是否选中,返回1或0
hMenu :=DllCall("GetMenu", "UInt",hWnd ), hSubMenu := DllCall("GetSubMenu", "UInt",hMenu, "Int",MenuPos ), VarSetCapacity(mii, 48, 0), NumPut(48, mii, 0), NumPut(1, mii, 4), DllCall( "GetMenuItemInfo", "UInt",hSubMenu, "UInt",SubMenuPos, "Int", 1, "UInt",&mii )
return ( NumGet(mii, 12) & 0x8 ) ? 1 : 0
}
EmptyMem(PID="AHK Rocks"){ ;释放内存
pid:=(pid="AHK Rocks") ? DllCall("GetCurrentProcessId") : pid, h:=DllCall("OpenProcess", "UInt", 0x001F0FFF, "Int", 0, "Int", pid), DllCall("SetProcessWorkingSetSize", "UInt", h, "Int", -1, "Int", -1), DllCall("CloseHandle", "Int", h)
}
_ToolTip(Text,OutTime=3000) { ;自动消失的ToolTip
ToolTip,%Text%
SetTimer, RemoveToolTip, %OutTime%
}
RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return
Gui2Show(x,y,w,h) {
wq := w*2
Gui, 2:Show,NA x%x% y%y% w%wq% h%h%
Sleep,300
Gui, 2:Hide
}
;字符串转二进制
StrToBin(Str) {
XMLDOM:=ComObjCreate("Microsoft.XMLDOM"), xmlver:="<?xml version=`"`"1.0`"`"?>"
XMLDOM.loadXML(xmlver), Pic:=XMLDOM.createElement("pic"), Pic.dataType:="bin.hex", pic.nodeTypedValue := Str, StrToByte := pic.nodeTypedValue
return StrToByte
}
; 数据流保存为文件
BYTE_TO_FILE(body, filePath) {
Stream := ComObjCreate("Adodb.Stream"), Stream.Type := 1, Stream.Open(), Stream.Write(body), Stream.SaveToFile(filePath,2), Stream.Close()
}
_IEObjGetFromHwnd(h_IECtrl) {
static Msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
SendMessage, Msg, 0, 0, , ahk_id %h_IECtrl%
if (ErrorLevel = "FAIL")
return
lResult := ErrorLevel, VarSetCapacity(GUID, 16, 0), GUID := IID_IHTMLDocument2, sGUID := "{332C4425-26CB-11D0-B483-00C04FD90119}", CLSID := DllCall("ole32\CLSIDFromString", "wstr", sGUID, "ptr", &GUID) >= 0 ? &GUID : "", DllCall("oleacc\ObjectFromLresult", "ptr", lResult, "ptr", CLSID, "ptr", 0, "ptr*", pDoc)
static IID_IWebBrowserApp := "{0002DF05-0000-0000-C000-000000000046}"
static SID_SWebBrowserApp := IID_IWebBrowserApp
ComObjError(false), pWeb := ComObjQuery(pDoc, SID_SWebBrowserApp, IID_IWebBrowserApp), ObjRelease(pDoc)
static VT_DISPATCH := 9, F_OWNVALUE := 1
oIE := ComObjParameter(VT_DISPATCH, pWeb, F_OWNVALUE)
return, oIE
}
标签：10,控件,Index,Text,Gui,LV,文件夹,2022,ahk From： https://www.cnblogs.com/delphixx/p/16750423.html