vbÒì²½ÎÊÌâ - VB / »ù´¡Àà
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄʵÏÖ£¬Ï£Íû¸ßÊÖ¸ø³öÏà¹Ø´úÂ룡
ÒýÓà ²»ÐС£Òì²½±ØÐëÔÚ±»µ÷Ó÷½ÊµÏÖ¡£ ¿ÉÒÔ²ÉÓöàÏ̷߳½Ê½——½«Íⲿµ÷Óò¿·ÖÓà ActiveX EXE ·â×°ÆðÀ´¡£ ÓÉÖ÷½çÃæµ÷Óà ActiveX EXE ÂíÉÏ·µ»Ø£» ActiveX EXE ÉÔ×÷ÑÓʱºóµ÷ÓÃÍⲿ dll£¬ÊÕµ½·µ»ØÊý¾ÝºóÔÙ´«Ë͸øÖ÷½çÃæ¡£ ²Î¿¼ http://topic.csdn.net/u/20090227/14/55bf85db-2c84-4c36-9a32-82420bc¡¡ ¸Ðл»Ø¸´£¬ÎÒ¿´¿´ºó¸øÄã»Ø¸´£¡ ¸Ð¾õ»¹ÊDz»Ôõô¶®¡£ ¸Ð¾õÓÐЩÀ§ÄÑ£¬¶àÏ߳̿϶¨²»¿ÉÈ¡¡£ ºÜÏëÖªµÀÔõôÒì²½ Ò²¾ÍÊÇͬʱִÐÐ2¸öº¯Êý ½«ÐèÒªÒì²½Íê³ÉµÄ¹¦Äܵ¥¶Àд³ÉÒ»¸ö¹¤³Ì²¢Éú³Éexe Ö÷³ÌÐò½«Òì²½ÈÎÎñÓÃshellÆô¶¯£¬²¢ÓÃÃüÁîÐвÎÊý´«µÝÈë²Î£¬¸Ã½ø³ÌµÃµ½½á¹ûºó½«Æä·ÅÔÚÁÙʱÎļþÀïÃæ¹©Æô¶¯ËüµÄÖ÷³ÌÐò¶ÁÈ¡¡£Ö÷³ÌÐòÈç¹û·¢ÏÖÒì²½ÈÎÎñ³¬Ê±£¬¿ÉÓÃÀàËÆshell("taskkill ½ø³ÌPID")µÄ·½·¨Ç¿ÖƽáÊøËü¡£ ²Î¿¼¡¶Unix±à³ÌÒÕÊõ¡·
Ïà¹ØÎÊ´ð£º
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£ ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»» Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´® ¿´¿´i ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1 text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£© µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦ ²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......