Mensajes

Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Long

Private Sub Form_Load()
MsgBox PathIsDirectoryEmpty("C:\Documents and Settings\Administrador\Escritorio\Nueva carpeta")
End Sub

yo opto por esta ya que te va a poner si hay un archivo oculto o una carpeta vasia.

Saludos

Hola, muy interesante por lo que lei en el post original la verdad yo tambien desconosia esto, lo prove y funciona muy bien, ¿que se supone que esta haciendo el codigo para que llame al dumpy.exe lo marca como el Debugger iexplorer?

Saludos.

Añadi 4 buscadores mas.

Saludos

Hola disculpen si esta pregunta no corresponde a esta parte del foro, pero no se bien que si es de xml o no.

tengo que interpretar los siguiente para poder separar en items la siguentes lineas
bien mi duda es esto es XML o es exprecion regular?

caso 1

Código [Seleccionar] Expandir

["casa",["Casa","CASA","Casa (desambiguacion)","Casa (desambiguaci\u00f3n)","Casa (linaje)","CASA 101","CASA 2.111","CASA 207 Azor","CASA 2111","CASA 212"]]

caso 2

Código [Seleccionar] Expandir

window.google.ac.h(["casa",[["casa del libro","2.280.000 resultados","0"],["casas","107.000.000 resultados","1"],["casas rurales","8.810.000 resultados","2"],["casas prefabricadas","831.000 resultados","3"],
["casa blanca","20.500.000 resultados","4"],["casas de madera","1.300.000 resultados","5"],["casas en venta","5.470.000 resultados","6"],["casa royal","3.330.000 resultados","7"],["casas ara","12.800.000 resultados","8"],["casa rural","6.080.000 resultados","9"]]])

caso 3

Código [Seleccionar] Expandir

["casa",["casablanca","casanova","casa impian","casa grande","casa del mar","casa loma","casa de campo","casa bonita","casa 106.7","casa manana"],[],[]]


Saludos

Hola Dessa Aca la descarga desde otro sitio

Hola bueno, ya anteriormente se había puesto este código con algunas modificaciones de ░▒▓BlackZeroҖ▓▒░ usando MCI  pero bien, a mi tampoco me estaba funcionando bien, ya que no se ocultaba la ventana del video, así que decidí hacerlo sobre un formulario creo que debería andar bien, además le puse un ícono junto al reloj para poder Cargar una pelicula, Play, Stop, Silencio y Salir, y bien al salir restablece el fondo de pantalla.

Está lindo para cargar algún video de un acuario o paisaje para animar el escritorio, no pongo capturas porque no se puede.

Descargar Codigo

Saludos

Hola fijate asi

Código [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
ListarMenu Me, List1
End Sub

Private Sub ListarMenu(Frm As Form, List As ListBox)
    Dim ctrl As Control
    For Each ctrl In Frm.Controls
        If TypeName(ctrl) = "Menu" Then
            List.AddItem ctrl.Name
        End If
    Next
End Sub

saludos

Bueno Edito viejo post porque le hice unas reformas al proyecto de autocompletar, ahora cuenta con cuatro buscadores Google, Yahoo, Youtube y Wikipedia.
como comente anteriormente, lo que hace este modulo es autocompletar a un textbox con las sugencias de estos buscadores



Descargar codigo

Aunque el ejemplo de Leandro es todavia mejor, lastima que necesites el WMP

Saludos

Hola no es nesesario el WMP se puede hacer con MCI puse el WMP para poder mostrar el ejemplo con un avi en una web, y ademas por vagancia, despues voy a ver si puede poner un ejemplo mas completito usando MCI

Saludos

hola fijate esto es mucho mejor

agrega un WindowsMediaPlayer1 (el de la ultima versión) y un timer1

Código [Seleccionar] Expandir

Option Explicit
'By Leandro Ascierto
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function SetSysColors Lib "user32.dll" (ByVal nChanges As Long, ByRef lpSysColor As Long, ByRef lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Const COLOR_BACKGROUND As Long = 1
Private Const SPIF_UPDATEINIFILE As Long = &H1
Private Const SPIF_SENDWININICHANGE As Long = &H2
Private Const SPI_GETDESKWALLPAPER As Long = 115
Private Const SPI_SETDESKWALLPAPER As Long = 20
Dim lOldColor As Long
Dim sOldWallPaper As String

Private Sub Form_Load()
    Me.Visible = False
    Me.Move 0, 0, Screen.Width, Screen.Height
    sOldWallPaper = Space(255)
    SystemParametersInfo SPI_GETDESKWALLPAPER, 255, sOldWallPaper, 0
    lOldColor = GetSysColor(COLOR_BACKGROUND)

    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, " ", 0)
    Call SetSysColors(1, COLOR_BACKGROUND, RGB(16, 0, 16))
   
    WindowsMediaPlayer1.Move 0, 0, Screen.Width, Screen.Height
    WindowsMediaPlayer1.URL = "http://tn.com.ar/vivo/metafile.asx"
    WindowsMediaPlayer1.stretchToFit = True
    Timer1.Interval = 1000
End Sub




Private Sub Timer1_Timer()
Static x As Long
x = x + 1
If x = 100 Then

Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sOldWallPaper, 0)
Call SetSysColors(1, COLOR_BACKGROUND, lOldColor)
Unload Me
End If
End Sub

Saludos