皮皮网

1.VB获取网页源码中的网址
2.用VB向另一台电脑上的程序发送消息,求源代码和所需控件

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 "提示：该网页存在无效链接。",pvztools源码 vbCritical, "注意"

        '-----------------------------

        ' TODO: 如果要继续分析，则不编写代码

        ' 如果直接退出，则加入:

        ' bErr = True

        ' Exit Do

        '-----------------------------

        End If

        l = InStr(l + 7, strTmp, "http://")

       Loop

       If bErr Then

        MsgBox "程序运行时发生错误。", vbExclamation, "提示"

       End If

用VB向另一台电脑上的程序发送消息,求源代码和所需控件

       这代码发送和接收的MSDN6.0中有，在索引中键入winscok 控件，点使用 Winsock 控件

       其中关于UDP

       协议是一种无连接协议，两台计算机之间的传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是MySQL.data源码两者之间没有明确的连接。另外，单次传输的最大数据量取决于具体的网络。

       要创建一个 UDP 伙伴，请按照以下步骤执行： 

       创建一个新的 Standard EXE 工程。

       将缺省的窗体的名称修改为 frmPeerA。

       将窗体的获取源码自行编译标题修改为“Peer A”。

       在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerA。

       在“属性”页上，单击“协议”并将协议修改为 UDPProtocol。

       在窗体中添加两个 TextBox 控件。将第一个命名为 txtSend，画册在线制作源码第二个命名为 txtOutput。

       为窗体增加如下的代码。

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。

       在“属性”页上，单击“协议”并将协议修改为“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