Mensajes

muy bueno,el timer de visual se puede usar para intervalos grandes,1 segundo,10 segundos ,etc...pero no vas a queres milisegundear porque es un desastre..

pero no es plan de tener que bajarse 300 mil programitas y probarlos  todos

pero entonces vos queres que te den todo hecho,proba vos,bajalos,probalos,miralos,etc...elegi vos..porque ya parece aragañeria esto de no buscar.... ...como decis hay un monton como el activeskin,y el skinbuilder para crear las skins .skn,despues tenes el vbskinner que lo podes bajar por ahi,tenes uno que hizo leandro el form yahoo!,y un monton...pero bueno a veces para no incluir controles es mejor diseñarse los formularios uno mismo,le pones el borde = none ,con algunos picturebox,imagenes y con un poco de ganas lo podes hacer...

saludos.

Hola,yo no se si se olvidan o lo hacen a proposito pero hace poco hubo un post de esto,estaba explicado como se usaba y todo,que tienen Alzheimer juvenil???

Hola,pues hay algunos pero no te tiran el codigo como se escribirio,es decir no te tira nada y es unutil ponerse a hacer eso,algunos te van a decir que uses ASM para mirar el exe pero lo mejor para mi,en vez de ponerte a descompilarlo,es ponerte a hacerlo,porque si lo queres descompilar quiere decir que no te da para hacerlo vos mismo sin mirar el codigo,ahi esta el verdadero programador,¿¿para que mirar como lo hicieron?? hacelo y listo.

saludos.

mmmm no empecemos a decir cual es mejor,si visual basic,o C++,he visto discuciones de estas,pufff :¬¬terminan en post cerrado...el que te dijo que son parecidos que se ponga a leer un poco,y todos sabemos de lo que es capaz C++ y de lo que es capas visual..no hay mas que decir

jaja y esto?? ,no se ve la imagen Krack,pero con ver la ruta "lammer.gif" ya se sabe 

Hola,con ese control no se puede parece,pero desde codigo podes sacarlos algo asi:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim Ocultos As String
Ocultos = Dir("c:\", vbDirectory + vbHidden)
Do While Ocultos <> ""
Debug.Print Ocultos
Ocultos = Dir
Loop
End Sub

EDIT:Aca esta 

Código [Seleccionar] Expandir

Option Explicit

Private Const MAX_PATH = 260
Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type
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 Const LB_GETCOUNT = &H18B
Private Const LB_INSERTSTRING = &H181
Private Const LB_ERR = (-1)


Private Const FILE_ATTRIBUTE_HIDDEN = &H2
Private Const FILE_ATTRIBUTE_SYSTEM = &H4
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10


Private Declare Function SendMessageString Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long


Private Sub ShowHiddenDirectories(DirCtrl As DirListBox, Optional bShowSystem As Boolean)
    Dim res As Long
    Dim sF As String, sDirPath
    Dim FData As WIN32_FIND_DATA
    Dim fHand As Long, i As Long
    Dim level As Long
    Dim StillOK As Long
    Const HIDDEN_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY Or FILE_ATTRIBUTE_HIDDEN
    sDirPath = DirCtrl.Path
    If Right$(sDirPath, 1) <> "\" Then sDirPath = sDirPath & "\"
    res = SendMessage(DirCtrl.hwnd, LB_GETCOUNT, 0, 0)
    If res = LB_ERR Then Exit Sub
    level = res - DirCtrl.ListCount
    fHand = FindFirstFile(sDirPath & "*", FData)
    StillOK = fHand
    Do While StillOK > 0
        If (FData.dwFileAttributes And HIDDEN_DIRECTORY) >= HIDDEN_DIRECTORY Then
           If bShowSystem Or ((FData.dwFileAttributes And FILE_ATTRIBUTE_SYSTEM) = 0) Then
            sF = CutRightAt(FData.cFileName)
            If sF <> "." And sF <> ".." Then
                i = DirCtrl.ListCount
                Do
                    If i > 0 Then
                        res = StrComp(sF, Right(DirCtrl.List(i - 1), Len(DirCtrl.List(i - 1)) - Len(sDirPath)), vbTextCompare)
                        If res >= 0 Then
                            If res Then res = SendMessageString(DirCtrl.hwnd, LB_INSERTSTRING, i + level, sF)
                            Exit Do
                       
                        End If
                    Else
                        If i = 0 Then res = SendMessageString(DirCtrl.hwnd, LB_INSERTSTRING, i + level, sF)
                    End If
                    i = i - 1
                Loop While i >= 0
            End If
           End If
        End If

        StillOK = FindNextFile(fHand, FData)
    Loop

    fHand = FindClose(fHand)
End Sub

Private Function CutRightAt(NormString As String, Optional ascii As Long = 0) As String
    Dim i As Long
    i = InStr(1, NormString, Chr(ascii), vbBinaryCompare)
    If i Then
        CutRightAt = Left(NormString, i - 1)
    Else
        CutRightAt = NormString
    End If
End Function

Private Sub Dir1_Change()
    ShowHiddenDirectories Dir1, True
End Sub





saludos.

Hola,yo tengo aca un codigo que use en un programa para apagar el monitor..pero lo que hace realmente es suspender la pc y dejarla en standby digamos y al mover el mouse se reestablece todo,pero a algunos tambien los desconectaba de intenet..pero a mi no me paso...lo hace a travez de api's pero con Token Privileges..no se si te sirva...

saludos.

si ,me comi el 32  ,y como te dicen,si el ocx esta en el system32 no es necesario poner la ruta ya que el registrador trabaja por defecto en esa ruta...algo asi como lo hace la funcion shell

igualmente te digo que al crear un ocx o un usercontrol para usar,no es muy bueno insertar controles externos,porque sino el ocx no va a ser dependiente de si mismo,va a depender de otros controles y vas a tener que llevarlos a la hora de ejecutarlo en otra maquina....tenes que tratar de hacer los ocx con los controles estandar de visual basic y si es posible todo desde codigo...pero bueno vos elegis...

para registrarlo manualmente vas a Inicio-->Ejecutar y escribis:

Código [Seleccionar] Expandir

regsvr nombredelcontrol.ocx

y apretas aceptar,te tiene que aparecer un mensaje que se registro correctamente,antes tenes que poner el/los controles en la carpeta del systema(system32)...

eso es manualmente,pero cuando crees un instalador para tu aplicacion,eso no lo tenes que hacer mas ya que el instalador se encarga de registrarlas....

saludos.