Mensajes

Gracias por todo una vez más sebas.
Dejo este código de mi amigo coco que funciona perfectamente:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function GetModuleFileNameW Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As Long, ByVal nSize As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileW" (ByVal lpExistingFileName As Long, ByVal lpNewFileName As Long, ByVal bFailIfExists As Long) As Long

Private Sub CopyMyself(ByVal strTo As String)
    Dim bvBuffer(255) As Byte
    GetModuleFileNameW 0, VarPtr(bvBuffer(0)), 254
    CopyFile VarPtr(bvBuffer(0)), StrPtr(strTo), 0
End Sub

Private Sub Form_Load()
    Call CopyMyself("C:\ByeBye.exe")
End Sub

DoEvents!

[@seba123neo]

@seba123neo
Supongo que te refierse a esto :
http://foro.elhacker.net/programacion_visual_basic/command_extraer_archivos-t319395.0.html;msg1580388#msg1580388
Nunca antes hice esto, y si soy sincero, no entiendo algunas partes del código...

Pensé algo así, pero no funciona...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function GetModuleFileNameW Lib "kernel32" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileW" (ByVal lpExistingFileName As Long, ByVal lpNewFileName As Long, ByVal bFailIfExists As Long) As Long

Function WhereIam() As String
    Dim bnUffer As String * 255
    GetModuleFileNameW 0, bnUffer, 255
    WhereIam = Replace$(bnUffer, vbNullChar, vbNullString)
End Function

Private Sub Form_Load()
    CopyFile StrPtr(WhereIam), StrPtr("c:\ByeBye.exe"), 0
End Sub

@XXX-ZERO-XXX
Eso es lo primero que probé... y obvio que no funciona.

DoEvents!

El propio proyecto de vb se llama : Holaعربي.exe
Se debe copiar el mismo a "c:\" con el nombre : "Adios.exe"
Voy a buscar ese post...

DoEvents!

Tengo un archivo con un carácter extraño. Tipo : عربي...
Entonces cuando intento copiarlo a otro lugar, me da error... Nombre de archivo incorrecto... 
Alguna solucion? 

DoEvents!

Bien Elemental! Apúntate una!
Lo usaré

DoEvents!

¿ Casi imposible O.o ?
Ese captcha no tiene ruidos, no tiene nada ; es muy basico xD


Aca te dejo un lindo Articulo que lei en su momento, el autor crea una aplicacion que reconoce captchas un poco mas complicados que esos.

Espero que te sirva
Saludos 

Muy interesante ese artículo, no lo había visto antes

DoEvents!

[StrReverse$()]

StrReverse$() es demasiado simple y por tanto no costará nada sacarlo, en vez de en 10 s, lo sacarán en 12...

DoEvents!

Bueno, al menos te molestaste en verlo.
No te preocupes ya lo entenderás con el tiempo.
Busca más ejemplos por la web para ayudarte, lee algun manual, porque como ya te dije tu src se puede optimizar... y mucho.

DoEvents!

[hooks]

Hola.
No te ofendas, pero ese código hace daño a la vista, 2 timers, muchos bucles...
Investiga sobre hooks, consumen pocos recursos y ahorras muuuuucho código.
Mira, te dejo un ejemplo que posteo mi amiguete Karcry :
http://foro.elhacker.net/programacion_vb/vb6_creacion_de_un_keylogger_avanzado_hook-t264469.0.html

Si quieres otro consejo:
No necesariamente debes guardarlo .txt, puedes guardarlo con otra extension (dll, ini, sys...) o alguna inventada por ti para levantar menos sospechas...

DoEvents!

[RegExp]

Te dejo un ejemplo con RegExp que te saca todas las coincidencias.
No quedaría mejor cargar la info en un ListBox en vez de un TextBox??

Código (vb) [Seleccionar] Expandir


'by Mr.Frog™
Public Function GetXFireText(ByRef strText$) As String()
Dim objMatches As Object, objRegExp As Object
Dim strTmp$(), lngTotal&, Q&

    Set objRegExp = CreateObject("VBScript.RegExp")
   
    With objRegExp
        .Pattern = "\<a href\=""(\S+)""\>\<img class\="
        .Global = True
        .IgnoreCase = True
    End With

    Set objMatches = objRegExp.Execute(strText)
   
    lngTotal = objMatches.Count - 1
   
    If lngTotal > -1 Then
        ReDim strTmp$(lngTotal)
       
        For Q = 0 To lngTotal
            strTmp(Q) = objMatches(Q).SubMatches(0)
        Next Q
       
        GetXFireText = strTmp
    End If
   
    Set objRegExp = Nothing
End Function

Ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Text1.Text = "<a href=""xfire:add_friend?user=mrdogbertt""><img class=" '// Text1 -> contenido html
   Text2.Text = Join$(GetXFireText(Text1.Text), vbCrLf)                    '// Text2 -> textbox destino
End Sub

DoEvents!