Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: asdexiva en 22 Enero 2013, 18:08 PM

Título: random vb6
Publicado por: asdexiva en 22 Enero 2013, 18:08 PM
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
Título: Re: random vb6
Publicado por: Danyfirex en 22 Enero 2013, 18:12 PM
No entiendo   ;D
Título: Re: random vb6
Publicado por: asdexiva en 22 Enero 2013, 18:17 PM
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
Título: Re: random vb6
Publicado por: Danyfirex en 22 Enero 2013, 18:23 PM
a yaaaaaaaaa gracias.

Código (vb) [Seleccionar]
Dim aleatorio As String
aleatorio = Str(Int(Rnd(1000) * 1000))
Open aleatorio & ".bat" For Append As #1


saludos
Título: Re: random vb6
Publicado por: asdexiva en 22 Enero 2013, 18:34 PM
Cita de: Danyfirex en 22 Enero 2013, 18:23 PM
a yaaaaaaaaa gracias.

Código (vb) [Seleccionar]
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 ?
Título: Re: random vb6
Publicado por: raul338 en 22 Enero 2013, 18:47 PM
Call Shell("C:\" & aleatorio & ".bat")

Buscate un manual de visual basic (quizás el aprenda visual basic como si estuviera en primero te sirva)
Título: Re: random vb6
Publicado por: MCKSys Argentina en 22 Enero 2013, 19:06 PM
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)
Título: Re: random vb6
Publicado por: Danyfirex en 22 Enero 2013, 19:45 PM
Hace varios días te recomendé dos libros pensé que ya los habías leido  :¬¬

saludos
Título: Re: random vb6
Publicado por: asdexiva en 23 Enero 2013, 03:54 AM
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
Título: Re: random vb6
Publicado por: Shell Root en 23 Enero 2013, 04:10 AM
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ódigo (bash) [Seleccionar]
C:\Users\Alex Jurado>echo C:\%random%.txt
C:\26423.txt
Título: Re: random vb6
Publicado por: BlackZeroX en 23 Enero 2013, 04:46 AM
Código (vb) [Seleccionar]

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!¡.