Global $Dem = 10 ;số ký tự muốn tạo
Global $Array[3]
Global $KyTu[$Dem]
Global $Print = ""
For $i=0 To ($Dem-1)
$Array[0] = Random(48, 57, 1)
$Array[1] = Random(65, 90, 1)
$Array[2] = Random(97, 122, 1)
$DecKyTu = $Array[Random(0, 2, 1)]
$KyTu[$i] = Chr($DecKyTu)
$Print = $Print & $KyTu[$i]
Next
$email = $Print & '@gmail.com'
MsgBox(0, "",$email )