VB ½ûÖ¹Ö¸¶¨´°¿Ú±êÌâÀ¸²Ëµ¥
Õâ¸ö³ÌÐòÊǹ̶¨µÄ£¬±ÈÈçcmd.exe
´ò¿ªCMDºó£¬Êó±êÔÚCMDµÄ±êÌâÀ¸¿ÉÒÔµã»÷ÓÒ¼üºÍ×ó¼ü£¬µ¯³öÏàÓ¦µÄ²Ëµ¥¡£
ÎÒÒª´ïµ½µÄÄ¿µÄÊÇ£ºÎÞÂÛÊÇ×ó»÷»¹ÊÇÓÒ»÷CMDµÄ±êÌâÀ¸¶¼²»Äܵ¯³ö²Ëµ¥¡£
»òÕßÄܳöÏֲ˵¥Ò²ÐУ¬µ«Ö»ÄܳöÏÖ±ê×¼µÄ²Ëµ¥£¬±ÈÈç²Ëµ¥ÖÐÖ»ÄܳöÏÖ»¹Ô ×î´ó»¯ ×îС»¯ ¹Ø±ÕµÈ£¬¾ø¶Ô²»ÄܳöÏÖ²»±ê×¼µÄ±à¼ ĬÈÏÖµ ÊôÐԵȡ£
×¢Ò⣺´°¿ÚÓÒÉϽǵÄ×îС»¯¡¢×î´ó»¯£¨»¹Ô£©¡¢¹Ø±Õ£¬ÕâÈý¸ö°´Å¥Ò»¶¨ÒªÁô×Å¡£
¸÷λ´ïÈËÓÐʲô°ì·¨£¿
×îºÃÁгöVB´úÂ룬лл£¡
Óиö²»³ÉÊìµÄ˼·£¬È«¾ÖHOOKÊó±ê£¬È»ºóÅжϵ±Ç°¼¤»îµÄ´°¿ÚÊDz»ÊÇÄ¿±ê´°¿Ú£¬ÊǵϰÔÙÅжÏÊÇ·ñÊǷǿͻ§Çø£¬ÊǵϰÀ¹½ØÖ®¡£
ʣϵÄËÆºõ¾ÍÖ»ÄÜ×¢ÈëÁË£¬ÄѶȸß
Â¥ÉϵĴó¸ç£¬ÄãµÄ°ì·¨Ì«¸´ÔÓÁË£¬²»¹ý·Ç³£¸ÐлÄ㣡
±ÈÈçÎÒÔÚVBÖÐÊÇÕâÑùµ÷Óõģº
i = WinExec(App.Path & "\cmd.exe", 9)
µ÷³öÀ´µÄ´°¿Ú²»ÄÜÓбêÌâÀ¸²Ëµ¥¡£
Â¥Ö÷Äܽ²ÏÂΪʲôÂ𣿻òÐíÓбðµÄ·½·¨
»Ø¸´£ºpatrickkong
ÊÇÕâÑùµÄ£º
ÒòΪÎÒÐèÒªµ÷ÓÃÁíÒ»¸ö¹¤¾ß£¬¶øÕâ¸ö¹¤¾ßÊDZðÈËдµÄ£¬ºÜºÃÓã¬ÎÒ½«Õâ¸ö¹¤¾ß·ÅÔÚÎҵijÌÐòÀÕâÑùºÃÓÃÓÖ·½±ã£¬µ«ÊÇÕâ¸öС³ÌÐòÔÚ±êÌâÀ¸ÉÏ¿ÉÒÔµ¯³ö²Ëµ¥£¬ÀïÃæ¿ÉÒÔÐÞ¸ÄһЩÕâ¸ö³ÌÐòµÄÅäÖã¬ÒòΪÎÒÅäÖúÃÁË£¬²»Ïë¸øÈËÐÞ¸ÄÀïÃæµÄÅäÖ㬲»È»»áµ¼Ö³ÌÐòÔËÐв»Õý³£¡£
ÓÐʲôºÃ·½·¨Âð£¿
ºÜ¼±°¡!!!
ûºÃ°ì·¨£¬Ò²Ì¸Ì¸ÄúµÄÏë·¨£¬ÄúµÄ˼·¡£
±ê×¼µÄWindows´°Ìå¿ÉÒÔÓÃÏÂÃæµÄ·½·¨£º
VB code:
Option Explicit
Private Declare Function GetWindowLon
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......