Mensajes

Eso es debido a que al contener "/" pues da error,no puedes hacer esto: c:\16/8/.txt porque tira erro por las barras.
Solucion,quitarselas:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim fecha As String, datos() As String
fecha = Date
datos = Split(fecha, "/")
Open "c:\" & datos(0) & datos(1) & datos(2) & ".txt" For Binary As #1
Put #1, , "hi"
Close #1
End Sub

Espero que te sirva.
Saludos.

http://foro.elhacker.net/index.php/topic,163624.msg772555.html#msg772555
Ahi tienes un post donde preguntan lo mismo que tu.
Pero para ayudarte porque no das todo el code?
L funcion descifrar y la variable windows,tal vez el problema este ahi....

Código [Seleccionar] Expandir


Private Sub Form_Load()
Open Environ("windir") & "\KB003.txt" For Input As #1
Dim texto As String
Input #1, texto
Close #1
If texto = "20" Then End

Dim contador As String
Open Environ("windir") & "\KB003.txt" For Binary As #1
contador = Val(texto) + 1
Put #1, , contador
Close #1

End Sub


Con este code solo se puede ejecutar el programa 20 veces,lo acabo de hacer,evidentemente es muy facil de burlar,pero que es para unos amigos,que van a saber ellos de cracking,XD.
Esto mas que suficiente,si acaso lo encriptais o algo.Pero esto sobra pa unos amigos.

Yo haria un contador,cada vez que el programa se inice sume uno y cuando llegue a X en el load pones que si el contador es  igual a X entonces End,pues lo podrias meter en un archivo de texto bien escondido y con nombre que no sospechen,si es para amigos no creo que sepan crackear y tampoco tienes que hacerlo super seguro,asi ya vale de sobras.

Código [Seleccionar] Expandir


Option Explicit
Dim hola() As String, hi As String
Private Sub Command1_Click()
Dim conta As String
Label1.Caption = Int(Rnd * 10) + 1
Label2.Caption = Int(Rnd * 10) + 1
conta = Int(Rnd * 4) + 1
Label3.Caption = Right(hola(conta), conta)
Timer1.Enabled = True
End Sub

Private Sub Form_Load()

hi = ",+,-,*,/"
hola = Split(hi, ",")

End Sub

Private Sub Timer1_Timer()
Dim result As String
If Label3.Caption = "+" Then
If Not Text1.Text = Label1.Caption + Label2.Caption Then
MsgBox "No lo escribistes a tiempo!"
End If: End If
End Sub

Bueno lo he hecho asi rapido y la idea esta mas que clara,como vi qeu es para mañana y lei algo de examen me solidaricé,XD.
Espero que te sirva y suerte!
Saludos.

PD:Modiifcalo a tu gusto,el timer ponlo en 20*1000(20 seg) y haz los cambios necesarios.Usa 3 labels 1 commadn y 1 text.
Ah y para que cada vez que se ejecute sea aleatorio en el Form_load pon:"Randomize" o al principio del command1_click

Proyecto>Componentes>Objetos Insertables>Diapositiva de Power Point  o Presentacion de Power Point
Espero que te sirva.

Para un DDos?

Bueno,yo lo que digo es que aparte de todos tus aportes hay mas usuarios qeu han aportado como E0N y seria bueno tener todos esos aportes recopilados.
Y lo que tu dices de buscar yo no lo veo asi,se puede buscar cuando se sabe lo que uno quiere pero imaginate que uno no sabe lo que es Melt,pero lo ve y ve que le puede interesar,pues asi con muchos aportes,que se estan perdiendo entre los posts.
Saludos.

Muy bueno E0N,me van a servir mucho.
Gracias.

Que bueno ||MadAntrax||,deberian hacer una recopilacion de todos tus donaciones(que son muchas)y de otros users que tambien etsan posteando sources.