Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vbÖÐÓÃsendmessageÄ£ÄâÊó±êµÄÎÊÌâ

´úÂëÈçÏ£º
SendMessage hwnd, WM_LBUTTONDOWN, 1, &HC00239
SendMessage hwnd, WM_LBUTTONUP, 0, &HC00239

¿ÉÊÇÔÚ´°¿ÚÀïûÓа´ÄãÖ¸¶¨µÄ×ø±êµã»÷£¬¶øÊÇÊó±êÔÚÄÄÀïÔÚÄÄÀïµã»÷²»ÖªµÀÊÇʲôԭÒò°¡¡£

ÓÃspy++²âÊÔÁËÏ£¬×ø±êÊÇÕýÈ·µÄ°¡¡£

µ«ÊÇÓÐÇø±ð£¬Õâ¶ÎÊÇÄ£ÄâµÄ¡£
<00072> 00620674 S WM_LBUTTONDOWN fwKeys:MK_LBUTTON xPos:569 yPos:192
<00073> 00620674 R WM_LBUTTONDOWN
<00074> 00620674 S WM_LBUTTONUP fwKeys:0000 xPos:569 yPos:192
<00075> 00620674 S WM_LBUTTONUP

Õâ¶ÎÊÇÖ±½Óµã»÷´°¿ÚÀïµÃµ½µÄ
<00069> 00620674 P WM_LBUTTONDOWN fwKeys:MK_LBUTTON xPos:569 yPos:192
<00070> 00620674 P WM_LBUTTONUP fwKeys:0000 xPos:569 yPos:192

¾ÍÊÇÄ£ÄâµÄ±ÈÕý³£µã»÷µÄ¶àÁËÄÇôÁ½ÐС£¶øÇÒ²»ÄÜÔÚ´«µÝµÄÖµ´¦µã»÷Êó±ê£¬¶øÊÇÊó±êÔÚÄÄÀï¾Íµã»÷¡£

¼òµ¥µÄ˵¾ÍÊÇÄ£ÄâµÄʱºò´«µÝµÄ×ø±êûÓÐ×÷Óá£

Ë­ÄܰïÎÒ½â´ðϰ¡£¬Ð»Ð»ÁË¡£

1.ʹÓÃAPI GetWindowRect ¿ÉÒÔµÃ֪Ŀ±êµÄXYÓë´óС
2.Ä£ÄâÊó±ê ½¨ÒéÄãʹÓÃmouse_event

Private Type RECT
  Left  As Long
  Top  As Long
  Right  As Long
  Bottom  As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Sub Command1_Click()
  Dim Rec As RECT
  GetWindowRect HwndVal, Rec


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb×Ô¶¯·¢ËÍÓʼþ - VB / »ù´¡Àà

ΪʲôÎÒÏëÑ­»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
  Do While Not TDBG_Dept.EOF
  If A> ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ