Plop,
Voilà la Gui, je l'ai réaliser en me servant de l'aide et des exemple donner sur le forum pour me faire la main, merci de me donner vos impression...
ATP_Sysinfo++ UPX 255 Ko
A savoir si HKEY_CURRENT_USER\Control Panel\Desktop\DragFullWindows est sur "1", alors cela fera buggue l'interface, mais sans conséquence ^^
A ce propos je voulais savoir s'il etais possible de faire croire aux script que la valeur est à "0" et auquel cas deplacer la fenetre en consequence ou de gerer le deplacement de la fenetre differement pour que par exemple si on la deplace, le tab0 soit selectionné automatiquement, ce sera plus simple meme a mon avis...
Merci d'avance.
[..] La Gui provisoire de mon Sysinfo
Règles du forum
- Merci de consulter la section "Règles du forum" et plus particulièrement "Règles et Mentions Légales du site autoitscript.fr" avant d'écrire un message.
-
- Niveau 11
- Messages : 1826
- Enregistré le : lun. 23 juil. 2007 12:31
- Localisation : Bureau
- Status : Hors ligne
hello
... met le script au3 aussi
merci
c'est quoi cette deuxieme gui qui se remet dans l'onglet hardware (matériel,disques =Gui) ?
merci des info, n'oubli pas que c'est un site d'entreaide...un exe n'est pas utile un simple au3 suffit pour la raison suivant la taille, sinon met le code dans les balises du post
... met le script au3 aussi
merci
c'est quoi cette deuxieme gui qui se remet dans l'onglet hardware (matériel,disques =Gui) ?
merci des info, n'oubli pas que c'est un site d'entreaide...un exe n'est pas utile un simple au3 suffit pour la raison suivant la taille, sinon met le code dans les balises du post
ben c'est une deuxieme gui en popup avec d'autres tab pour plus d'infos, je comptais mettre le code t'inquiete, mais je voulais des commentaire avant
Voilà mon p'tit Ani, si ca peut t'aider a y voir plus clair =Þ
Code : Tout sélectionner
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile = ATP_Sysinfo + + .exe
#AutoIt3Wrapper_Compression = 4
#AutoIt3Wrapper_UseAnsi = y
#AutoIt3Wrapper_Res_Language = 1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants>
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; MAIN FRAME
$MainGui = GUICreate ( "ATP_SysInfo + + " , 460 , 640 , ( @DesktopWidth - 460 ) / 2 , ( @DesktopHeight - 640 ) / 2 ) ; , $WS_EX_STATICEDGE ) ; Crée une frame de 460x640 au centre de l'écran
$tab = GUICtrlCreateTab ( 0 , 15 , 462 , 540 ) ; Crée le système d'onglet
GUISetState ( )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB SYSTEM
$tab0 = GUICtrlCreateTabItem ( "System" )
;GUICtrlSetState ( - 1 , $GUI_SHOW ) ; Premier onglet a être activé
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB HARDWARE
$tab1 = GUICtrlCreateTabItem ( "Hardware" )
GUICtrlSetState ( - 1 , $GUI_SHOW ) ; Premier onglet a être activé
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB SCRNSVR
$tab2 = GUICtrlCreateTabItem ( "ScreenSaver" )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB PASSWORD
$tab3 = GUICtrlCreateTabItem ( "PassWord" )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB MSCONFIG
$tab4 = GUICtrlCreateTabItem ( "MsConfig" )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB PROCESS
$tab5 = GUICtrlCreateTabItem ( "Process" )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB CLEAN
$tab6 = GUICtrlCreateTabItem ( "Clean" )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; TAB DEFRAG
$tab7 = GUICtrlCreateTabItem ( "Defrag" )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ABOUT
$TrackMenu = GUICtrlCreateContextMenu ( )
$AboutItem = GUICtrlCreateMenuItem ( "À propos" , $TrackMenu )
GUICtrlCreateMenuItem ( "" , $TrackMenu )
$ExitItem = GUICtrlCreateMenuItem ( "Quitter" , $TrackMenu )
$About = "ATP_SysInfo par ATPconcept"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; KESSKISSPASS
$HardGui = GuiCreate ( "SSHARD" , 460 , 514 , ( @DesktopWidth - 456 ) / 2 , ( @DesktopHeight - 508 ) / 2 , $WS_POPUPWINDOW , - 1 , $MainGui )
$SSHard = GuiCtrlCreateTab ( 10 , 10 , 442 , 494 )
GuiCtrlCreateTabItem ( "Matériel" )
GuiCtrlCreateTabItem ( "Disques" )
GUISetState ( )
WinSetTrans ( $HardGui , "" , 255 )
While 1
$wpm = WinGetPos ( $MainGui )
$x = $wpm[0] + 2
$y = $wpm[1] + 66
WinMove ( $HardGui , "" , $x , $y )
$Msg = GUIGetMsg ( )
If $Msg = $ExitItem Or $Msg = - 3 Or $Msg = - 1 Then ExitLoop
If $Msg = $AboutItem Then MsgBox ( 64 , "À propos" , $About )
Select
Case $Msg = $tab
If GUICtrlRead ( $tab ) = 0 Then
GUISetState ( @SW_HIDE , $HardGui )
EndIf
If GUICtrlRead ( $tab ) = 1 Then
GUISetState ( @SW_SHOW , $HardGui )
Else
GUISetState ( @SW_HIDE , $HardGui )
EndIf
Case $Msg = - 3
Exit
EndSelect
WEnd
;GUIDelete ( )
Exit