如果是usb掃描槍,是焦點在哪它就輸入在哪,不能自動對應(yīng)到相應(yīng)的文本框
創(chuàng)新互聯(lián)為客戶提供專業(yè)的做網(wǎng)站、成都網(wǎng)站設(shè)計、程序、域名、空間一條龍服務(wù),提供基于WEB的系統(tǒng)開發(fā). 服務(wù)項目涵蓋了網(wǎng)頁設(shè)計、網(wǎng)站程序開發(fā)、WEB系統(tǒng)開發(fā)、微信二次開發(fā)、移動網(wǎng)站建設(shè)等網(wǎng)站方面業(yè)務(wù)。
如果是串口掃描槍可以實現(xiàn)你的功能,在代碼里判斷相應(yīng)的串口對應(yīng)文本框
可以使用專門制作二維碼的軟件進(jìn)行設(shè)置V6.5.3的也行,就不用寫什么代碼了,簡單又省事。
大小的話直接在在圖形屬性基本中就可以調(diào)整二維碼的外觀。
一般登陸網(wǎng)站時候首先要打開一個網(wǎng)頁對吧?
那首先要 GET 一個網(wǎng)址。GetResponse后,得到的流就是這個頁面的源碼。
源碼里肯定會包含這個驗證碼的提問段(可能是個圖片的網(wǎng)址,也可能是個 5+5=? 之類的字符串之類的),可以分析一下這段代碼出現(xiàn)的位置,讓程序自動尋找。找到這個圖片的網(wǎng)址,把這個圖片 GET 下來,然后,就是orc識別或你人工識別咯。。。
新建工程,添加一個picturebox,一個textbox,兩個command button
Dim vCode As String
Private Sub Command1_Click()
drawvc
End Sub
Private Sub drawvc() '顯示校驗碼
Dim i, vc, px, py As Long
Dim r, g, b As Byte
Randomize '初始化隨機種子
'生成隨機校驗碼
vc = CLng(8999 * Rnd + 1000)
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
你也可以自己畫點其他的東西,增加識別難度