Question

用vb能否编写出一个自动获取和填写验证码的程序？

用vb能否编写出一个自动获取和填写验证码的程序？
有时候需要批量申请账户时需要填写的验证码能不能靠编写的程序自动获取并填写的？
有可能的话我想有位大侠能给我提供一个c++的自动填写的源码的格式和大概的语言结构~！
谢谢~~

Answer 1

Dim vCode As String

Private Sub Command1_Click()
drawvc
End Sub
Private Sub drawvc() '显示校验码
Dim i, px, py As Long, vc As String
Dim r, g, b As Byte
Randomize '初始化随机种子
'生成随机校验码
For i = 1 To 4
Do
num = Rnd() * 74 + 48
Loop While num < 48 Or (num > 57 And num < 65) Or (num > 90 And num < 97) Or num > 122
vc = vc & Chr(num)
Next i
vCode = vc
'显示校验码
Picture1.Cls
Picture1.Print vc
'添加噪点（防止自动图像识别）
For i = 0 To 2000 '画2000个噪点
'画点随机位置
px = CLng(Picture1.Width * Rnd)
py = CLng(Picture1.Height * Rnd)
'画点随机颜色
r = CByte(255 * Rnd)
g = CByte(255 * Rnd)
b = CByte(255 * Rnd)
Picture1.Line (px, py)-(px + 1, py + 1), RGB(r, g, b)
Next
End Sub
Private Sub Command2_Click()
If Text1.Text = vCode Then
MsgBox ("正确")
Else
MsgBox ("错误")
drawvc
End If
End Sub
Private Sub Form_Load()
Picture1.FontSize = 12
Picture1.FontBold = True
Picture1.AutoRedraw = True
drawvc
End Sub

Answer 2

写出一个自动获取和填写验证码的程序？
有时候需要批量申请账户时需要填写的验证码能不能靠编写的程序自动获取并填写的？

Answer 3

用VC6,需要添加一个功能,自动填写网页表单，并提交。代码如下：

CString line,ls_url;

CInternetSession lc_isession;

CHttpConnection *pcon;

pcon = lc_isession.GetHttpConnection("192.168.0.1",80,"admin","password");

ls_url = "192.168.0.1/updatebook/update_book_temp.asp?book_id=1108791";

CString FormDataType = _T("Content-Type: application/x-www-form-urlencoded");

CString FormData = _T("book_page=26&__Click=0");

CHttpFile *http = pcon->OpenRequest ("POST",ls_url);

http->SendRequest(FormDataType,(LPVOID)(LPCTSTR)FormData,FormData.GetLength() );

DWORD dwRet;

dwRet=100;

http->QueryInfoStatusCode(dwRet);

CString dd;

dd.Format("%d",dwRet);

AfxMessageBox(dd);

http->Close();

lc_isession.Close( );

源码中有两句
bstrURL = SysAllocString(L"http://<server>/scripts/navpost.asp");
LPCTSTR cszPostData = "FName=Matt&Flavor=Mocha+Chip";

修改为
bstrURL = SysAllocString(L"192.168.0.1/updatebook/update_book_temp.asp?book_id=1108791");
LPCTSTR cszPostData = "book_page=26";

程序执行通过，但数据并没有写上去，我再找找毛病，欢迎大家发言

Answer 4

可以，网上都有源码下载

Answer 5

去这里，有你要的东西 http://download.csdn.net/