vb程序更换验证码

VB获取网页中剩下的验证 code，vb如何获取验证 code。以下代码已修改并通过测试，它是可以显示的私有子命令1 _ click () dimctrlange，VB如何保存网页上的验证代码？为什么不用WebBrowser？如果网站用起来不够慢，而且很多电脑都有运行时，那么就可以通过检测是否繁忙，设置滚动条参数来PrivateSubmnuScroll1_Click()了，注意:webbrowser 1 . document . body . scroll no 不显示滚动条的方法endsubprivatesubmnusscroll 2 _ click()注意:webbrowser 1 . document . body . scroll auto 显示滚动条的方法只能在网页完全显示后运行，然后设置滚动到验证 code。

为什么不用WebBrowser？如果网站用起来不够慢，而且很多电脑都有运行时，那么就可以通过检测是否繁忙，设置滚动条参数来PrivateSubmnuScroll1_Click()了。注意:webbrowser 1 . document . body . scroll no 不显示滚动条的方法endsubprivatesubmnusscroll 2 _ click()注意:webbrowser 1 . document . body . scroll auto 显示滚动条的方法只能在网页完全显示后运行，然后设置滚动到验证 code。

左我真的很郁闷。我没告诉你吗？DimXDimCtrlRangeForEachXInWeb1。document . Alli FX . tagname imgthenweb 1 . stopsetctrlrangeweb 1 . document . body . createcontrolrange()ctrl range。add(X)CTR lange . exec command(copy)set image1 . picture clipboard . getdataendifnextweb 1是WebBrowser控件。

以下代码已修改并通过测试。可以显示为private子命令1 _ click () dimctrlange，iiaslongforeachxinwebbrowser 1 . document . all ifx . tagnamemthenifinstr(x . src，/webmail/jcaptcha？time)> 0 then modified place setctrlrange webbrowser 1 . document . body . createcontrolrange()ctrlrange . add(x)ctrlrange . exec command(copy)image1 . pictureclipboard . getdataexitsubdefiiii 1 endefnextendsubvrivatesubform _ load()webbrowser 1 . navigate end sub附件包含完整的项目和生成的exe文件。