cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007
-
28 juil. 2003 à 09:08
gabchampagne
Messages postés216Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 5 mai 2004
-
2 août 2003 à 01:03
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
gabchampagne
Messages postés216Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 5 mai 2004 2 août 2003 à 01:03
ou ca pour arrondir le nombre
Dim fso, drv, drv_col, f
Set fso = CreateObject("scripting.FileSystemObject")
Set drv_col = fso.Drives
For Each drv In drv_col
If drv.IsReady True Then: f drv.FreeSpace: If f > 0 Then MsgBox (round(f / 1000000000, 2) & " Go")
Next
gabchampagne
Messages postés216Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 5 mai 2004 2 août 2003 à 01:01
il y a une facon plus courte et plus simple d'avoir l'espace libre je croit :
Dim fso, drv, drv_col, f
Set fso = CreateObject("scripting.FileSystemObject")
Set drv_col = fso.Drives
For Each drv In drv_col
If drv.IsReady True Then: f drv.FreeSpace: If f > 0 Then MsgBox (Left(f / 1000000000, 5) & " Go")
Next
cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007 1 août 2003 à 22:33
C'est klr Brunews. Les lignes INVOKE interminables ne correspondent pas à l'esprit ASM pur. Rien ne vaut les formulations comme à l'époque du 16bits lool. Perso je rejette en block toutes ces facilités préférant les CMP aux IF.ELSEIF.END. Le fun est sans doute de coder sans aucunes inclusions en se référant seulement à LoadLibrary pour les log des API. C'est un sujet passionant.
Désolé pour les autres, je sais que ce 'est pas la place pour parler ASM. ++
cs_AlexKid
Messages postés10Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention31 juillet 2003 1 août 2003 à 16:33
Ps : Merci BruNews pour ta dll sympa
++
cs_AlexKid
Messages postés10Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention31 juillet 2003 1 août 2003 à 16:31
oula les gas c pas de mon niveau vos discussion, j comprend que dalle !! lol Sortit de mon petit vb ca vole pas haut : MASM, haut niveau, ca maitrise la prog !!!
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 1 août 2003 à 16:27
Salut Stormy, vois que j'ecris l'asm depuis longtemps sur MASM mais JAMAIS je n'utilise les structures haut niveau qui sont une abherration de mon point de vue, sinon effectivement autant ecrire en C.
Bonne prog.
cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007 1 août 2003 à 16:15
Brunews loool le prends pas mal et continue ta bataille contre le lambinage.
cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007 1 août 2003 à 16:11
L'assembleur brut est plutôt chaud c vrai. Mais sous Masm, ca prends des allure de C dans la structure (pas le code bien sur) par moment. Faut voir. Moi je code mes applications serveurs en ASM et les client en VB pour faciliter le travail. Encore une fois si tu veux des renseignements, call me.
StormyTeam@free.fr
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 29 juil. 2003 à 09:16
cs_AlexKid
Messages postés10Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention31 juillet 2003 29 juil. 2003 à 08:27
Salut a tous merci pour vos commentaires c sympa :)
BruNews elle est ou tta dll que je la test
Stormy ca a l air chaud l assembleur non ?
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 28 juil. 2003 à 22:06
Ben c'est juste le cas. Le drole de type vous fournit une dll (asm) pour donner un peu de nerf a vb. Celui qui n'en veut pas peut continuer a lambiner sans en degouter les autres.
cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007 28 juil. 2003 à 21:54
La vitesse au rendez vous. ptdr. Passe à l'assembleur alors et laisse tomber VB. Il y a kan même de drole de type ici... ++
Tilois
Messages postés721Date d'inscriptiondimanche 10 juin 2001StatutMembreDernière intervention27 mars 20117 28 juil. 2003 à 20:50
Moi j'préfère les bons vieux scripts .. lol ... mais bon comme ce qui compte c'est d'arriver au résultat, alors ta src est bin !!
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 28 juil. 2003 à 09:40
Sers toi de ma DLL plutot que de charger l'inrepreteur de script, la vitesse sera au rdv.
cs_Stormy
Messages postés255Date d'inscriptionsamedi 20 avril 2002StatutMembreDernière intervention16 janvier 2007 28 juil. 2003 à 09:08
Intéressant. Je te donne une correspondance simple en VBS pour obtenir l'espace dispo sur le HD si cela peut aider quelqu'un:
strComputer= "."
Const HARD_DISK = 3
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!" & strComputer & "
ootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in colDisks
Wscript.Echo "Free Disk Space on " & objDisk.DeviceID & _
(round((objDisk.FreeSpace/1000000000),2)) & " Go"
Next
Merci Alex kid (toute ma jeunesse sur SEGA Master System)
2 août 2003 à 01:03
Dim fso, drv, drv_col, f
Set fso = CreateObject("scripting.FileSystemObject")
Set drv_col = fso.Drives
For Each drv In drv_col
If drv.IsReady True Then: f drv.FreeSpace: If f > 0 Then MsgBox (round(f / 1000000000, 2) & " Go")
Next
2 août 2003 à 01:01
Dim fso, drv, drv_col, f
Set fso = CreateObject("scripting.FileSystemObject")
Set drv_col = fso.Drives
For Each drv In drv_col
If drv.IsReady True Then: f drv.FreeSpace: If f > 0 Then MsgBox (Left(f / 1000000000, 5) & " Go")
Next
1 août 2003 à 22:33
Désolé pour les autres, je sais que ce 'est pas la place pour parler ASM. ++
1 août 2003 à 16:33
++
1 août 2003 à 16:31
1 août 2003 à 16:27
Bonne prog.
1 août 2003 à 16:15
1 août 2003 à 16:11
StormyTeam@free.fr
29 juil. 2003 à 09:16
Si tu as question ou proposition d'extension, ne pas hesiter a demander.
ciao...
29 juil. 2003 à 08:27
BruNews elle est ou tta dll que je la test
Stormy ca a l air chaud l assembleur non ?
28 juil. 2003 à 22:06
28 juil. 2003 à 21:54
28 juil. 2003 à 20:50
28 juil. 2003 à 09:40
28 juil. 2003 à 09:08
strComputer= "."
Const HARD_DISK = 3
Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!" & strComputer & "
ootcimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in colDisks
Wscript.Echo "Free Disk Space on " & objDisk.DeviceID & _
(round((objDisk.FreeSpace/1000000000),2)) & " Go"
Next
Merci Alex kid (toute ma jeunesse sur SEGA Master System)