[R] About this mac

[DJSIR]

Bonjour, je cherche a recréer en language AutoIt la célèbre fenetre de chez apple About this Mac.
En gros, il faudrais :
La fenetre nomée About this mac,
Le logo apple
Mac OS X marqué en dessous,
La version du Mac (10.5),
Un bouton : Mise a jour... (redirigeant sur Windows Update)
Les ingos suivantes:
Prosseseur
Mémoire vive
Startup Disk ou autre chose ?
Un bouton More Info... (redirigant vers Systeme dans panneu de configuration)
et a la fin :
TM et (c) 1983 - 2008 Apple Computer, inc
Tous droits réservés
Merci d'avance !

[DJSIR]

Voila j'ai quelque chose :

Code : Tout sélectionner

#include <GUIConstants.au3>
$Form1 = GUICreate("About This Mac", 297, 367, 230, 125)
$pic1 = GUICtrlCreatePic ("Sans titre 3.bmp", 0, 0, 297, 367)
$Button1 = GUICtrlCreateButton("Mise a jour...", 59, 161, 180, 24, 0)
$Button2 = GUICtrlCreateButton("Plus d'infos...", 59, 284, 179, 24, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
RunWait(notepad.exe',"",@SW_HIDE) 
Case $Button2
RunWait(notepad.exe',"",@SW_HIDE)
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Sans titre 3 est dans le .zip

[DJSIR]

Voila, j'ai quelque chose de convenable...
Il reste a paramétrer les boutons...
Mise a jour... qui doit ramener sur Windows Update
Plus d'infos... ui doit ramener sur les propriétés système.
Et il faut aissi savoir donc dans l'interface, les ingos suivantes
Processeur,
Ram,
Nom du disque dur de lancement

Et l'image ne s'affiche bien que si on enleve le texte !

[DJSIR]

UP SVP

[arrkhan]

petite question : es tu sûr de posseder les droits pour pouvoir inscrire
TM et (c) 1983 - 2008 Apple Computer, inc
Tous droits réservés
ainsi qu'utiliser le logo Apple
sur un logiciel de ta creation ?

pour ton 1er button:

Code : Tout sélectionner

RunWait(@ComSpec & ' /c start iexplore.exe http://www.update.microsoft.com/microsoftupdate/v6/default.aspx?ln=fr', "", @SW_HIDE)

et le 2eme:

Code : Tout sélectionner

send("#{PAUSE}")

[DJSIR]

Bah... je sais pas trop... je sias pas ce qui vont en penser...
Parcontre pour l'image derriere le text on fait comment... sans oblier les infos systeme

[arrkhan]

pour ce qui est de l image, fait une recherche sur le forum, tu trouvera ta reponse, pour les infos, si tu compte pas utiliser ton script sur des systemes inferieur a 2000, tu peux regarder du cote des wmi, tu trouvera egalement ton bonheur en faisant un peu de recherche

et pour que ta fenetre ressemble au plus a celle d'osx, tu peux utiliser ceci:

Code : Tout sélectionner

$Form1 = GUICreate("A Propos de ce mac", 297, 367,-1,-1, $WS_EX_LAYERED,$WS_EX_TOOLWINDOW)

[DJSIR]

pour la fenetre c'est ok... mais bon les forums j'avoue c'est pas trop mon truc
wmi ?

[arrkhan]

voilà, je pense que ca ressemble au mieux a la fenetre apple, dis moi si ca te convient...

► Afficher le texte

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
;#include <SliderConstants.au3>
;#include <GUIConstantsEx.au3>
;#include <EditConstants.au3>

$ObjWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
$ColSettings = $ObjWMIService.ExecQuery("Select * from Win32_Processor")
For $ObjOperatingSystem In $ColSettings
$ProcFreq = $ObjOperatingSystem.CurrentClockSpeed
$ProcName = $ObjOperatingSystem.Name
Next

$dgl = DriveGetLabel(@HomeDrive)
$mem = MemGetStats()
Dim $pic1 = @TempDir & "\About.bmp"

FileInstall("About.bmp", @TempDir & "\About.bmp", 1)

$Form1 = GUICreate("À propos de ce mac", 297, 367, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)

$pic1 = GUICtrlCreatePic("about.bmp", 0, 0, 297, 367, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))

$Button1 = GUICtrlCreateButton("Mise a jour de logiciel ....", 59, 161, 180, 24, 0)

$Button2 = GUICtrlCreateButton("Plus d'infos ....", 59, 294, 179, 24, 0)

GUICtrlCreateLabel("Processeur", 0, 200, 140, 15, $SS_RIGHT)
GUICtrlSetFont(-1, 8.5, 800)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel(Round($ProcFreq/1000,2) & " GHz " & $ProcName, 150, 200)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel("Mémoire", 0, 220, 140, 15, $SS_RIGHT)
GUICtrlSetFont(-1, 8.5, 800)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel(Round($mem[1] / 1024, 0) & " Mo", 150, 220)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel("Disque de démarrage", 0, 260, 140, 15, $SS_RIGHT)
GUICtrlSetFont(-1, 8.5, 800)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel(@HomeDrive & "\" & $dgl, 150, 260)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

;GUICtrlCreateLabel("TM & (c) 1983-2008 Apple Computer, inc", 40, 320, $GUI_BKCOLOR_TRANSPARENT)

;GUICtrlCreateLabel("Tous droits réservés", 83, 335, $GUI_BKCOLOR_TRANSPARENT)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
RunWait(@ComSpec & ' /c start iexplore.exe http://www.update.microsoft.com/microso ... aspx?ln=fr', "", @SW_HIDE)
Exit
Case $Button2
Send("#{PAUSE}")
Exit
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

[DJSIR]

Ok... merci pour ton aide et en attendant, je te présente : About This Mac 1.1

Voir image en dessous...

Tu as le droit de télécharger (pour l'instant sa s'annoncce bien ) de télécharger le fichier a moi enfin le dossier RAR... regarde bien... Je te mets le script arrangé ici :

► Afficher le texte

;Eviter que la fenetre se ferme a chaque clic
;Apparition fondu
;Clic droit : About
;DJSIR (About this mac)

;Icone barre des taches
#NoTrayIcon

;Includes
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
;Pour plus tard
;#include <SliderConstants.au3>
;#include <GUIConstantsEx.au3>
;#include <EditConstants.au3>

; Informations
$ObjWMIService = ObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
$ColSettings = $ObjWMIService.ExecQuery("Select * from Win32_Processor")
For $ObjOperatingSystem In $ColSettings
$ProcFreq = $ObjOperatingSystem.CurrentClockSpeed
$ProcName = $ObjOperatingSystem.Name
Next

;Noms
$dgl = DriveGetLabel(@HomeDrive)
$mem = MemGetStats()

;Images dans %temp%
Dim $pic1 = @TempDir & "\Haut.jpg"
FileInstall("Haut.jpg", @TempDir & "\Haut.jpg", 1)
Dim $pic2 = @TempDir & "\Gauche.jpg"
FileInstall("Gauche.jpg", @TempDir & "\Gauche.jpg", 1)
Dim $pic3 = @TempDir & "\Droite.jpg"
FileInstall("Droite.jpg", @TempDir & "\Droite.jpg", 1)
Dim $pic4 = @TempDir & "\Millieu.jpg"
FileInstall("Millieu.jpg", @TempDir & "\Millieu.jpg", 1)
Dim $pic5 = @TempDir & "\Bas.jpg"
FileInstall("Bas.jpg", @TempDir & "\Bas.jpg", 1)

;Fênetre
$Form1 = GUICreate("About This Mac", 291, 370, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)

;Image
$pic1 = GUICtrlCreatePic($pic1, 0, 0, 291, 161, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))
$pic2 = GUICtrlCreatePic($pic2, 0, 161, 64, 179, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))
$pic3 = GUICtrlCreatePic($pic3, 232, 161, 59, 179, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))
$pic4 = GUICtrlCreatePic($pic4, 60, 180, 180, 111, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))
$pic5 = GUICtrlCreatePic($pic5, 0, 290, 291, 54, BitOR($WS_GROUP, $WS_CLIPSIBLINGS))

;Boutons
$Button1 = GUICtrlCreateButton("Mise a jour de logiciel ....", 59, 161, 180, 24, 0)
$Button2 = GUICtrlCreateButton("Plus d'infos ....", 59, 273, 179, 24, 0)

;Processeur
GUICtrlCreateLabel("Processeur :", 75, 200, 140, 15)
GUICtrlSetFont(-1, 8.5, 800)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel(Round($ProcFreq/1000,2) & " GHz " , 150, 200)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

;Mémoire vive
GUICtrlCreateLabel("Mémoire vive :", 63, 220, 140, 15)
GUICtrlSetFont(-1, 8.5, 800)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel(Round($mem[1] / 1024, 0) & " Mo", 150, 220)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

;Disque de lancement
GUICtrlCreateLabel("Disque de démmarage :", 13, 240, 140, 15)
GUICtrlSetFont(-1, 8.5, 800)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel($dgl, 150, 240)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
;Bouton à faire (ACCES A INTERNET EXPLORER SUR L'ADERESSE http://update.microsoft.com/
Exit
Case $Button2
Send("#{PAUSE}")
Exit
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

C'est mrqué en haut :

Code : Tout sélectionner

;Eviter que la fenetre se ferme a chaque clic sur un bouton
;Apparition fondu

Voila c'est out ce qu'il reste a faire !
Merci pour tout !

[DJSIR]

Et la !
Je l'ai oublié !
http://djsir.free.fr/uploads/Zip.rar (Ah c'est un rar !)
http://djsir.free.fr/uploads/about_this_mac.exe (ancienne version...)

[arrkhan]

plop,

je viens de me rendre sur ton site, premiere constatation, un bmp de 1,2 Mo en page d'acceuil, ca motive pas vu le temps de chargement de la page, pourquoi ne pas tout simplement la mettre en gif ou png ?

j'ai telecharger about this mac v1, pour quoi ne pas avoir laisser l'image entiere ?, avec le code que je t'ai fourni, il n'y a pas de probleme entre l image entiere et le texte

Image apple originale:

Image de mon code:

la texture de fond n'est cependant pas assez large pour tout afficher
Image de ton code:

[DJSIR]

Re.
En faite celle que tu as téléchargé en EXE c'est la V1.0 celle que j'avais fait avant que tu me donne ton code. J'ai perdu le code de cette version.
La 1.1 est dans le Zip enfin le Rar. Elle n'est pas encore compilé.
Pour les boutons j'avais pas fait attention...
Et... sur l'image originale sa me plaisait pas trop, que Disque Dur soit en dessous et pas alligné...
Parcontre pour le blog j'été sur Wordpress avant et en fait c'été nul. La je débute dans le HTML donc les formats a utilisé la place tout sa... c'est pas mon domaine... Télécharge le RAR tu verras.