VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£ ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£ È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£ ¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£ ÉèÖÃNTFSÎļþȨÏÞ. ¡£¡£¡£ ÎÒÈ¥Òª×èÖ¹½ø³Ì´´½¨¡£Èç¹ûͬÒâ¾ÍÔÊÐí´´½¨¡£ Ö»ÔËÐÐÒ»´Î¡£ Èç¹ûͬÒâÔËÐоÍÔËÐгÌÐò¡£ Hook CreateProcessInternalW ´ó¶àÊýʱºòSHELL HOOKÒ²¿ÉÒÔ ÓÃOpenÓï¾ä´ò¿ªÕâ¸ö²»ÈÃÔËÐеijÌÐò£¬²»ÒªClose¡£ÕâÑù´ËÎļþ¾Í±»Õ¼Óã¬Ó¦¸Ã¾Í²»ÄÜÔËÐÐÁË¡£ÐèÒªÔËÐеÄʱºòClose¡£ÒýÓà Hook CreateProcessInternalW Õý½â ÔÚÄãµÄ³ÌÐòÀï¼ÓÒ»¸öTIMER¿Ø¼þ,È»ºóÓÃfindwindowÕâ¸öº¯Êý¶¨Ê±²éÕÒÊÇ·ñÓÐÄ¿±ê´°¿Ú´æÔÚ£¬Èç¹û´æÔÚ£¬ÄÇôÓÃsendmessageº¯Êý¸øÄ¿±ê´°¿Ú·¢ËÍÒ»¸ö¹Ø±ÕËüµÄÏûÏ¢¾ÍÐÐÁË,²»¹ýÕâ¸ö·½·¨Óиö²»×ã,ÄǾÍÊÇÄ¿±ê³ÌÐò±ØÐëÆô¶¯Ê±Óд°¿Ú´æÔÚ ´ó´óÃÇ ·Å¸öHOOK CreateProcessInternalW ´úÂë³öÀ´£¬ÕÕ¸£Ò»ÏÂÎÒÃÇÕâÑùµÄ²ËÄñ°É£¬¿´Ô´³ÌÐò×ܱÈÓôÃÆµÄÑо¿ÒªÇ¿°É! ÎÒÒ²ÏëÖªµÀÒýÓà ´ó´óÃÇ ·Å¸öHOOK CreateProcessInternalW ´úÂë³öÀ´£¬ÕÕ¸£Ò»ÏÂÎÒÃÇÕâÑùµÄ²ËÄñ°É£¬¿´Ô´³ÌÐò×ܱÈÓôÃÆµÄÑо¿ÒªÇ¿°É! ¶ÔÓÚ¸ßÊÖÀ´Ëµ£¬ÓÃVB×öÒ²ºÜÀ§ÄÑ¡£ ×¢ÈëµÄ´úÂëÖÁÉÙµÃÊǸö±ê×¼µÄdll¡£ ½¨ÒéÓÃShell Hook£¬VB¾ÍÄܸ㶨¡£ °ï¶¥ ¼ÇµÃ¼û¹ýWINDOWSÍâ¿Ç±à³ÌÓÐ½Ó¿ÚµÄ ²»ÖªµÀÊDz»ÊǼǴíÁË. ÏòɱÈíѧϰ£¬¸ÄSSDT£¡£¨³ä·Ö»³ÒÉvbÄÜ×Ô¼º¸ÉÕâÊÂô£¬»¹Êǵ÷cµÄ¿â£© ÎÒ¸øÉÏ´«µ½CSDNÁË£¬http://download
Ïà¹ØÎÊ´ð£º
function multi(a as integer,b as integer,optional third) dim n as integer n = a * b if not ismissing (third) then n = n * thid end if multi = n end fu ......
Private Sub Command1_Click() Dim m As Integer '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ Dim n As Integer '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ Dim k As Integ ......
Ò»¸ö³ÌÐò£¬Á½¸ö´°¿Ú£¬Ò»¸öÓÃÀ´¸ü¸Äaccess±íÊý¾Ý£¨Form1£©,ÁíÒ»¸ö´°¿ÚÓиöcombo1ÓÃÀ´ÏÔʾÊý¾Ý(Form2)¡£form2ÓÐÒ»¸ö°´Å¥(command1)ÓÃÀ´´ò¿ªform1¡£ÏÖÔÚÎÒÏÈ´ò¿ªform2£¬combo1¶ÁÈ¡³öÊý¾Ý£¬µã»÷command1´ò¿ªform1,¸ü¸ÄÊý ......
pow(x+sqrt(x*x+1),1.0/3) (x+sqrt(x*x+1))^1.0/3 ÉÏÃæÕâÁ½¸öÖÐÄĸöÊǶԵİ¡»¹ÊǶ¼¿ÉÒÔ »¹ÓÐÆäÖеÄ1.0ÊDZØÐëÓÃ1.0? ¿É²»¿ÉÒÔÓÃ1°¡ sqrÊǺ¯Êý£¬sqrtºÍpowÏë±ØÊÇ×Ô¶¨Ò庯Êý£¬²»Ö ......