自动验证源码

❶ 易语言飘零网络验证自动更新的程序。求源码

那个是用asp+mdb数据库实现的，既然你会问，那你肯定不懂asp编程，所以你就别闹了。安安心心自己搞自动更新吧

❷ 谁有易语言自己输入验证码源码，要能自动输入英文的

使用彗星http模块向迅雷用户的注册界面post一条注册消息，也可以用自动填表功能，精易模块和超级模块正版里有

❸ 能帮我写一个自动验证网页和软件验证码的易源码吗

asp验证码代码 (带刷新)
将以下代码放到一个单独的页面checkcode.asp
<%
Option Explicit
Response.buffer=true
Call Com_CreatValidCode("validateCode")

Sub Com_CreatValidCode(pSN)
' 禁止缓存
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"

Randomize

Dim i, ii, iii

Const cOdds = 2 ' 杂点出现的机率
Const cAmount = 10 ' 文字数量
Const cCode = "0123456789"

' 颜色的数据(字符，背景)
Dim vColorData(1)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(211) ' 蓝0，绿0，红0（黑色）
vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) ' 蓝250，绿236，红211（浅蓝色）

' 随机产生字符
Dim vCode(4), vCodes
For i = 0 To 3
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
Next
Session(pSN) = vCodes '记录入Session
' 字符的数据
Dim vNumberData(9)
vNumberData(0) = ""
vNumberData(1) = ""
vNumberData(2) = ""
vNumberData(3) = ""
vNumberData(4) = ""
vNumberData(5) = ""
vNumberData(6) = ""
vNumberData(7) = ""
vNumberData(8) = ""
vNumberData(9) = ""
' 输出图像文件头
Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)

' 输出图像信息头
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_
ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0)

For i = 9 To 0 Step -1 ' 历经所有行
For ii = 0 To 3 ' 历经所有字
For iii = 1 To 10 ' 历经所有像素
' 逐行、逐字、逐像素地输出图像数据
If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
%>

需要用得页面用如下方式引用：
验证码： <input name="txt_check" type="text" size=6 maxlength=4 class="input"> <img src="checkcode.asp " alt="验证码,看不清楚?请点击刷新验证码" height="10" style="cursor : pointer;" onClick="this.src='checkcode.asp?t='+(new Date().getTime());" >

判断页面：
<%
if trim(session("validateCode")) <> trim(Request("txt_check")) then
ErrorMessage = "请输入正确的验证码"
response.write(" <script>alert('"&ErrorMessage&"');location.href='Default.asp' </script>")
response.end
end if
%>

❹ 易语言自动上网验证源码

你好，这个问题很好实现的。

使用以下命令即可实现

是否与互联网连接（）

调用格式：〈逻辑型〉是否与互联网连接（）-应用接口支持库->网络通信
英文名称：IsConnectToInternet
检测当前网络状态是否正在与外部互联网连接。成功返回真；失败返回假。如果本命令返回真，当前必然可以访问外部互联网。本命令为初级命令。

操作系统需求：Windows

希望我的回答对你有所帮助！Kiss灬小猪

❺ 求按键精灵源码（高手进）自动过验证的

这个你就是出40000分也没有回答你，会做的人廖廖无几，就是有也绝对不会公开的！那都是钱哪！

❻ 求易语言自动识别验证码源码

现在的验证识别都是停留在图形识别阶段，而验证码的反识别手段多的是：随机变形、变色、变字距、掺杂.....等等等等，电脑非人脑，谈何容易...

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

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

❽ 求vb自动识别验证码源码

请翻阅关于OCR的vb编程实例

❾ 求大神 .NET怎样写个桌面程序，自动扫描验证码并截取出来 求源码

1. 开启线程，访问指定的验证码链接

2. 获取验证码地址

3. 背景噪音和二值化

4. 制作字符样本

5. 匹配

6. 优化和调整

7. 验证结果

http://wenku..com/view/d752810916fc700abb68fc71.html

http://www.cnblogs.com/Aimeast/archive/2012/10/13/2722488.html

❿ ASP 用户登陆验证源码

member.asp：
在页面头部加一个判断就可以了：
<%
if Session("Uid")="" or Session("ifUserLogin")<>1 then
Response.redirect"login.asp"
else

'页面代码开始

end if
%>

Login.asp:
为了简化程序，把登陆提交页面和后台验证程序放在同一个页面中：

<!--#include file="Conn.asp"-->
<!--#include file="Md5.asp"-->
<%
'注：第一句是调用数据库连接代码，第二句代码是为了调用函数给密码加密
'请确保你的网站目录下有这个文件，没有的话可以从网上下载一个。

Dim Action
action=Trim(Request("action"))
if action="ChkLogin" then
call ChkLogin()
else
call UserLogin()
end if

Sub UserLogin
'用户提交表单代码开始
Response.write"<form action='Login.asp?action=ChkLogin' method='post'>"
Response.write"<table width='300' border='0' cellspacing='0' cellpadding='0'>"
Response.write"<tr>"
Response.write"<td width='80'>用户名：</td>"
Response.write"<td width='220'><input type='text' name='UID'></td>"
Response.write"</tr>"
Response.write"<tr>"
Response.write"<td width='80'>密 码：</td>"
Response.write"<td width='220'><input type='password' name='Pwd'></td>"
Response.write"</tr>"
Response.write"<tr>"
Response.write"<td colspan='2' align='center'><input type='submit' value='登录'><input

type='reset' value='取消'></td>"
Response.write"</tr>"
Response.write"</table>"
Response.write"</form>"
End Sub

Sub ChkLogin()
'后台验证部分开始
'因为每一个验证码的验证机制不同，
'所以省略了对验证码的判断。

Dim Rs,SQL,UID,PWD
UID=Trim(Request.form("uid"))
PWD=MD5(Request.form("pwd")) '这里调用了MD5给密码加密
if UID="" Or PWD="" then
Response.write"<script language='Javascript'>alert('用户名密码不能为空');history.back(-1);</Script>"
Set Rs=server.CreateObject("adodb.recordset")
SQL="select * from [hyuser] where Uid='"&UID&"' and PWD='"&PWD&"' "
Rs.open SQL,conn,1,1
if Rs.eof or Rs.bof then
Response.write"<script language='Javascript'>alert('密码错误！');history.back(-1);</Script>"
else
Session("uid")=UID
Session("ifUserLogin")=1
Response.redirect"member.asp"
end if
Set Rs=nothing
End Sub

%>