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
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......