Random con una cantidad determinada de cifras.
Publicado: 26 Feb 2011, 21:32
Pues estoy haciendo un programa chorra, el cual tu le das a un boton, y la funcion seria hacer un Random, y si sale 1, que abra un archivo de video de una carpeta determinada, si sale 2, que abra otro archivo de video diferente, etc...
Pero bueno, lo primero es que no consigo hacer que el Random regrese valores enteros, del 1, un numero X. que salga 4,6,12, pero no 1,21839621406213... Supongo que me entendeis.
Y ya lo otro es que no se como abrir un archivo de video, porque he provado con Run, con RunAs... y no se abren...
Alguna idea?
Pero bueno, lo primero es que no consigo hacer que el Random regrese valores enteros, del 1, un numero X. que salga 4,6,12, pero no 1,21839621406213... Supongo que me entendeis.
Y ya lo otro es que no se como abrir un archivo de video, porque he provado con Run, con RunAs... y no se abren...
Alguna idea?
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region
$Form1 = GUICreate("Randomly File Open", 634, 451, 192, 124)
$Button1 = GUICtrlCreateButton("Abrir", 240, 136, 97, 33, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 238, 108, 100, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetColor(-1, 0xC0C0C0)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Administrador\Mis documentos\Mis imágenes\S4 Pictures\s429fq0.jpg", 0, 0, 633, 449, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Pass:", 240, 88, 30, 17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
Dim $Accel[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Accel)
#EndRegion
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ValInput = GUICTRLREAD($Input1)
IF ( $ValInput == "TuPass" ) Then
_RandomlyOpen()
Else
MsgBox(1, "Password incorrecto", "El password introducido no es correcto.")
EndIf
EndSwitch
WEnd
Func _RandomlyOpen()
$Randomize = Random(1,13)
Run( "C:\WINDOWS\system32\nCrypt\Aisai Nikki Vol.1DVD 704x396 DivX692" )
EndFunc