ROX每日任务

--- tags: 按鍵精靈 2014.6 --- [YouTube]() # ROX每日任务一、[按鍵精靈 2014.6 雷電模擬器 Windows10(簡體) 說明與載點](https://hackmd.io/@1MgXZJtMQgOudU366MROaw/BkGb8UvF0) ## 程式码 ``` [General] SyntaxVersion=2 BeginHotkey=97 BeginHotkeyMod=2 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=98 StopHotkeyMod=2 RunOnce=1 EnableWindow= MacroID=cd8918b9-d434-41f1-91bd-40980a9c3c2a Description=BBB Enable=0 AutoRun=0 [Repeat] Type=0 Number=1 [SetupUI] Type=1 QUI=Form1 [Relative] SetupOCXFile= [Comment] [UIPackage] UEsDBBQAAgAIAExhcVmMO4g99RkAAAiaAQAJABEAVUlQYWNrYWdlVVQNAAce3TlnHt05Zx7dOWftXQd8VMXznxdqAGkKIliwKxaSEJqiQhA0CARJUMQakCYhwRCqiNg7ooK9YcGCXVBRBOyKqNiwK9h7rz8L/+/cuyMvkPy92Tdk7sKtzmcTcjvf2/d29+13Zt5sLfLLypebrZ57X+s1tF7Zn2rRv2vTqW7g39IgXuyXpv7vtSH/rl27NvbPMyBrUyVpyj8QvocdIXyv60DqQdIh9SENIJtBGkIaQRr7t56aQJpBNoc0h2wBaQlpAdkSshWkFaQ1ZBtIG8jWkG0hbSHbQbaH7AjZAbITZBfIzpBdIbtDdoO0g+wJ2QOyF6Q9ZG9IBiQLkgnpAOkEyYZ0hoyCdIV0gewD2Q+yL6RbZFwTdYccAOkB6QnJgRwI6Q3pBTkIkgs5GNIH0hdyCKQfJA/SHzIAMhByKCQfMghSADkMMhhyOOQIyFGQIZAjIUdDjoUcAzkOMhRSCBkGGQ45HjICMhoyEnIC5FpIEWQMZCykBFIMGQcZDzkRUgopg0yETIBMgkyBTIZMhUyDnAQ5GXIqZDrkFMhpkT6U4L8y3JNe0FsGXVNIUlpixMTGkvcfn2076Zk587q869XidWKa/2+DcKUzyL3UJ8+L4V9RxWeaDvBxY/jBv/XEXesb4hs0CODX+Q/8WB38WwGu9zjc/f4YCWMjo0BWmlNaBL9ZdN2Nt13taM1rd02SjjWwTxtTepeUjg0x/YjbZ4Zo71G4ErZ92DIwb3Co9oIpu1Hau6475etfWoX9Xrz3LLZW8lOnEE/CIsfv0BjrX0Py9ynx4qcF1r/D8LQdD3H9Bk0d+l8rgD8QqIV48ufhOhQJn72x9b9RVGe8+LUD+AXAnxzZPTjff0/a/zrR78ulJ3YfRZBSx2+yhQN+3UD/y/FzcB+GRfZZQvzIfrmJ4PrXW+/+Dwt5/Xl/Xl+AX5/8PXywfIEbsjiNkq7UM8b/rfJrHnks9ctvm19YPL5t/vDS0SM2Ev7O848J1X4IVp5SrD/DIyxCXnj9bRGdU/GOv/TA+O+LuSefdRXHf9OovnjxG1Q6//PxPUbhOsiehq0w/2McOF78hgH8Htj9j4s8A0ohxfgOsqdQS/Q/nXxeHi9+owB+b/S9ONz6I37+8XrVbV3/i/D0HYnvwNe92GX9F+M3rnD/C3H9y/Ad+DrkRO5D7ElQPjaqLrvh+rekcptXPPhNAvg5Ef3+/IsHr5Lx520hxG8awA+7foTdf4YtPUvGDi3JKZkctr0rh0l2/lKAkV8W2fu6jL7I+iOef80C428A8CcDvShizZKXxg74zdfD5/3XBPTbxQrTygE/aC/37U/uDJrtT7xtYxtp66rm+0a2P+0qXH/4eVk/+rMF/+T1Mj36swb/bEu+PTte/Bakyj+97YXXvyXp8s825Nv648XfkvT55y4C/IrzT4d/7iHAb0W6/JP9KjsJ8LcK4IctYZ//DaIys5bvG5IW6+dnLWP8sPxTw/7A/rttBOOvNZXbHxT4p3j9b0O6/HPn6JyKF39r0uWfMV9pvPjbkC7/5Hm7owB/W7Lln/ysjvHPXGDzNR/viN/IAb8t+TZoLvmRva8/B4dHPMCy0twBf3tSXf9DPQDC8s92C0eFat9mbgFZfv+eJcVlhaOLh5eGbe9IIfpH1p6xmPtFzvYH6fjbITD+DgbeRGfrh7/+tCPZ/nfH9dafYWB/46uR/+4UwM8FOq+Abuhu9q+dKfj8Yf6Z5Tx+g/EP7av4THXEP0j6z1whfd34r37+uSv5e14uGvyTYx6yKf61eLfA/U92+9WieU+9Z4mvwX/4fjD/WeLQPqzLzsL/vTvp2h849m8vwfhvR/r2h24C/D2osv1/9fm/9yRd+wNvPboK+r8X6fq/OeYzS4C/N6nyT4/jSzME+O1Jl3/uE+1TvPgZpLf/T3b7B8eiNMgbUJCb1z8nb3BkE13+a1bFXztU/DW74q8dnb6/9fNTw/7AMdX7CsZfJunaH/i+dBHgZ5Gt/YG/b7fA9Wf8QjyDiyMWAJlFYlv0/wCS8R8euHnRn/OBNsV59+lm/+hEtv6/zqTrf5fid6HE8T+GtV/kjSsbXVLs7oBf197RfpHs/GXV70tmWOL7/L9DiPXP89ifV0T+uzSVlerg/wMp/vWf96qW/H8f0uX/sXeV4sXfl2zjn7uRLv/jZ1kPQf/3I33+d6gAf3/S538DBPgHkC7/43fm+gnwu5Mu/+N383oL8HuQrf8xh3T5X/+oznjxewbwNexXHE9THL0H0pLy34fjr2Gvnwb/Yw9avmD8HUi6/O8g8t/RjRe/F9nyP54n5fxvVGQFHOPk/fXjv/pEr2m8+AfRhs+/gZEo7FHVEn99cADfgn/mVhh/1R9/3ieAr+V/HSS4/4eQnv/HuiR7/IAaf3Z04Wr436Xjvy8F7R9s9xiP/3j9k3+H1g7zrx+t7//Odr5/Qf/3EVV8pjr47yjB/Of9oiX/zSNd/hvLqREv/gCy5b+Hki7/5e99uKD/A6nm+P+fXzHnX0v8sPyJ133mTxzE4MKfwvr/tewfIwXjL5/07R8jBPgFpGv/4Nw+wwT4g0jX/sE5hI4S4B9GtvaPw0nX/sG8abCg/4NJN/6a8zSNFuAfQbr8l/NKDRXgD6GU/1+rJDt/srB/8Hqpaf84Ljqm48U/imztH0eTrf3jGLK1fxxL+vaPMYL7fxzpxp9L+19Itvx3KOm9/19j7CeOLvBk50++/aOjc3u2f/B+knNJllTxmeqwf0wXzH/eq1vaP44nXfsH5/wsE/R/ONnaP0aQrv2Dc5uOFfR/JOn7/08W4I8iff47TYA/OoC/dMG9n1quP2HtJz+Qbz8p8NzsJ9b8xRpfw/7BOYinCMbfCaRr/+B8x6UC/DFka/8oIl37B+d4Lhb0fyzp2j9mkJ9POl78YtK1f3Dk8GQBfgnZ+v85d7cm/50Y1Rkv/omB/qfsJ+FKsvMnC/tHKdnaP8aTrf2jjPTtH6cK5v8EsrV/TCRb+8ckWt//38l5/gT9/2dW8Znq4L+zBfefn5Ux/qtmP3EMoUj698/nJ7f/2cL+MYV07R/noz5PMP6nkq394yTStX9cjPp0Qf+nkb7941IB/smkb/+4RIA/nXT9/2ejvkiAfwrp8t8LUZ8jwJ9B5fw32c8vua8G9MFSRnm+/WyFo/1MK47AtaTiD8IVC/vXqaRr/5qF+gzB+nca6dq/LkM9R4B/Ounav85FPVOAfwbZ2r+YJ2navy5AfZag/2eRbfzH2WRr/ziH7NftWEnFH0TbO7rgw67/Fvavc0nf/nW5YP6fR7b2r/PJ1v51Aa1v/+rsPH7Y/tUd9T4YiFdX8ZnqsH/dIbj/zJcs4z9mkq79Yy7qGwT9v4hs7R+zSNf+cSvqKwX9v5j07R+3C/AvIX37x20C/Espcd7/XHPdL9Mt8cPaT1dH+fOBaW78uY7x9dewf/EZ1bcIxt9s0rV/3YT6OgH+HLKN/7iMdPnvPNRXCfp/Oeny3ztRzxfgX0G6/Pd61DcL8K8kW/7L90qT/96I+hpB/68O9D9lP0vuEpY/W9g/riFb+8e1ZBv/cR3p89+7BPP/erLlvzeQLf+dS+vz3y7O8ycY/3FfFZ9JtPMP+HkR47/W9jO1808c858ke/zJc+8/83tWiPYW9o+bSNf+8RDqBwXr381ka/+4hXTtHw+jvkfQ/3mkb/9YIsBne02M91qcf3Ab6cZ/PID6UUH/bydd/rsI9QIB/h1Uzn/DFo38kc+Rf/7JLIfFdFN/fycsf9I4/2Ip6vsF428+6do/FqO+V4B/J+naP5ahfkyAfxfp2j8Won5EgH832do/+Fmlef7B4yQ7/4DHSqzHFvzzfrI9/+CBAD7zgPTc/gMGFcTOO1n3W+SN+Lp9e+T06ptd4Q+Z5X8IfCar/MfMCh+PNK6XM6igIK9/ZqULlWEJaz/pWzh0eFHY9u7Hv4e+fhbnXyygxDn/wuf/XUOsf57H6+nrkKer+Ex18P9XKP71n58Xsf23Bf9jrlY3+rMG/3sB9XJB/x8iVf7nrUD9mgD/YdLlf8+gflKAv4gSx//76pwF9y74eeVc1/Zh12/N/Pe7ObS3vv5a/F8y/3mvWj/6swX/f5R0+f+zqF8WzL/FpMv/XySfQ8eL/xjZ+r+XkC7/W4n6KUH/l5Iq/4uMv1cF+MtIl/89j/olAf7jlPL/JkrJLR43ocw9fHhde1cKYcH/n6By/m/hf32SgvZvf96NxywsjHAQ2Xdw4R9PVZj/E4BXgtVnNE112/+L8Z+m9f2fmZEzYV1Ko4D/880qPlMd/OdjwfrH++XY/sOC//B+IeZ/1eA/75OfPzxe/Oeo5uR/z5iWMS27S8a0rC6ZJvha+d+7e278IQHOf/c+QP2JYPw9T7r89y3Ubwjwl5O+/1My/9le0TD6swL/Ea8/K0iX/7yNeo3g+r9IuvznQ9TvCPBfIlv+8zLp8p+PUK8S9H8lpfK/15QS1v6l4f/8HPVngvH3CunyX05gulqA/yrZ+j/ZVmzJf16noP+lMBJ9OSnqB5IWF/7xRgC/H/hPEXo9Giuh7wEW9997F/WXgvu/ivTjbyX9f5N042+/IJn/+60AvnX8Z9iSM6GsrKQ4bHt37pDs/Kl3ZP8xASuA8/gTz/+3KRj/PwyIjFwU2YFKd2Eu6987tKH9w3UEsP2D7VlNcSO/reIziRb/zetl3XXrX/XbP9hWUS/6s4b942fUP1H86//7ZBv/+wHp8t9fUH8t6P+HZMt/V5P++88S/DWky3+/R/274Pp/RLr891fy8+DHi/8xlfPf1/MevI1ClLD2r9Dvr0Xfv37Y0X62qccPa8T//on6O8H4+4R07R9/oP5GgP8p6cb//oX6HwH+Z6TLf39E/ZsA/3Oy5b/MV2L81yL+9UtS5X9i/K/I9v3Lrylx8v+3fzAc/8xeastfVeJ/Q7zAF5Y/Wrx/+w2pxv96/0P9t2D92zD+N5Ncb0HQ/+1VcTOqg/9t5sXff+aplvG/vFfQjP+th77XFfT/e9KN/60P7CYC/B9Il/+lMbZg/P9IiRP/+8prH5aFaZ8I8b+8drAJMhnzJ1vw/5/Ilv//TLr8vxYmUUPB/P+FdPl/OrBrC/B/JVv/92+ky/8aef5CFi/+76Qf/9tYgP8H6fK/OsBuIMD/k1Lxv4lStOJ/XfevFvyf9+uW/u+/yDb+92+yjf/9hzb0fzkefx3hP3wA0i6YsZsb8p/tBOsff1/L+F/+kGb871boeytB/3l1jd3/1Bkom7Yke/xCZkaGKb5G/Dc/u7t7NvmDNewfrfHd2wrWH8/TtX9sAX3NBPhpnq3/m/libN9tEf9d29Plvy2gbxvB9a/j6fLfNtDXUoDPtkJL/lvP0+W/20Jfc0H/63up+O+aUhIh/ntHXO0dBOMv3dO1f2wPfVsL8Bt4tv5vthVa8t9Gnm3892aebvz3ltC3s+D+N/Zs47+beLr+/508Wfx3U6/mxH+r5Q92NICk4r/l87+ZZxv/3dzb0P7leHx5Bf//7v9h/2o7KTHiv9lOZ3n+FfM1zfzP7aFvb8H638Kzjf9uqcx/M6BvV0H/t9wI/LeTAJ9tlZb5n7dS5r97QF8HQf9bK/PfTOjbU4DfJsB/OX98B7IrGvEX/dP8/NH3OyRD2NTPr9aI/+6M8dROMP62VrZ/ZHPsvwB/G083/rsL9HUU4G+rzH/3gr4sAf52xvy3raeb/7mrkP9sH3hXxCL/8w6ebf7nHT29+G9ev6K5nYN5njsEfv5/QxOSPf+zzvvH7gHgyZj/eScv0fI/Z5Lj8dvM/yLvc5yDPu1Xxc2I8b5E4X9sK7N8/5djRTTf/+0JfTmC59+uxvxvN2X+dyD07Svo/+5e4sR/f3ns8sVh2lu/f5rK/yxff9p5tvHfeyjz/wOg7yDB/NtTmf/38vz4kXjx99L1f3u50Le/AH9vZf53MPMJAX57Zf53CPT1E+BnKPO/Hhw7JMDP9FLx3+vGQpK/fxqWf1jw/yzP9v3vDp7t+9/Znu373x092/N3O+nyP68P9PX1wr3/28lx/Af9f4cmCf/rbMz/uijzv8Oh7zDB/e9qzP/2UeZ/g6EvT9D/fQP4/6DNGahPh5wJORtyFuQcyHmQcyHnQy6EXACZCbkYchFkFuQSyGzIpZA5kMshl0GugFwFuRJyNflnnvO579dH5x8f+HMD+WdR83m8fCYwn4vLZ8Py+bSclIjPKeWzUvm8SD5ji89t5LMT+fxAPmubz/Hjs/T4PDE+047PtYqdBcxnLPE5L3zWEZ83wySTzx3hs0/4/A8+A2MZ+WcRcD5+PhOA8+JzbnTOD8852jlPdexsqVi8fE0r/v7B3QOY7PEvcx558aYw7a3tD7H88ZxTz8X+YMH/uxnz//2U+X8+9B0pWH/3V+b/R3h+HrR48Q9Q5v9HQ99AAX53Zf5/FPQNEOD3UOb/x0JfoQA/R5n/D4K+IQL8ngH8sOdHhC0p+4Ot/cGC/x9ozP97GfP/3sb8/yBj/n+wMv8/BvqOC8n/OzuOf+b//YE9ETI8Sfh/boD/W9sf/fbZzu2TnX88dsiqRWHah+UfFvafPsr2nzHQd4Jg/h9ibP/pq2z/KYK+YYL+9zN+/7m/Mf/LU+Z/I6GvRHD9Byjzv7HQN0qAf2iA/4W1P3xGvv2hTyr/tlOx5h8a/P9EfNsRgvE3UJn/j4O+4wX4+cr8fzz0TRDgFyjz/9HQVyzAH2Qc/32YMf873Jj/DTbmf0cE8FP5t9E+xAtQyc4/LPj/EGX+Xwp9ZSH5fxfH6xf0/08x5P9nCvp/pGeb//soTzf/9ynQN13Q/6N1+Z83A/rOFuAfo8z/pkLfJAH+scb87zhj/leozP9Ogr7TBdd/qDL/OxX6pgnwhwX43+yFjy+lECUR8q8PID/+/niH9nXJttSA93/F6//xyvzvDOibLBj/wz39/N9nCfBHKPO/k6HvNAH+SGP+N8o4/9Vozzb/8wmebf7nMV7inP9kXbTyr7tSSGv+GOM/XR3bM//h/cy9kPMN+c/lgvWP/SWW+b/Herr5vy+GvlmC/hcr859LoO8KAX6JMv+5APrOFeCPM+Y/Jxrn/y1VzP+aOa0jWRaN/NvMHzgm0YU/1CPbEpY/aPDfC3Ht5gjm33hl/nsp9M0U4JcZ53+eoMx/LoO+8wT9n6js/7oa+q4S4E9S5j9XQt9sAf5kY/4zxZj/TFVc/1P5t8PZv6zz71rkfz5JOf/zRdB3rWD+TzPO/3yysv/3GmH+s+nrrX/Vnf/3FOP8vzM2yP+bRa6nyAT9f3MN+e9dgvF/asD/lzoDqWaIawn7/FOJv3AP/076+IsFL81eGKZ92P2Hhf3rNGX//63QN0+w/p2ubP+6DfruEeCfoWz/uhH6rhfgn2ls/zrL2P9/trL//ybomy+4/uco2z9uh76bBfjnBuwfGv734qic5tC+PtmWVPx39du/zlO2f90JfTcIxv/5G8H/f7cA/wJl+9ct0HeHAP9CY/vXTGP710XG/v9Zxv7/iz37cw9iRcv/7kohkp0/ZIc8/zZm/8h0bM/2j+twEd6EPGBo/1gqWP8uMfb/X6rs/18EfQ8L+j9bmf88An3LBPhzlPnPAui7T4B/mTH/udzY/3+F4vqv4X9n7sD+dxf+kE62Jdn5gwb/XQi0xwTz70pl/vso9D0owL/K2P9/tTL/WQJ99wv6f42y//9J6HtCgH+tMv95HPoWC/CvM+Y/1xvznxsSaP8ftiS7/z1sKRg91vnsWy4W/v+5yv7/h6DvacH8v9HY/3+Tsv//KaH//2Zj//8txv7/eZX4/11P4Ar6/59Pkvxftxq//3ubsv/vZeh7STD/b1fmvyuh7w0B/h26/JeWQ9+zAvz5Qf7Lz48QJqRkt5+FLWH3H8tq+T601ajbObSvE/L7W9g/KuZf0PH/rhKM/zt1/b/eC9D3mgD/LmX++wr0rRDg323Mf+9R5r+vQ99zgv7fuxH8f5L+36fLf+lF6HtV0P/7Ffnfpu4/D2v/DMvfIu0z3dtb2D8eCNg/ciPovPpMjHAwaXHhnwsC4z8XM46vgBv7ceMfCyvhH67vD/P5s89A35+Qd5KEfzxozD8eUuYfq6HvQ8H6+7Ay/1gDfZ8J8Bcpnv+a2r9TxHbA+/eBDu2t889o8E9eUd4SjL9HjP2vG4N/fC7o/6PK/OM96PtEgL9YmX98BH3vC/AfM+YfS5T5x6fQ97ag/0uN+cey1Pmv60pC7N+z3NuHff5q8M8P8CU+Foz/x439r08Y848njfnHU5XwD9f4SeYfMeyvk4R/PG3MP55R5h8/Qt8Pgvn3rDL/+An6fhfgP6fs//gG+r4U4D9fA/effwj6v1yR/1kXDf42hHz+NtWhfSr/T5r3LQbRr4Lx94Iy//gZ+r4T4K8w5h8vKvOP36DvK0H/XzLmHy8r+z++h75fBP1fabz/fMV4//lqDcr/kxD8LYnPj7DgH69Vwj9cswhy/NUX0NcgjejvJOEfrxvzjzeU+Ucarr2XFv/6u0qZf9QCdn0B/pvK/OMf6Puf4PnzVgLxD+uisX/n94Z4/36jQ/tNPf+AFv9MF8y/t5X9H//yeibAf0eZf9RmbMH8f9eYf7ynzD/qof9/Cfr/vjH/+ECZf/D/dQTj70Nj/rE6wD9S+3e034Tzj1nwzzXG/o+PKuEfnRyvX9D/sVla5Z9JNP7xsTH/+ESZf2yO695csP5+qsw/tgD2VgL8z5T5R2NgNxTgf14D/R+tBf3/Qnn/2QTYWwrwv1Tef7YAdlMB/leB/WfYosHf7iCfvy13aJ/K/xBu/2bBP75W5h+tMPYbCcb/N8b841tl/tEMfW8p6P93xvzje2P/xw/G+88flfMvaOZzdsCmVEne8n9QSwECFwsUAAIACABMYXFZjDuIPfUZAAAImgEACQAJAAAAAAAAAAAAAIAAAAAAVUlQYWNrYWdlVVQFAAce3TlnUEsFBgAAAAABAAEAQAAAAC0aAAAAAA== [Script] HwndEx = Plugin.Window.SearchEx("LDPlayerMainFrame", "", 0) Dim MyArray MyArray = Split(HwndEx, "|") Global sta(99) For i=0 To UBound(MyArray)-1 sText = Plugin.Window.GetText(MyArray(i)) //取得標題 sta(i) = sText Next Global wx(99) Global wy(99) Global ww(99) Global wh(99) For i=0 To UBound(MyArray)-1 sRect = Plugin.Window.GetClientRect(MyArray(i)) //取得客區位址大小 dim ma ma = Split(sRect, "|") wx(i) = ma(0) wy(i) = ma(1) ww(i) = ma(2) wh(i) = ma(3) Next Global cl(99) For i = 0 To UBound(MyArray) - 1 cl(i) = sta(i)&"-"&MyArray(i)&"-"&wx(i)&"-"&wy(i)&"-"&ww(i)&"-"&wh(i) Next For i = 0 To UBound(MyArray) - 1 If i=0 Then Form1.ComboBox1.List = cl(i) ElseIf i = UBound(MyArray) - 1 Then Form1.ComboBox1.List = "|" + Form1.ComboBox1.List + cl(i) Else Form1.ComboBox1.List = "|" + Form1.ComboBox1.List + cl(i) End If Next Global cli Event Form1.ComboBox1.SelectChange cli = Form1.ComboBox1.ListIndex TracePrint cli Dim cl cl = Split(Form1.ComboBox1.List, "|") Dim clt clt = Split(cl(cli), "-") Form1.InputBox1.Text = clt(2) + "|" +clt(3) + "|480" + "|281" End Event Global ob ob = -1 Event Form1.OptionBox1.Click ob = 0 TracePrint ob End Event Event Form1.OptionBox2.Click ob = 1 TracePrint ob End Event Event Form1.OptionBox3.Click ob = 2 TracePrint ob End Event Event Form1.OptionBox4.Click ob = 3 TracePrint ob End Event Event Form1.OptionBox5.Click ob = 4 TracePrint ob End Event Event Form1.Button1.Click Dim cl cl = Split(Form1.ComboBox1.List, "|") Dim clt clt = Split(cl(cli), "-") Call Plugin.Window.Move(CLng(clt(1)), CLng(clt(2)), CLng(clt(3))) Dim it it = Split(Form1.InputBox1.Text,"|") Call Plugin.Window.Size(clt(1), CLng(it(2)), CLng(it(3))) End Event Global dl dl = CLng(Form1.InputBox2.Text) Global state state = 0 //防止重复执行 Global isrunning isrunning = False Event Form1.Button2.Click //開始 state = 0 isrunning = False Form1.Button3.Caption = "暫停" If ob = 0 Then Form1.Timer0.Interval = 100 Form1.Timer0.Enabled = True ElseIf ob = 1 Then Form1.Timer1.Interval = 100 Form1.Timer1.Enabled = True ElseIf ob = 2 Then Form1.Timer2.Interval = 100 Form1.Timer2.Enabled = True ElseIf ob = 3 Then Form1.Timer3.Interval = 100 Form1.Timer3.Enabled = True ElseIf ob = 4 Then Form1.Timer4.Interval = 100 Form1.Timer4.Enabled = True End If End Event Event Form1.Button3.Click //暫停 If Form1.Button3.Caption = "暫停" Then state = 1 isrunning = True Form1.Button3.Caption = "繼續" Else state = 0 isrunning = False Form1.Button3.Caption = "暫停" End If End Event Event Form1.Button4.Click //終止 state = - 1 isrunning = True Form1.Timer0.Enabled = False Form1.Timer1.Enabled = False Form1.Timer2.Enabled = False Form1.Timer3.Enabled = False Form1.Timer4.Enabled = False state = 0 Form1.Button3.Caption = "暫停" End Event Function CheckHotKeys() If GetLastKey() = 17 Then If Form1.Button3.Caption = "暫停" Then state = 1 isrunning = True Form1.Button3.Caption = "繼續" Else state = 0 isrunning = False Form1.Button3.Caption = "暫停" End If End If If GetLastKey() = 18 Then state = - 1 isrunning = True Form1.Timer0.Enabled = False Form1.Timer1.Enabled = False Form1.Timer2.Enabled = False Form1.Timer3.Enabled = False Form1.Timer4.Enabled = False state = 0 Form1.Button3.Caption = "暫停" End If End Function Event Form1.Timer0.Timer //主 //防止重复执行 If isrunning Then Exit Event isrunning = True //快捷鍵偵測 Call CheckHotKeys() If state = 0 Then //程式開始 //程式結束 End If If state = -1 Then Timer0.Enabled = False End If //防止重复执行 isrunning = False End Event Event Form1.Timer1.Timer //商 //防止重复执行 If isrunning Then Exit Event isrunning = True //快捷鍵偵測 Call CheckHotKeys() Dim cl cl = Split(Form1.ComboBox1.List, "|") Dim clt clt = Split(cl(cli), "-") Dim it it = Split(Form1.InputBox1.Text,"|") If state = 0 Then //程式開始 // it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3) //全 // it(0)+0,it(1)+0,it(0)+(it(2)/2),it(1)+it(3) //左半 // it(0)+(it(2)/2),it(1)+0,it(0)+it(2),it(1)+it(3) //右半 FindColorEx it(0)+0,it(1)+0,it(0)+(it(2)/2),it(1)+it(3),"D558B7",0,0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 End If FindColorEx it(0)+(it(2)/2),it(1)+0,it(0)+it(2),it(1)+it(3),"AAF5DC",0,0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 End If FindPic it(0)+(it(2)/2),it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\AA01.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 107, intY + 18 LeftClick 1 End If FindPic it(0)+(it(2)/2),it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\AA03.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+38, intY+19 LeftClick 1 End If FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\AA02.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX + 85, intY + 12 LeftClick 1 End If //程式結束 End If If state = -1 Then Timer1.Enabled = False End If //防止重复执行 isrunning = False End Event Event Form1.Timer2.Timer //看 //防止重复执行 If isrunning Then Exit Event isrunning = True //快捷鍵偵測 Call CheckHotKeys() Dim cl cl = Split(Form1.ComboBox1.List, "|") Dim clt clt = Split(cl(cli), "-") Dim it it = Split(Form1.InputBox1.Text,"|") If state = 0 Then //程式開始 // it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3) //全 // it(0)+0,it(1)+0,it(0)+(it(2)/2),it(1)+it(3) //左半 // it(0)+(it(2)/2),it(1)+0,it(0)+it(2),it(1)+it(3) //右半 // XY=Plugin.Color.FindMultiColor(it(0)+0,it(1)+0,it(0)+(it(2)/2),it(1)+it(3),"CE54AF","0|1|D456B3,0|2|CD54AE,0|3|D155B2",0.5) // ZB = InStr(XY,"|") // intX = Clng(Left(XY, ZB - 1)) : intY = Clng(Right(XY, Len(XY) - ZB)) // If intX > 0 And intY > 0 Then // MoveTo intX, intY // LeftClick 1 // End If FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\CC05.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then Else FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\CC04.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+21, intY+9 LeftClick 1 Else FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\CC03.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+10, intY+7 LeftClick 1 Else FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\CC02.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+14, intY+5 LeftClick 1 Else FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\CC01.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+14, intY+53 LeftClick 1 Else FindPic 0,0,1920,1080,"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\CC06.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Else XY=Plugin.Color.FindMultiColor(it(0)+0,it(1)+0,it(0)+(it(2)/2),it(1)+it(3),"CE54AF","0|1|D456B3,0|2|CD54AE,0|3|D155B2",0.5) ZB = InStr(XY,"|") intX = Clng(Left(XY, ZB - 1)) : intY = Clng(Right(XY, Len(XY) - ZB)) If intX > 0 And intY > 0 Then MoveTo intX, intY LeftClick 1 Delay dl*15 End If End If End If End If End If End If End If //程式結束 End If If state = -1 Then Timer2.Enabled = False End If //防止重复执行 isrunning = False End Event Event Form1.Timer3.Timer //公 //防止重复执行 If isrunning Then Exit Event isrunning = True //快捷鍵偵測 Call CheckHotKeys() Dim cl cl = Split(Form1.ComboBox1.List, "|") Dim clt clt = Split(cl(cli), "-") Dim it it = Split(Form1.InputBox1.Text,"|") If state = 0 Then //程式開始 // it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3) //全 // it(0)+0,it(1)+0,it(0)+(it(2)/2),it(1)+it(3) //左半 // it(0)+(it(2)/2),it(1)+0,it(0)+it(2),it(1)+it(3) //右半 FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\BB04.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+44, intY+18 LeftClick 1 Else FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\BB03.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+88, intY+13 LeftClick 1 Else FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\BB02.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+113, intY+18 LeftClick 1 Else FindPic it(0)+0,it(1)+0,it(0)+it(2),it(1)+it(3),"C:\Users\0976370081\Pictures\ROX\1280_720_DPI240\BB01.bmp",0.5,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+9, intY+5 LeftClick 1 End If End If End If End If //程式結束 End If If state = -1 Then Timer3.Enabled = False End If //防止重复执行 isrunning = False End Event Event Form1.Timer4.Timer //魚 //防止重复执行 If isrunning Then Exit Event isrunning = True //快捷鍵偵測 Call CheckHotKeys() If state = 0 Then //程式開始 //程式結束 End If If state = -1 Then Timer4.Enabled = False End If //防止重复执行 isrunning = False End Event ``` ## 界面 ![image](https://hackmd.io/_uploads/B1c4SlPGke.png)