[General]
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=bea5592c-9083-4c34-8904-7abe724d8ff7
Description=準星
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=1
QUI=Form1
[Relative]
SetupOCXFile=
[Comment]

[Attachment]
UEsDBBQAAgAIAEQ3k0OiZiGSYQIAAL4IAAAIABEAY3VyMS5jdXJVVA0ABwqZslK4c8RSuHPEUu3SsU/bQBTH8R9VBybGSrCUxagr3qEdg6cskN1rJBZvHhomxkTykJEyVFXlTF5QspSIIZY6MHlCUQdHylgsBopE8evXrqos+C8o7/R8p/PH57unk15pTdvbquPruvSG/h1ZTX0g17Revzt5rVWsrYYndaOvH6vBdDrVdD5V8f0LUyeyuklWP1YDoy8eTZ/Pz5UVpiQ39TNTd2ZqjU1OjKsymkvhRPKHkhdIblvZAp/iR/gBPsB3sIfkAX4Pv4t38Jt41k0SfB/fxbfwzr8N4YUXXni1tcCn+BF+gA/wHfwh/gC/h9/FO/hNfIHP8Rl+hh/jY3yMj/Ah3sd7eBdveMMb3vCGN+dvpea0CW1IC2jt2hf4HJ/hZ/gxvlo9RkfoEO2jPbSLX+BT/Ag/wAf4jqoTzDnBhBMMOUHACdqcwDLWTRJ8H9/Ft/BOQ3Wo2gKf4kf4AT7Ad/CH+AP8Hn4X7+A38QU+x2f4GX6Mj/ExPsKHeB/v4d3qiuANb3jDG96c+urM2dCEDQ3ZUMCG2myowOf4DD/Dj/ExvuH6aIFP8SP8AB/gO/iG68O6mRJ8H9/Ft/AOvqlAmS3wKX6EH+CptHXUVKDMCnyOz/Az/BhPcRoKlFGIhOyTXbJFOlVxGgp0d3en5XKpm5sbXV9f6+rqShcXF4rjWGdnZ4qiSKenpwrDUMfHx/J9X0dHR/I8T/v7+3JdVzs7O9ra2tLGxoZe4iVe4v8Ney5K8vd7szw1+/Fo9u3J7GNpZdnrlQ+feuX9be/p/vby6eevywfpbTWu5up3mMrW31TfVmtUa5XP/sn+AFBLAwQUAAIACAB2PJNDBUZ7bkwAAAA2DAAAEgARAHpodW5YaW5nX0hvdmVyLmJtcFVUDQAHv6GyUgl0xFIJdMRSc/I142EAAzMg1gBiBShmZJCASEDl6Qz+0wyMmj9q/qj5o+aPmj9q/qj5o+aPTPNpDQ4gAZB3KECYpkFEkBmUm8+Al0EL82kaPjQFAFBLAwQUAAIACADYO5NDXGt/mLYAAAA2DAAAEwARAHpodW5YaW5nX05vcm1hbC5ibXBVVA0AB4SgslIJdMRSCXTEUsWVwQ5AMAyG5y7Ojo6ewAO4e2eJB2NMpLHp/prWH01k7T7dutU4DbU7NHjrvXWnVa4NDu9fmmCGWtUk5UuTEfFfLBkJpswrGPxQNubmjYOz05kAkMYTnrwiFDMu5UjzAfm3KuNbh/DpscFLj2eC8JlV42eSzxnhf9vNftkf7fran8/P75d2fzDobwb9OVnZeLCQn7x6oikrLNX/+wvZ8LU1E+3LKXhiWhihL+V8x75o8FX3R1UbUEsBAhcLFAACAAgARDeTQ6JmIZJhAgAAvggAAAgACQAAAAAAAAAgAICBAAAAAGN1cjEuY3VyVVQFAAcKmbJSUEsBAhcLFAACAAgAdjyTQwVGe25MAAAANgwAABIACQAAAAAAAAAgAICBmAIAAHpodW5YaW5nX0hvdmVyLmJtcFVUBQAHv6GyUlBLAQIXCxQAAgAIANg7k0Nca3+YtgAAADYMAAATAAkAAAAAAAAAIACAgSUDAAB6aHVuWGluZ19Ob3JtYWwuYm1wVVQFAAeEoLJSUEsFBgAAAAADAAMA0gAAAB0EAAAAAA==


[UIPackage]
UEsDBBQAAgAIAEQhIkS8pOzvVhAAAAjyAAAJABEAVUlQYWNrYWdlVVQNAAfK5sRSyubEUsrmxFLtnQlgFeURx//LGe77vkFEQJRLBEQUsCgaDiGcHhhCgGAukxegaiv20Fbr1dajWg9agta2Km2xaj1oUav1wFZttVWrVWvrVepJPUhn3u7jrUle2NmdvMn16RgMuztvvv2++X4z3+y+5nDbU7u7vLxle99XUKlNR3Psq2iDVr7fOZ7EW2egGf1oTrKvoqIi8euKplav2uckLei+jSJpTdKShO95BklbkjYk7Ug6kLQn6U7SkaSTOwTQhaQrSTeSXiQ9SHqS9CbpS9KHpB/JAJL+JANJhpAMIhlMMpTkIJJhJMNJRpAcTHIIyWiSkSSHkqwkOYxkDMnhJONJxpKMI5lAcgTJRJJJJJNJjiSZQnIUyVSSafExDRxNcgzJTJJjSWaQzCL5EslxJLNJTiA5nmQOyUkkJ5JkkswjmUsyn2QhyQKSk0kWkSwmySJZQrKMZCnJcpJTSFaQnEpyBslpJKeTZHvzJod+riJZTbKGJJdkLUkeyTqS9ST5JGeSFJAUkxSSFJGcRVJKUkISI9lAUkay0bv2vgD3fyFdqYjOHkw9UEg/S/BlSFpPGjGJazkHOLbzhpFXjGm922GfsXO++7vF1MtjEb5lwHES+tenOGbPCFdvQr//72bRXcuM8Ana+vS3PID+xE//32VRfxfTXZ9HI6IgfvdlrSt5Yf/9DHpeC+9nYpxoSy/PB/Tx/EA/b/4P8HxAYv4P8XzAMM8PDPfm/wjPB4z0fNNozw+M8fzA4b75P97zARM9PzDJm/+TPR8w1fMD07z5P93zAYn5P9PzAcd5fmB2LfZLXZPZRSUFEaYf+PxxEc53EK1FPd+67dmzR+U6KwnGPg5xXli/k/R/cv/D9yzhK3nVyaYVMD/kZ+iIZg7zCbNLUP3NfP5vCa20pSRhP0Fn0t8eSe4Nck5zn/6FpDWbVv/51A/5wrXX8/9OK7isFlR/C5/+LNK/KU4Poe+/I73//nhhFtFHPklJyE/SPcT4a+mzP6l/Jt2HnDhnCfXHeaaNoP9bVbr/ORH7n9k8Q6C/NVx257aCRl4Jjb/cOEWGmn/i/s/w2Z9JfS/v9S/a39G7XlD9bXz6Z5P+wmj9L7af5+q0/eOP+XNcBP2Ow/5sANw4rLpWE39at4+q77P4Z5y7aPCi7MLSwYtyS/LWpDh/QV5OrKwkd2bRpnD6i2MlK3PKSnNLQn7++s4vFvFHO28OcLPgj/aeD+CmwR8c53QX+J8OUOUPsf0docsfHOP1EtjfCY2bPzpDlz/4ej0F/d/Fpz9qixq/XAM31r8Lbs6tvvnPqOvXJHJGM+fyf+P/BzfrMdgTJ55DcV3Wro6u6DYN/uT8Tg/B+OsKVf50OK/UTaC/G3T5s583p4Lq7w5b/uR7leDPBbT2bKLez49nkkP1v1g/+6qp7RP+j/l3fAT7k/nXwal8VB3Lv7KfS+Q/LPiH9zc6BTmw9radpNeXfhjR9UOYHORg/zX3HxxQ0QGPqfS3VQ8+4Ok1HBDwajVfIdXfii5Vw++l15F+noDXr3SXg3ddkOv7h03wWx/8kwS5fg1WBx+TNX/mINePjjrm/VPb9zf941N9ftW2f0iDf0uDf672zlb9ZcTrVzv1RKdUBG61ur6HaOm5fm23nb7G5kT4t+rV3N/4/xD9+qjxD7Vx/VrtnzS0rLyC0LlrbrGCkpUFRWWluZl5pbHcQqS7Nfb9+xHN3DqZGc0QKgqOmsfTyH9zvc5QBM9/zIHu/jvnD0cJ9J8I3fw31zANF+g/CY07/50J3fw315MdJOj/udDdf+eM7TCB/nmw3X+fD938J9foDRLYvwC2+U+u2Z223xexdu79DTT+8sPMf7H+hV8Y/5z/nBDBfsfp5PmUw1IcU5v7/1H3P8ZH1D+nsLgsFnr3H8grXrVyXXbh6vyQKdim/X93/ZksmP9cL5+x3xemP/+dhWT9gQb/cN3xWIH9i6HLP1zzPEWgfwl0+YdrsScI9C9Fg+KfuP6pAvuXQZV/4nXx4wX6l0Nv/z9qLmOg4z4jcJvj1vdLW0tj/xl1/bNuGvzLVQvjBONvBWz59xTo8i8/azJGYP+psOVffgYtwb8zyPvkYS19Bl6FC9MS/53us38Beb1S+mdj3AeuFtsfhr9X+vTPRRn1QIz6IJOkULwGh7H/DFTm/4kR7n+y/mF6imNqk/81+DuWFwuL343++aGo668W/58g8H/87Ksl//Pztpr1v/zc4LEC+3Ogy//8zOIcgf7V0OX/Y+A+PxlUfy4aHv+fKLB/DXT5n9fymQL9a6Gb/+TnZWcI9K+DLf/lQZf/uJ7vaIH962HLf2xtgv84/uLcBcdfs0LobwXbVt/jr6gtKn9Z8H8+bPm/ALb8X4jK/H9EhPnvOPxuA45p56U4Zj/3z6+V+uf4+rdM4P/43SWW/MfvUNHkvyy4e1pB9Z8FXf7jfPJygf4Sn36Ov3Lys0vDVf83xV8a+U/mB15/V4Q4v3XEz6/B/7yfvEgw/krR8Ph/hcD+GHT5PxPunnJQ/WXQ5X/eTzpZoH8DbPl/I3T5n/ez5grs3wRb/udZPk3J/zV2/s7MXpWbH+H8/FX5pvUHFvx/Nmz5/xzY8v+5qMz/kyLM/2T+//RUB82vff6X2P8V2D7/+FXo1n/wqD0Dwf3/edDlfz4vT6B/M2r//X9NUj/EOv7asXfHlu3bb3m3fN59y7Ycn379Uev3H4b7bsu+jvvmBmnLMO5/jfiP99NzBP7nfNjGf1+D+w4cblrx3zqB/V+HbvzH9SSrBPq/Ad34j9k+W6D/m7CN/y6AbvzH+2mnCey/ELbx37eQjP+ixm/W+T+N+Ksx159k0bzLphFYSlFANv1ZGgP2DjH+vu0b/zMo/orRHFhEBHt2mt6/chEqx19HRph/jsPvpr4F7r5Sta2OxV8Xwzb++g509184n8x7SkH1XwLd+IvnyyaB/kuhW3/D+4klAv2XwZa/Lkcy/tbir40C+6+ALn/xOWcJ9H8XuvzF+fxigf7vIclfHH/d+9Su4yxiL25R46+X4D77wPHXMSHObwPbZp0/t+Dv70OXv3k/KV8w/q+ELX9fhSR/W/DX1bDlr2tQmb8mR+j/ZP773FQH1TH++gFs+etan9+rC/FXY64/4fV3176b529bes/zFmuwBn9zPo33VIKOv+ugy9+cT7tQoP+H0OVv3s86X6D/etjy9w3Qz39eILD/RujyN+8nbxbovwm6/M351PME+rfANv/5I5/9Gvsf/OwJ8/eSUP1n26z5O+r6E7X+W4O/OZ9/jmD8/xi2/L0VtvxdDlv+3obK/D0lQv87Dq+azPQXpzooDfx9pWD83Qzb+nPOFXuvP1fhL85nXSKw/yf4Yv13fu6aWFZR8TIL/9XY67/fgFsP1d9x83LS1i7i59fgb85nXiUYf7dCl795P+Fygf6fouHVn18tsP9n0OVv3s+7TKD/59Dlb543lwr03wZb/r4duvlPzqdeJLD/Dui9/6fp+cvo77/w1t/lYc6Pun5a8Pd22L5/5hewrT//JWzrz3+Fyvw/LvQ3oLf35d+vS3VQGvi/XOD/dsCW/++ELv9zPul6gf2/hm7+lfNJ2wT674Iu/3E+9yaB/rvR8PjvZoH99/jsb4q/3P04jr9uD3F+B2P7o/KXBv9z/90oGH+/gS7/cz7xBoH+e2HL//dBl/85n3mtwP77YZt/fQC2/LcTtvz3W9jy3++gF/9ZN436g8ac/0zwf9hvoGf+5+cJXoebV6u21bH6m12wrb95ELr8z/E059SC6n8IuvzP8fSdAv0PQ5f/OZ95h0D/72HL/48gWX+lxf87BPY/6rO//NatS2/Zusyq/Ddy/QGP+80kr8HdA5OPX9tmnT/V4H/eT7xdMP7+AF3+53zabQL9j8GW/x+HLv9zPu9Wgf1PwJb/n4Rt/cVu2NZfPIWq+dew34Pjz7/ek+qgGvirLtT/Wu5/WPO3u/4uN1t/Lfj7j7Dl7z9Bl793ws0pBdX/NHT5m/MJDwn0PwNd/uZ83gMC/c/Clr//DH3+flBg/1+gW3/B+yn3C/Q/B736X+Zvzv8yf28LcX4X2LbGXv+rwd+cT7xPMP6ehy1//xW6/M35pLsF9v8Ntvz9Amz5+0XY8vdLqMrfYb+Bk/g7vp/Oa8qjqQ5KQ/7zacH4+zts6x9eRvL5Iw3+4njuMYH9r0CXvziee0ag/x/Q5S/Opzwp0P8qKr//Oy+3MLYo7+wQHdBU/x2t/qCr4+6HX+q4eQFp6x7x8zeU+pdnBeP/NejyN+8nPCHQ/zp0858cTz8u0P9P2PLXG9DlL47nHxHY/y/Y8te/YVv/8Caa6r+1ms77D+zWX4v6l7dgW//yNqryf9hv4PTn359PdZDH/Z031I36h3dgm399F7r8z/EMx9RB9f8Huvz/MlymCKp/D3T5n/MZLwn0/xd1p/63/Mmtr9yxe+v6rcU2WyBR85/MHZx77ey4Mai09TDufwv+fw/J/Rct/n9VMP7fhy7/cz7/RYH+D6DL/5zPeEGg/0PY8v9H0OV/zqc8J7D/Y9jy/17Y5l//57O/se9/cP6rJG/tOrpGLFZUsCzdn996/bXIv3+Cqvwd9hswmb+5nrSl48b11bUEd9cmf78n8D+fwjb//hmS/l+Dv5nn3xTY/zl0+Zt5/n2B/n3Q5W/O57wj0F+Bhvf84QcC+9npafIX5zPfFuh3HF3+4gjiLYH+Zo4tfzV3mr7/aV9FUws8X2vyZREvUey47z8qD/n+o56wbfU9/60Rf3E+6Q2B/2vh2MZfzIqW+y+tHNvnT1s7tvn3DKcq/4f9Bkx//n1vimPSwf+8pge1v41jy/9tHb3nnpTjb/EzAE31J9HWX434j+OpTxB8/LdzdOM/VtpcMP/aO7rxH+fTPhfY38FpePFfC0H/d1SO/zif/Jmg/zspx3/sRD4V6O9sHP918dnP/M31++Uh33/T29j/NdWfRKs/0eB/zqd8LBj/XY35v5sx/3c35v8exvzfsxr+D/sNjFx//6HXpxkpYC4d/C+xv5djW3/T27f+cP1ZY+bv8jO3LrZ8/jZq/ckkb/0ucMI9f6fB/8xzbQX810eZ/5nnugn091Xmf47nOwj09zPmf37Xofbzr10F9g9Q5n/Op7UX6B+ozP/M8+0E+gcZ8/9gn/39Ydvqe/2JRv23Zf2JBv9zPNlaMP6HGPP/UMe2/mqYY/v860HV8HfYb+BM5N/Zpl71hL+HG/P3wY5u/Q2vp30E82+EMn/xejpUoP8QZf7ieKa/QP9IY/4aVQv8NURg/2inDtX/x+Ov+vv+QY6/NsONv8K8f3CAcf9r8Dfnk/oJxt+hyvzNPN1XoH+MMX8f5ujWvzPP9xTYf7gxf4015q9xxvw1vhr+CvsNjJz/TOg+OAR/1ff46/iSorLiCPUHa0uKG/X7LxT4Wzz+JxjXv0x0dJ8/5fXsEIH/PUKZv8d4uoPqn6TM3xxPjBbYf6Qxf092VL//XDz+pujmPx2O50cJ+n+qT/+OvTu2JJ/BTb//icrf/L2TPG92Ou573aRtIGyb9fqrwd/MsyMF4+8oY/6epszfzNPDBfYfbczf0338/X9QSwECFwsUAAIACABEISJEvKTs71YQAAAI8gAACQAJAAAAAAAAAAAAAIAAAAAAVUlQYWNrYWdlVVQFAAfK5sRSUEsFBgAAAAABAAEAQAAAAI4QAAAAAA==


[Script]
//File: zhunXing.q

//---------------- 建構 ----------------\\
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long 
Private Declare Function LoadCursor Lib "user32" Alias " LoadCursorA" (ByVal hInstance As Long, lpCursorName As Any) As Long ' modified 
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long


//---------------- 事件 ----------------\\
Event Form1.load
    Form1.tmr_mouseListen.Enabled = False
    PutAttachment "./plugin","cur1.cur"
End event

Event Form1.ptr_cuser.Click
    If GetLastClick() = 32769 Then 
        Form1.tmr_mouseListen.Enabled = True
        Const OCR_NORMAL = 32512
        Const IDC_ARROW = 32512
        hCursor = LoadCursorFromFile("./plugin/cur1.cur") 
        Call SetSystemCursor(hCursor, OCR_NORMAL)
        Form1.ptr_cuser.Picture = "Attachment:\zhunXing_Hover.bmp"
    End If
End Event

Event Form1.tmr_mouseListen.Timer
    If GetLastClick() = 32770 Then
        SPI_SETCURSORS = 87
        SPIF_SENDWININICHANGE = 2
        Form1.ptr_cuser.Picture = "Attachment:\zhunXing_Normal.bmp"
        SystemParametersInfo SPI_SETCURSORS, 0, 0, SPIF_SENDWININICHANGE
        Form1.tmr_mouseListen.Enabled = False
    Else 
        handle = Plugin.Window.MousePoint()
        sText = Plugin.Window.GetText(handle)
        sClass = Plugin.Window.GetClass(handle)
        sRect = split(Plugin.Window.GetClientRect(handle), "|")
        Form1.ipb_handle.text = handle
        Form1.ipb_title.text = stext
        Form1.ipb_class.text = sclass
        Form1.ipb_leftTopX.text = sRect(0)
        Form1.ipb_leftTopY.text = srect(1)
        Form1.ipb_clientSize.text = srect(2) & ", " & srect(3)
        Form1.ipb_rightBottomX.text =Cint(srect(0))+Cint(srect(2))
        Form1.ipb_rightBottomY.text = Cint(srect(1)) + Cint(srect(3))
    End If
End Event