vb浏览器获取地址问题
我准备做一个浏览器,是专门用来登陆某网站的。可是那个网站 被 电信屏蔽了 知能通过Ip登陆。
网站的Ip又时时更换。 请问如何实现 自动ping 网址 然后获取Ip
一打开浏览器就能进入那个网站? --------------------编程问答-------------------- 够呛。ping 网址要有IP才能Ping.你的要求好象是反的,ping 网址 然后获取Ip。 --------------------编程问答-------------------- 可以试试用IP访问,但在HTTP头里加入
HOST: 域名
试验一下 --------------------编程问答-------------------- 不会是易做图网吧 --------------------编程问答--------------------
Sub StartIE(ByVal sHost)--------------------编程问答-------------------- 简点点的,进入cmd
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
ping www.baidu.com > C:\ip.txt
然后分析C:\ip.txt文件,里面有该域名指向的地址;
用VB描述一下以上流程也不难 --------------------编程问答-------------------- 顶 --------------------编程问答--------------------
这个牛 --------------------编程问答-------------------- 随便怎么又见楼上 来818 估计是易做图的
补充:VB , 基础类