当前位置:编程学习 > VB >>

vb浏览器获取地址问题

我准备做一个浏览器,是专门用来登陆某网站的。 
可是那个网站 被 电信屏蔽了 知能通过Ip登陆。
网站的Ip又时时更换。 请问如何实现 自动ping 网址 然后获取Ip 
一打开浏览器就能进入那个网站? --------------------编程问答-------------------- 够呛。ping 网址要有IP才能Ping.你的要求好象是反的,ping 网址 然后获取Ip。 --------------------编程问答-------------------- 可以试试用IP访问,但在HTTP头里加入
HOST: 域名
试验一下 --------------------编程问答-------------------- 不会是易做图网吧 --------------------编程问答--------------------
Sub StartIE(ByVal sHost)
    On Error Resume Next
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus where address='" & sHost & "'", , 48)
    
    For Each objItem In colItems
        With GetObject("", "InternetExplorer.Application")
            .Navigate objItem.ProtocolAddress
            .Visible = True
            Exit For
        End With
    Next
End Sub

Private Sub Command1_Click()
    StartIE "www.baidu.com"
End Sub
--------------------编程问答-------------------- 简点点的,进入cmd
ping www.baidu.com > C:\ip.txt

然后分析C:\ip.txt文件,里面有该域名指向的地址;


用VB描述一下以上流程也不难 --------------------编程问答-------------------- 顶 --------------------编程问答--------------------
引用 5 楼 zhzboy 的回复:
简点点的,进入cmd
ping www.baidu.com > C:\ip.txt

然后分析C:\ip.txt文件,里面有该域名指向的地址;


用VB描述一下以上流程也不难


这个牛 --------------------编程问答-------------------- 随便怎么又见楼上 来818 估计是易做图的
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,