名字一键生成器,卡号密码生成器主问题贴 _生活百科

用vb写一个账号密码生成器，账号密码的形式都是汉语拼音加数字？谢谢！

文章插图
简单的随机字符串（字母开头，字母+数字）生成器：
Dim N As Integer, nPswLen As Integer, i As Integer
Dim strResult As String
Const mDic As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
Randomize
'获取密码长度 8-12位
nPswLen = Fix(Rnd * 5 + 8) '5=12-8+1
'第一位确保是字母
N = Fix(Rnd * 26 + 1) '26指 mDic 的前26位
strResult = Mid(mDic, N, 1)
'生成其他位
For i = 0 To nPswLen - 2
N = Rnd * 36 + 1
strResult = strResult & Mid(mDic, N, 1)
Next
Print strResult
迅雷下载列表批量生成器使用方法

文章插图
迅雷下载列表批量生成器是一个绿色免费的迅雷下载链接批量生成软件，可以将成千上万个普通下载链接按组快速生成迅雷下载列表，便于进行批量下载。
迅雷下载列表批量生成器使用方法
1、先将普通下载地址保存到txt文本中，一行一个
2、打开软件，点击【导入下载列表】导入下载地址文本
3、点击【按组生成下载列表】即可生成迅雷专用下载列表
软件名称：
迅雷下载列表批量生成器 v1.0绿色免费版软件大小：1.06MB下载地址：http://www.xysc168.com/upload/shenghuo/fengjing2141tp.jpg" alt="卡号密码生成器主问题贴" />
名称代码+10位由0到9组成的随机码+特殊码+顺序编号
=5+10+5+6
=26
你说的卡号为20位与上述具体要求不符呀。
********************************************************
下面是保存按钮的代码：
Private Sub Command2_Click()
Dim Fn As Integer, i As Integer
Dim FileName As String, a() As String, b() As String
a = Split(Text1.Text, vbNewLine)
b = Split(Text2.Text, vbNewLine)
FileName = App.Path & "\卡密.txt"
Fn = FreeFile
Open FileName For Output As #Fn
For i = 0 To UBound(a)
Print #Fn, a(i) & " " & b(i)
Next
Close #Fn
MsgBox "文件<卡密.txt>保存完毕！", vbInformation, "恭喜你"
End Sub
'其他代码部分(Text1_Change与Text2_Change没必要增加代码，所以略去)
Private Sub Text3_Change()
Dim i As Integer, S As String
For i = 1 To Len(Text3.Text)
S = Mid(Text3.Text, i, 1)
If Not (S >= "0" And S <= "9" Or S >= "a" And S <= "z" Or S >= "A" And S <= "Z") Then
MsgBox "请输入数字或字母！", vbCritical, "出错提示"
Text3.SetFocus
End If
Next
If Len(Text3.Text) > 5 Then
MsgBox "输入数字或字母只能是5位！", vbCritical, "出错提示"
Text3.SetFocus
End If
End Sub
Private Sub Text4_Change()
【名字一键生成器,卡号密码生成器主问题贴】Dim i As Integer, S As String
For i = 1 To Len(Text4.Text)
S = Mid(Text4.Text, i, 1)
If Not (S >= "0" And S <= "9" Or S >= "a" And S <= "z" Or S >= "A" And S <= "Z") Then
MsgBox "请输入数字或字母！", vbCritical, "出错提示"
Text3.SetFocus
End If
Next
If Len(Text4.Text) > 5 Then
MsgBox "输入数字或字母只能是5位！", vbCritical, "出错提示"
Text3.SetFocus
End If
End Sub
Private Sub Text5_Change()
If Not IsNumeric(Text5.Text) Then
MsgBox "请输入数字！", vbCritical, "出错提示"
Text5.SetFocus
End If
End Sub
传奇世界私服GM命令一键生成器服务器路径解压到哪

文章插图
最近玩一个经典复古传奇，很不错，开放稳定·公平公正不乏激情1.76的经典！叫圣爵精品传奇，官方网址是“900cm” 。