文章
文章用户小块地帮助动态论坛导航

AHKInfo修改版1.36_hzn

一直觉得这个info工具挺好的,但是有几个不太舒服的点,做了修改

1.  首先打开的时候不能立刻显示当前活动窗口的信息,要手动取一下信息,所以自行加入了取打开时候的顶层窗口的信息的代码

2. 缺少关键快捷键,比如在生成实例代码的时候不能一键复制一整行,加入了快捷键^c作为复制行

3.另外就是没有编译的版本里面如果没有使用win32启动会有部分功能失效的情况,加入了空大佬的runwith32的函数来解决

4.出现的位置修改为屏幕右上角,和我另外修改的spy工具的位置呼应

演示一下,打开的时候自动取了vscode的信息,另外演示了按键复制行

AHKInfo修改版1.36_hzn

 

 

不知道论坛怎么发文件…下次弄个网盘分享文件吧

下载地址

 

完整的没有编译的源码

/*
 * @Author: HZN 
 * @Date: 2022-08-22 11:41:22 
 * @Last Modified by:   HZN 
 * @Last Modified time: 2022-08-22 11:41:22 
 */

; 定义标题,在多处用到的!还是定义个变量比较好!后期修改时只改这里就行了
runwith("admin","u32")
#NoEnv
#SingleInstance Force
SetBatchLines -1
Hotkey,F2,getpos   
Hotkey, IfWinActive,AHKInfo 1.3.6_hzn
Hotkey,^c,copyline
; Hotkey,RButton,Setico

AHKInfo_Title=AHKInfo 1.3.6_hzn
;********************************************
;图标数据
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
窗口宽 := 控件宽 + 17
;********************************************  
;					创建菜单
;********************************************  
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, +AlwaysOnTop +Resize
Gui, 1:Add, GroupBox, x10 y5 w232 h40 , 窗口信息
Gui, 1:Add, Text, x17 y22 w42 h19 , 标题:
Gui, 1:Add, Edit, x55 y19 w180 h19 ReadOnly -Wrap  vTitle
Gui, 1:Add, Picture, x252 y10 w32 h32 gSetico vPic
Gui, 1:Add, Tab2,+Theme -Background -Wrap AltSubmit gTab_Click x6 y50 w337 h358  vTab1,窗口|控件|V/A文本|样式表|操作|IE元素|IE操作
;==========================================================
Gui, 1:Tab, 1  ;以下创建的控件属于第一个标签页
Gui, 1:Add, ListView,NoSort Grid NoSortHdr -Multi gListView_DoubleClick vListView1  x8 y75 w%控件宽% h306 , 属性|值
;列表控件1中的项目,貌似这样写的代码比较少
ListView1_Text=窗口标题|窗口类|窗口ID|坐标|大小|窗口点击|样式|扩展样式|进程PID|进程名|进程路径|透明色|全局坐标|颜色 BGR|颜色 RGB　
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 x8 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 x8 y233 w%控件宽% h170 ,控件列表|ID|句柄|文本|

;==========================================================
Gui, 1:Tab, 3 ;以下创建的控件属于第3个标签页 []
Gui, 1:Add, Edit,HScroll ReadOnly x8 y75 w%控件宽% h162 vVisible_text,这里将显示的是可见文本
Gui, 1:Add, Edit,HScroll ReadOnly x8 y237 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 x8 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, x13 y77,窗口识别条件:
Gui, Add, Checkbox,Checked x95 y74 h18 w45  vCheckbox1,标题
Gui, Add, Checkbox,Checked x145 y74 h18 vCheckbox2,类
Gui, Add, Checkbox, x185 y74 w57 h18 vCheckbox3,进程名
Gui, Add, Checkbox, x245 y74 w46 h18 vCheckbox4,Text
Gui, Add, Button,x295 y73 w35 h20 gbutton1,生成
Gui, 1:Add, Edit, HScroll ReadOnly x8 y95 w%控件宽% h305 vGenerate_text
;==========================================================
Gui, 1:Tab, 6 ;以下创建的控件属于第6个标签页 IE元素
Gui, 1:Add, ListView,AltSubmit NoSort NoSortHdr Grid -Multi HwndLV5H gListView_DoubleClick vListView5  x8 y75 w%控件宽% h238 , 元素属性|属性值
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, x8 y313 gRadio vRadio1,innerhtml
Gui, Add, Radio,Checked x100 y313 gRadio vRadio2,outerhtml
Gui, 1:Add, Edit,ReadOnly x8 y326 w%控件宽% h75 vEdit1
Radio1Text:=
Radio2Text:=
;==========================================================
Gui, 1:Tab, 7 ;以下创建的控件属于第7个标签页 IE操作
Gui, Add, Radio,Checked x10 y75 h20 gRadio vRadio3, 简单代码
Gui, Add, Radio, x100 y75 h20 gRadio vRadio4, 比较准确
Gui, 1:Add, Edit, HScroll ReadOnly x8 y95 w%控件宽% h305 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%
gosub GetPos ;打开的时候会有白框子一闪而过不影响使用,可以直接显示顶层窗口信息
; Gui, 1:Show,x %X% y %Y% w%窗口宽% h410, %AHKInfo_Title%
showx:=A_ScreenWidth-窗口宽
Gui, 1:Show,x %showx% y0 w%窗口宽% h410, %AHKInfo_Title%
;修改出现的位置为最右侧
;=====================================================
Gui, 2:Color,FF0000 
Gui, 2:-Caption +ToolWindow +Border +AlwaysOnTop +LastFound
WinSet, TransColor,FF0000 250

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,Screen
CoordMode,Pixel,Screen
;窗口是否置顶
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

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,http://cn.autohotkey.com/
}else if (ItemPos = "aboutMenu4") { ;英文社区
	Run,http://www.autohotkey.com/
}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
; KeyWait,RButton
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,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:=""
	SetText("",0)
	if (WinTitle!="" and WinTitle!="ahk_class"){
		;~ SetText(";------<<操作代码>>-------")
		text=
		(
		;等待指定标题窗口出现
		WinWait, %WinTitle%%WinText%
		
		)
		SetText(text)
		
		text=
		(
		;点击窗口内指定坐标
		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  ; 这里 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
}
copyline:
SendInput, {home 2}{shiftdown}{end}{ShiftUp}^{c}{home}
ToolTip, 复制行成功
SetTimer, RemoveToolTip,1000
Return




; 强制自身进程以 管理员权限 或 普通权限 或 ANSI 或 U32 或 U64 版本运行。
; 例1: runwith("admin","u32") 强制自身以 u32 + 管理员权限 运行。
; 例2: runwith("","ansi")     强制自身以 ansi 版本运行（权限不变）。
; 例3: runwith("normal")      强制自身以 普通权限 运行（版本不变）。
RunWith(RunAsAdmin:="Default", ANSI_U32_U64:="Default")
{
	; 格式化预期的模式
	switch, RunAsAdmin
	{
		case "Normal","Standard","No","0":		RunAsAdmin:=0
		case "Admin","Yes","1":								RunAsAdmin:=1
		case "Default":												RunAsAdmin:=A_IsAdmin
		default:															RunAsAdmin:=A_IsAdmin
	}
	switch, ANSI_U32_U64
	{
		case "A32","ANSI","A":								ANSI_U32_U64:="AutoHotkeyA32.exe"
		case "U32","X32","32":								ANSI_U32_U64:="AutoHotkeyU32.exe"
		case "U64","X64","64":								ANSI_U32_U64:="AutoHotkeyU64.exe"
		case "Default":												ANSI_U32_U64:="AutoHotkey.exe"
		default:															ANSI_U32_U64:="AutoHotkey.exe"
	}
	; 获取传递给 “.ahk” 的用户参数（不是 /restart 之类传递给 “.exe” 的开关参数）
	for k, v in A_Args
	{
		if (RunAsAdmin=1)
		{
			; 转义所有的引号与转义符号
			v:=StrReplace(v, "\", "\\")
			v:=StrReplace(v, """", "\""")
			; 无论参数中是否有空格，都给参数两边加上引号
			; Run       的内引号是 "
			ScriptParameters  .= (ScriptParameters="") ? """" v """" : A_Space """" v """"
		}
		else
		{
			; 转义所有的引号与转义符号
			; 注意要转义两次 Run 和 RunAs.exe
			v:=StrReplace(v, "\", "\\")
			v:=StrReplace(v, """", "\""")
			v:=StrReplace(v, "\", "\\")
			v:=StrReplace(v, """", "\""")
			; 无论参数中是否有空格，都给参数两边加上引号
			; RunAs.exe 的内引号是 \"
			ScriptParameters .= (ScriptParameters="") ? "\""" v "\""" : A_Space "\""" v "\"""
		}
	}
	; 判断当前 exe 是什么版本
	if (!A_IsUnicode)
		RunningEXE:="AutoHotkeyA32.exe"
	else if (A_PtrSize=4)
		RunningEXE:="AutoHotkeyU32.exe"
	else if (A_PtrSize=8)
		RunningEXE:="AutoHotkeyU64.exe"
	; 运行模式与预期相同，则直接返回。 ANSI_U32_U64="AutoHotkey.exe" 代表不对 ahk 版本做要求。
	if (A_IsAdmin=RunAsAdmin and (ANSI_U32_U64="AutoHotkey.exe" or ANSI_U32_U64=RunningEXE))
		return
	; 如果当前已经是使用 /restart 参数重启的进程，则报错避免反复重启导致死循环。
	else if (RegExMatch(DllCall("GetCommandLine", "str"), " /restart(?!\S)"))
	{
		预期权限:=(RunAsAdmin=1) ? "管理员权限" : "普通权限"
		当前权限:=(A_IsAdmin=1)  ? "管理员权限" : "普通权限"
		ErrorMessage=
		(LTrim
		预期使用: %ANSI_U32_U64%
		当前使用: %RunningEXE%
		预期权限: %预期权限%
		当前权限: %当前权限%
		程序即将退出。
		)
		MsgBox 0x40030, 运行状态与预期不一致, %ErrorMessage%
		ExitApp
	}
	else
	{
		; 获取 AutoHotkey.exe 的路径
		SplitPath, A_AhkPath, , Dir
		if (RunAsAdmin=0)
		{
			; 强制普通权限运行
			switch, A_IsCompiled
			{
				; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
				; 工作目录不用单独指定，默认使用 A_WorkingDir 。
				case, "1": Run, RunAs.exe /trustlevel:0x20000 "\"%A_ScriptFullPath%\" /restart %ScriptParameters%",, Hide
				default: Run, RunAs.exe /trustlevel:0x20000 "\"%Dir%\%ANSI_U32_U64%\" /restart \"%A_ScriptFullPath%\" %ScriptParameters%",, Hide
			}
		}
		else
		{
			; 强制管理员权限运行
			switch, A_IsCompiled
			{
				; %A_ScriptFullPath% 必须加引号，否则含空格的路径会被截断。%ScriptParameters% 必须不加引号，因为构造时已经加了。
				; 工作目录不用单独指定，默认使用 A_WorkingDir 。
				case, "1": Run, *RunAs "%A_ScriptFullPath%" /restart %ScriptParameters%
				default: Run, *RunAs "%Dir%\%ANSI_U32_U64%" /restart "%A_ScriptFullPath%" %ScriptParameters%
			}
		}
		ExitApp
	}
}

给TA捐赠
共{{data.count}}人
人已捐赠
其他

想要实现vim一样的数字加方向键

2022-8-24 22:26:07

其他

如何在FirPE中运行AutoHotkey脚本和Maye-Lite-2022年8月25日

2022-8-25 13:55:50

10 条回复 A文章作者 M管理员
  2. 而今迈步从头越

    链接：https://pan.baidu.com/s/1pYiMU7L5zJXBCL403DLFRg?pwd=vvl3 提取码：vvl3 –来自百度网盘超级会员V4的分享

  3. hexuren

    文件放网盘好一点，当然也是可以直接发我，我上传至社区oss网盘 插入下载在编辑器中找下，是有的

  4. hexuren
    1河许人给您捐赠了￥2
  5. hexuren

    这是一个不错的项目建议持续更新

    • 而今迈步从头越

      对,确实是个不错的工具,下个月准备再加一些生成的样板代码的

  6. aahk

    原版链接：https://www.autoahk.com/archives/1550 修正版链接：https://www.autoahk.com/archives/39376 AHKInfo修改版1.36_hzn https://www.autoahk.com/archives/43428 下面是我的修改版： 1、帮助菜单增添了“AHK中文帮助” 2、改正了无法访问的“AHK中文论坛” 3、保留操作菜单中的 DPI 复选框选项 ; 下载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

  7. 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}

❯

解锁会员权限

开通会员

解锁海量优质VIP资源

立刻开通
个人中心
购物车
优惠劵
有新私信 私信列表
搜索
客服

  • 扫码打开当前页

返回顶部