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

VB ×Ô¶¯ÊäÈëÓû§ÃûÃÜÂ룬Çó½Ì - VB / ¿Ø¼þ

Ïë±àдһ¸ö×Ô¶¯µÇ½·ÓÉÆ÷µÄ³ÌÐò£¬ÍøÒ³Ìá½»·½Ê½ÒѾ­»áÁË£¬µ«Êǵ¯³öʽÓû§ÃÜÂë¿ò²»»á£¬Çó¸ßÈ˰ïÖú¡£ 
ÎÊÌâ²¹³ä£ºÎÒÒªµÄÊÇVB´úÂ룬±à³Ì·½·¨£¬ÆäËû»Ø´ðÇëÈÆµÀ¡£Ð»Ð»
ÓÐÈ˽ÐÎÒÓà http://Óû§Ãû:ÃÜÂë@ÍøÖ· »òÕß http://Óû§Ãû:ÃÜÂë@IP ÕâÑùµÄÐÎʽ£¬ÎÒÊÔÁ˲»Ðеġ£

ÎÒºóÀ´ÓûñÈ¡¾ä±úºÍÀàµÄ·½Ê½£¬×î¶àÖ»ÄÜ»ñÈ¡Õû¸öµ¯³ö´°¿ÚµÄ¾ä±úºÍÀàµÈ£¬ÏÂÃæµÄÊäÈë¿òµÄÀàºÍ¾ä±úµÃ²»µ½(ÓÃSPY¿ÉÒԵõ½,µ«ÊǾä±úÿ´Î´ò¿ª¶¼ÔÚ±ä,ËùÒÔ²»ÄÜÖ¸¶¨)£¬Ö±½ÓÓÃPOSTºÍSEND·½Ê½²»ÄÜ·¢ËÍ£¬²»ÖªµÀÊDz»ÊÇÎÒ·½·¨ÓÐÎÊÌ⣬Çó¸ßÊÖ°ïæ.


Ö±½ÓÄ£Äâ·¢ËͼüÅ̰´¼üÏûÏ¢°É£¡

Dim ReturnValue, I
ReturnValue = Shell("Calc.EXE", 1) ' ÔËÐмÆËãÆ÷¡£
AppActivate ReturnValue ' ¼¤»î¼ÆËãÆ÷¡£
For I = 1 To 100 ' ÉèÖüÆÊýÑ­»·¡£
  SendKeys I & "{+}", True ' °´Ï°´¼ü¸ø¼ÆËãÆ÷
Next I ' ½«ËùÓÐ I ÖµÏà¼Ó¡£
SendKeys "=", True ' È¡µÃ×ܺϡ£
SendKeys "%{F4}", True ' °´ ALT+F4 ¹Ø±Õ¼ÆËãÆ÷¡£

»òÕ߸ÄÓÃAutoHotKeyÈí¼þµÄ½Å±¾ÊµÏÖ

senkeys ûÓÐÓÃ

postmessage
sendmessage 
¶¼Ã»ÓÃ..


ÏÖÔÚÎÒÒѾ­ÕÒµ½ÊäÈëµÄ·½·¨ÁË£¬È·¶¨°´Å¥Ò²¿ÉÒÔµãÁË£¬µ«ÊÇÎÊÌâÓÖÀ´ÁË£¬£¬ÎÞÂÛÄÄÀïµÄÈ·¶¨£¬Ö»Òª³öÏ־ͱ»µã»÷¡£¡£¡£

Ò»ÏÂÊǵã»÷È·¶¨µÄ´úÂ룺
  lHwndÊǵ¯³ö´°¿ÚµÄ¾ä±ú,BM_CLICK=&HF5
  mHwnd = FindWindowEx(lHwnd, ByVal 0&, "Button", "È·¶¨")
  SendMessage mHwnd, BM_CLICK, 0, 0

ÍêÈ«¸ã²»¶®¡£¡£

¹þ¹þ£¬¸ã¶®ÁË£¬È¡µÄÀàÓÐÎÊÌ⣬WINDOWSÀïÃæµ½´


Ïà¹ØÎÊ´ð£º

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


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

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ