Variables système
titimoteph
Messages postés
12
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
27 novembre 2002
-
14 nov. 2002 à 11:01
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 15 nov. 2002 à 06:40
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 - 15 nov. 2002 à 06:40
A voir également:
- "Php version 4.4.3" "build date" "server api" "php variables"
- "Php variables" "server api" "build date" "php version 4.4.3" - Meilleures réponses
- "Php variables" "server api" "php version 4.4.3" "build date" - Meilleures réponses
- "Php version 4.4.5" "build date" "server api" "php variables" - Forum PHP
- Quels sont les variables ldap ?? - Forum ASP / ASP.NET
- Passage de variables - Forum Javascript / DHTML
- Réinitialiser des variables - Forum Visual Basic
- "Php version 4.4.4" "build date" "server api" "php variables" - Forum PHP
3 réponses
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
14 nov. 2002 à 12:35
14 nov. 2002 à 12:35
'lut
je t'ai copié l'exemple de l'API guide
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetEnvironmentVar(sName As String) As String
GetEnvironmentVar = String(255, 0)
GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar)
If InStr(1, GetEnvironmentVar, Chr$(0)) > 0 Then GetEnvironmentVar = Left$(GetEnvironmentVar, InStr(1, GetEnvironmentVar, Chr$(0)) - 1)
GetEnvironmentVar = sName + ": " + GetEnvironmentVar
End Function
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Me.AutoRedraw = True
Me.Print GetEnvironmentVar("USERNAME")
Me.Print GetEnvironmentVar("USERDOMAIN")
Me.Print GetEnvironmentVar("PROCESSOR_IDENTIFIER")
Me.Print GetEnvironmentVar("NUMBER_OF_PROCESSORS")
Me.Print GetEnvironmentVar("OS")
End Sub
je t'ai copié l'exemple de l'API guide
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetEnvironmentVar(sName As String) As String
GetEnvironmentVar = String(255, 0)
GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar)
If InStr(1, GetEnvironmentVar, Chr$(0)) > 0 Then GetEnvironmentVar = Left$(GetEnvironmentVar, InStr(1, GetEnvironmentVar, Chr$(0)) - 1)
GetEnvironmentVar = sName + ": " + GetEnvironmentVar
End Function
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Me.AutoRedraw = True
Me.Print GetEnvironmentVar("USERNAME")
Me.Print GetEnvironmentVar("USERDOMAIN")
Me.Print GetEnvironmentVar("PROCESSOR_IDENTIFIER")
Me.Print GetEnvironmentVar("NUMBER_OF_PROCESSORS")
Me.Print GetEnvironmentVar("OS")
End Sub
titimoteph
Messages postés
12
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
27 novembre 2002
14 nov. 2002 à 12:54
14 nov. 2002 à 12:54
Merci ! Je vais décortiquer ca...
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
129
15 nov. 2002 à 06:40
15 nov. 2002 à 06:40
Sinon, va voir dans mes sources celle nommé AIDE SUR LES PRINCIPALES API, tu aura une description de 200 api environ, et en français !
Tu trouvera surement ton bonheur.
DARK SIDIOUS
Tu trouvera surement ton bonheur.
DARK SIDIOUS
