VB WINSOCK¿Ø¼þÎÊÌâ - VB / »ù´¡Àà
ÎÒ¸Õ½Ó´¥VBÍøÂç±à³ÌÕâ¿é£¬ºÜ¶àµØ·½²»Ì«¶®£¬Ð´ÁËÕ⼸ÐдúÂ룬³öÏÖ¡°ËùÐèÊÂÎï»òÇëÇóµÄ´íÎóÐÒé»òÁ¬½Ó״̬¡±Õâ¸ö´íÎó
Ô´´úÂëÈçÏ£º
·þÎñÆ÷¶Ë £¨TCPµÄ£©
Private Sub Form_Load()
'½« LocalPort ÊôÐÔÉèÖÃΪһ¸öÕûÊý¡£
'È»ºóµ÷Óà Listen ·½·¨¡£
tcpServer.LocalPort = 1001
tcpServer.Listen
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
'¼ì²é¿Ø¼þµÄ State ÊôÐÔÊÇ·ñΪ¹Ø±ÕµÄ¡£
'Èç¹û²»ÊÇ£¬
'ÔÚ½ÓÊÜеÄÁ¬½Ó֮ǰÏȹرմËÁ¬½Ó¡£
If tcpServer.State <> sckClosed Then _
tcpServer.Close
'½ÓÊܾßÓÐ requestID ²ÎÊýµÄ'Á¬½Ó¡£
tcpServer.Accept requestID
End Sub
Private Sub txtSend_Change()
'ÃûΪ txtSend µÄ TextBox ¿Ø¼þÖÐ
'°üº¬ÁËÒª·¢Ë͵ÄÊý¾Ý¡£µ±Óû§ÍùÎı¾¿òÖÐ
'¼üÈëÊý¾Ýʱ£¬Ê¹Óà SendData ·½·¨
'·¢ËÍÊäÈëµÄ×Ö·û´®¡£
tcpServer.SendData txtSend.Text
End Sub
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
'Ϊ½øÈëµÄÊý¾ÝÉùÃ÷Ò»¸ö±äÁ¿¡£
'µ÷Óà GetData ·½·¨£¬²¢½«Êý¾Ý¸³ÓèÃûΪ txtOutput µÄ TextBox µÄ Text ÊôÐÔ¡£
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub
¿Í»§¶Ë£º
Private Sub Form_Load()
'Winsock ¿Ø¼þµÄÃû×ÖΪ tcpClient¡£
'×¢Ò⣺Ҫָ¶¨Ô¶³ÌÖ÷»ú£¬¿ÉÒÔʹÓÃ
' IP µØÖ·£¨ÀýÈ磺"121.111.1.1"£©£¬Ò²¿ÉÒÔʹÓá°¼ÆËã»úÃû¡±ÈçÏÂËùʾ¡£
tcpClient.RemoteHost = "20090101-0078"
tcpCli
Ïà¹ØÎÊ´ð£º
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......