Mensajes

Mira, no lo suelo hacer, pero aki te lo doy:

Código [Seleccionar] Expandir

Function buscar(cadena As String, inicio As String, final As String)
Dim a As String
Dim b As String
Dim c As String


For i = 1 To Len(cadena)
c = Mid(cadena, i, Len(inicio))
If c = inicio Then
a = Mid(cadena, i + Len(inicio), Len(cadena) - Len(inicio))
End If
Next

For r = 1 To Len(a)
c = Mid(a, r, Len(final))
If c = final Then
b = Mid(a, 1, Len(a) - Len(final))
End If
Next

buscar = b

End Function

Si no lo entiendes pidelo.

En cadena pones todo el texto, en inicio pones el texto donde empezara a excluir y en final pones dodne tiene que terminar.

Salu2

sigue mi ejemplo, si lo entiendes es facil hacerlo.

Salu2

No te dare todo el codigo porke es de mala educación () pero si te dare las bases apra que empieces. Te dare este texto que escribi en otro foro para buscar palabras en el texto.

Esto sirve para buskar una determinada palabra en una frase o texto y lo elimina:

Dim a As String

a = "Hendrixholapunker"

For i = 1 To Len(a)
If Mid(a, i, 4) = "hola" Then
Text1.Text = Mid(a, 1, (i - 1)) & Mid(a, (i + 4))
End If
Next

Bien, nos tenemos que fijar en lo siguiente:

If Mid(a, i, 4) = "hola" Then

Si os fijais, pongo 4 porke son las letras que tiene la palabra hola

Text1.Text = Mid(a, 1, (i - 1)) & Mid(a, (i + 4))

Y aki lo mismo.....

Lo que hace esto es koger desde el principio hasta un caracter antes desde donde lo esta buskando y despues le agrega el resto, kitando lo que keremos.....

Ya ven, facil, y tonto a la vez.....pero weno, no tengo nada mejor que hacer y ago esto...xD xD xD

Salu2

Bien, ahora lo que tienes que hacer es buscar hasta que enkuentres <font color=#008000> y guardas el texto que le sigue, leugo, a ese texto guardado, buskas hasta  </font><nobr> y guardas el texto que hay detras de esto, y ya tienes la pagina....

Salu2

Por e4so te dige que lo de las APIs no estaba seguro, eso si, hay APIs para atribuir colores y todo eso....fiajte komo se ahce un control de usuario...

Salu2

Con algun control de usuario.....o con APIS, pero no estoy seguro de eso ultimo.

Salu2

Bien, estoy ahciendo una aplicacion en VB para la consola, lo de pasarle datos al prgorama y todo eso lo tengo kontrolado, el problema es redirigir la salida a la consola, komo ago eso en VB??? un ejemplo de lo que quiero hacer es exactamente el contrario a esto: http://www.elguille.info/VB/ejemplos/vb_stdout.htm

Alguien me puede ayudar???

Salu2

as kitado el winsock de las dependencias??? ya que es raro que en makinas kon winsock te funcione y en makinas sin winsok no....

Salu2

eso no esconde el proceso...

Si te interesa busca un manual de Zealot de como ocutlar proceso en el taskmngr sin hooks.

Salu2

Aki tienes.

http://www.elguille.info/vb/avanzado/crear_dll_windows_con_vb6_explicado.htm

Salu2

[Kill]

bueno, el este post: http://foro.elhacker.net/index.php/topic,123615.msg575170.html#msg575170  Krispin posteo el kodigo para inyectar una DLL en VB, yo, komo sabia que las DLL's "naturales" de VB no funkaban me fui a este hilo: http://www.elguille.info/vb/avanzado/crear_dll_windows_con_vb6_explicado.htm y codee una DLL "natural" para windows, todo perfecto, luego intento inyectarla kon el kodigo de Krispin, y ni me da error ni hace el kodigo que le dije....el kodigo de la DLL es este:

Código [Seleccionar] Expandir

Public Function matar() As String
    Kill "C:\1.txt"
End Function

El error que le veo es que Kill es un komando "nativo" de VB, y la DLL en teoria es de Windows, pero no estoy seguro, es una "teoria".....alguien me puede ayudar a enkontrar el error???

Salu2