VBÖØÆô·þÎñÆ÷
ÎÒ½ñÌì¿´µ½Ò»¸öÌû×Ó£¬ËµÓÃVB±àÒëÒ»¸ödll£¬È»ºóÀûÓÃaspµ÷ÓÃÕâ¸ö×é¼þ¾Í¿ÉÒÔʵÏÖÓÃaspÖØÆô·þÎñÆ÷¡£µ«ÊÇÎÒ²»»áVB£¬ËùÒÔÏ£Íû´ó¼Ò°ïÎÒ±àÒëÒ»ÏÂÕâ¸ödll¡£Ë³±ã¿´Ò»ÏÂËûÕâ¸öÎÄÕµ½µ×Äܲ»ÄÜʵÏÖ£¬ÎÒÖ»ÏëʵÏÖÓÃaspÔÚÏßÖØÆô·þÎñÆ÷£¬¹ý³ÌÎÞËùνµÄ¡£
ÏÂÃæÊÇËû¸ø³öµÄ´úÂ룬Âé·³¸ßÊÖ°ïÎÒ±àÒëºÃÕâ¸öDLLÖ®ºó·¢µ½ÎÒµÄÓÊÏ䣺go786@qq.com ·Ç³£¸Ðл´ó¼Ò¡£
VB code:
ÏÈ˵COMµÄÖÆ×÷£¬ÔÚVBÖÐн¨Ò»¹¤³Ì£¬µ±È»ÊÇAceiveX dllµÄ£¡
1£©ÏÈÐ޸Ť³ÌÊôÐÔ£¬ÔÚ¹¤³ÌÊôÐÔ´°¿Ú½«¹¤³ÌÃû³Æ¸ÄΪsystem£¬ÔÚÀàÄ£¿é´°¿Ú½«Ä£¿éÃû³Æ¸ÄΪcontral£¬±£´æ¹¤³Ì£»
2£©È»ºóÌí¼ÓÒ»¸öÄ£¿é£¬ÓÃÀ´ÉùÃ÷ÐèҪʹÓõÄAPIºÍ³£Êý£¡ÏÂÃæÊÇÄ£¿éÖеÄÄÚÈÝ£¡
Declare Function ExitÊÓ´°ÏµÍ³Ex Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
3£©ÔÚÀàÄ£¿éÖÐÊäÈëÏÂÁдúÂ룺
Public Function reboot(atype As Variant)
t& = ExitÊÓ´°ÏµÍ³Ex(1, atype)
End Function
¸Ãº¯ÊýÐèÒª´«ÈëÒ»¸ö²ÎÊý£¬ÓÃÀ´¿ØÖÆÆô¶¯·½Ê½£¬Õâ¸ö²ÎÊýÊÇ´ÓASP³ÌʽÖд«ÈëµÄ£¬µÈһϾÍÄÜ¿´µ½¾ßÌåµÄʹÓ÷½
·¨£¡
±àдÍêÉÏÃæµÄ´úÂ룬±£´æ¹¤³Ì£¬½«¹¤³Ì±àÒëΪsystem.dll¡£ÏÂÃæ¾ÍдASP³Ìʽ£¡
ASPÖеĴúÂë·Ç³£¼òµ¥£º
<%
atype=request("atype")
set sys=server.CreateObject ("system.contral")
sys.reboot(atype)
%>
ÆäÖÐatypeÄÜʹÓÃ0¡¢1¡¢2¡¢4£¬0¡¢1ºÍ4¾ùΪ¹Ø»ú£¬2ÓÃÀ´ÖØÆô¡£Ð´ÍêºóÖ´ÐÐASP¾ÍÄÜÁË£¡
¶ÔÁË ÔÎÄÔÚÕâÀï http://www.sudu.cn/info/html/edu/20071224/11576.html
shell
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
Êý¾Ý¿âÃ²ËÆÒѾÁ¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿
ÎÞÂëÎÞÕæÏ࣡
Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿
Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......