Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb - VB / »ù´¡Àà

xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇÊ²Ã´ÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£

hÊÇxml¸ñʽµÄ×Ö·û´®

ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿

ÎÒÊǰÑh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ