ÇëÎÊVB×Ô¶¯¸üÐÂÎÊÌâ - VB / ¿Ø¼þ
ÎÒÓÃVBÖ±½ÓÉú³ÉÁËÒ»¸ö.exeµÄ¹¤³Ì£¬ÆäËûÈË¿ÉÒÔÔÚËûÃÇ×Ô¼ºµÄµçÄÔÉÏÖ±½ÓÓ¦ÓÃÕâ¸ö³ÌÐò£¬ÎÒÏëʵÏÖµÄÊÇ£¬µ±ÎÒÖØÐ±àÒëÕâ¸ö³ÌÐòºó£¬ÈçºÎÄÜÈÃÆäËûÈËÔÚË«»÷´ò¿ªÕâ¸ö³ÌÐòºó£¬¿ÉÒÔ×Ô¶¯¼ì²éÊÇ·ñÓÐа汾³öÏÖ£¬Èç¹ûÓÐа汾£¬Ôò×Ô¶¯¸üÐÂ,ÇëÎÊÓÐʲô´úÂë¿ÉÒÔʵÏÖÂð£¬Ô½¾ßÌåÔ½ºÃ¡£ÀýÈ磺¹¤³ÌÃûΪA.exe
Friendly Up!
лл1Â¥ÌṩµÄ²Î¿¼×ÊÁÏ,µ«ÓÐЩµØ·½²»Ì«Ã÷°×,»¹ÏëÇë½ÌÒ»ÏÂ,ÒÔÏÂÀ¨ºÅÀïµÄΪÒýÓòο¼²¿·Ö
(¾ßÌå³ÌÐòʵÏÖÈçÏÂ:
ÔÚÓ¦ÓóÌÐò¹¤³ÌMyAppÖеIJ¿·Ö´úÂëÈçÏÂ:
Option Explicit
'±àÒëºóµÄÓ¦ÓóÌÐòÃû³Æ,×¢ÒâûÓкó׺ .EXE,±¾ÀýΪMYAPP
Private Const App_Name = "MyApp"
'×îеÄÓ¦ÓóÌÐò´æ·ÅµÄ·¾¶,±¾ÀýΪ£º·þÎñÆ÷ NtServer01 ¹²ÏíĿ¼ Refresh
Private Const ExePath = "\\NtServer01\Refresh\"
'Öнé³ÌÐòÃû³Æ,×¢ÒâûÓкó׺ .EXE,±¾ÀýΪ FastCopy
Private Const MidExeName = "FastCopy")
ÎÊÌ⣺ÎÒµÄÓ¦ÓóÌÐòÖÐÓÐÐí¶à¹¤³Ìform1¡¢form2µÈµÈ£¬¶øÉÏÃæµÄ´úÂëÓ¦·ÅÔÚÄĸö¹¤³ÌÀï
ÓÐûÓоßÌå¸üеĴúÂë°¡£¬ÀýÈ磺ÓÉfom1 form2¹²Í¬Éú³ÉÁËform.exe£¬ÈçºÎÄܹ»×Ô¶¯¸üÐÂÄØ
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......