日本综合一区二区|亚洲中文天堂综合|日韩欧美自拍一区|男女精品天堂一区|欧美自拍第6页亚洲成人精品一区|亚洲黄色天堂一区二区成人|超碰91偷拍第一页|日韩av夜夜嗨中文字幕|久久蜜综合视频官网|精美人妻一区二区三区

我們?cè)谑褂肰B.NET這樣一款開發(fā)語言進(jìn)行編程的時(shí)候，需要認(rèn)清其中的特性，才能真正完善我們的程序開發(fā)。下面就先一起了解一下VB.NET中文驗(yàn)證碼的獲取首先要修改一下配置,C#中又checked和unchedked檢查整數(shù)溢出處理。#t#

但是VB.NET中沒辦法,溢出即報(bào)錯(cuò),***處理方法是

VB.net菜單：項(xiàng)目 --> XXX 屬性... --> 配置 --> 優(yōu)化 --> 選中“移除整數(shù)溢出檢查”復(fù)選框

下面來仔細(xì)研究一下VB.NET中文驗(yàn)證碼的相關(guān)代碼編寫：

1. Function RndStr()Function 
   RndStr() As String
2. Dim gb As SystemSystem.Text.
   Encoding = System.Text.Encoding.
   GetEncoding("gb2312")
3. Dim bytes As Object() = 
   CreateRegionCode(4)
4. Dim str1 As String = gb.GetString
   (DirectCast(Convert.ChangeType
   (bytes(0), GetType(Byte())), Byte()))
5. Dim str2 As String = gb.GetString
   (DirectCast(Convert.ChangeType
   (bytes(1), GetType(Byte())), Byte()))
6. Dim str3 As String = gb.GetString
   (DirectCast(Convert.ChangeType
   (bytes(2), GetType(Byte())), Byte()))
7. Dim str4 As String = gb.GetString
   (DirectCast(Convert.ChangeType
   (bytes(3), GetType(Byte())), Byte()))
8. Dim txt As String = (str1 & 
   str2 & str3 & str4)
9. End Function
10. Function CreateRegionCode()Function 
    CreateRegionCode(ByVal strlength 
    As Integer) As Object()
11. Dim rBase As String() = New String() 
    {"0", "1", "2", "3", "4", "5", 
    "6", "7", "8", "9", "a", "b", 
    "c", "d", "e", "f"}
12. Dim rnd As New Random
13. Dim bytes As Object() = New 
    Object(strlength - 1) {}
14. Dim i As Integer = 0
15. Do While (i < strlength)
16. Dim r2 As Integer
17. Dim r4 As Integer
18. Dim r1 As Integer = rnd.Next(11, 14)
19. Dim str_r1 As String = rBase(r1).Trim
20. rnd = New Random(r1 * DateTime.
    Now.Ticks + i)
21. If (r1 = 13) Then
22. r2 = rnd.Next(0, 7)
23. Else
24. r2 = rnd.Next(0, &H10)
25. End If
26. Dim str_r2 As String = rBase(r2).Trim
27. Dim r3 As Integer = New Random(
    (r2 * DateTime.Now.Ticks) + i).
    Next(10, &H10)
28. Dim str_r3 As String = rBase(r3).Trim
29. rnd = New Random((r3 * DateTime.
    Now.Ticks) + i)
30. Select Case r3
31. Case 10
32. r4 = rnd.Next(1, &H10)
33. Exit Select
34. Case 15
35. r4 = rnd.Next(0, 15)
36. Exit Select
37. Case Else
38. r4 = rnd.Next(0, &H10)
39. Exit Select
40. End Select
41. Dim str_r4 As String = rBase(r4).Trim
42. Dim byte1 As Byte = Convert.
    ToByte((str_r1 & str_r2), &H10)
43. Dim byte2 As Byte = Convert.
    ToByte((str_r3 & str_r4), &H10)
44. Dim str_r As Byte() = New Byte() 
    {byte1, byte2}
45. bytes.SetValue(str_r, i)
46. i += 1
47. Loop
48. Return bytes
49. End Function

VB.NET中文驗(yàn)證碼相關(guān)實(shí)現(xiàn)方法就為大家介紹到這里。

分享名稱：VB.NET中文驗(yàn)證碼如何獲取
轉(zhuǎn)載來源：http://www.dlmjj.cn/article/codjjdh.html