ay alguna de forma de que esto
Open "C:\nombre.bat" For Append As #1
tenga un nombre aletorio asi como en bath
C:\nombre.bat
espero me entiendan xD
No entiendo ;D
Cita de: Danyfirex en 22 Enero 2013, 18:12 PM
No entiendo ;D
quiero que esto
C:\nombre.bat
el nombre.bat sea un numero aletorio 1020.bat que se cree solo xd el nombre :D
a yaaaaaaaaa gracias.
Dim aleatorio As String
aleatorio = Str(Int(Rnd(1000) * 1000))
Open aleatorio & ".bat" For Append As #1
saludos
Cita de: Danyfirex en 22 Enero 2013, 18:23 PM
a yaaaaaaaaa gracias.
Dim aleatorio As String
aleatorio = Str(Int(Rnd(1000) * 1000))
Open aleatorio & ".bat" For Append As #1
saludos
oye como podria ejecutar el archivo resultado del random con un shell ?
Call Shell("C:\" & aleatorio & ".bat")
Buscate un manual de visual basic (quizás el aprenda visual basic como si estuviera en primero te sirva)
Cita de: raul338 en 22 Enero 2013, 18:47 PM
Buscate un manual de visual basic (quizás el aprenda visual basic como si estuviera en primero te sirva)
+1. Fijate aqui: http://foro.elhacker.net/programacion_visual_basic/recopilacion_de_enlaces_de_visual_basic-t68352.0.html (http://foro.elhacker.net/programacion_visual_basic/recopilacion_de_enlaces_de_visual_basic-t68352.0.html)
Hace varios días te recomendé dos libros pensé que ya los habías leido :¬¬
saludos
Cita de: Danyfirex en 22 Enero 2013, 19:45 PM
Hace varios días te recomendé dos libros pensé que ya los habías leido :¬¬
saludos
sigo en eso pero no se aprende de la noche ala mañana -_- :D
No entiendo para que hacer algo en VB que a la final lo puedes hacer directamente desde la consola? De igual forma terminará en ella, no?
C:\Users\Alex Jurado>echo C:\%random%.txt
C:\26423.txt
sub main()
Dim path as string
path = "c:\Dir\Dir2\" & TextoAleatorio("a-z", "-", 5, 10) & ".bat" ' Esto genera un texto aleatoria que comprende las letras desde "a" hasta "z" TODAS minusculas segun el codigo asccii con longitud minima de 5 caracteres y 10 como máximo.
' Más codigo
end sub
Private Sub NormalizePath(ByRef sData As String)
sData = IIf(Right$(sData, 1) = "\", sData, sData & "\")
End Sub
Function TextoAleatorio(StrRango As String, Separador As String, Optional LENTEXTMIN As Long = 1, Optional LENTEXTMAX As Long = -1) As String
Dim spli() As String
Dim i As Double
If InStr(StrRango, Separador) > 0 Then
spli = Split(StrRango, Separador)
LENTEXTMAX = LENTEXTMIN + Int(IIf(LENTEXTMAX = -1, NumeroAleatorio(1, 100), LENTEXTMAX))
For i = LENTEXTMIN To LENTEXTMAX
TextoAleatorio = TextoAleatorio & Chr(NumeroAleatorio(Asc(spli(0)), Asc(spli(1))))
Next i
End If
End Function
Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp As Long
If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
Randomize: NumeroAleatorio = CLng((MinNum - MaxNum + 1) * Rnd + MaxNum)
End Function
Dulces Lunas!¡.