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²»ÔÚÏߣ¬ÏûÏ¢´æÔÚÄÄÀïÄØ£¿
ÄãÒªÕâÑù×ö£¬¾ÍµÃÓиö¡°·þÎñÆ÷¡±
Ïà¹ØÎÊ´ð£º
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......