在窗体上添加一个“Microsoft Internet transfer Control”控件，默认名称为Inet1，然后用下面一行代码就可以获得指定网页的源码了：html = Inet1.OpenURL("网址写在这里")
