Mensajes

Muchisimas gracias war, pero qeu quiere decir el -1

Como puedo borrar un caracter especial del listbox, ejemplo este $ ??

Jajaja Nadie tiene el conocimiento de todo, lo que quiero hacer es abrir una imagen en binario, y que me la meustre auqeu nsea imprimirla en el form.

lo que quiero es como hace el notepad que abris una imagen y te la abre en binario

Sensillamente porque el notepad no la abre en binario.

En qeu te la abre?

creo que es en ASCII.

Salu2

No entindo entocnes, cierto la abre en ascii, pero cuando en visual habr algo en binario me tira 4523453123 cualquier cosa porque es? por el text box que no admite ??

lo que quiero es como hace el notepad que abris una imagen y te la abre en binario

Sensillamente porque el notepad no la abre en binario.

En qeu te la abre?

Dim Buff as String
Open "C:\Imagen.bmp" For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1

No te funciona porque en ningun textbox vas a cargar el binario y poder leerlo, solo lee los caracteres legibles de mapa de caracteres.

Si explicas que es lo que queres lograr con todo esto se te va a poder ayudar mejor, de otra forma, ya se te respondio como se abre una imagen en binario.

Aaaa puede ser por eso si?, solo me muestra unos numeros... lo que quiero es como hace el notepad que abris una imagen y te la abre en binario  Gracias WarGhost y Hotmail_pop3.

Código [Seleccionar] Expandir

dim fichero as string
open  "C:\Imagen" & ".bmp" For Binary As #1
Fichero = Space(LOF(1))
Get #1, , Fichero
Close #1

con ese codigo sacas los data de la imagen.

Tengo lo mismo pero en evs de usar get uso input #1, Fichero.. probe elq eu em diste y no me lo abre
te meustro lo que tengo

Código [Seleccionar] Expandir


On Error Resume Next

Open Dialogo.FileName For Binary As #1
Fichero = Space(LOF(1))
Get #1, , Fichero

txtdatos.Text = Fichero

Close #1


para ejecutarla o para sacar la data de esa img?

Para sacar los datos, vi los codes de este foro pero ninguno me sirvio, no se si tengo que lear el archivo linea por line con do while o solamente input.. Gracia war

Hola estoy haciend un programa y para que me abra una imagen eh visto post y rpbe no tube resultado.. ahroa me sale un error de qeu no es variable soportada.. como hago para abrir una imagen en bmp por ejemplo?
Grascias!!!

Nose que pasa que cuando le doy a empezar, sale Expected: end-of-statement y lo e copiado el codigo perfectamente

Tienes qeu decir cuando termian el programa poenr un End al final

Código [Seleccionar] Expandir


CLS
SCREEN 12
COLOR 15
LOCATE 1, 20: PRINT "PROGRAMA CREADO POR: -=CICKLOW CIS WOLW=-"
COLOR 9
LOCATE 5, 20: PRINT "descifrando INFORMACION!!"
SLEEP 4
N$ = "123456" 'CODIGO UNO PARA descifrar
C$ = "123456" 'CODIGO DOS PARA descifrar
CR$ = ""
A = 0: B = 0: C = 0: M$ = ""
CR$ = "ÊØÚؤ›'ÛÝߘÎËÒÇÚÓœÕ'É×ךÃÖ•ÞÓÞ×וáÕØÑÌ"ØÒÜ" 'INFORMACION cifrada
DO WHILE A < LEN(CR$)
A = A + 1
B = B + 1: IF B > LEN(N$) THEN B = 1
C = C + 1: IF C > LEN(C$) THEN C = 1
D = ASC(MID$(CR$, A, 1)) - (ASC(MID$(N$, B, 1)) + ASC(MID$(C$, C, 1)))
Loop3:
IF D < 1 THEN D = D + 255: GOTO Loop3
M$ = M$ + CHR$(D)
LOOP
COLOR 5
LOCATE 12, 20: PRINT "INFORMACION descifrada CON EXITO"
COLOR 10
LOCATE 15, 13:
END

Y aqui tienes un compilador Basic
http://www.upseros.com/compiladores/qbasic45.zip

Salu2