VBÏÂOCX¿É·ñʵÏÖÈçϹ¦ÄÜ£¿ - VB / ÍøÂç±à³Ì
ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCXÖУ¬ÊµÏÖAÓëBµÄÏûÏ¢·¢ËÍ¡£
ÇëÎÊ¿ÉÒÔʵÏÖÂð£¿
ÎÒÐèҪѧϰÄÄЩ֪ʶ£¿
ÈçÓмòµ¥µÄSocketÀý×Ó×îºÃ¡£
MSDNÖоÍÓÐWINSCOK¿Ø¼þʹÓõĴúÂëʵÀý.
WINSCOK
Â¥Ö÷Ã²ËÆÃ»ÓÐŪÇåocxºÍwinsock
ÏÈÈ¥ÎÊÎʰٶȰÉ
лл¸÷λ
To liguicd
ÎÒµÄÒâ˼ÊÇ£¬¿É·ñ×ö³ÉOCXµÄÐÎʽ¡£
Microsoft Winsock Control 6.0 (SP6) ÒѾÊÇ OCX ÁË¡£
Winsock¾ÍÊÇÒ»¸ö¿Ø¼þ£¬ÒѾ×öºÃÁË¡£Â¥Ö÷»¹Ïë×Ô¼º×öÒ»¸ö£¿
»¹ÓÐÒ»¸öÒÉÎÊ£¬AÓëBͨÐÅ£¬ÔÚBδÁ¬½ÓÉÏAʱ£¬A·¢Ë͸øBµÄÏûÏ¢ÄÜ·ñÔÚÓÚBÁ¬½ÓÉÏAʱ£¬Ò»Æðµ½´ï£¿
ÄãÈí¼þÏȰÑÏûÏ¢´æÆðÀ´£¬µ±BÇëÇóÁ¬½Ó³É¹¦ºó£¬°ÑÏûÏ¢·¢¹ýÈ¥
End_rbody_64679097//-->
¸Ã»Ø¸´ÓÚ2010-04-15 13:41:25±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
isslkefks2
(isslkefks2)
µÈ¡¡¼¶£º
#12Â¥ µÃ·Ö£º0»Ø¸´ÓÚ£º2010-04-15 11:31:03
End_rbody_64687847//-->
¸Ã»Ø¸´ÓÚ2010-04-15 15:22:21±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
isslkefks4
(isslkefks4)
µÈ¡¡¼¶£º
#14Â¥ µÃ·Ö£º0»Ø¸´ÓÚ£º2010-04-15 18:17:01
ÏûÏ¢´æÔÚÄÇÀïºÃÄØ£¿±ÈÈçA¸øB·¢ÏûÏ¢£¬B²»ÔÚÏߣ¬ÏûÏ¢´æÔÚÄÄÀïÄØ£¿
ÄãÒªÕâÑù×ö£¬¾ÍµÃÓиö¡°·þÎñÆ÷¡±
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
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¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......