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

¹ØÓÚActiveXµÄ½Ì³Ì[vb]£¨×ªÌû£©

¹ØÓÚActiveXµÄ½Ì³Ì
Visual BasicÊÇÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼ÆÓïÑÔ£¬Î¢Èí¹«Ë¾ÍÆ³öÁËActiveX¼¼Êõ£¬ÀûÓÃActiveX¼¼ÊõÌá³öµÄ±ê×¼£¬¶Ô½çÃæµÄÉè¼Æ½øÐÐÁË·â×°£¬ÐγÉÁËһϵÁбà³Ì¿Ø¼þ£¬¼´Ìض¨¹¦ÄܵijÌÐòÄ£¿é¡£ÔÚ³ÌÐòµÄÉè¼ÆÖУ¬Éè¼ÆÈËÔ±Ö»ÐèÒªÍ϶¯ËùÐè¿Ø¼þµ½´°Ì壬Ȼºó¶Ô¿Ø¼þ½øÐÐÊôÐÔÉèÖúÍʹÓÃÆä·½·¨¡¢Ê¼þ¼´¿É£¬´ó´ó¼õÇáÁË·±ËöµÄ³ÌÐòÉè¼Æ¡£
µÚÒ»½Ú ÈÏʶ²¢×°ÔØActiveX¿Ø¼þ
ÈÎÎñ1£ºActiveX¿Ø¼þµÄ¸ÅÄîºÍActiveX¿Ø¼þµÄ×°ÔØ·½·¨
¡¾ÈÎÎñµÄÌá³ö¡¿Visual Basic¹¤¾ßÏäÉϵıê×¼¿Ø¼þÖ»ÓÐ21¸ö¡£¶ÔÓÚ¸´ÔÓµÄÓ¦ÓóÌÐò£¬½ö½öʹÓÃһЩ±ê×¼¿Ø¼þÊDz»¹»µÄ£¬¿ÉÒÔÓ¦ÓÃVisual BasicÒÔ¼°µÚÈý·½¿ª·¢ÉÌÌṩµÄ´óÁ¿AcitveX¿Ø¼þ¡£ÕâЩ¿Ø¼þ¿ÉÒÔÌí¼ÓÔÚ¹¤¾ßÏäÉÏ¡£Ä¿Ç°ÔÚInternetÉÏ´óÔ¼ÓÐ1000¶àÖÖAcitveX¿Ø¼þ¿É¹©ÏÂÔØ£¬´ó´ó½ÚÔ¼ÁËÎÒÃǵĿª·¢Ê±¼ä¡£
±¾ÈÎÎñÖ÷Òª°üÀ¨ÒÔÏÂÄÚÈÝ£º
(1) ¿Ø¼þ·ÖÀ༰ActiveXµÄ¸ÅÄî¡£
(2) ×°ÔØActiveX¿Ø¼þ¡£
11.1.1  ¿Ø¼þ·ÖÀ༰ActiveXµÄ¸ÅÄî
Visual Basic 6.0ÖпؼþÖ÷Òª·ÖΪÈýÖÖ£ºÄÚ²¿¿Ø¼þ£¨±ê×¼¿Ø¼þ£©¡¢ActiveX¿Ø¼þ£¨Íⲿ¿Ø¼þ£©ºÍ¿É²åÈë¶ÔÏó¡£
1£®ÄÚ²¿¿Ø¼þ£¨Ò²³Æ±ê×¼¿Ø¼þ£©
¾ÍÊÇÎÒÃÇͨ³£Ê¹ÓõÄÈç±êÇ©¡¢Îı¾¿ò¡¢ÃüÁî°´Å¥µÈ³£Óÿؼþ£¬ÔÚÎÒÃÇÔËÐÐVisual Basic 6.0»·¾³Ê±£¬¿É×Ô¶¯ÔÚ¹¤¾ßÏäÖгöÏÖ¡£Èçͼ11-1Ëùʾ¡£
ͼ11-1 ¹¤¾ßÏäÖеÄÄÚ²¿¿Ø¼þ
2£®ActiveX¿Ø¼þ
£¨1£©ActiveX²¿¼þ
VB¹¦ÄÜÖ®ËùÒÔÇ¿´ó£¬ºÜ´ó³Ì¶ÈÉÏÊǽèÖúÓÚActiveX²¿¼þ¡£ËùνActiveX²¿¼þÊÇÖ¸Ò»¼þ¿ÉÕдýµÄ´úÂ룬ÈçÒ»¸ö.exe ¡¢.dll»ò .ocxÎļþ£¬ËüÃÇÔÚÌṩ¶ÔÏóʱ×ñÑ­ActiveXµÄ¹æ·¶¡£ÔÚVBÖУ¬¾ßÓÐËÄÖÖÀàÐ͵ÄActiveX²¿¼þ£ºActiveX ¿Ø¼þ¡¢ActiveX.EXE¡¢ActiveX.DLL ¡¢ActiveX Îĵµ¡£ActiveX.EXE²¿¼þÊDz»¿ÉÊӵĴúÂ벿¼þ£¬Äܹ»·þÎñÓÚ¶à¸öÓ¦ÓóÌÐò£¬²¢ÇÒÄܹ»ÔÚÔ¶³Ì¼ÆËã»úÉÏÔËÐУ¬Äܰ²×°ÔÚ·þÎñÆ÷¶Ë£»ActiveX.DLL ²¿¼þÊDz»¿ÉÊӵĴúÂ벿¼þ£¬Äܹ»ÓëÓ¦ÓóÌÐòÔËÐÐÔÚͬһ¸ö½ø³ÌÖУ¬Äܰ²×°ÔÚ¿Í»§¶Ë£»ActiveX ¿Ø¼þÊÇÒ»¸ö¿ÉÊӵIJ¿¼þ£¬Äܹ»×÷Ϊ¿Ø¼þ±»ÍϷŵ½²»Í¬µÄÓ¦ÓóÌÐòÖУ»ActiveX ÎĵµÒ²ÊÇÒ»¸ö¿ÉÊӵIJ¿¼þ£¬Äܹ»Í¨¹ýInternetÉϵÄWebä¯ÀÀÆ÷´ò¿ª¡£
£¨2£©ActiveX¿Ø¼þ
ActiveX¿Ø¼þ³ÆÎªÀ©³ä¿Ø¼þ¡£ActiveX¿Ø¼þÊÇÒ»ÖÖ¾ßÓпÉÊÓÉè¼ÆÍâ¹Û£¬²¢ÇÒÄܹ»×÷Ϊ¿É²å¼þÒýÈëµ½Ó¦ÓóÌÐòÖÐÈ¥µÄActiveX²¿¼þ£¬ÈçADO Data¿Ø¼þ¾ÍÊÇÆäÖÐÖ®Ò»¡£“ActiveX¿Ø¼þ”ÊÇÒ»ÖÖÀ©Õ¹ÃûΪ .OCXµÄ¶ÀÁ¢Îļþ£¬Í¨³£´æ·ÅÔÚWindowsµÄSystemĿ¼ÖС£
´ó²¿·ÖÓ¦ÓóÌÐò¿ÉÒÔÓÃÄÚ²¿¿Ø¼þÀ´Éè¼Æ£¬µ«ÊÇÓÐЩ¹¦ÄÜ£¬È磺¶àýÌå¡¢¶¯»­¡¢¼ÆËã»úͨѶµÈÎÞ·¨ÓÃÄÚ²¿¿Ø¼þÀ


Ïà¹ØÎĵµ£º

VB ×ÊÁϵ¼³ö

Ôںܶà VB µÄ×ÊÁÏ¿âÊé¼®ÖУ¬¶¼»áºÜÍêÕûµÄÌáµ½£ºÈçºÎÓÉÆäËûÖÖÀàµÄÎļþÖн«×ÊÁϵ¼Èë×ÊÁϿ⣬µ«ÊÇÈ´ºÜÉÙÓÐÊéÌáµ½£ºÈçºÎ½«×ÊÁÏ¿âÖеÄ×ÊÁÏ£¬µ¼³öµ½¸÷ÖÖ²»Í¬µÄÎļþÀàÐ͵ÄÎļþÖУ¬Á¬ VB µÄ Help ÖÐÒ²ÊÇÕâÑù£¡
»òÐíÊÇ´ó¼Ò¶¼ÈÏΪ×ÊÁÏ¿âÖ÷ÌâµÄÖØµãÊÇÔÚ×ÊÁϿⱾÉí°É£¡
µ«ÊÇ£¬ÔÚʵ¼ÊµÄ×ÊÁÏ¿â³ÌÐòÔËÓÃÖУ¬È´³£³£ÐèÒª½«×ÊÁϿ⵼³öµ½¸÷ÖÖ ......

vb×Ô¶¯¹Ø»ú³ÌÐò

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
  ......

VBÕýÔò±í´ïʽ

Èç¹ûÔ­À´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýѰÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç 'data?.dat' µÄģʽ¿ÉÒÔÕÒµ½ÏÂÊöÎļþ£º
data1.dat ......

VBʵÏÖ¡°Ä¾Âí¡±Ê½ÒþÐÎÔËÐгÌÐò

³ÌÐòÒþÐεÄÔ­Àí
¡¡¡¡¶ÔÓÚÒ»¸öÒþÐγÌÐò¶øÑÔ£¬×î»ù±¾µÄÒªÇóÊÇ£º
¡¡¡¡1. ²»ÔÚ×ÀÃæ³öÏÖ½çÃæ£»
¡¡¡¡2. ²»ÔÚÈÎÎñÀ¸³öÏÖͼ±ê£»
¡¡¡¡3. ³ÌÐòÃû´ÓÈÎÎñ¹ÜÀíÆ÷Ãûµ¥ÖÐÏûʧ¡£
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’»ñµÃµ±Ç°½ø³ÌIDº¯ÊýµÄÉùÃ÷
Public Declare Functio ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ