Question

vb求助，vb获取网页图片，万分感谢 在text输入，点击按钮，获取网页图片3

Answer 1

'窗体添加webbrowser（microsoft internet controls）控件、一个commandbutton，一个textbox和一个picturebox。

'将附件中的图片拷贝到c:\pic文件夹

'text1中输入ID，点按钮查询

Dim Step1 As Integer

Dim Pic(2) As StdPicture

Private Sub Command1_Click()

Step1 = 1

Picture1.Picture = Nothing

WebBrowser1.Document.getelementbyid("nick").Value = Trim(Text1.Text)

WebBrowser1.Document.getelementbyid("斗消soso").Click

End Sub

Private Sub Form_Load()

Text1.Text = ""

Picture1.AutoSize = True

Set Pic(0) = LoadPicture("c:\pic\DJ_1.gif")

Set Pic(1) = LoadPicture("c:\pic\DJ_2.gif")

Set Pic(2) = LoadPicture("c:\pic\DJ_3.gif")

Step1 = 0

WebBrowser1.Navigate "www.taodake.com"空薯知

End Sub

Private Sub WebBrowser1_DownloadComplete()

If Step1 = 1 Then

    If InStr(WebBrowser1.Document.body.innerhtml, "Images/DJ_1.gif") > 0 Then

       手纤 Picture1.Picture = Pic(0)

    ElseIf InStr(WebBrowser1.Document.body.innerhtml, "Images/DJ_2.gif") > 0 Then

        Picture1.Picture = Pic(1)

    ElseIf InStr(WebBrowser1.Document.body.innerhtml, "Images/DJ_3.gif") > 0 Then

        Picture1.Picture = Pic(2)

    End If

End If

End Sub

追问

请问如果我要添加买家信用那一行的几心，怎么添加，我自己添加的错了，不显示

Answer 2

太难了

追问

好吧，可不可以实线呀

追答

可以不过时间比较长

追问

我有想法，在输入text加载后，下载所有图片到指定文件夹，然后提取那个图片，然后关闭后，删除该文件夹

追答

哦，要多方实践才了解