vb shellÃüÁî - VB / »ù´¡Àà
formatdb -i ecoli.nt -p F -o T dosϵ÷ÓóÌÐòµÄÃüÁîÊÇÕâÑùµÄ ÎÒÓÃvbд Private Sub Command1_Click() Shell "C:\bin\forb.exe -i ec0li.nt -p F -o T ", vbNormalFocus End Sub ÕâÑùÈ´Ö´Ðв»ÁËÊÇʲôÎÊÌ⣿´ó¼Ò°ïÖúÏ£¡C:\bin\forb.exeÕâ¸ö³ÌÐòÊÇ´æÔÚµÄ
Ã²ËÆÓÐЩ²ÎÊýÒª¼ÓË«ÒýºÅµÄ¡£±ÈÈçÄãÄǸöec0li.nt£¬Ó¦¸ÃÊǸöÎļþ°É¡£ ½«ÃüÁî·Åµ½.batÎļþÀï,shellÖ´ÐдËbat¼´¿É µ«ÊÇÕâÑù×ö²»ÐУ¬ÎҵIJÎÊýµ½Ê±ÎÒÓÃÎı¾¿òµÄÖµ´ø½øÈ¥µÄ£¡ ec0li.ntÕâ¸öÊÇÎļþ -i Ñ¡ÔñÎļþ -p forb.exeµÄÒ»¸ö²ÎÊý -o Ò²ÊÇ µ½Ê±-i -p -oµÄ²ÎÊýÎÒÓÃÎı¾¿òÖµ´øÈëÔËÐеģ¡ ÕâЩ¾ßÌåÔõô×öÄØ£¿ÒýÓÃ Ã²ËÆÓÐЩ²ÎÊýÒª¼ÓË«ÒýºÅµÄ¡£±ÈÈçÄãÄǸöec0li.nt£¬Ó¦¸ÃÊǸöÎļþ°É¡£ ÊDzÎÊý µ«ÊÇÕâЩ²ÎÊý´øÈëÔËÐеģ¬Äܲ»ÄܾÙÀýһϣ¿ UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP ÕâÑùÊÔÊÔ£¬ºÇºÇ£¬Äã·¢µ½vb.net£¬¸øÄãÒÆÌùµ½vb6£¬½ñÌì·¹ý£¬¾ÓÈ»»¹Ã»½â¾ö£¬Ë³ÊÖ»ØÒ»ÏÂÄãµÄÎÊÌâ¡£ VB code: Private Sub Command1_Click() Shell "cmd /c C:\bin\forb.exe -i ec0li.nt -p F -o T ", vbNormalFocus End Sub Ҫѧ»áËÑË÷£¬ºÜ¶àÈËÎʹýÕâ¸öÎÊÌâµÄ£¬ÀýÈ磺 ÈçºÎÔÚvbÖÐÔËÐÐdosÃüÁîÒýÓà ÕâÑùÊÔÊÔ£¬ºÇºÇ£¬Äã·¢µ½vb.net£¬¸øÄãÒÆÌùµ½vb6£¬½ñÌì·¹ý£¬¾ÓÈ»»¹Ã»½â¾ö£¬Ë³ÊÖ»ØÒ»ÏÂÄãµÄÎÊÌâ¡£ VB code Private Sub Command1_Click() S
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£ ´úÂëÈçÏ£º VB code: Private Function getFile_CMD(filename, filepath) As Bo ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿ ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String) ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´ ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......