VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿
±ÈÈç½ø³Ì¼ÓÔØеijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖÃNTFSÎļþȨÏÞ.
¡£¡£¡£
ÎÒÈ¥Òª×èÖ¹½ø³Ì´´½¨¡£Èç¹ûͬÒâ¾ÍÔÊÐí´´½¨¡£
Ö»ÔËÐÐÒ»´Î¡£
Èç¹ûͬÒâÔËÐоÍÔËÐгÌÐò¡£
Hook CreateProcessInternalW
´ó¶àÊýʱºòSHELL HOOKÒ²¿ÉÒÔ
ÓÃOpenÓï¾ä´ò¿ªÕâ¸ö²»ÈÃÔËÐеijÌÐò£¬²»ÒªClose¡£ÕâÑù´ËÎļþ¾Í±»Õ¼Óã¬Ó¦¸Ã¾Í²»ÄÜÔËÐÐÁË¡£ÐèÒªÔËÐеÄʱºòClose¡£
Õý½â
ÔÚÄãµÄ³ÌÐòÀï¼ÓÒ»¸öTIMER¿Ø¼þ,È»ºóÓÃfindwindowÕâ¸öº¯Êý¶¨Ê±²éÕÒÊÇ·ñÓÐÄ¿±ê´°¿Ú´æÔÚ£¬Èç¹û´æÔÚ£¬ÄÇôÓÃsendmessageº¯Êý¸øÄ¿±ê´°¿Ú·¢ËÍÒ»¸ö¹Ø±ÕËüµÄÏûÏ¢¾ÍÐÐÁË,²»¹ýÕâ¸ö·½·¨Óиö²»×ã,ÄǾÍÊÇÄ¿±ê³ÌÐò±ØÐëÆô¶¯Ê±Óд°¿Ú´æÔÚ
´ó´óÃÇ ·Å¸öHOOK CreateProcessInternalW ´úÂë³öÀ´£¬ÕÕ¸£Ò»ÏÂÎÒÃÇÕâÑùµÄ²ËÄñ°É£¬¿´Ô´³ÌÐò×ܱÈÓôÃƵÄÑо¿ÒªÇ¿°É!
ÎÒÒ²ÏëÖªµÀ
¶ÔÓÚ¸ßÊÖÀ´Ëµ£¬ÓÃVB×öÒ²ºÜÀ§ÄÑ¡£
×¢ÈëµÄ´úÂëÖÁÉÙµÃÊǸö±ê×¼µÄdll¡£
½¨ÒéÓÃShell Hook£¬VB¾ÍÄܸ㶨¡£
°ï¶¥
¼ÇµÃ¼û¹ýWINDOWSÍâ¿Ç±à³ÌÓнӿڵÄ
²»ÖªµÀÊDz»ÊǼǴíÁË.
ÏòɱÈíѧϰ£¬¸ÄSSDT£¡£¨³ä·Ö»³ÒÉvbÄÜ×Ô¼º¸ÉÕâÊÂô£¬»¹Êǵ÷cµÄ¿â£©
ÎÒ¸øÉÏ´«µ½CSDNÁË£¬http://download
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿
1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......
VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ï棻
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£
ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......
form1 ÖУ¬ÎÒÔÚText1ÀïÊäÈë1111111111
Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub
µãCommand1£¬¾Íдµ½Combo1µÄ ÏÂÀ²Ëµ¥ÀïÈ¥ÁË ......
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Ïë±ØÊÇ×Ô¶¨Ò庯Êý£¬²»Ö ......