VBµ÷ÓÃcmd
ÎÒÏëÓÃVB×ö¸ö´ÅÅÌÐÞ¸´³ÌÐò.ÔÚ½çÃæÉÏÓиötext1,ÔÚÀïÃæ¿ÉÊäÈëÅÌ·û,ÊäÈëÅÌ·ûºóµã"¿ªÊ¼"°´Å¥,¼´¿É¶Ôtext1.textÖÐËùÊäÈëµÄÅÌ·û½øÐÐÐÞ¸´.ÎÒËùÓõĴúÂëÊÇ:Shell "CHKDSK text1.text:/F".µ«²»ÄÜʵÏÖЧ¹û,Çë¸ßÊÖÖ¸½Ì.Áí:ÄÜ·ñʵÏÖ²»ÏÔʾcmd½çÃæ,µ«ÐÞ¸´ÍêºóÄÜÒÔmsgbox½øÐÐÌáʾ?лл
Shell "CHKDSK text1.text:/F",0
²»ÏÔʾcmd½çÃæ
shell "chkdsk " & text1.text & " :/F" ,0
ÓÃmsgboxÏÔʾ½á¹û²»ºÃ×ö¡£
¿ÉÒÔÓÃ"ÖØ¶¨ÏòÃüÁî"°Ñ½á¹û´æµ½ÎļþÖУ¬ÔÚ´ò¿ªÎļþ£¬ÓÃmsgbox ÏÔʾ¡£
ÄÜ·ñÔÚÐÞ¸´ÍêºóÁíÒÔÌáʾ¿òµÄÐÎʽ½øÐÐÌáʾ?
Áí:ÎÒÊÔ¹ýShell "CHKDSK text1.text:/F",µ«¾ÍÊÇû·´Ó³,Ò²²»¼ûcmd´°¿Úµ¯³ö.
Shell "CHKDSK" & Text1.Text & " :/F" ÔÚ¿ªÊ¼Ð´µÄʱºòÎÒÒ²ÊÔ¹ýÁË,Ò»µ÷ÊÔ¾ÍÌáʾÎļþδÕÒµ½.
VB code:
Shell "CHKDSK.exe" & " " & Text1 & "/F", vbHide
Shell "CHKDSK.exe" & " " & Text1.Text & "/F" û·´Ó¦.
Shell "CHKDSK.exe" & " " & Text1.Text & ":/F" ¿ÉÒÔʵÏÖЧ¹û.¼ÓÁËvbHideËäÈ»¿ÉÒÔÈÃcmd´°¿Ú²»ÏÔʾ,µ«Ôõô²ÅÄÜÖªµÀ´ÅÅÌÒÑÐÞ¸´Íê³ÉÁËÄØ?
ÐÞ¸´Íê³ÉºóµÄÌáʾ´úÂëÎÒÒÑÍê³É,²¢²âÊÔOK.лл¸÷λÈÈÐĵİïæ.
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......