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

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


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

ÓйØvbµÄÎÊÌâ - VB / »ù´¡Àà

Êý¾Ý¿âÃ²ËÆÒѾ­Á¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿

ÎÞÂëÎÞÕæÏ࣡

Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿

Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ