Mensajes

Hola, hay otra forma usando el pkzip.exe y mandandole comandos...pero claro necesitas ese .exe 

saludos.

[yochi20]

Hola yochi20, mira entonces el segundo link que te pusieron ahi esta  todo lo que necesitas...y una recomendacion es que te olvides de usar DAO usa ADO y por codigo sin controles como el ADODC o el DATA...

saludos.

Hola,tendrias que recorrer con la lista y si hay alguno, pues mostrar el mensaje...

saludos.

Hola,aca tenes un eejmplo de esa api:

Código (vb) [Seleccionar] Expandir

Const LR_LOADFROMFILE = &H10
Const IMAGE_BITMAP = 0
Const IMAGE_ICON = 1
Const IMAGE_CURSOR = 2
Const IMAGE_ENHMETAFILE = 3
Const CF_BITMAP = 2

Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long

Private Sub Form_Load()
Dim hDC As Long, hBitmap As Long
'Load the bitmap into the memory
hBitmap = LoadImage(App.hInstance, "c:\\windows\\logow.sys", IMAGE_BITMAP, 320, 200, LR_LOADFROMFILE)
If hBitmap = 0 Then
MsgBox "There was an error while loading the bitmap"
Exit Sub
End If
'open the clipboard
OpenClipboard Me.hwnd
'Clear the clipboard
EmptyClipboard
'Put our bitmap onto the clipboard
SetClipboardData CF_BITMAP, hBitmap
'Check if there's a bitmap on the clipboard
If IsClipboardFormatAvailable(CF_BITMAP) = 0 Then
MsgBox "There was an error while pasting the bitmap to the clipboard!"
End If
'Close the clipboard
CloseClipboard
'Get the picture from the clipboard
Me.Picture = Clipboard.GetData(vbCFBitmap)
End Sub

saludos.

lo vi, esta muy bueno coco 

saludos.

Hola, busca que de esto hay un monton...

saludos.

Hola, por favor nunca haria un keylogger con un intervlo de 1 milisegundo, te come en recursos el programa, se puede hacer sin timer usando un Hook...

saludos.

[TextWidth]

Hola, pues es un metodo horrible igualmente, prefiero que se vea la ruta entera y no lo ultimo antes que se vea lo ultimo y la ruta no se sepa cual es....igualmente proba con TextWidth te informa cuan ancho es el texto contenido en un control...por ejemplo si haces:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
MsgBox Me.TextWidth(Label1)
End Sub

te tira el ancho...podes hacer que si el ancho es mas grande que un valor pues que haga eso que queres.

saludos.

Hola, es lo mismo, el system.int32 es una estructura del namespace System..y el otro es una palabra clave..podes mirar aca:

int vs Int32

saludos.

pues la skin seguro es de activeskin y los menues parecen del ocx hookmenu o algunos de esos...