主题：自动输入

 

Dim n As Integer = 14 '要生成密码长度

Dim str() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S" , "T", "U", "V", "W", "X", "Y", "Z"}

For i As Integer = 1 To str.Length '洗牌测次数

    Dim n1 As Integer = Rand.Next(str.Length)

    Dim n2 As Integer = Rand.Next(str.Length)

    Dim temp As String = str(n1)

    str(n1) = str(n2)

    str(n2) = temp

Next

Dim s As String = String.Join("", str)

If n > s.Length Then

    n = s.Length

End If

Output.Show(s.Substring(0, n))

 

 

 

老师你好，这个代码要写哪里，我的二维码会增加行的时候自动生成输入，谢谢

此主题相关图片如下：1713071210443.png