获取程序Edit框光标位置选中字符串，自测！

/*
	获取程序Edit框选中光标位置字符串。自测！
	不保证全部有效，测试Notepad、EmEditor有效！
*/

string=
(
赵客缦胡缨，吴钩霜雪明。
银鞍照白马，飒沓如流星。
十步杀一人，千里不留行。
事了拂衣去，深藏身与名。
闲过信陵饮，脱剑膝前横。
将炙啖朱亥，持觞劝侯嬴。
三杯吐然诺，五岳倒为轻。
眼花耳热后，意气素霓生。
救赵挥金槌，邯郸先震惊。
)
Gui,Destroy
Gui,Font,s14
Gui,Add,Edit,HWNDEditBox,% string
Gui,Show

;;光标选取Edit框内字符按F1获取
F1::
	MouseGetPos, , , id, control
	ControlGet, HWND, Hwnd ,, %Control%, ahk_id %id%
	EditGetSelectedText(HWND, string)
	MsgBox % string
Return


;获取Edit框选择的字符串
EditGetSelectedText(ctl, ByRef string){
	start :=0,end :=0
	SendMessage, EM_GETSEL:=0x00B0, &start, &end,, ahk_id %ctl%
	start := NumGet(start, 0, "UInt")
	end := NumGet(end, 0, "UInt")
	ControlGetText, string , , ahk_id %ctl%
	string:=SubStr(string,start+1,Abs(end-start))

	Return string
}