µ÷ÊÔ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Êý¾Ý¿âÓÐÁ½ÖÖ·½·¨£º
1¡¢ÔÚ¿Í»§¶Ë»úÆ÷Éϰ²×°oracleµÄ¿Í»§¶ËÈí¼þ¡£Î¨Ò»µÄÀýÍâ¾ÍÊÇjavaÁ¬½ÓÊý¾Ý¿âµÄʱºò£¬¿ÉÒÔÓÃjdbc thinģʽ£¬²»ÓÃ×°oracleµÄ¿Í»§¶ËÈí¼þ¡£
2¡¢Èç¹ûÄãÔÚ»úÆ÷É ......
ÉùÃ÷¹Ì¶¨´óСµÄÊý×é
ÓÐÈýÖÖ·½·¨ÉùÃ÷¹Ì¶¨´óСµÄÊý×飬ÓÃÄÄÒ»ÖÖ·½·¨È¡¾öÓÚÊý×éÓ¦ÓеÄÓÐЧ·¶Î§£º
½¨Á¢¹«ÓÃÊý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà Public Óï¾äÉùÃ÷Êý×é¡£
½¨Á¢Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà Private Óï¾äÉùÃ÷Êý×é¡£
½¨ ......
±¾³ÌÐòÓÐÒ»²Ëµ¥¿ªÊ¼£¬ÀïÃæÓвéѯ£¬É¾³ý£¬Ð޸ģ¬Ìí¼Ó£¬³ÌÐò²»Ò»Ò»Áгö£¬Ö»Ð´³ö»ù±¾µÄ¹ý³Ì£¬Á¬½ÓÊý¾Ý¿â²ÉÓñê׼ģ¿é£º
'Public publicstr As String
Public conn As ADODB.Connection
Public rs As ADODB.Recordset
Public Sub main() 'Êý¾Ý¿âÁ¬½Ó¹²Ïíº¯Êý
Set conn = New ADODB.Connect ......
È¥ÄêÔøÐ´¹ýһƪ²©ÎÄ£¬Ãû³Æ½Ð¡¶ÓÃVBÎÞ´°¿Ú͸Ã÷Usercontrol±àд͸Ã÷¸¡¶¯°´Å¥¡·£¬¸ÃÎÄÓÐÒ»¸ö¹ÛµãÊÇ´íÎóµÄ£¬¼´Í¸Ã÷ÎÞ´°¿ÚUsercontrol²»Ö§³ÖÉè¼ÆÊ±µãÑ¡¡£Æäʵ£¬Í¨¹ýÔÚUserControl_HitTest¹ý³ÌÀï¼ÓÈëHitResult = vbHitResultHitÓï¾ä£¬¾Í¿ÉÒÔʵÏÖÉè¼ÆÊ±µÄµãÑ¡ÁË£¬Îª´Ë£¬Ð޸ĴúÂëÈçÏ£º
'* ******************* ......
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 = ......