Mensajes

Gracias man pero.. probe 1 ico y lo deforma.. probe con otro icono.. y lo dejo sin icono :S

salu2! espero haya algun otro por ahi..

Hola! alguien tiene algun modulo para cambiar los iconos de los otros exe's que funcione bien? estuve buscando.. encontre algun que otro pero no me funcionaban bien..

Desde ya muchas gracias..

Salu2!!

ese  msn lo uso una vez x año 

ahora no tengo el vb para probar pero creo que la prueba que hice funcionaba..

si el problema esta en pasar de string a byte se podria hacer byte por byte..

Código (vb) [Seleccionar] Expandir

Dim nFile As Integer
Dim Contenido As String
Dim ContenidoMedio() As String
Dim ContenidoFinal() As Byte
nFile = FreeFile
Open ruta For Binary As #nFile
        Contenido = Input(LOF(Free), #Free)
Close #nFile

ContenidoMedio = Split(Contenido, "SEPARADOR")

contenido= ContenidoMedio(1)
ReDim ContenidoFinal(Len(contenido))


dim i
for i=1 to len(contenido)
contenidofinal(i-1)=asc(mid(i,contenido,1)) 'aca no se si es asi o:   mid(contenido,i,1)
next i

repito: como no tengo el vb aca no se si funciona bien, pero deberia

muchisimas gracias! este ultimo si me funciono!

muchisimas gracias seba123neo!

Hola! me preguntaba si alguno sabe de que manera se puede saber que antivirus esta instalado.. esta en alguna ruta del registro?? cual es?? o en donde??

salu2!
desde ya muchas gracias!

utiliza len(variable/control) entonces reemplazas la cantidad de letras que contiene el textbox

salu2!

PD:
mira esto..

Código (vb) [Seleccionar] Expandir

largo = len(Text1.Text)
busco = "ARTiST:"
for i = 0 to largo step 1
busco = busco & " "
next
txt_Contenido = Replace(txt_Contenido, busco, Text1.Text)

entonces lo que hago es: sako la cantidad de caracteres que tiene text1 y a "busco" le pongo artist: y le agrego los espacios correspondientes al largo de text1

ni siquiera te funciono el de arriba? o esta mal adaptado?

si el primero funciona, entonces adaptalo a tu proyecto.. si no, decime que error te da e intenta debuguear para buscar el error

supongo que se puede hacer tratandolo siempre como byte, pero por que si asi es mas simple?

si intente con la solucion que me diste y la modifique varias veces para ver si la hacia andar pero nada.. se descajeta al pasar de string a byte mira intenta con cualquier archivo .exe ponle una marca en cualquier lugar e intenta guardar la 2da parte pero siempre en byte, xq lo que yo necesito es pasarle esos bytes a una funcion, pero igualmente guardalos en otro archivo y miralo con el word pad o con lo que sea y veras que cambia el contenido digamos que se modifica y deja de ser lo que debe ser...

salu2!
PD: te agregue al msn.. cualkier cosa mi mail esta en el perfil =)

encontre la solucion en tratarlo como string y pasarlo a byte despues de la division.. hice este code para probarlo (uso demasiadas variables pero si queres ahorrar memoria fijate vos..)

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim nFile As Integer
Dim Contenido As String
Dim ContenidoMedio() As String
Dim ContenidoFinal() As Byte

Contenido = "asdasdsadSEPARADOR123456"

ContenidoMedio = Split(Contenido, "SEPARADOR")

ReDim ContenidoFinal(Len(ContenidoMedio(1)))

ContenidoFinal() = ContenidoMedio(1)
   
MsgBox ContenidoFinal
End Sub

y adaptado a tu code seria algo asi..

Código (vb) [Seleccionar] Expandir

Dim nFile As Integer
Dim Contenido As String
Dim ContenidoMedio() As String
Dim ContenidoFinal() As Byte
nFile = FreeFile
Open ruta For Binary As #nFile
        Contenido = Input(LOF(Free), #Free)
Close #nFile

ContenidoMedio = Split(Contenido, "SEPARADOR")

ReDim ContenidoFinal(Len(ContenidoMedio(1)))

ContenidoFinal() = ContenidoMedio(1)

estuve probando.. pero no me funciono :S deberia haber alguna forma de tratar siempre en Byte o alguna otra solucion :S
gracias igual man..

Salu2

Hola! tengo un problemita..

yo abro un archivo binario y le quiero hacer un split.. pero la variable del split no puede ser byte.. o sea miren..

Código (vb) [Seleccionar] Expandir


Dim nFile As Integer
Dim Contenido() As Byte
nFile = FreeFile
Open ruta For Binary As #nFile
   ReDim Contenido(LOF(nFile) - 1)
   Get #nFile, , Contenido
Close #nFile

ContDividido = Split(Contenido, "|Separacion|")
Contenido = ContDividido(1)


y ahi Contenido ya se decajeta.. yo quiero que siga en modo byte y quiero obtener lo que le sigue a |Separacion|...

Desde ya muchas gracias =)

Salu2!

Mirate esto:

http://www.opensc.ws/delphi-help/2148-need-help-createprocessex-aphex.html

hmm esta en delphi el codigo ese.. y.. eso por lo que veo es la forma de injectarlo en memoria con delphi.. necesitaria en vb 6.0 :S