用Access分析网站实例

作者：凯旋网络来源：凯旋网络

Chinaz~com

''用代理无法连接的问题还要解决

中国站长.站

''将字符的 IP 编码为长整的 IP

中.国站长站

以下为引用的内容：

    On Error Resume Next
    Dim str1 As String
    Dim str2 As String
    Dim str3 As String
    Dim str4 As String
    Sip = CStr(Sip)
    str1 = Left(Sip, CInt(InStr(Sip, ".") - 1))
    Sip = Mid(Sip, CInt(InStr(Sip, ".")) + 1)
    str2 = Left(Sip, CInt(InStr(Sip, ".")) - 1)
    Sip = Mid(Sip, CInt(InStr(Sip, ".")) + 1)
    str3 = Left(Sip, CInt(InStr(Sip, ".")) - 1)

Www~Chinaz~com

str4 = Mid(Sip, CInt(InStr(Sip, ".")) + 1)
enaddr = CLng(str1) * 256 * 256 * 256 + CLng(str2) * 256 * 256 + CLng(str3) * 256 + CLng(str4) - 1
End Function

中国站.长.站

Function deaddr(Sip) Www.Chinaz.com

中国站.长站

''将编码为长整的 IP 重现转换为字符型的 IP

中.国.站长站

以下为引用的内容：

    Dim s1, s21, s2, s31, s3, s4
    Sip = Sip + 1
    s1 = Int(Sip / 256 / 256 / 256) Www.Chinaz.com

    s21 = s1 * 256 * 256 * 256
    s2 = Int((Sip - s21) / 256 / 256)
    s31 = s2 * 256 * 256 + s21
    s3 = Int((Sip - s31) / 256)
    s4 = Sip - s3 * 256 - s31
    deaddr = CStr(s1) + "." + CStr(s2) + "." + CStr(s3) + "." + CStr(s4)
End Function

站.长.站

Chinaz_com

示例请参考：http://access911.net/down/eg/User_DHTML_search_IP.rar

Chinaz@com

上述程序会自动去 http://ip.loveroot.com/index.php?job=search 搜索所有的 IP 以及对应的物理地址并保存到数据库中

Www@Chinaz@com

修订：刚才上了一下网站，发现界面竟然改了，又重新修改了一下读取页面的程序。

[中国站长站]

关于 WebBrowser 控件的资料请参考 VB6 中 MSDN 的以下章节

Chinaz~com

以下为引用的内容：

Internet Client SDK
Internet Tools & Technologies
Reusing the WebBrowser and MSHTML Www.Chinaz.com

inet401/help/itt/ieprog/IEProg.htm#book_browsing（BOOKMARK）

Chinaz

中国站.长.站

[关键词: 凯旋, 网络, 编程, ACCESS]

上一篇：一个ACCESS数据库数据传递的方法
下一篇：数据库应用程序需注意的问题

广告推荐