AutoIt Français

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.14.2
Author: myName

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------


#include <MsgBoxConstants.au3>
#include <GUIConstants.au3>

Example()

Func Example()
;~ $parent = GUICreate("Hello World", 400, 400)
;~ GUISetState()
Run("SKYDOSE_CHECK_UP.exe")
Local $hWnd = WinWaitActive("[TITLE:SKYDOSE CHECK-UP]", "")

Local $Teledosimetre_1_Name = ControlGetText($hWnd, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:7]")
Local $Teledosimetre_1_Time = ControlGetText($hWnd, "", "[NAME:labelMAJ1]")


MsgBox($MB_SYSTEMMODAL, "", "Le télédosimètre: " & $Teledosimetre_1_Name)
MsgBox($MB_SYSTEMMODAL, "", "Depuis :" & $Teledosimetre_1_Time)

WinWaitClose($hWnd)

EndFunc ;==>Example

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>

$ParentTitle = 'SkyDose Check Up Sniffer'
$ChildTitle = 'SKYDOSE CHECK-UP'
$ChildFile = 'SKYDOSE_CHECK_UP.exe'

Run($ChildFile)
WinWaitActive($ChildTitle,"")
$hWnd = WinGetHandle($ChildTitle,"")
$btn1 = _GUICtrlButton_Create($hWnd, "Sniffer", 20, 550, 100, 50, $BS_PUSHLIKE)

While 1
$msg=GUIGetMsg()
Select
case $msg = $btn1
MsgBox(0,0,"Test worked")
Case $msg = $btn1
WinWaitClose($hWnd)
Exit
Case $msg = $GUI_EVENT_CLOSE
WinWaitClose($hWnd)
Exit
case Else
EndSelect
WEnd
Exit

#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <TreeViewConstants.au3>
#include <GuiButton.au3>

Global Const $WM_MOVE = 0x0003

$ParentTitle = 'SkyDose Check Up Sniffer'
$ChildTitle = 'SKYDOSE CHECK-UP'
$ChildFile = 'SKYDOSE_CHECK_UP.exe'

$gui1 = GUICreate ("gui1" , 800 , 150, 400, 400)

GUISetState ()
$a = WinGetPos ($gui1)
;~ $gui2 = GUICreate ("gui2" , 250 , 80, $a[0]-250, $a[1])
Run("SKYDOSE_CHECK_UP.exe")

Local $gui2 = WinWaitActive("[TITLE:SKYDOSE CHECK-UP]", "")

$hWnd = WinGetHandle($ChildTitle,"")
$btn1 = _GUICtrlButton_Create($hWnd, "Historique", 20, 550, 100, 20, $BS_PUSHLIKE)

$exit = GUICtrlCreateButton ("Exit" , 1 , 130 ,100,20)
GUISetState ()

Local $Teledosimetre_1_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:7]")
Local $Teledosimetre_2_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:9]")
Local $Teledosimetre_3_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:10]")
Local $Teledosimetre_4_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:8]")
Local $Teledosimetre_5_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:6]")
Local $Teledosimetre_6_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:5]")
Local $Teledosimetre_7_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:4]")
Local $Teledosimetre_8_Name = ControlGetText($gui2, "", "[CLASS:WindowsForms10.EDIT.app.0.378734a; INSTANCE:3]")

Local $Teledosimetre_1_Time = ControlGetText($gui2, "", "[NAME:labelMAJ1]")
Local $Teledosimetre_2_Time = ControlGetText($gui2, "", "[NAME:labelMAJ2]")
Local $Teledosimetre_3_Time = ControlGetText($gui2, "", "[NAME:labelMAJ3]")
Local $Teledosimetre_4_Time = ControlGetText($gui2, "", "[NAME:labelMAJ4]")
Local $Teledosimetre_5_Time = ControlGetText($gui2, "", "[NAME:labelMAJ5]")
Local $Teledosimetre_6_Time = ControlGetText($gui2, "", "[NAME:labelMAJ6]")
Local $Teledosimetre_7_Time = ControlGetText($gui2, "", "[NAME:labelMAJ7]")
Local $Teledosimetre_8_Time = ControlGetText($gui2, "", "[NAME:labelMAJ8]")

Local $Teledosimetre_1_dB = ControlGetText($gui2, "", "[NAME:labeldB1]")
Local $Teledosimetre_2_dB = ControlGetText($gui2, "", "[NAME:labeldB2]")
Local $Teledosimetre_3_dB = ControlGetText($gui2, "", "[NAME:labeldB3]")
Local $Teledosimetre_4_dB = ControlGetText($gui2, "", "[NAME:labeldB4]")
Local $Teledosimetre_5_dB = ControlGetText($gui2, "", "[NAME:labeldB5]")
Local $Teledosimetre_6_dB = ControlGetText($gui2, "", "[NAME:labeldB6]")
Local $Teledosimetre_7_dB = ControlGetText($gui2, "", "[NAME:labeldB7]")
Local $Teledosimetre_8_dB = ControlGetText($gui2, "", "[NAME:labeldB8]")

$Teledosimetre_1 = 'Télédosimètre 1 n°: ' & $Teledosimetre_1_Name &' '& $Teledosimetre_1_Time &' Mesuré à: '& $Teledosimetre_1_dB
$Teledosimetre_2 = 'Télédosimètre 2 n°: ' & $Teledosimetre_2_Name &' '& $Teledosimetre_2_Time &' Mesuré à: '& $Teledosimetre_2_dB
$Teledosimetre_3 = 'Télédosimètre 3 n°: ' & $Teledosimetre_3_Name &' '& $Teledosimetre_3_Time &' Mesuré à: '& $Teledosimetre_3_dB
$Teledosimetre_4 = 'Télédosimètre 4 n°: ' & $Teledosimetre_4_Name &' '& $Teledosimetre_4_Time &' Mesuré à: '& $Teledosimetre_4_dB
$Teledosimetre_5 = 'Télédosimètre 5 n°: ' & $Teledosimetre_5_Name &' '& $Teledosimetre_5_Time &' Mesuré à: '& $Teledosimetre_5_dB
$Teledosimetre_6 = 'Télédosimètre 6 n°: ' & $Teledosimetre_6_Name &' '& $Teledosimetre_6_Time &' Mesuré à: '& $Teledosimetre_6_dB
$Teledosimetre_7 = 'Télédosimètre 7 n°: ' & $Teledosimetre_7_Name &' '& $Teledosimetre_7_Time &' Mesuré à: '& $Teledosimetre_7_dB
$Teledosimetre_8 = 'Télédosimètre 8 n°: ' & $Teledosimetre_8_Name &' '& $Teledosimetre_8_Time &' Mesuré à: '& $Teledosimetre_8_dB

;~ MsgBox($MB_SYSTEMMODAL, "", $Teledosimetre_1)

#Region TAB
GUICtrlCreateTab(1, 1, 800, 130)
GUICtrlCreateTabItem("1")
GUICtrlCreateLabel($Teledosimetre_1, 10, 40)
GUICtrlCreateTabItem("2")
GUICtrlCreateLabel($Teledosimetre_2, 10, 40)
GUICtrlCreateTabItem("3")
GUICtrlCreateLabel($Teledosimetre_3, 10, 40)
GUICtrlCreateTabItem("4")
GUICtrlCreateLabel($Teledosimetre_4, 10, 40)
GUICtrlCreateTabItem("5")
GUICtrlCreateLabel($Teledosimetre_5, 10, 40)
GUICtrlCreateTabItem("6")
GUICtrlCreateLabel($Teledosimetre_6, 10, 40)
GUICtrlCreateTabItem("7")
GUICtrlCreateLabel($Teledosimetre_7, 10, 40)
GUICtrlCreateTabItem("8")
GUICtrlCreateLabel($Teledosimetre_8, 10, 40)
GUICtrlCreateTabItem("")
#EndRegion TAB

GUIRegisterMsg ($WM_MOVE, "Move")
While 1
$msg = GUIGetMsg ()
Select
Case $msg = $exit
WinWaitClose($gui2)
Exit
Case $msg = $GUI_EVENT_CLOSE
WinWaitClose($gui2)
Exit
EndSelect
WEnd

Func Move ($hWnd, $Msg, $wParam, $lParam)
If $hWnd <> $gui1 Then
$get = WinGetPos ($gui2)
$size = WinGetClientSize ($gui2)
$size2 = WinGetClientSize ($gui1)
WinMove ($gui1, "", $get[0]+$size[0], $get[1])
Else
$get = WinGetPos ($gui1)
$size = WinGetClientSize ($gui1)
$size2 = WinGetClientSize ($gui2)
WinMove ($gui2, "", $get[0]-$size[0], $get[1])
EndIf
EndFunc