Mensajes

Y.. no es para un juego, es solo un diseño común que tendra evento de salida, algo como Minas Tirith Project, pero no lo hizo un equipo de 30 o 40 personas sino un solo usuario y tambien sera codigo libre, pero conservando la idea original, (derechos de autor...)

Si no es un juego o aplicacion porque tiene codigo?...

Nunca dije que se quedara en VB 6 o si? -.-

Simplemente no debio hacer la pregunta y reflexionar el solo...

No pienses en Funcion de los demas ni en Funcion de Windows Vista...

Que casualidad el mismo dia que mi prima...
Y el mismo dia que yo diferente mes:

22 de Septiembre!!

Eso es Excelente..!!

Es para un juego?(creo q si no?)

Muy Bien-..!!

(Aplausos!!)

1- Hades Gracias... por el truco
2- EON Gracias.. lo del bucle lo sabia pero me habias confundido
3- TugHack, emmm,..... ahhh... -.- (No se supone que estabas perdido )

Ahora coloco los resultados...!!

Código (vb) [Seleccionar] Expandir


Dll = App.Path & "freeze.dll"
MsgBox Dll
End


Si ejecutas eso... el resultado es:

C:\freeze.dll

Asi que no hay error...

Código (vb) [Seleccionar] Expandir


Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam  & Firma2 & xten & firma
Put #1, , Tam2 & firma2 & xten2
End


¿Y eso lo hago con archivos infinitos o de igual forma lo coloco?

Un Efecto Glass (creo q lo dije bien) no vendria mal...

Tampoco lo uses muy exagerado...

Hola, Queria saber si estoy bien informado

A lo mejor sera por eso que no termino mi Joiner 

Tengo el Programa "Joiner"

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim Tam As String
Dim Tam2 As String
Dim Dll As String
Dim Firma As String
Dim Firma2 As String
Dim xten As String * 3
Dim xten2 As String * 3
Dim Dll_c As String
Firma = "Freeze"
Firma2 = "Freeze2"
Dll = App.Path & "freeze.dll"
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam = Space(LOF(1))
Get #1, , Tam
Close #1
xten = Right(Cd.FileName, 3)
Cd.ShowOpen
Open Cd.FileName For Binary As #1
Tam2 = Space(LOF(1))
Get #1, , Tam2
Close #1
xten2 = Right(Cd.FileName, 3)
Open Dll For Binary As #1
Dll_c = Space(LOF(1))
Get #1, , Dll_c
Close #1

Cd.ShowSave
Open Cd.FileName For Binary Access Write As #1
Put #1, , Dll_c & Firma
Put #1, , Tam & Firma
Put #1, , Tam2 & Firma2
Put #1, , xten & Firma2
Put #1, , xten2
End
End Sub

Ese lo hize yo, queria saber si estaba bien..!! :-)

Y el Stub nunca termino de hacerlo, lo borro y  lo comienzo pero nunca lo termino.

Nadie lo leera completo... Tu dinos en que linea te tira error... o que sucede...