十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
思路应该是这样的 先用webbrowser 或者直接下载网页 读出html 正则找到img 然后找出src 用 picturebox 的load 去 载入这张图片 或者是用 webbrowser的那个document 方法找 不过之前做项目用这个出国错 之后就没敢再用
成都创新互联公司主营嵊泗网站建设的网络公司,主营网站建设方案,重庆App定制开发,嵊泗h5小程序开发搭建,嵊泗网站营销推广欢迎嵊泗等地区企业咨询
可以获得
我只能给你思路
如果只是要显示图片不用下载到本地的话就简单了
用asp的xmlhttp组件或者VB的inet(在一个什么ITC—internet transfer control部件里面)获得图片地址,然后在asp里面分析出来再赋值给某img的src,VB是给某图象控件的picture赋值。
如果下载到本地麻烦一些
VB的还没有成熟想法
asp可以用xmlhttp的responseStream方法读取远程图片,然后再用adodb.stream写到本地
在网上搜索到这个你可以看看
图片数据其实就是一组二进制数据。你要存到csv中应该是字符串格式。很少见这样的存储方式。你可以把数据存储在数据库中的呀。存取图片就很好搞了
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'建立新的系统进程
Dim process As New System.Diagnostics.Process()
If RadioButton1.Checked Then
'设置文件名,此处为图片的真实路径+文件名
process.StartInfo.FileName = "c:\a.bmp"
'设置进程运行参数
process.StartInfo.Arguments = "rundll32.exe shimgvw.dll"
Else
process.StartInfo.FileName = "mspaint.exe"
process.StartInfo.Arguments = "c:\a.bmp"
End If
'此项为是否使用Shell执行程序,因系统默认为true,此项也可不设,但若设置必须为true
'process.StartInfo.UseShellExecute = True
'此处可以更改进程所打开窗体的显示样式,可以不设
'process.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
process.Start()
process.Close()
End Sub
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()
'注意urladress为你上面的网页地址。
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Label1.Text = Regex.Match(sr.ReadToEnd, "回答采纳率").ToString
'sr。readtoend读取网页流到末尾,即使用正则表达式从网页流中提取“回答采纳率”,赋值给Label1.Text ‘没有则为空
sr.Dispose() '关闭流
End Sub'要提取什么东西用正则表达式最好
End Class