Eso guarda la fecha de un dia, y cuando se vuelve a abrir comprueba si el dia guardado es el mismo dia al que estamos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim dia As String
Private Sub Command1_Click()
Open "C:\tiempo.txt" For Output As #1
Write #1, Date
Close #1
End Sub
Private Sub Command2_Click()
Open "C:\tiempo.txt" For Input As #1
Input #1, dia
MsgBox dia
Close #1
End Sub
Private Sub Command3_Click()
If dia = Date Then
MsgBox "Estamos en otro dia"
Else
MsgBox "Estamos en el mismo dia"
End If
End Sub
<?php
$numu = mt_rand(0,99); //En servidores en windows no pongais mas de 200 ya que no lo soporta y se puede explotar
$numd = mt_rand(0,99);
<html>
<form action="verificacion.php" method="post"/>
echo $numu " + " $numd " =";
<input type="text" name="tot"/>
<input type="hidden" name="numerouno" value="<?=$numu;?>"/>
<input type="hidden" name="numerodos" value="<?=$numd;?>"/>
</html>
?>
<?php
$numun = $_POST['numerouno'];
$numdo = $_POST['numerodos'];
$total = $_POST['tot'];
if ($numun+$numdo==$total){
echo "Eres un humano";
}else{
echo "Eres un robot";
}
?>
If Dir(C) = "" Then
MsgBox "Existe"
else
MsgBox "No existe"
End IF
CD.ShowOpen
CD.Filter = "Solo imagenes"
Image1.LoadPicture = LoadPicture(CD.Filename)