| 发表于：2008-01-19 03:03:03 楼主 |
获取验证码是可以了，但怎么去把验证码填进验证码框里呢？
private sub timer1_timer（)
on error resume next
dim d&, l&, s$, temp&
dim i as integer
dim savetime as double
dim iptbox as string
dim ctrlrange, x
dim k as boolean
list1.listindex = list1.listindex + 1
webbrowser1.navigate list1.text
while timegettime < savetime + 1500
doevents
wend
randomize
for d = 1 to combo1.text
temp = int（rnd * 2) '生成 0~1
select case temp
case 0
s = s & chr（int（rnd * 26) + 65)
case 1
s = s & chr（int（rnd * 10) + 48)
end select
next d
if text2.enabled = true then
webbrowser1.document.getelementbyid（"ti").value = text5.text & " " & s
webbrowser1.document.getelementbyid（"co").value = text6.text & " " & s
webbrowser1.document.getelementbyid（"submit3").click
end if
if text2.enabled = false then
webbrowser1.document.body.all（"ti").focus
sendkeys "{tab}"
for each x in webbrowser1.document.all
if x.tagname = "img" then
if x.id = "y_img" then
set ctrlrange = webbrowser1.document.body.createcontrolrange（)
ctrlrange.add （x)
ctrlrange.ＥＸＥＣcommand （"copy")
image1.picture = clipboard.getdata
image1.width = 1575
end if
end if
next
webbrowser1.document.body.all（"ti").focus
iptbox = inputbox（"", "验证码", "", 0, 0)
webbrowser1.document.getelementbyid（"ti").value = text5.text & " " & s
webbrowser1.document.getelementbyid（"co").value = text6.text & " " & s
webbrowser1.document.getelementbyid（"word1").value = iptbox
webbrowser1.document.getelementbyid（"submit3").click
timer1.enabled = false
end if
while timegettime < savetime + 1500
doevents
wend
end sub
请问这代码有错误的地方吗?为什么他不会再image1里显示验证码呢？
http://topic.csdn.net/u/20080117/11/8eb64316-f74f-4229-a2d0-cfdb26c57469.html |
|
|
|
|
