自動驗證源碼

❶ 易語言飄零網路驗證自動更新的程序。求源碼

那個是用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

%>