Klient[vbs] - computer informations

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 830 fois - Téléchargée 26 fois

Contenu du snippet

Des infos hardware sur vot pc

Source / Exemple :


'-- DS LES ALIAS
Dim I
For i=1 to Sysinfo.DriveCount-1
    Dim DriveLetter
    DriveLetter=SysInfo.Drive(I)
    if DriveLetter<>"" then
        Dim FDriveInfo
        FDriveInfo = "1 - " & SysInfo.Drive(I) & "[12" & sysinfo.drivetype(DriveLetter) & "1]"
        if SysInfo.VolumeName(DriveLetter)<>"" then
             FDriveInfo =  FDriveInfo & " [12" & SysInfo.VolumeName(DriveLetter) & "1]"
        end if
        FDriveInfo =  FDriveInfo & ": 12" & OctetsToKoMoGo(SysInfo.DiskSpaceFree(DriveLetter))  & "1 free/12" & OctetsToKoMoGo(SysInfo.DiskSpace(DriveLetter))
    end if

    display.echo windowhandle, FDriveInfo
Next

        display.echo windowhandle,"0,0"
display.echo windowhandle,"1Memory: 12" & Sysinfo.MemoryAvailable & "1 Mo avaible/12" & sysinfo.MemoryTotal & "1 Mo"
display.echo windowhandle,"0,0"

'-- DANS GLOBAL --
Function OctetsToKoMoGo(DATA)
    Dim Decimales
    Decimales = 2
    If DATA < 1024 Then ' - d'1 Ko
        OctetsToKoMoGo = DATA & " Octets"

    ElseIf DATA > 1024 And DATA < (1024 ^ 2) Then ' Entre 1 Ko et 1023Ko
        OctetsToKoMoGo = (Round((DATA / 1024), Decimales)) & " Ko"

    ElseIf DATA > (1024 ^ 2) And DATA < (1024 ^ 3) Then 'Entre 1 Mo et 1023 Mo
        OctetsToKoMoGo = (Round((DATA / (1024 ^ 2)), Decimales)) & " Mo"

    Else 'If DATA > (1024 ^ 3) And DATA < (1024 ^ 4) Then 'Entre 1 Go et 1023 Go
        OctetsToKoMoGo = (Round(DATA / (1024 ^ 3), Decimales)) & " Go"

    End If
End Function

Conclusion :


vela c un truc de newbi ms bon je tente klient alors c le debut :D

A voir également

Ajouter un commentaire Commentaires
Messages postés
17
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
4 juin 2005

francheme, j'aime assé ta source ;) 9/10
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003

Arf désolé je savais pas que tavais deja laissé un source de ce genre :/
Par contre connais tu le fonctionnement de Sokets.NewClientSocket?? car je ne comprend pas cette fnction...
Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
6
Pas mal mais ca ressemble beaucoup dans le principe a ce que j'ai fait.
Par contre l'idée de mettre les lecteurs CD ... est pas mauvaise.
Tu devrais rajouter le total de disque libre et complet (sur le disques fixes).

F___

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.