Bonjours j'aurai voulu savoir comment cacher un programme quelquonque qui est en execution avec VB6 si c'est possible voila merci
et egalement je n'arrive pas a utiliser ce prog il me met une erreur dans les 2Première ligne de commande et je sais pas pk :|
'Declaration
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName$) As Long
'Fonction D'ecriture
Function WriteIni(Section As String, Variable As String, Valeur As String, Fichier As String) As Integer
WritePrivateProfileString Section, Variable, Valeur, Fichier
End Function
'Fonction de lecture
Public Function GetIni(Section As String, Variable As String, Fichier As String) As String
Dim strRetour As String
strRetour = String(255, Chr(0))
Dim Longueur As Integer
Longueur = GetPrivateProfileString(Section, Variable, "", strRetour, Len(strRetour), Fichier)
GetIni = Left$(strRetour, Longueur)
End Function
Private Sub Command1_Click()
'Exemple D'utilisation d'ecriture
WriteIni "infos", "Email", "vbfrance.com", "c:\config.ini"
'Exemple D'utilisation lecture
Dim Email As String
Email = GetIni("infos", "Email", "C:\config.ini")
End Function
Voila merci de Votre aide et a la prochaine