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
