1.vb winsockԴ??
2.VB获取网页源码中的网址
vb winsockԴ??
这代码发送和接收的MSDN6.0中有,在索引中键入winscok 控件,点使用 Winsock 控件其中关于UDP
协议是一种无连接协议,两台计算机之间的传输类似于传递邮件:消息从一台计算机发送到另一台计算机,但是两者之间没有明确的连接。另外,php跑腿网站源码单次传输的最大数据量取决于具体的网络。
要创建一个 UDP 伙伴,请按照以下步骤执行:
创建一个新的 Standard EXE 工程。
将缺省的窗体的名称修改为 frmPeerA。
将窗体的标题修改为“Peer A”。
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerA。尚硅谷ajax源码
在“属性”页上,单击“协议”并将协议修改为 UDPProtocol。
在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
为窗体增加如下的php http client 源码代码。
Private Sub Form_Load()'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost= "PeerB"
.RemotePort = '连接的端口号。
.Bind '绑定到本地的端口。
End With
frmPeerB.Show '显示第二个窗体。
End Sub
Private Sub txtSend_Change()
'在键入文本时,立即将其发送出去。美媛馆源码
udpPeerA.SendData txtSend.Text
End Sub
Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
要创建第二个 UDP 伙伴,请按照以下步骤执行:
在工程中添加一个标准窗体。
将窗体的名字修改为 frmPeerB。
将窗体的标题修改为“Peer B”。
在窗体中放入一个 Winsock 控件,并将其命名为 udpPeerB。asp在线报名源码
在“属性”页上,单击“协议”并将协议修改为“UDPProtocol”。
在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend,第二个命名为 txtOutput。
在窗体中添加如下的代码。
Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB
'重点:必须将 RemoteHost 的值改为
'计算机的名字。
.RemoteHost= "PeerA"
.RemotePort = '要连接的端口。
.Bind '绑定到本地的端口上。
End With
End Sub
Private Sub txtSend_Change()
'在键入后立即发送文本。
udpPeerB.SendData txtSend.Text
End Sub
Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
VB获取网页源码中的网址
你好,(由于问题情境不充足,)这里假设你通过 Winsock 控件或 Internet Control 控件成功地获取网页源码并存储入变量 strCode 中。
然后可以参考以下思路:
' 注:该程序只能作为获取静态网页类型(*.htm/*.html)文件的链接。以下代码最好放入一个独立的函数中:
Dim l As Long, j As Long, lLen As Long
Dim strTmp As String, strTmp2 As String
Dim strLink As String, strLinkList As String
Dim bErr As Boolean
lLen = Len(strCode)
strTmp = LCase(strCode)
l = InStr(1, strTmp, "http://")
Do While l <> 0
For j = l + 7 To lLen - 1
strTmp2 = Mid(strTmp, j, 5)
If strTmp2 = ".html" Then ' 命中
strLink = Mid(strTmp, l, j - l + 5)
ElseIf strTmp2 Like ".htm?" ' 命中
strLink = Mid(strTmp, l, j - l + 4)
End If
Exit For
Next
If Len(strLink) Then
strLinkList = strLinkList & strLink & vbNewLine
strLink = Empty
Else ' 未命中
MsgBox "提示:该网页存在无效链接。", vbCritical, "注意"
'-----------------------------
' TODO: 如果要继续分析,则不编写代码
' 如果直接退出,则加入:
' bErr = True
' Exit Do
'-----------------------------
End If
l = InStr(l + 7, strTmp, "http://")
Loop
If bErr Then
MsgBox "程序运行时发生错误。", vbExclamation, "提示"
End If
2024-12-26 00:26
2024-12-26 00:04
2024-12-25 23:32
2024-12-25 22:51
2024-12-25 22:50
2024-12-25 22:26