µ÷ÊÔ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 Óï¾äÉùÃ÷Êý×é¡£
½¨ ......
VBÖеÄUnicode ºÍ Ansi ¸ñʽ
Visual Basic 32-bit °æ±¾µÄ×Ö´®´¦Àí²ÉÓà Unicode£¬Ò²¾ÍÊÇ˵×Ö´®ÔÚ VB ÄÚ²¿ÊÇÒÔUnicode µÄ¸ñʽÀ´´æ·Å¡£ºÎν Unicode£¿¼òµ¥µÄ˵£¬¾ÍÊÇÿһ¸ö×Ö·û¶¼ÊÇÒÔ 2-byte µÄÐÎʽ±íʾ£¬¶øÃ¿¸ö¡¸ÊµÌå×Ö·û¡¹¾ÍÊÇÒ»¸ö¡¸×Ö·û¡¹¡£Òò´Ë£¬
Len("´ó¼ÒºÃ")
Len("abc")
& ......
Private Sub PrintTxt(txt As String, ConWidth As Long, LeftPosition As Long)
Dim str As String
Dim str1 As String
Dim len1 As Long
str = txt
len1 = ConWidth
&nbs ......