HOla he creado un generador de passwords, espero que le sirva a los principiantes para que aprendan mas sobre Text.text, randomize, etc.!!!
Private Sub clean_Click()
On Error Resume Next
Set zonavirus = CreateObject("scripting.filesystemobject") ' asignamos a una variable el objeto
zonavirus.CreateTextFile ".\password.txt" ' creamos el archivo
Dim numeroFichero As Integer
numeroFichero = FreeFile
'Abrimos el fichero
Open ".\password.txt" For Output As #numeroFichero
nl = Chr$(13) & Chr$(10)
Print #numeroFichero, nl
Close #numeroFichero
End Sub
Private Sub clean2_Click()
nl = Chr$(13) & Chr$(10)
Text11.Text = nl
End Sub
Private Sub Command1_Click()
Randomize
a = Int(Rnd * 9)
If a = "9" Then pass = "1"
If a = "0" Then pass = "2"
If a = "1" Then pass = "3"
If a = "2" Then pass = "4"
If a = "3" Then pass = "5"
If a = "4" Then pass = "a"
If a = "5" Then pass = "b"
If a = "6" Then pass = "c"
If a = "7" Then pass = "d"
If a = "8" Then pass = "e"
Randomize
b = Int(Rnd * 9)
If b = "9" Then pass1 = "1"
If b = "0" Then pass1 = "2"
If b = "1" Then pass1 = "3"
If b = "2" Then pass1 = "4"
If b = "3" Then pass1 = "5"
If b = "4" Then pass1 = "a"
If b = "5" Then pass1 = "b"
If b = "6" Then pass1 = "c"
If b = "7" Then pass1 = "d"
If b = "8" Then pass1 = "e"
Randomize
c = Int(Rnd * 9)
If c = "9" Then pass11 = "1"
If c = "0" Then pass11 = "2"
If c = "1" Then pass11 = "3"
If c = "2" Then pass11 = "4"
If c = "3" Then pass11 = "5"
If c = "4" Then pass11 = "a"
If c = "5" Then pass11 = "b"
If c = "6" Then pass11 = "c"
If c = "7" Then pass11 = "d"
If c = "8" Then pass11 = "e"
Randomize
d = Int(Rnd * 9)
If d = "9" Then pass111 = "1"
If d = "0" Then pass111 = "2"
If d = "1" Then pass111 = "3"
If d = "2" Then pass111 = "4"
If d = "3" Then pass111 = "5"
If d = "4" Then pass111 = "a"
If d = "5" Then pass111 = "b"
If d = "6" Then pass111 = "c"
If d = "7" Then pass111 = "d"
If d = "8" Then pass111 = "e"
Randomize
e = Int(Rnd * 9)
If e = "9" Then pass1111 = "1"
If e = "0" Then pass1111 = "2"
If e = "1" Then pass1111 = "3"
If e = "2" Then pass1111 = "4"
If e = "3" Then pass1111 = "5"
If e = "4" Then pass1111 = "a"
If e = "5" Then pass1111 = "b"
If e = "6" Then pass1111 = "c"
If e = "7" Then pass1111 = "d"
If e = "8" Then pass1111 = "e"
Randomize
f = Int(Rnd * 9)
If f = "9" Then pass11111 = "1"
If f = "0" Then pass11111 = "2"
If f = "1" Then pass11111 = "3"
If f = "2" Then pass11111 = "4"
If f = "3" Then pass11111 = "5"
If f = "4" Then pass11111 = "a"
If f = "5" Then pass11111 = "b"
If f = "6" Then pass11111 = "c"
If f = "7" Then pass11111 = "d"
If f = "8" Then pass11111 = "e"
Randomize
g = Int(Rnd * 9)
If g = "9" Then pass111111 = "1"
If g = "0" Then pass111111 = "2"
If g = "1" Then pass111111 = "3"
If g = "2" Then pass111111 = "4"
If g = "3" Then pass111111 = "5"
If g = "4" Then pass111111 = "a"
If g = "5" Then pass111111 = "b"
If g = "6" Then pass111111 = "c"
If g = "7" Then pass111111 = "d"
If g = "8" Then pass111111 = "e"
Randomize
h = Int(Rnd * 9)
If h = "9" Then pass1111111 = "1"
If h = "0" Then pass1111111 = "2"
If h = "1" Then pass1111111 = "3"
If h = "2" Then pass1111111 = "4"
If h = "3" Then pass1111111 = "5"
If h = "4" Then pass1111111 = "a"
If h = "5" Then pass1111111 = "b"
If h = "6" Then pass1111111 = "c"
If h = "7" Then pass1111111 = "d"
If h = "8" Then pass1111111 = "e"
Randomize
i = Int(Rnd * 9)
If i = "9" Then pass11111111 = "1"
If i = "0" Then pass11111111 = "2"
If i = "1" Then pass11111111 = "3"
If i = "2" Then pass11111111 = "4"
If i = "3" Then pass11111111 = "5"
If i = "4" Then pass11111111 = "a"
If i = "5" Then pass11111111 = "b"
If i = "6" Then pass11111111 = "c"
If i = "7" Then pass11111111 = "d"
If i = "8" Then pass11111111 = "e"
Text1.Text = pass
Text2.Text = pass1
Text3.Text = pass11
Text4.Text = pass111
Text5.Text = pass1111
Text6.Text = pass11111
Text7.Text = pass111111
Text8.Text = pass1111111
Text9.Text = pass11111111
Text10.Text = pass & pass1 & pass11 & pass111 & pass1111 & pass11111 & pass111111 & pass1111111 & pass11111111
nl = Chr$(13) & Chr$(10)
Text11.Text = Text11.Text & nl & pass & pass1 & pass11 & pass111 & pass1111 & pass11111 & pass111111 & pass1111111 & pass11111111
End Sub
Private Sub copy_Click()
On Error Resume Next
Set zonavirus = CreateObject("scripting.filesystemobject")
zonavirus.CreateTextFile ".\password.txt"
Dim numeroFichero As Integer
numeroFichero = FreeFile
Open ".\password.txt" For Output As #numeroFichero
nl = Chr$(13) & Chr$(10)
Print #numeroFichero, nl & Text11.Text
Print #numeroFichero, nl & "</password>"
Close #numeroFichero
End Sub
Private Sub Form_Load()
On Error Resume Next
nl = Chr$(13) & Chr$(10)
archivo = "password.txt"
Set ob = CreateObject("Scripting.FileSystemObject")
Set File = ob.OpenTextFile(archivo, 1)
contenido = File.ReadAll
Text11.Text = Text11.Text & contenido
Text12.Text = "<Password>"
End Sub
Private Sub open_Click()
On Error Resume Next
nl = Chr$(13) & Chr$(10)
archivo = "password.txt"
Set ob = CreateObject("Scripting.FileSystemObject")
Set File = ob.OpenTextFile(archivo, 1)
contenido = File.ReadAll
Text11.Text = Text11.Text & contenido
Text12.Text = "<Password>"
End Sub
.
Autor