UC知道VB如何使用 Inet1 控件下载图片
来源：百度知道 编辑：UC知道 时间：2024/05/21 22:03:48
1，VB如何使用 Inet1 控件将 http://kf.hdfybjy.com/zxyy/new_add.php 的验证图片 放到Picture1(100分）
2，如何使用 Inet1 确定提交（100分）
Private Sub Command1_Click()
If Inet1.StillExecuting Then Exit Sub
'获取验证图片 Inet1.Execute "http://passport.csdn.net/ShowExPwd.aspx?temp=", "GET" 可以正常加载到picture中
Inet1.Execute "http://passport.csdn.net/ShowExPwd.aspx?temp=", "GET"
'而下句就报错：无效图片。
' Inet1.Execute "http://kf.hdfybjy.com/pic", "GET"
'上面两个http地址在IE中都可以看到图片为什么下一句不行啊?
End Sub
Private Sub I
2，如何使用 Inet1 确定提交（100分）
Private Sub Command1_Click()
If Inet1.StillExecuting Then Exit Sub
'获取验证图片 Inet1.Execute "http://passport.csdn.net/ShowExPwd.aspx?temp=", "GET" 可以正常加载到picture中
Inet1.Execute "http://passport.csdn.net/ShowExPwd.aspx?temp=", "GET"
'而下句就报错：无效图片。
' Inet1.Execute "http://kf.hdfybjy.com/pic", "GET"
'上面两个http地址在IE中都可以看到图片为什么下一句不行啊?
End Sub
Private Sub I
使用Inet1在效率上可能要低于XLMHTTP ,但远远要高于Webbrowser
另外你的问题在于格式问题 你另存为PNG就可以了。
我只知道第一个
利用webrower控件可以。
ctrl+t 在其中找到microsft internet control 控件打上勾点应用
然后在部件中就多了一个控件，拉控件到一个到窗体上
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://kf.hdfybjy.com/pic"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
On Error Resume Next
WebBrowser1.Document.body.Style.border = "0px" '隐藏边框
WebBrowser1.Document.body.Style.overflow = "hidden" '隐藏滚动条
WebBrowser1.Document.body.Style.margin = "0px" '修改网页边距为0
End Sub