361æ件å¯ä»¥ãç°å¨æé®7ä¹èªå¸¦åå°æ件ã
æè°åå°å
¶å®å°±æ¯åæå®çªå£åéæ¶æ¯ã
Plugin hwnd = Window.GetKeyFocusWnd()
å
使游æå¤äºå¯æä½ç¶æï¼åç¨è¿å¥å¾å°å½åçªå£å¥æï¼å°±æ¯çªå£çå¯ä¸ç¹å¾ï¼
Plugin Window.SendKeyPress(hwnd,49)
å该çªå£åéæé®ã49æ¯1ç代ç ã
æ§è¡ä¸æ¬¡åæçªå£æå°ååºè¯¥å°±å¯ä»¥äºã
å¦æéè¦åå°åæ çè¯è¿è¦è½¬æ¢ä¸ä¸åæ ï¼ä½ è¿ä¸ªä¸åæ æ å
³æ¯è¾ç®åã
å¦å¤ä¸æ¯ææ游æé½è½åå°ï¼ææDX游æé½ä¸å¯ä»¥åå°ã
ç»ä½ ä¸æ®µåå°åæ 转æ¢çåç¨åºï¼ä¹è®¸ä»¥åæç¨ãææ¯ç»å¸¸ç¨çã
Sub åå°åæ 转æ¢åæå
Plugin hw=Window.MousePoint()
VBSCall GetCursorPos(x,y)
//è¿ä¸ªx,yæ¯å±å¹åæ ,ä¸æ¯çªå£åæ .
Plugin win=BGKM5.ScrToCli(hw,x,y)
//ç¨BGKM5æ件å½ä»¤æ¢ç®æçªå£åæ
Dim MyString, MyArray
MyString = Split(win, "|", -1, 1)
//è¿åçwinå¼æ¯ä¸ä¸ªå符串,ç±å符|éå¼,æ ¼å¼å¦ä¸:x|y
//æ³çwinå¼ç¨:MessageBox win
//ç¨Splitå½æ°å¯ä»¥å°xå¼åyå¼åå«æåºæ¥
//winæ¯ä½ è¦æçå符(è¿éæ¯åé,|æ¯æçåç)
//MessageBox "转æ¢åç横åæ æ¯:"&MyString(0)
//MessageBox "转æ¢åç纵åæ æ¯:"&MyString(1)
//æ¢ç®åççªå£æ¨ªåæ æ¯:MyString(0),纵åæ æ¯MyString(1),å¯ä¾è°ç¨
dim x,y
x=MyString(0)
y=MyString(1)
Return åå°åæ 转æ¢åæå
è¡¥å
:è¯å®çåè¯ä½ ,DX游æç¨æé®ä¸è½åå°.åå°å¥½ä½¿çåå°ä¹ä¸æ ·.
温馨提示:答案为网友推荐,仅供参考