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
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......