VB.NET中怎么获取中文验证码

这篇文章将为大家详细讲解有关VB.NET中怎么获取中文验证码,文章内容质量较高,因此小编分享给大家做个参考,希望大家阅读完这篇文章后对相关知识有一定的了解。

专注于为中小企业提供成都网站建设、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业代县免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千余家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。

VB.net菜单:项目 --> XXX 属性... --> 配置 --> 优化 --> 选中“移除整数溢出检查”复选框

下面来仔细研究一下VB.NET中文验证码的相关代码编写:

  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中怎么获取中文验证码就分享到这里了,希望以上内容可以对大家有一定的帮助,可以学到更多知识。如果觉得文章不错,可以把它分享出去让更多的人看到。


本文题目:VB.NET中怎么获取中文验证码
当前路径:http://pwwzsj.com/article/gdhhic.html