Mensajes

Aki esta remodelada:

Código [Seleccionar] Expandir

Dim ruta As String
Dim ext As String

Public Function Sacartodo(cadena As String)
Dim a As Variant
Dim c As Variant
Dim cont As Integer
Dim cont2 As Integer
Dim b As String

For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "\" Then
cont = cont + 1
End If
If b = "." Then
cont2 = cont2 + 1
End If
Next

a = Split(cadena, "\")
ruta = a(cont)

a = Split(cadena, ".")
ext = a(cont2)
End Function


Private Sub Form_Load()
Dim cadena As String

cadena = "C:\Hendrix\torero\programa.exe"

Sacartodo cadena

MsgBox ruta
MsgBox ext

End Sub

Salu2

Aki esta:

Código [Seleccionar] Expandir

Public Function Sacarext(cadena As String) As String
Dim a As Variant
Dim cont As Integer
Dim b As String

For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "." Then
cont = cont + 1
End If
Next

a = Split(cadena, ".")
Sacarext = a(cont)
End Function

Public Function Sacarnombre(cadena As String) As String
Dim a As Variant
Dim cont As Integer
Dim b As String

For i = 1 To Len(cadena)
b = Mid(cadena, i, 1)
If b = "\" Then
cont = cont + 1
End If
Next

a = Split(cadena, "\")
Sacarnombre = a(cont)
End Function

Private Sub Form_Load()
Dim cadena As String
Dim ruta As String
Dim ext As String

cadena = "C:\Hendrix\programa.exe"
ruta = Sacarnombre(cadena)
ext = Sacarext(cadena)

MsgBox ruta
MsgBox ext

End Sub

Salu2

no vas a poder comprimir con upx en vb, ya que tendras que escribir la rutina de descompresion en el ejecutable destino y eso en vb... no es lo mejor.

Eso intente hacer hace meses...modificar el EntryPoint y redirigirlo a la direccion de desenkritapción...algo que, evidentemente, en VB es dificilisimo....Para empezar ni se komo buscar en la IAT...

Si alguien tiene información sobre esto que me al pase pro favor...

Salu2

Lo podiras hacer de un metodo casero....ajustar el procentaje de la barra al tamaño del archivo dividido por 560 (por ejemplo) e ir copiando trozos de 560 Bytes, y asi konstruyendo el archivo....es un metodo "muy rudimentario" pero es lo que se me okurre....

Salu2

Código [Seleccionar] Expandir

Private Sub Form_Load()
MsgBox Command
End Sub

Hay lo tienes....

Salu2

[WaitForSingleObject]

Puedes usar la API WaitForSingleObject

aki hay info:

http://www.elguille.info/VB/ejemplos/vb_stdout.htm

http://support.microsoft.com/default.aspx?scid=kb;es;551122

http://www.google.es/search?hs=xiV&hl=es&client=firefox-a&rls=org.mozilla%3Aes-ES%3Aofficial&q=waitforsingleobject+VB&btnG=B%C3%BAsqueda&meta=lr%3D

Salu2

[yo creo]

xD xD xD no me entendiste....yo creo (del verbo crear) la shell con APIS...no uso la CMD ni nada de esto....

Para mas informacion: click aki

Salu2

Bien, e construido una consola en VB y todo muy bonito...ahora tengo una duda....como reseteo la consola??? se me okurrio cerrar su handle y volverla a crear....pero asi keda muy cutre/descarado....se nota bastante...no hay ningun metodo para resetear la consola sin tener que cerrarla???

PD: a resetear me refiero al efecto que tiene el comando cls en la pantalal del MS-DOS

Salu2

Código [Seleccionar] Expandir

Public Function Kitarcaracteres(numerocaracteres As Integer, frase As String) As String

Kitarcaracteres = Mid(frase, numerocaracteres + 1, Len(frase) - numerocaracteres)
End Function

Y para usarlo seria asi:

Código [Seleccionar] Expandir

Private Sub Form_Load()
MsgBox Kitarcaracteres(4, "txt2Snort")
End Sub

Espero que te sirva...

Salu2

Porke no se molestan un pokito buskandlo en algun manual???esto es BASICO...

Código [Seleccionar] Expandir

msgbox App.Path & "\" & App.EXEName & ".exe

Salu2