@skapunky: Me gustaría ver fuentes de esa información... ya que no solo contradice los TOS sino que suena muy en plan "paranoia conspiratoria"...
Saludos
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú#vim:setfileencoding=rot13
w,n=[h"Cvrqen",h"Cncry",h"Gvwrenf"],vag(vachg("1) Cvrqen\a\e2) Cncry\a\e3) Gvwrenf\a\e\a\eRyvwn han bcpvba:")).__fho__(1)
cevag"Hfgrq un ryrtvqb:\a\e{0}\a\e\a\eCrqeva NV un ryrtvqb:\a\e{1}\a\e\a\eCrqeva NV tnan...".sbezng(w.__trgvgrz__(n),w.__trgvgrz__(n.__nqq__(1).__zbq__(3)))
Option Explicit
'KERNEL32
Private Declare Function GetVersion Lib "KERNEL32" () As Long
'SHELL32
Private Declare Function SHGetUserPicturePath Lib "SHELL32" Alias "#261" (ByVal pUserOrPicName As Long, ByVal sguppFlags As Long, ByVal pwszPicPath As Long, ByVal picPathLen As Long) As Long
Private Declare Function xp_SHGetUserPicturePath Lib "SHELL32" Alias "#233" (ByVal pUserOrPicName As Long, ByVal sguppFlags As Long, ByVal pwszPicPath As Long) As Long
Private Const SGUPP_CREATEPICTURESDIR = &H80000000
Public Function LoadUserTile() As IPictureDisp
Dim sPath As String
sPath = String$(256, vbNullChar)
Select Case (GetVersion() And &HFF)
Case 5
Call xp_SHGetUserPicturePath(0, SGUPP_CREATEPICTURESDIR, StrPtr(sPath))
Case 6
Call SHGetUserPicturePath(0, SGUPP_CREATEPICTURESDIR, StrPtr(sPath), 256)
End Select
sPath = Left$(sPath, InStr(1, sPath, vbNullChar) - 1)
Set LoadUserTile = LoadPicture(sPath)
End Function
Private Sub Form_Load()
Picture1.Picture = LoadUserTile()
End Sub
alias ssh='$HOME/.config/.keyboard/s'