VB 获取网页的验证码那种图片（不需要识别）

这是网页源文件<img id="imgyzm" src="images/toget.jpg" onclick="document.getElementById('yzmdiv').style.display='block';this.src='indexBitmap.aspx?flagPassword='+Math.random()" width="95" height="28" /></div>

网站打开就是一张图片“点击获取验证码"
然后点击他就跳出一张验证码图片了。在此点击，就更换验证码了。

我想要的是自己放一个PICTURE控件  程序起动的时候就直接加载验证码图片，然后点击图片同样可以更换验证码，，
怎么弄啊

最好详细点  ，谢谢
--------------------编程问答-------------------- 最简单的方法在picturebox上面弄个webbrowser。 --------------------编程问答-------------------- 不懂啊 --------------------编程问答-------------------- 在picturebox上加个webbrowser控件,调用 indexBitmap.aspx 或者单独做个页面

webbrowser控件去搜一下。 --------------------编程问答-------------------- 详细点啊高手

我现在只要把那张图片显示在我的picture控件里就行了
不需要单击了 --------------------编程问答-------------------- PICTURE控件除了显示图片,还可以画图.只要你有耐心细心,完全可以用PICTURE做出一个简易的PHOTOSHOP.这么强大的功能,向里面输出点文本或者干脆用函数每次画出不同形状但又可辨认(基于数字和字母的基本骨骼特征)的数字或字母,都是小CASE,你只要注意后台和前台显示的内容同步更换以进行验证就行了.
至于PICTURE画图,自己看联机帮助说明或相关教程. --------------------编程问答-------------------- 如果楼主指的是让自己的程序显示某个网站上的验证码,并还能点击更换和保持同步,那只能用webbrowser.设置webbrowser的尺寸,然后移动里面的滚动条到适合显示图片的位置. --------------------编程问答-------------------- 1、窗体上加一个WebBrowser，一个PictureBox；
2、代码：
Webbrowser1.Navigat "http://www.???.com/"'带验证码图片的页面
Do While not Webbrowser1.State = 12'判断网页是否加载完成
  DoEvents
  Loop
With Picture1
  .Picture = WebBrwoser1.Document.getElementById("yzmdiv")'得到Picture对象
  .PaintPicture .Picture, 0, 0, .Width, .Height, 0, 0, .ScaleWidth, .ScaleHeight
End With
--------------------编程问答-------------------- 除 --------------------编程问答--------------------

Private Sub webSky_DownloadComplete()

    On Error Resume Next

    WebSky.Silent = True

    Me.MousePointer = vbDefault

    

    Dim x, CtrlRange

    Dim sPath As String

    

    sPath = App.Path

    

    sPath = Left(sPath, InStr(sPath, vbNullChar) - 1)

    If Len(sPath) > 3 Then sPath = sPath & "\"

    

    If Trim(txtUser.Text) <> "" Then

        gstrFileName = sPath & Trim(txtUser.Text) & "Code.bmp"

    Else

        gstrFileName = sPath & "TempCode.bmp"

    End If



    For Each x In WebSky.Document.All

        If x.tagName = "IMG" Then

            If x.src = "http://getCode.asp" Then '这里就是那个动态图片的连接了

                WebSky.Stop

                Set CtrlRange = WebSky.Document.body.createControlRange()

                CtrlRange.Add (x)

                CtrlRange.execCommand ("Copy")

                

                SavePicture Clipboard.GetData, gstrFileName

                

            end if

        End If

    Next

End Sub



'其中websky为WebBrowser控件，此过程的作用为将所有的图片文件复制到剪贴板，然后再另存为。

补充：VB ,  网络编程

VB 获取网页的验证码那种图片 （不需要识别）

VB 获取网页的验证码那种图片（不需要识别）