Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

VB ÊôÐÔµÄʹÓÃÎÞЧ

Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_ ......

VBÔõÑùÏÔʾµÇ½Óû§ID

VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ï棻
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£

ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......

ÔõÑù±£´æVBµÄcomboboxµÄlistÖµ£¿

form1 ÖУ¬ÎÒÔÚText1ÀïÊäÈë1111111111

Dim str1 As String
Private Sub Command1_Click()
str1 = Me.Text1.Text
Combo1.AddItem str1
End Sub

µãCommand1£¬¾Íдµ½Combo1µÄ ÏÂÀ­²Ëµ¥ÀïÈ¥ÁË ......

ÎʸöVBÖеÄÒ»¸öËãÊõ±í´ïʽ

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Ïë±ØÊÇ×Ô¶¨Ò庯Êý£¬²»Ö ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ