[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]
UEsDBBQAAgAIAMYgIkTXxhiqWBAAAAjyAAAJABEAVUlQYWNrYWdlVVQNAAer5cRSq+XEUqvlxFLtnQlgFdUVhv9hDfu+LwYQERBlEwERBSyKhkUIqwuGECCYzeRFqNqKXbTVunRxqdaFlqC1rYotVq0LLWq1LtiqrbZqtWpt3UpdqQvpOW/m8cYkL8yZOXkn29XfYJiZM/fOnXu/c+6ZmZZwy1O7ur28eVv/V1ClTEdL7K1shza+3zme4qUr0IJ+tCTtraysTPy6srk0qPI5qRVdt1GktqTWJL7mGaT2pHakDqROpI6knqTOpC5uF0A3UndSD1IfUi9Sb1JfUn9SP9IA0iDSQNJg0hDSAaRM0lDSgaRhpOGkEaSDSAeTRpNGkg4hrSQdShpDOow0njSWNI40gXQ4aSJpEmky6QjSFNKRpKmkafE+DRxFOpo0k3QMaQZpFulLpGNJs0nHk44jzSGdSDqBlEWaR5pLmk9aSFpAOom0iLSYlE1aQlpGWkpaTjqZtIJ0Cul00qmk00g53n2TSz9XkVaT1pDySGtJ+aR1pPWkAtIZpEJSCamIVEw6k1RGKiXFSGeRykkbvGPvDXD9F9KRimnvTGqBIvpZii9DUnpTj0kcy9nPtjcuv+P1Q9rucnjM2DHf/d1iauWxCF8y4DgJ++tTbLOpg2s3Yd//d7PoqmVFOIP2Pvut92P/8vHV7WdTe5fQVZ9HPaIwfvVlpTuNwv7rGXS/Vt7PRD/RVh9vDOjnjQMDvPt/kDcGJO7/Id4YMMwbB4Z79/8IbwwY6Y1No71xYIw3Dhzmu//He2PARG8cmOTd/5O9MWCqNw5M8+7/6d4YkLj/Z3pjwLHeODC7Dtulvml2cWlhhNsPvP+4CPs7iFai7m9ddu/erXKclQRjH4fYL+y4kxz/5OMPX7PEWMmzTg7NgAUhz6EzWjjMJ8wuQe238I1/S2imLSOFPYOuZL8jktwbZJ+WPvsLyWoOzf7zqR0KhHOvN/47beCyWlD7rXz2s8n+xjg9hL7+jvT6+/2FWUQfBaTSkGfSM0T/a+2rf9L+TLoOuXHOEtqP80w7Qfu3qXL9cyO2P7N5hsB+W7jszmUF9bxS6n95cYoMdf+J2z/DV/8sant5q3+x/p294wW1385nfzbZL4rW/uL68706bV//Y/4cF8G+4/B4NgiuH1ZTSXBnTfxpXT6quc3i5zh3UeainKKyzEV5pflrUuy/ID83Vl6aN7N4Yzj7JbHSlbnlZXmlIc+/ofOLhf/RwbsHuFjwR0dvDOCiwR/s5/QUjD+doMof4vp3hi5/sI/XR1D/Lmja/NEVuvzBx+staP9uPvtRS1T/5Wq4vv5dcGNuDW38jDp/TaLBaOZc/m/8/+BGPTI9OfEYijtk7ezsSrdo8CfHd3oJ+l93qPKnw3GlHgL7PaDLnwO8eyqo/Z6w5U++Vgn+XEBzz0Zq/YJ4JDlU+4vt81g1tWNi/GP+HR+h/sn4a2aKbWrjXwv+4XEuEf+w4B9e3+gSZMO6W3aSHl96MqLjh6hykI39x9y3cUBD+92myt9W33i/u9eyQcCj1X6EVH8rOlQtv5ceR3o+AY9f5SoHb7ogx/d3m+CXPviZBDl+LbUO3idrP+cgx4+OOubtU9fXN/39U/3+quvxIQ3jWxrG5xqvbPVfRjx+jbeeaJfKwKVO5/cQJT3Hr+uyw1e4OhH+rX409zf+P0Q/Pmr9Q10cv07bJw0lO78wdOyaS6ywdGVhcXlZXlZ+WSyvCOkuTX39fkQLN09mRguE8oKjxvE04t+crzMUweMfc6C7/s7xw1EC+ydAN/7NOUzDBfZPRNOOf2dBN/7N+WQHCtp/LnTX3zliO0xgfx5s19/nQzf+yTl6BwjqvwC28U/O2Z22byxi69z6Z1H/Kwhz/4vtL/xC/+f454QI9XecLt6YcmiKbepy/T/q+sf4iPbnFJWUx0Kv/gP5JatWrsspWl0QMgTbvP7vzj+TBfc/58tn7BsL0x//zkYy/0CDfzjveKyg/ouhyz+c8zxFYH8JdPmHc7EnCOwvRaPin7j9qYL6L4Mq/8Tz4scL7C+H3vp/1FjGYMd9RuBWx83vl5bWxuNn1PnPumjwL2ctjBP0vxWw5d+Tocu//KzJGEH9T4Et//IzaAn+nUGjTz7W0jnwLFyUFv/vNF/9F9CoV0b/bIiPgavF9Q/D3yt99ueinFogRm2QRSoSz8Fh6n86qvL/xAjXP5n/MD3FNnXJ/xr8HcuPhcXvJv/8UNT5V4v/jxeMf/zsqyX/8/O2mvm//NzgMYL650KX//mZxTkC+6uhy/9Hw31+Mqj9PDQ+/j9BUP810OV/nstnCuyvhW78k5+XnSGwvw62/JcPXf7jfL6jBPVfD1v+49om+I/9L45dsP81K4T9NrAtDd3/ilqi8pcF/xfAlv8LYcv/RajK/4dHuP8dh99twD7tvBTb1HH+c3z+WyYY//jdJZb8x+9Q0eS/bLhrWkHtnwld/uN48nKB/VKfffa/cgtyysJl/zf7XxrxT+YHnn9XhNi/bcTz1+B/Xk9eJOh/ZWh8/L9CUP8YdPk/C+6aclD75dDlf15POklg/yzY8v8G6PI/r2fNFdR/I2z5n+/yaUrjX1Pn76ycVXkFEfYvWFVgmn9gwf9nw5b/z4Et/5+Lqvw/KcL9n4z/n5Zim3Twv6T+X4Ht849fhW7+B/fa0xF8/D8PuvzP++UL7G9C3b//r1kNQ9b+1/Y92zdv23bzuxXz7lu2+bj024+av/8w3Hdb9nfcNzdIS4Zx+2v4f7yenisYf86Hrf/3NbjvwOGi5f+tE9T/69D1/zifZJXA/jeg6/8x2+cI7H8Ttv7fBdD1/3g97VRB/S+Erf/3LST9v6j+m3X8T8P/asr5J9l03+VQDywjLyCH/iz1AfuG6H/f9vX/GeR/xegeWEQEe3aa3r9yEar6X0dEuP8ch99NfTPcdaWaSn3zvy6Grf/1Heiuv3A8mdeUgtq/BLr+F98vGwX2L4Vu/g2vJ5YK7F8GW/66HEn/W4u/Ngjq/13o8hfvc6bA/vegy18czy8R2P8+kvzF/te9T+081sL34hLV/3oJ7rMP7H8dHWL/drAt1vFzC/7+AXT5m9eTCgT9/wrY8veVSPK3BX9dBVv+uhpV+WtyhPZPxr/PTbFNfeOvH8KWv67xjXv1wf9qyvknPP/u3HvT/K1L73neYg7W4G+Op/GaStD+dy10+ZvjaRcK7P8IuvzN61nnC+xfB1v+vh768c8LBPW/Abr8zevJmwT2b4Quf3M89TyB/c2wjX/+2Fd/jfUPfvaE+XtJqPazLdb8HXX+iZr/rcHfHM8/R9D/fwJb/t4CW/6ugC1/b0VV/p4Sof0dh2dNZvqLU2yTDv6+QtD/boJt/jnHir3Xn6vwF8ezLhHU/6f4Yv53Qd6aWHZxyTKL8aup53+/ATcfaqDjxuWkpUPE89fgb45nXinof7dAl795PeFygf2fofHln18lqP/PocvfvJ53mcD+L6DL33zfXCqwfyts+fs26MY/OZ56kaD+t0Pv/T/Nz19Gf/+FN/8uD7N/1PnTgr+3wfb9M3fANv/8l7DNP/8VqvL/uNBfQO/oi79fm2KbBPfX9P11Lf6vEIx/22HL/3dCl/85nnSdoP6/hm78leNJWwX274Iu/3E890aB/bvR+PjvJkH97/HVv9n/ctfj2P+6LcT+nYzrH5W/NPif2+8GQf/7DXT5n+OJ1wvs3wtb/r8PuvzP8cxrBPW/H7bx1wdgy387YMt/v4Ut//0Oev6fddHIP2jK8c8E/4f9Aj3zPz9P8DrcuFpNJcH9dcn/kv6/E7b5Nw9Cl//Zn+aYWlD7D0GX/9mfvlNg/2Ho8j/HM28X2P89bPn/ESTzr7T4f7ug/o/66l9xy5alN29ZZpX+Gzn/gPv9JtJrcNfA5P3XtljHTzX4n9cTbxP0vz9Al/85nnarwP5jsOX/x6HL/xzPu0VQ/ydgy/9Pwjb/Yhds8y+eQvX4a9jv4Pjjr/ek2KY2/qoP+b+W6x/W/O3Ov8vN5l8L/v4jbPn7T9Dl7x1wY0pB7T8NXf7meMJDAvvPQJe/OZ73gMD+s7Dl7z9Dn78fFNT/L9DNv+D1lPsF9p+DXv4v8zfHf5m/t4bYvxtsS1PP/9Xgb44n3ifof8/Dlr//Cl3+5njS3YL6/w22/P0CbPn7Rdjy90uozt9hv8BJ/B1fT+c55dEU26Qj/vm0oP/9Hbb5Dy8j+fyRBn+xP/eYoP6vQJe/2J97RmD/H9DlL46nPCmw/yqqvv87P68otij/7BAN0Jz/HS3/oLvjrodf6rhxAWnpGfH8G0v+y7OC/v8adPmb1xOeENh/HbrxT/anHxfY/yds+esN6PIX+/OPCOr/L9jy179hm//wJprzv7WKzvsP7OZfi/yXt2Cb//I2qvN/2C9w+uPvz6fYpr7lP7wD2/jru9Dlf/Zn2KcOav8/0OX/l+EyRVD7u6HL/xzPeElg/7+oP/m/FU9ueeX2XVvWbymxWQKJGv9k7uDYa1fH9UGlpZdx+1vw/3tIrr9o8f+rgv7/PnT5n+P5LwrsfwBd/ud4xgsC+x/Clv8/gi7/czzlOUH9P4Yt/++Bbfz1f776N/X1D45/leavXUfHiMWKC5el+/yt51+L+PsnqM7fYb+AyfzN+aStHdevr6mkg7/fE4w/n8I2/v4ZkuO/Bn8zz78pqP/n0OVv5vn3Bfb3Qpe/OZ7zjsB+JRrf84cfCOrPg54mf3E8822BfcfR5S/2IN4S2G/h2PJXS6f5+097K5tL4Pu1trEs4iFKHPf9RxUh33/UG7aloce/Nfwvjie9IRj/Wjm2/hezouX6SxvH9vnTto5t/D3Dqc7/Yb+A6Y+/70mxTTr4n+f0oPVv59jyf3tH77knZf9b/AxAc/5JtPlXw/9jf+oTBO//HRxd/4+NthTcfx0dXf+P42mfC+rfyWl8/l8rQft3Vvb/OJ78maD9uyj7fzyIfCqw39XY/+vmqz/zN+fvV4R8/01f4/GvOf8kWv6JBv9zPOVjQf/vbsz/PYz5v6cx//cy5v/eNfB/2C8wcv79h16bZqSAufqWf9PHsc2/6eubfzj/rCnzd8UZWxZbPn8bNf9kkjd/Fzrhnr/T4H/mufYC/uunzP/Mcz0E9vsr8z/7850E9gcY8z+/61D7+dfugvoPUuZ/jqd1FNgfrMz/zPMdBPYPMOb/TF/9B8K2NPT8E438b8v8Ew3+Z3+yraD/DzHm/6GObf7VMMf2+dcDa+DvsF/gTMTfuU59Ggh/Dzfm74Mc3fwbnk/7Ce6/Ecr8xfPpUIH9g5X5i/2ZgQL7I435a1Qd8NcQQf1HO/Uo/z/ufzXc9w+y/7UJrv8V5v2Dg4zbX4O/OZ40QND/DlHmb+bp/gL7Y4z5+1BHN/+deb63oP6HGfPXWGP+GmfMX+Nr4K+wX2Dk+GfC9kEh+Kuh+1/HlRaXl0TIP1hbWtKk33+hwN/i/j/BOP9loqP7/CnPZwcLxt/Dlfl7jGc7qP1JyvzN/sRoQf2PMObvyY7q98/F/W+KbvzTYX9+lKD9p/rsb9+zfXPyGdz0jz9R+Zu/O8n3zQ7Hfa+btAyGbbGefzX4m3l2pKD/HWnM39OU+Zt5erig/kcZ8/d0H3//H1BLAQIXCxQAAgAIAMYgIkTXxhiqWBAAAAjyAAAJAAkAAAAAAAAAAAAAgAAAAABVSVBhY2thZ2VVVAUAB6vlxFJQSwUGAAAAAAEAAQBAAAAAkBAAAAAA


[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
        EndScript
    Else 
        handle = Plugin.Window.MousePoint()
        sText = Plugin.Window.GetText(handle)
        sClass = Plugin.Window.GetClass(handle)
        sRect = Plugin.Window.GetClientRect(handle)
        sRect = split(sRect, "|")
        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