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

µ÷ÊÔJavaScript/VB Script½Å±¾³ÌÐò£¨Wscriptƪ£©

ÔÚÈÕ³£µÄ²Ù×÷ϵͳά»¤¹ý³ÌÖУ¬ÓÐʱÎÒÃÇÒ²»áдһЩСµÄ½Å±¾³ÌÐòÀ´¼ò»¯ÏµÍ³¹ÜÀí¹¤×÷£¬ÀýÈçµ÷ÓÃһЩWMIº¯ÊýÀ´×Ô¶¯°²×°Ð¶ÔسÌÐòÖ®ÀàµÄ¡£
ÔÚʵ¼Ê¹¤×÷ÖУ¬ÎÒ·¢ÏÖ³ÌÐòÔ±¶Ô½Å±¾±§Ô¹×î¶àµÄ¾ÍÊǽű¾³ÌÐòºÜÄѵ÷ÊÔÕâ¸öȱµã£¬ÌرðÊǵ÷ÊÔ.vbsµÈWSH³ÌÐòµÄʱºò£¬×ÜÊÇ£º
1.       ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ò»¸ö.vbsÎļþ¡£
2.       ³ÌÐòÀïÃæ·¢ÉúÁËÒ»¸ö´íÎó£¬ÀýÈçÒì³££¬»òÕß±à³ÌÂß¼­´íÎó¡£
3.       Ò»ÐÐÐÐÔĶÁÔ´Îļþ£¬È»ºóÔÚ¹À¼Æ·¢Éú´íÎóµÄµØ·½£¬Ìí¼ÓºÜ¶àµÄMsgbox.Show£¬´òӡһЩ±äÁ¿µÄÖµ¡£
4.       ÖØÐÂÖ´ÐÐ.vbsÎļþ
5.       “µ±µ±µ±”£¬Ò»ÏµÁÐµÄ “È·¶¨”µãÍêÁËÒÔºó£¬ÈËÒ²ÔÎÁË£¬ÖØÐ»ص½µÚÈý²½¼ÌÐø……
ÆäʵÎÒÃÇÒ²ÊÇ¿ÉÒÔÓÃVisual Studioµ÷ÊÔÕâÀàWSH³ÌÐòµÄ£¬¹Ø¼ü¾ÍÔÚ.vbsµÈWSH½Å±¾³ÌÐòµÄ½âÊÍÆ÷wscript.exeºÍcscript.exeÌṩÁ˵÷ÊÔÖ§³Ö£º
1.       µ±ÎÒÃÇÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ò»¸ö.vbsÎļþʱ£¬×ÊÔ´¹ÜÀíÆ÷ʵ¼ÊÉÏÊÇÔËÐÐwscript.exeÀ´½âÊͺÍÖ´ÐÐÕâ¸ö.vbsÎļþµÄ¡£
2.       Wscript.exeºÍcscript.exe¶¼Ö§³ÖÕâÁ½¸öÑ¡Ïî /D – ÆôÓõ÷ÊÔ¹¦ÄÜ£¬/X – ÔÚµ÷ÊÔÆ÷ÀïÃæÖ´Ðнű¾³ÌÐò¡£
ÕâÑù£¬ÎÒÃÇ¿ÉÒÔʹÓÃÁ½ÖÖ·½·¨ÔÚVisual StudioÀïÃæµ÷ÊԽű¾³ÌÐò£¬ÕâÀïÎÒÖ»½éÉܵڶþÖÖ·½·¨ -- µÚÒ»ÖÖ·½·¨²»ÖªµÀΪʲôÎÒµÄWin 7 + Visual Studio 2008²»Äܹ¤×÷£¬:(¡£
ÀýÈçÏÂÃæµÄ.vbs´úÂ룬½«Ëü±£´æµ½c:"test.vbs£¬ÎÒÃÇÒªµ÷ÊÔÕâ¸ö³ÌÐò£¬Ô´ÎļþÈçÏ£º
Set obj = CreateObject("System.Collections.ArrayList")
obj.Add("this is a test")
obj.Add(1)
obj.Add(obj)
 
Msgbox obj(0)
Msgbox obj(1)
Msgbox obj(2).ToString()
 
1.       ´ò¿ªÃüÁîÐУ¬¸ü»»Ä¿Â¼µ½C:ÅÌ£¬Ö´ÐÐÏÂÃæÕâ¸öÃüÁ
Wscript.exe /X test.vbs
2.       Õâ¸öʱºò£¬Ó¦¸Ã»áµ¯³öÒ»¸öVisual Studio¶Ô»°¿ò£¬ÌáʾÄãÑ¡ÔñºÏÊʵĵ÷ÊÔÆ÷£¬Ö±½Óµã»÷ÉÏÃæµÄÈ·¶¨°´Å¥¾ÍºÃÁË¡£
3.       ×îºó£¬Äã¾Í¿ÉÒÔ¸úµ÷ÊÔC#»òÕßC++³ÌÐòÒ»Ñù£¬ÔÚ  Visual StudioÀïÃæÉèÖöϵ㣬²é¿´±äÁ¿µÄÖµÁË£¬ÈçÏÂͼËùʾ£º
  


Ïà¹ØÎĵµ£º

oracle¿Í»§¶ËÅäÖÃÓëʹÓã¨vb£©

   ʹÓÃoracleÊý¾Ý¿âÓÐÁ½ÖÖ·½·¨£º                   
1¡¢ÔÚ¿Í»§¶Ë»úÆ÷Éϰ²×°oracleµÄ¿Í»§¶ËÈí¼þ¡£Î¨Ò»µÄÀýÍâ¾ÍÊÇjavaÁ¬½ÓÊý¾Ý¿âµÄʱºò£¬¿ÉÒÔÓÃjdbc thinģʽ£¬²»ÓÃ×°oracleµÄ¿Í»§¶ËÈí¼þ¡£
2¡¢Èç¹ûÄãÔÚ»úÆ÷É ......

VBÖÐÈçºÎÉùÃ÷¼°Ê¹ÓöàάÊý×é,¶à²ãÊý×é¼°¶¯Ì¬Êý×é

ÉùÃ÷¹Ì¶¨´óСµÄÊý×é  
  ÓÐÈýÖÖ·½·¨ÉùÃ÷¹Ì¶¨´óСµÄÊý×飬ÓÃÄÄÒ»ÖÖ·½·¨È¡¾öÓÚÊý×éÓ¦ÓеÄÓÐЧ·¶Î§£º    
  ½¨Á¢¹«ÓÃÊý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà   Public   Óï¾äÉùÃ÷Êý×é¡£  
  ½¨Á¢Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà   Private   Óï¾äÉùÃ÷Êý×é¡£  
  ½¨ ......

vb²Ù×÷sqlÊý¾Ý¿âµÄµäÐÍÀý×Ó

±¾³ÌÐòÓÐÒ»²Ëµ¥¿ªÊ¼£¬ÀïÃæÓвéѯ£¬É¾³ý£¬Ð޸ģ¬Ìí¼Ó£¬³ÌÐò²»Ò»Ò»Áгö£¬Ö»Ð´³ö»ù±¾µÄ¹ý³Ì£¬Á¬½ÓÊý¾Ý¿â²ÉÓñê׼ģ¿é£º
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main()     'Êý¾Ý¿âÁ¬½Ó¹²Ïíº¯Êý
  Set conn = New ADODB.Connect ......

ÔÙ̸ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥

    È¥ÄêÔøÐ´¹ýһƪ²©ÎÄ£¬Ãû³Æ½Ð¡¶ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥¡·£¬¸ÃÎÄÓÐÒ»¸ö¹ÛµãÊÇ´íÎóµÄ£¬¼´Í¸Ã÷ÎÞ´°¿ÚUsercontrol²»Ö§³ÖÉè¼ÆÊ±µãÑ¡¡£Æäʵ£¬Í¨¹ýÔÚUserControl_HitTest¹ý³ÌÀï¼ÓÈëHitResult = vbHitResultHitÓï¾ä£¬¾Í¿ÉÒÔʵÏÖÉè¼ÆÊ±µÄµãÑ¡ÁË£¬Îª´Ë£¬Ð޸ĴúÂëÈçÏ£º
'* ******************* ......

VB .Net ÀûÓÃFTP.exeÉÏ´«ÎļþÖÁFTP·þÎñÆ÷

Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ