Mensajes

uff entendi mal la pregunta no vi lo de Autoredraw, no no hay ninguna constante para eso, en vb lo que hace el auto redraw es crear un buffer (hdc) aparte entonces cuando pintias con alguna api ese hdc este es repintado sobre la ventana cuando le haces un refresh o cuando llega wm_paint.  osea que tendrias que subclasificar la ventana y pintar cuando vos lo requieras.

tambien fijate que te pude llegar a servir UpdateLayeredWindow,  si no me equivoco vos lo queres para hacer un fondo tipo Vista,

Saludos.

Código [Seleccionar] Expandir

Private Const WS_ACTIVECAPTION As Long = &H1
Private Const WS_BORDER As Long = &H800000
Private Const WS_CAPTION As Long = &HC00000
Private Const WS_CHILD As Long = &H40000000
Private Const WS_CHILDWINDOW As Long = (WS_CHILD)
Private Const WS_CLIPCHILDREN As Long = &H2000000
Private Const WS_CLIPSIBLINGS As Long = &H4000000
Private Const WS_DISABLED As Long = &H8000000
Private Const WS_DLGFRAME As Long = &H400000



Private Const WS_EX_ACCEPTFILES As Long = &H10&
Private Const WS_EX_APPWINDOW As Long = &H40000&
Private Const WS_EX_CLIENTEDGE As Long = &H200&
Private Const WS_EX_CONTEXTHELP As Long = &H400&
Private Const WS_EX_CONTROLPARENT As Long = &H10000&
Private Const WS_EX_DLGMODALFRAME As Long = &H1&
Private Const WS_EX_LAYERED As Long = &H80000
Private Const WS_EX_LAYOUTRTL As Long = &H400000&
Private Const WS_EX_LEFT As Long = &H0&
Private Const WS_EX_LEFTSCROLLBAR As Long = &H4000&
Private Const WS_EX_LTRREADING As Long = &H0&
Private Const WS_EX_MDICHILD As Long = &H40&
Private Const WS_EX_NOACTIVATE As Long = &H8000000&
Private Const WS_EX_NOINHERITLAYOUT As Long = &H100000&
Private Const WS_EX_NOPARENTNOTIFY As Long = &H4&
Private Const WS_EX_OVERLAPPEDWINDOW As Long = (WS_EX_WINDOWEDGE Or WS_EX_CLIENTEDGE)
Private Const WS_EX_PALETTEWINDOW As Long = (WS_EX_WINDOWEDGE Or WS_EX_TOOLWINDOW Or WS_EX_TOPMOST)
Private Const WS_EX_RIGHT As Long = &H1000&
Private Const WS_EX_RIGHTSCROLLBAR As Long = &H0&
Private Const WS_EX_RTLREADING As Long = &H2000&
Private Const WS_EX_STATICEDGE As Long = &H20000&
Private Const WS_EX_TOOLWINDOW As Long = &H80&
Private Const WS_EX_TOPMOST As Long = &H8&
Private Const WS_EX_TRANSPARENT As Long = &H20&
Private Const WS_EX_WINDOWEDGE As Long = &H100&

Che que groso, no podia entender de donde leia los datos el RevShell despues me di cuenta que le pasa la conexion al cmd, no sabia que se lo podia pasar un soket, lo unico que te faltaria es agregar .hStdError = lSock para que no se detenga (en el orginal esta).

muy bueno.

las ordinales se pueden obtener del mismo Link.exe de visual basic fijate este ejemplo

http://www.recursosvisualbasic.com.ar/htm/listado-api/163-exportar-funciones-api-de-dll.htm

@Karcrack esta mucho mas piola con GetVersion 

yo solo lo testie con xp sp3 (vista y Seven en la pc virtual no se que spx) como ya dije no se si varian con las modificaciones de los spx, pero bueno esto es para usar solo con las apis problematicas con respecto a los AV

Hola me resulto curioso esto de declarar a las apis por su ordinal y bueno de la cosa es que los AV no detectan estas apis, lo malo es que dependiendo de la versión de la dll el ordinal puede cambiar. pero es otra buena alternativa.

una pequeña muestra

Código [Seleccionar] Expandir


Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "#216" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function URLDownloadToFile_Seven Lib "urlmon" Alias "#217" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Declare Function GetProcAddressXP Lib "kernel32.dll" Alias "#409" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetProcAddressVISTA Lib "kernel32.dll" Alias "#548" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function GetProcAddressSEVEN Lib "kernel32.dll" Alias "#580" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Private Declare Function LoadLibraryXP Lib "kernel32.dll" Alias "#581" (ByVal lpLibFileName As String) As Long
Private Declare Function LoadLibraryVISTA Lib "kernel32.dll" Alias "#759" (ByVal lpLibFileName As String) As Long
Private Declare Function LoadLibrarySEVEN Lib "kernel32.dll" Alias "#827" (ByVal lpLibFileName As String) As Long

Private Declare Function FreeLibrary Lib "kernel32.dll" (ByVal hLibModule As Long) As Long

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As tOSVERSIONINFO) As Long

Private Type tOSVERSIONINFO
    dwOSVersionInfoSize         As Long
    dwMajorVersion              As Long
    dwMinorVersion              As Long
    dwBuildNumber               As Long
    dwPlatformId                As Long
    szCSDVersion                As String * 128
End Type

Dim OSV As tOSVERSIONINFO


Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    If OSV.dwMajorVersion >= 7 Then
        DownloadFile = URLDownloadToFile_Seven(0, URL, LocalFilename, 0, 0) = 0
    Else
        DownloadFile = URLDownloadToFile(0, URL, LocalFilename, 0, 0) = 0
    End If
End Function

Private Function GetProcAddress(ByVal hModule As Long, ByVal lpProcName As String) As Long
    Select Case OSV.dwMajorVersion
        Case 5
            GetProcAddress = GetProcAddressXP(hModule, lpProcName)
        Case 6
            GetProcAddress = GetProcAddressVISTA(hModule, lpProcName)
        Case 7
            GetProcAddress = GetProcAddressSEVEN(hModule, lpProcName)
    End Select
End Function

Private Function LoadLibrary(ByVal lpLibFileName As String) As Long
    Select Case OSV.dwMajorVersion
        Case 5
            LoadLibrary = LoadLibraryXP(lpLibFileName)
        Case 6
            LoadLibrary = LoadLibraryVISTA(lpLibFileName)
        Case 7
            LoadLibrary = LoadLibrarySEVEN(lpLibFileName)
    End Select
End Function


Private Sub Form_Initialize()
    OSV.dwOSVersionInfoSize = Len(OSV)
    Call GetVersionEx(OSV)
End Sub

Private Sub Form_Load()
    Dim hMod As Long
   

    DownloadFile "http://www.allapi.net", App.Path & "\allapi.htm"
   
    hMod = LoadLibrary("user32.dll")
    MsgBox GetProcAddress(hMod, "MessageBoxA")
    FreeLibrary hMod
   
End Sub


no estoy seguro si con los cambios de los SPx pueda cambiar yo solo compare por la version del SO

Saludos.

la cosa es fácil, para que queres una barra de progreso si no sabes como se usa, seguramente lo que va a hacer tu command_click dura milisegundos algo no  perceptible a la vista, entonces para que queres un progreso que no se puede ver?
anda de apoco y lee un poco mas.

Saludos.

que cabeza    buena alternativa a la clasica.

hola este es un pequeño código para poder listar los archivos dentro de una carpeta.zip no es nada del otro mundo pero le pude ser útil a alguien


Fuente original en http://www.leandroascierto.com.ar/foro/index.php?topic=457.0

Código (vb) [Seleccionar] Expandir


Option Explicit
Dim objShell As Object

Private Sub Form_Load()
   Set objShell = CreateObject("Shell.Application")

   FindInZipFolder "C:\CarpetaComprimida.zip"
 
   Set objShell = Nothing
End Sub


Private Sub FindInZipFolder(ByVal Root As String, Optional ByVal sPath As String)
   Dim objFolder As Object
   Dim oItem As Object
   Dim sFolder As String
   Dim sFile As String

   Set objFolder = objShell.NameSpace(CVar(Root & sPath))
 
   If objFolder Is Nothing Then Exit Sub
 
   For Each oItem In objFolder.Items()
       If oItem.IsFolder Then
           sFolder = Root & "\" & oItem.Path
           Debug.Print sFolder
           FindInZipFolder Root, "\" & oItem.Path
       Else
           sFile = Root & "\" & oItem.Path
           Debug.Print sFile
       End If
   Next

End Sub


PD: que colorinche que esta el Geshi 

Hola y no es valido asi?

Código [Seleccionar] Expandir


Private Function ItoA03(lNumb As Long) As String
    ItoA03 = lNumb
End Function


Muchas gracias  anda de 10, se agradece a ambos.

Saludos.