SendMessage, 0xB1, -2, -1,, ahk_id %hEdit% ; 将光标移动到末尾 SendMessage, 0xB7, 0, 0, , ahk_id %hEdit% ; 滚动到末端 return guishow: { gui,print:new,,print gui,print:+Resize ; gui,print:Default Gui,print:Font,s10 cdcdcaa, verdana gui,print:Color,2b2b2b Gui,print:Add,Ed...
最近在用PostMessage&sendMessage,在往窗口发送按键消息的时候苦于找不到按键对应的16进制code,在Python那边找到了对应的常量 vk_codes= { 'a':0x41, 'b':0x42, 'c':0x43, 'd':0x44, 'e':0x45, 'f':0x46, 'g':0x47, 'h':0x48, 'i':0x49, 'j':0x4A, 'k':0x4B, 'l':0x4C, 'm...
OnMessage(0x201,"WM_LBUTTONDOWN") DetectHiddenWindows,Off WinWaitClose,ahk_id%Catch_ID% OnMessage(0x201,"") Return WM_LBUTTONDOWN(){ global ListLines,Off MouseGetPos,,,mclass if!InStr(mclass,"progress") Return MouseGetPos,,,mid,2 Fork...
SendMessage, 0x172, 0x0, hBitmap,, ahk_id %hwnd% E := ErrorLevel DeleteObject(E) return E}SetSysColorToControl(hwnd, SysColor=15){ WinGetPos,,, w, h, ahk_id %hwnd% bc := DllCall("GetSysColor", "Int", SysColor) pBrushClear := Gdip_BrushCreateSolid(0xff000000 | (bc >> 16...
SendMessage, 0x2001, 0, (A_Index>nW*nH ? 0xAAFFFF:c),, % "ahk_id " C_[A_Index] ListLines % lls nW:=2*ww+1, nH:=2*hh+1, i:=nW>71, j:=nH>25 Gui, FindText_Capture: Default GuiControl, Enable%i%, MySlider1 ...
Cancel Submit feedback Saved searches Use saved searches to filter your results more quickly Cancel Create saved search Sign in Sign up Reseting focus {{ message }} NatroTeam / NatroMacro Public Notifications You must be signed in to change notification settings Fork 163 ...
SendMessageW := this.LoadDllFunction( "user32.dll", "SendMessageW" )ret := DllCall( SendMessageW, "UPtr", hWnd, "UInt", Msg, "UPtr", wParam, "UPtr", lParam ) return ret } GetWindowThreadProcessId( hwnd ) { return DllCall( "GetWindowThreadProcessId", "Ptr", hwnd, "Ptr", 0 ...
E := DllCall( "SendMessage", Ptr, hwnd, "UInt", 0x172, "UInt", 0x0, Ptr, hBitmap ) DeleteObject(E) return E } ;### ; Function SetSysColorToControl ; Description Sets a solid colour to a control ; ; hwnd handle of the control to update ; SysColor A system colour...
SendMessage, 0xB1, -2, -1,, ahk_id %hEdit% ; 将光标移动到末尾 SendMessage, 0xB7, 0, 0, , ahk_id %hEdit% ; 滚动到末端 return guishow: { gui,print:new,,print gui,print:+Resize ; gui,print:Default Gui,print:Font,s10 cdcdcaa, verdana ...
('H:mm:ss')); SendMessageTimeOut(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_ABORTIFHUNG, 10, p); ADOConnectionYsk.BeginTrans; try if (dbedt_hzxm.Text = '') then begin showmessage('户主姓名必须填写。'); SetControlsEnableEdit(true); exit; end else begin if DateTimePicker1.Format...