· 8 years ago · Apr 07, 2018, 01:40 AM
1Global $Dem = 10 ;số ký tự muốn tạo
2Global $Array[3]
3Global $KyTu[$Dem]
4Global $Print = ""
5For $i=0 To ($Dem-1)
6$Array[0] = Random(48, 57, 1)
7$Array[1] = Random(65, 90, 1)
8$Array[2] = Random(97, 122, 1)
9$DecKyTu = $Array[Random(0, 2, 1)]
10$KyTu[$i] = Chr($DecKyTu)
11$Print = $Print & $KyTu[$i]
12Next
13$email = $Print & '@gmail.com'
14MsgBox(0, "",$email )