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
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
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¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......