原版作者：星雨朝霞
原版链接：https://www.autoahk.com/archives/1550
相当好用的一个AHK窗口信息获取工具，还能生成后台发送按键或鼠标操作控件的代码。是一个AHK必备工具
我只是在原版基础上加大了窗口的宽度以显示更多内容，修正了颜色 RGB反置和一些显示问题。对于AHKInfo窗口不能置顶的BUG我是套上我以前发的SkinSharp皮肤插件得以解决。
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(&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,http://ahk.5d6d.com/?fromuid=4531
else if (ItemPos = "aboutMenu3") ;中文社区
Run,https://www.autoahk.com/
else if (ItemPos = "aboutMenu4") ;英文社区
Run,https://www.autohotkey.com/boards/
else if (ItemPos = "aboutMenu5") { ;关于
MsgBox, 262208, 关于 %AHKInfo_Title%, 作者: 星雨朝霞`nQQ: 458926486
;~ **********************
;~ * 以下是选项菜单内容 *
;~ **********************
}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
}
有介绍、有图、有代码，推荐！
?
谢谢分享，学习一下
谢谢分享，学习学习
谢谢分享！！！
更新了什么？
进一步调整了主界面，和生成代码加了DPI生成选项
这个工具中没有acc好像，可以尝试添加一下
感谢持续更新
請問 這句 641句 GetV(VV,Col=1) { 報錯 能幫忙解惑嗎
; AHKInfo-1.3.5-是一个相当好用的AutoHotkey窗口信息获取工具， ; 还能生成后台发送按键或鼠标操作控件的代码。是一个AutoHotkey必备工具。 ; 下载0： ; https://ds920.lanzoue.com/iASgJ08xl18h ; 下载1： ; https://ds920.lanzoue.com/imp7E08xl1ba ; 下载2： ; https://www.aliyundrive.com/s/XyuArDzYKmo ; 下载3： ; 链接: https://pan.baidu.com/s/163okrQY5_CKKfPwZbpJ0_A?pwd=aahk ; 提取码: aahk ; 下载4： ; 链接: https://pan.baidu.com/s/1g12jtA8D9oi3pfiWPLZ5uA?pwd=aahk ; 提取码: aahk SetBatchLines -1
已更新
Functions cannot contain functions
已更新
解惑_________; 下载0： ; https://ds920.lanzoue.com/iASgJ08xl18h ; 下载1： ; https://ds920.lanzoue.com/imp7E08xl1ba ; 下载2： ; https://www.aliyundrive.com/s/XyuArDzYKmo ; 下载3： ; 链接: https://pan.baidu.com/s/163okrQY5_CKKfPwZbpJ0_A?pwd=aahk ; 下载4： ; 链接: https://pan.baidu.com/s/1g12jtA8D9oi3pfiWPLZ5uA?pwd=aahk
{AHKInfo相关网址汇总} {AHKInfo-1.3.5-是一个相当好用的AutoHotkey窗口信息获取工具} {星雨朝霞 https://www.autoahk.com/archives/1550} {下载0 https://ds920.lanzoue.com/iASgJ08xl18h} {下载1 https://www.aliyundrive.com/s/XyuArDzYKmo} {下载2 https://pan.baidu.com/s/163okrQY5_CKKfPwZbpJ0_A?pwd=aahk 提取码aahk} {ahkinfo1.3.5可以调整大小 https://www.autoahk.com/archives/23107} {AHKInfo 1.3.5 加宽修正版 by dbgba https://www.autoahk.com/archives/42893｝ {AHKinfo工具修改版以及修改方法教程 https://www.autoahk.com/archives/43602} {AHKInfo修改版1.36_hzn https://www.autoahk.com/archives/43428} {AHKInfo 1.3.5 加宽修正版 https://www.autoahk.com/archives/39376}