Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

Vb.net Access CrystalReport - .NET¼¼Êõ / VB.NET

µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......

¹ØÓÚVB.NETºÍMS ACCESSµÄÎÊÌâ

ÎÒдÁËÒ»¸öÈí¼þ£¬ÒªÓõ½ACCESSÊý¾Ý¿â£¬ÎÒÔÙ·ÃÎÊACCESSµÄʱºò£¬ÎÒÐèÒª´Ó±íÀï¶Á³öÒ»ÐÐÊý¾Ý£¬ÎҵijÌÐòÊÇÕâÑùдµÄ£¬SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......

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

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

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

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

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

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ