vb求助，vb獲取網頁圖片，萬分感謝 在text輸入，點擊按鈕，獲取網頁圖片3

'窗體添加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