vb60代码为:
Dim vtag
Dim CtrlRange
For Each vtag In WebBrowser1DocumentAll
If vtagtagName = "IMG" Then
Set CtrlRange = WebBrowser1DocumentbodycreateControlRange()
CtrlRangeAdd (vtag)
CtrlRangeexecCommand ("Copy")
Set Image1Picture = ClipboardGetData
End If
Next
用到的控件有WebBrowser,Image
vb60后的代码为:
Dim vtag as Object
Dim CtrlRange as Object
For Each vtag In WebBrowser1DocumentDomDocumentAll
If vtagtagName = "IMG" Then
CtrlRange = WebBrowser1DocumentDomDocumentbodycreateControlRange()
CtrlRangeAdd (vtag)
CtrlRangeexecCommand ("Copy")
PictureBox1Image = MyComputerClipboardGetImage()
End If
Next
用到的控件有WebBrowser,PictureBox
'原理都是先找到位置再进行复制粘贴
这个正常，原因是：有的验证码不是标准的图像，所以显示不了是正常的。另外你用记事本打开你得一的这个文件，看看是不是文本代码，如果是代码，说明你的 *** 作本来就有问题。如果不是代码，就可以用别的方式为解决，要用到API，你先确定一下得到的文件是不是一个文本文件，你可以把它拖到记事本窗口中，就能看到内容。
可以
先找到验证码的地址
一般这个地址不是以jpg 结尾的 因为验证码是动态生成的
比如<IMG src="includes/checkcodephp">
先用webbrowser1documentbodyinnnerhtml 返回<body></body>之间的HTML代码
用正则或其他任何方法 或 instr 找到该地址 然后把
Picture 的路径设为这个就行了
以上就是关于VB 6.0 怎么截取网页中验证码图片全部的内容，包括:VB 6.0 怎么截取网页中验证码图片、想用VB做个登陆窗口，要请求有验证码，验证码怎么做、vb xmlhttp 读取验证码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）