Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÀïÃæÉèÖöϵ㣬²é¿´±äÁ¿µÄÖµÁË£¬ÈçÏÂͼËùʾ£º
  


Ïà¹ØÎĵµ£º

vb ʵÓú¯Êý

 ×ª×Ô:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
·µ»ØϵͳʱÖӵĵ±Ç°Ê±¼ä¡£
Date
·µ»ØϵͳʱÖӵĵ±Ç°ÈÕÆÚ¡£
Now
·µ»Ø´ú±íµ±Ç°ÈÕÆÚºÍʱ¼äµÄ±àÂëÖµ¡£¸Ãº¯Êý¾­³£ÓÃ×÷ÆäËüϵͳʱÖÓº¯ÊýµÄ²ÎÊý¡£
Hour(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄСʱ²¿·Ö£¨0µ½23£©¡£
Minute(Time)
·µ»ØÖ¸¶¨Ê±¼äµÄ·ÖÖÓ²¿· ......

VBÖиù¾ÝÎı¾ÐÐÊýÏÔʾ¹ö¶¯Ìõ(¶¯Ì¬ÏÔʾ¹ö¶¯Ìõ)µÄ·½·¨

ºÜ¶àʱºò,ÎÒÃDz»ÏëÒ»¿ªÊ¼¾ÍÏÔʾ¹ö¶¯Ìõ,µ±Îı¾µ½´ïÖ¸¶¨ÐÐÊýÎı¾¿òÎÞ·¨ÍêÈ«ÏÔʾµÄʱºòÔÙÏÔʾËü,ÓÉÓÚScrollbarÊôÐÔÊÇÖ»¶ÁµÄ,ÎÞ·¨ÔÚÔËÐÐʱµÄ´úÂëÖиıäÕâ¸öÊôÐÔ,Ö»ÄÜʹÓÃÏÂÃæµÄAPIʵÏÖÕâ¸ö¹¦ÄÜ:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......

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

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

vb¼Ç¼¼¯Êý¾Ýµ¼Èëµ½excel

 Public Sub DGToExcel(DataGrid1 As DataGrid, Optional ProgressBar1 As ProgressBar, Optional ByVal intFirst As Integer, Optional ByVal intLast As Integer, Optional strTitle As String)
'--½«DataGridµ¼³öÖÁExcel,ProgressBar1Ϊ½ø¶ÈÌõ,intFirstΪ´ÓÄÄÒ»ÁпªÊ¼´òÓ¡,intLastΪ´òÓ¡µ½ÄÄÒ»ÁÐ
On Error Resume ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ