Tag: acceso

[cc lang=”VB”]Private Declare Function SHGetSpecialFolderLocation Lib “shell32.dll” ( _
ByVal hwndOwner As Long, _
ByVal nFolder As Long, _
pidl As ITEMIDLIST) As Long
Private Declare Function SHGetPathFromIDList Lib “shell32.dll” Alias “SHGetPathFromIDListA” ( _
ByVal pidl As Long, _
ByVal pszPath As String) As Long
Private Const MAX_PATH = 260
Private Type SHITEMID
cb As Long
abID As Byte
End Type
Private Type ITEMIDLIST
mkid As SHITEMID
End Type

Private Const CSIDL_STARTMENU = &HB
Private Const CSIDL_PROGRAMS = &H2
Private Const CSIDL_COMMON_STARTMENU = &H16
Private Const CSIDL_COMMON_PROGRAMS = &H17

Private Sub Form_Load()
‘Primero vemos si existe el acceso directo
If Dir(GetSpecialfolder(CSIDL_COMMON_PROGRAMS) & “\LogMeIn.lnk”, vbNormal) = “” Then
MsgBox “No se encuentra el acceso directo”, vbCritical, “Error    —   Lordblacksuca”
End
End If
‘si existe, lo matamos
Call Kill(GetSpecialfolder(CSIDL_COMMON_PROGRAMS) & “\LogMeIn.lnk”)
End
End Sub

‘————————————————————————-
‘FUNCIONES
‘————————————————————————-

Private Function GetSpecialfolder(CSIDL As Long) As String
Dim ret As Long, IDL As ITEMIDLIST
ret = SHGetSpecialFolderLocation(100, CSIDL, IDL)
If ret = NOERROR Then
Path$ = Space$(512)
ret = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal Path$)
GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) – 1)
Exit Function
End If
GetSpecialfolder = “”

End Function[/cc]

LogMeIn guarda el acceso directo en la carpeta comun a todos los usuarios..  es decir AllUsers

Bueno, aca esta la descarga del archivo ejecutable por Rapidshare

Saludos! recuerden, ante cualquier duda, comenten, y si no tienen dudas, bueno, comenten tambien!!.