J'aurai une petite question, je travail sur un petit projet et mon idée serai comme son nom l'indique,
de pouvoir envoyer différent message entre les programmes pour que ceux-ci puisse se synchroniser.
Je vais vous donner un petit exemple pour vous donner une idée plus clair:
Programme 1 et 2 écrivent chacun un mail, Statuts dans leur l'edit: "Mail en cours"
une fois le mail envoyer statuts: "Envoyer"
Programme 3 et 4 une fois que le statuts des 1 et 2 est écris: "Envoyer"
ils vont vérifier l'adresse mail que je leur ai fournis, attendre la réception du mail pour y répondre et transféré un message et au programmes 4 et 5 et ainsi de suite.
Je me doute qu'il y a beaucoup plus simple a faire,
mais se qui m'intéresse dans ce cas c'est plutôt la communication entre plusieurs programme via une seul interface.
J'ai trouver différent script qui m'aiderait a faire cela, mais il interagissent entre différents GUI alors que j'aimerai pouvoir n'en utiliser qu'un seul.
Exemple de se que j'ai pu trouver:
► Afficher le texte
AppInteract:
Script1:
Script2:
► Afficher le texte
#include-once
#include <APIConstants.au3>
#include <WinAPIProc.au3>
#include <WinAPIMem.au3>
#include <WinAPISysWin.au3>
#CS History:
v0.5
* Removed 1024 bytes limitation (thanks to Danyfirex).
* Now the return data can be any type of data except 3D (or higher) arrays, objects and structures.
* Changed return values on @error in _AppInteract_Send.
* Better error handling.
v0.4
+ Added x64 support.
+ Added more examples (Thanks to Vanguger for Example #3).
* Now sent data can be any type of data except 3D (or higher) arrays, objects and structures.
* Now the option to return data back from the receiver is more reliable.
* _AppInteract_Send now returns only string data type (up to 1024 bytes) from the receiver.
- Removed $sRetAppName parameter from _AppInteract_Send function due to change of return method.
v0.3
+ Added option to return from the receiver back to the sent process.
+ For the return option, added optional parameter $sRetAppName to _AppInteract_Send function.
* Minor corrections.
+ Added examples to show how the _AppInteract_Send can get the return.
v0.2
* Better interaction in both ways.
+ Added $sCmdLine optional parameter to check executable command line.
* Examples changed.
v0.1
* First public version.
#CE
; #INDEX# =======================================================================================================================
; Title .........: AppInteract UDF
; AutoIt Version : 3.3.14.5
; Description ...: Allows to interact between two processes.
; Note(s) .......: * This UDF registers $WM_COPYDATA, if you or other UDF uses this message,
; __AppInteract_WM_COPYDATA($hWnd, $iMsg, $wParam, $lParam) should be called from that other message function.
; * Do not use any delay functions inside the receiver function, the return must be as soon as possible.
; Author(s) .....: Copyright © 2020 G.Sandler. All rights reserved.
; Dll ...........: user32.dll
; ===============================================================================================================================
; #CURRENT# =====================================================================================================================
; _AppInteract_SetReceiver
; _AppInteract_Send
; ===============================================================================================================================
Global Const $tagCOPYDATASTRUCT = 'ulong_ptr dwData;dword cbData;ptr lpData'
Global Const $APPINTRCT_VRNT_ROW_SEP = '~APPINTRCT_UNIQUE_ROW_SEPARATOR~'
Global Const $APPINTRCT_VRNT_COL_SEP = '~APPINTRCT_UNIQUE_COL_SEPARATOR~'
Global Const $APPINTRCT_VAR_TYPES = __AppInteract_Variant_GetTypes()
Global $APPINTRCT_HWND
Global $APPINTRCT_RECEIVER
; #FUNCTION# ====================================================================================================================
; Name ..........: _AppInteract_SetReceiver
; Description ...: Sets receiver for current script.
; Syntax ........: _AppInteract_SetReceiver($sAppName, $sFuncName)
; Parameters ....: $sAppName - Your application Unique name.
; $sFuncName - Function name to call once the data received.
; This function accepts only one parameter with the received data.
; Return values .: None
; Author ........: G.Sandler
; Modified ......:
; Remarks .......: * Do not use any delay functions inside the $sFuncName function, the return must be as soon as possible.
; * If #RequireAdmin used in the receiver, it should be used in the sender as well!
; Related .......: _AppInteract_Send
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _AppInteract_SetReceiver($sAppName, $sFuncName)
If Not IsHWnd($APPINTRCT_HWND) Then
$APPINTRCT_HWND = GUICreate($sAppName)
GUIRegisterMsg($WM_COPYDATA, '__AppInteract_WM_COPYDATA')
EndIf
$APPINTRCT_RECEIVER = $sFuncName
EndFunc
; #FUNCTION# ====================================================================================================================
; Name ..........: _AppInteract_Send
; Description ...: Sends data to the receiver.
; Syntax ........: _AppInteract_Send($sAppName, $vData[, $sPath = '' [, $sCmdLine = '']])
; Parameters ....: $sAppName - Application Unique name that receives the data.
; Should be the same as used in the _AppInteract_SetReceiver function.
; $vData - Data to send, can be any type of data except 3D (or higher) arrays, objects and structures.
; $sPath - [optional] Path to script executable to check.
; Default is '' - do not check application path (less reliable).
; $sCmdLine - [optional] Executable command line to check (partial check).
; Default is '' - do not check for command line (less reliable).
; Return values .: Success: Returns the data from the receiver.
; Failure: Returns 0 and sets @error flag to non-zero:
; 1 - Window handle of the receiver not found.
; 2 - Unable to send data (SendMessage error).
; -1 - $vData is not supported data type.
; Author ........: G.Sandler
; Modified ......:
; Remarks .......: If #RequireAdmin used in the receiver, it should be used in the sender as well!
; Related .......: _AppInteract_SetReceiver
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _AppInteract_Send($sAppName, $vData, $sPath = '', $sCmdLine = '')
If Not __AppInteract_Variant_IsSupportedType($vData) Then
Return SetError(-1, 0, 0)
EndIf
Local $hWnd, $tPtr, $tData, $tCopyData, $aRet, $pData, $tSize, $stStr
$hWnd = __AppInteract_GetHwnd($sAppName, $sPath, $sCmdLine)
If @error Then
Return SetError(1, 0, 0)
EndIf
$vData = __AppInteract_Variant_Pack($vData)
$tPtr = DllStructCreate('ptr pData') ;Pointer for reading vRet Value
$tData = DllStructCreate('Ptr pReturn;long iPID;wchar sData[' & (StringLen($vData) + 1) & ']')
DllStructSetData($tData, 'pReturn', DllStructGetPtr($tPtr))
DllStructSetData($tData, 'iPID', @AutoItPID) ;Pid for write memory
DllStructSetData($tData, 'sData', $vData) ;Data to Send
$tCopyData = DllStructCreate($tagCOPYDATASTRUCT)
DllStructSetData($tCopyData, 'cbData', DllStructGetSize($tData))
DllStructSetData($tCopyData, 'lpData', DllStructGetPtr($tData))
$aRet = DllCall('user32.dll', 'lresult', 'SendMessage', 'hwnd', $hWnd, 'uint', $WM_COPYDATA, 'ptr', 0, 'ptr', DllStructGetPtr($tCopyData))
If @error Then
Return SetError(2, 0, 0)
EndIf
$pData = Ptr(DllStructGetData($tPtr, 'pData'))
$tSize = __AppInteract_ReadProcessMemory(WinGetProcess($hWnd), $pData, 'long iSize')
$stStr = __AppInteract_ReadProcessMemory(WinGetProcess($hWnd), $pData + 4, 'wchar sStr[' & DllStructGetData($tSize, 'iSize') & ']')
Return __AppInteract_Variant_UnPack(DllStructGetData($stStr, 'sStr'))
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_GetHwnd
; Description ...: Gets receiver window.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_GetHwnd($sAppName, $sPath, $sCmdLine)
Local $aWinList, $iPID, $bVisible, $bPath, $bCmdLine, $hWnd = 0
Local $sTitle = '[CLASS:AutoIt v3 GUI;TITLE:' & $sAppName & ']'
If IsHWnd($sAppName) Then
$hWnd = $sAppName
Else
$aWinList = WinList($sTitle)
For $i = 1 To UBound($aWinList) - 1
$iPID = WinGetProcess($aWinList[$i][1])
$bVisible = (BitAND(WinGetState($aWinList[$i][1]), $WIN_STATE_VISIBLE) = $WIN_STATE_VISIBLE)
$bPath = (StringStripWS($sPath, 8) = '' Or $sPath = _WinAPI_GetProcessFileName($iPID))
$bCmdLine = (StringStripWS($sCmdLine, 8) = '' Or StringInStr(_WinAPI_GetProcessCommandLine($iPID), $sCmdLine))
If (@AutoItPID <> $iPID) And Not $bVisible And $bPath And $bCmdLine Then
$hWnd = $aWinList[$i][1]
ExitLoop
EndIf
Next
EndIf
If Not $hWnd Then
$hWnd = WinGetHandle($sTitle)
EndIf
Return SetError((IsHWnd($hWnd) ? 0 : 1), 0, $hWnd)
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_ReadProcessMemory
; Description ...: Reads process memory by pointer and returns structure.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_ReadProcessMemory($iPID, $pPointer, $sStructTag)
Local $hProcess, $stStruct, $iSize, $pStruct, $iRead
$hProcess = _WinAPI_OpenProcess($PROCESS_ALL_ACCESS, False, $iPID)
If @error Then Return SetError(@error, 1, 0)
$stStruct = DllStructCreate($sStructTag)
$iSize = DllStructGetSize($stStruct)
$pStruct = DllStructGetPtr($stStruct)
_WinAPI_ReadProcessMemory($hProcess, $pPointer, $pStruct, $iSize, $iRead)
_WinAPI_CloseHandle($hProcess)
Return SetError(@error, $iRead, $stStruct)
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_WriteProcessMemoryPtr
; Description ...: Writes to process memory by pointer.
; Author ........: Danyfirex (mod. by G.Sandler)
; ===============================================================================================================================
Func __AppInteract_WriteProcessMemoryPtr($iPID, $pPointer, $ptPtr)
Local $hProcess, $stData, $iSize, $pData, $bWrite, $iWriten
$hProcess = _WinAPI_OpenProcess($PROCESS_ALL_ACCESS, False, $iPID)
If @error Then Return SetError(@error, 1, 0)
$stData = DllStructCreate('ptr pData')
$iSize = DllStructGetSize($stData)
$pData = DllStructGetPtr($stData)
DllStructSetData($stData, 'pData', $ptPtr)
$bWrite = _WinAPI_WriteProcessMemory($hProcess, $pPointer, $pData, $iSize, $iWriten)
_WinAPI_CloseHandle($hProcess)
Return SetError(@error, $iWriten, $bWrite)
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_WM_COPYDATA
; Description ...: Interaction handler.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_WM_COPYDATA($hWnd, $iMsg, $wParam, $lParam)
If $hWnd <> $APPINTRCT_HWND Then
Return 'GUI_RUNDEFMSG'
EndIf
Local $tCopyData, $tData, $sStr, $vRet, $iLen
Local Static $stStr
$tCopyData = DllStructCreate($tagCOPYDATASTRUCT, $lParam)
$tData = DllStructCreate('Ptr pReturn;long iPID;wchar sData[' & (DllStructGetData($tCopyData, 'cbData') - (@AutoItX64 ? 12 : 8)) & ']', DllStructGetData($tCopyData, 'lpData'))
$sStr = __AppInteract_Variant_UnPack(DllStructGetData($tData, 'sData'))
$vRet = Call($APPINTRCT_RECEIVER, $sStr)
$vRet = __AppInteract_Variant_Pack($vRet)
If @error Then
Return 'GUI_RUNDEFMSG'
EndIf
$iLen = (StringLen($vRet) + 1)
$stStr = DllStructCreate('long iSize;wchar sStr[' & $iLen & ']')
DllStructSetData($stStr, 'iSize', $iLen)
DllStructSetData($stStr, 'sStr', $vRet)
Return __AppInteract_WriteProcessMemoryPtr(DllStructGetData($tData, 'iPID'), DllStructGetData($tData, 'pReturn'), DllStructGetPtr($stStr))
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_Pack
; Description ...: Pack variable to string.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_Pack($vData)
If Not __AppInteract_Variant_IsSupportedType($vData) Then
Return SetError(1, 0, $vData)
EndIf
Local $sVarType = VarGetType($vData)
If $sVarType <> 'Array' Then
If $sVarType = 'Ptr' And HWnd($vData) Then
Return '[HWnd]' & String($vData)
EndIf
If $sVarType = 'Function' Or $sVarType = 'UserFunction' Then
$vData = FuncName($vData)
EndIf
Return '[' & $sVarType & ']' & String($vData)
EndIf
Local $sRet = ''
Local $iDim = UBound($vData, $UBOUND_DIMENSIONS)
Switch $iDim
Case 1
For $iRow = 0 To UBound($vData, $UBOUND_ROWS) - 1
$sRet &= ($sRet ? $APPINTRCT_VRNT_ROW_SEP : '') & __AppInteract_Variant_Pack($vData[$iRow])
Next
Case 2
For $iRow = 0 To UBound($vData, $UBOUND_ROWS) - 1
$sRet &= ($iRow ? $APPINTRCT_VRNT_COL_SEP : '')
For $iCol = 0 To UBound($vData, $UBOUND_COLUMNS) - 1
$sRet &= ($iCol ? $APPINTRCT_VRNT_ROW_SEP : '') & __AppInteract_Variant_Pack($vData[$iRow][$iCol])
Next
Next
EndSwitch
Return '[Array,' & $iDim & ']' & $sRet
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_UnPack
; Description ...: UnPack string to variable (preserving data types).
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_UnPack($sData)
If Not __AppInteract_Variant_IsSupportedType($sData) Then
Return SetError(1, 0, $sData)
EndIf
Local $aData = StringRegExp($sData, '(?s)^\[((?:' & $APPINTRCT_VAR_TYPES & ')(?:,\d)?)\](.*)$', 1)
If UBound($aData) < 2 Then
Return $sData
EndIf
Local $vRet = $aData[1]
Local $iDim = Int(StringRegExpReplace($aData[0], '^.*,(\d)$', '\1'))
If $iDim Then
$aData[0] = StringTrimRight($aData[0], 2) ;Remove array dimension
EndIf
Switch $aData[0]
Case 'Int32', 'Int64', 'Double'
$vRet = Number($aData[1])
Case 'Bool'
$vRet = ($aData[1] = 'True')
Case 'String', 'Binary', 'Ptr', 'HWnd'
Local $hFunc = Execute($aData[0])
$vRet = $hFunc($aData[1])
Case 'Keyword'
$vRet = ($aData[1] = 'Default' ? Default : Null)
Case 'Function', 'UserFunction'
$vRet = Execute($aData[1])
Case 'Array'
Switch $iDim
Case 1
$vRet = StringSplit($aData[1], $APPINTRCT_VRNT_ROW_SEP, BitOR($STR_ENTIRESPLIT, $STR_NOCOUNT))
For $i = 0 To UBound($vRet, $UBOUND_ROWS) - 1
$vRet[$i] = __AppInteract_Variant_UnPack($vRet[$i])
Next
Case 2
Local $aRows = StringSplit($aData[1], $APPINTRCT_VRNT_COL_SEP, BitOR($STR_ENTIRESPLIT, $STR_NOCOUNT))
Local $iRows = UBound($aRows, $UBOUND_ROWS)
Local $iCols
Dim $vRet[$iRows][1]
For $iRow = 0 To $iRows - 1
$aCols = StringSplit($aRows[$iRow], $APPINTRCT_VRNT_ROW_SEP, BitOR($STR_ENTIRESPLIT, $STR_NOCOUNT))
$iCols = UBound($aCols, $UBOUND_ROWS)
ReDim $vRet[$iRows][$iCols]
For $iCol = 0 To $iCols - 1
$vRet[$iRow][$iCol] = __AppInteract_Variant_UnPack($aCols[$iCol])
Next
Next
EndSwitch
EndSwitch
Return $vRet
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_IsSupportedType
; Description ...: Checks if a given data is supported data type.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_IsSupportedType($vData)
Switch VarGetType($vData)
Case 'Array'
If UBound($vData, $UBOUND_DIMENSIONS) > 2 Then
Return False
EndIf
Case 'Object', 'DllStruct'
Return False
EndSwitch
Return True
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_GetTypes
; Description ...: Gets all(?) AutoIt variable types.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_GetTypes($bArr = False)
Local $aVars[] = _
[ _
StringSplit('', ''), Binary('0'), True, Ptr(-1), WinGetHandle(''), 1, DllStructSetData(DllStructCreate('int64'), 1, 1), 2.0, _
ObjCreate('Scripting.Dictionary'), 'a', DllStructCreate('int'), Default, Int, __AppInteract_Variant_GetTypes _
]
Local $sType, $sTypes = ''
For $i = 0 To UBound($aVars) - 1
$sType = VarGetType($aVars[$i])
$sTypes &= ($sTypes ? '|' : '') & (($sType = 'Ptr' And HWnd($aVars[$i])) ? 'HWnd' : $sType)
$aVars[$i] = 0
Next
If $bArr Then
$sTypes = StringSplit($sTypes, '|')
EndIf
Return $sTypes
EndFunc
#include <APIConstants.au3>
#include <WinAPIProc.au3>
#include <WinAPIMem.au3>
#include <WinAPISysWin.au3>
#CS History:
v0.5
* Removed 1024 bytes limitation (thanks to Danyfirex).
* Now the return data can be any type of data except 3D (or higher) arrays, objects and structures.
* Changed return values on @error in _AppInteract_Send.
* Better error handling.
v0.4
+ Added x64 support.
+ Added more examples (Thanks to Vanguger for Example #3).
* Now sent data can be any type of data except 3D (or higher) arrays, objects and structures.
* Now the option to return data back from the receiver is more reliable.
* _AppInteract_Send now returns only string data type (up to 1024 bytes) from the receiver.
- Removed $sRetAppName parameter from _AppInteract_Send function due to change of return method.
v0.3
+ Added option to return from the receiver back to the sent process.
+ For the return option, added optional parameter $sRetAppName to _AppInteract_Send function.
* Minor corrections.
+ Added examples to show how the _AppInteract_Send can get the return.
v0.2
* Better interaction in both ways.
+ Added $sCmdLine optional parameter to check executable command line.
* Examples changed.
v0.1
* First public version.
#CE
; #INDEX# =======================================================================================================================
; Title .........: AppInteract UDF
; AutoIt Version : 3.3.14.5
; Description ...: Allows to interact between two processes.
; Note(s) .......: * This UDF registers $WM_COPYDATA, if you or other UDF uses this message,
; __AppInteract_WM_COPYDATA($hWnd, $iMsg, $wParam, $lParam) should be called from that other message function.
; * Do not use any delay functions inside the receiver function, the return must be as soon as possible.
; Author(s) .....: Copyright © 2020 G.Sandler. All rights reserved.
; Dll ...........: user32.dll
; ===============================================================================================================================
; #CURRENT# =====================================================================================================================
; _AppInteract_SetReceiver
; _AppInteract_Send
; ===============================================================================================================================
Global Const $tagCOPYDATASTRUCT = 'ulong_ptr dwData;dword cbData;ptr lpData'
Global Const $APPINTRCT_VRNT_ROW_SEP = '~APPINTRCT_UNIQUE_ROW_SEPARATOR~'
Global Const $APPINTRCT_VRNT_COL_SEP = '~APPINTRCT_UNIQUE_COL_SEPARATOR~'
Global Const $APPINTRCT_VAR_TYPES = __AppInteract_Variant_GetTypes()
Global $APPINTRCT_HWND
Global $APPINTRCT_RECEIVER
; #FUNCTION# ====================================================================================================================
; Name ..........: _AppInteract_SetReceiver
; Description ...: Sets receiver for current script.
; Syntax ........: _AppInteract_SetReceiver($sAppName, $sFuncName)
; Parameters ....: $sAppName - Your application Unique name.
; $sFuncName - Function name to call once the data received.
; This function accepts only one parameter with the received data.
; Return values .: None
; Author ........: G.Sandler
; Modified ......:
; Remarks .......: * Do not use any delay functions inside the $sFuncName function, the return must be as soon as possible.
; * If #RequireAdmin used in the receiver, it should be used in the sender as well!
; Related .......: _AppInteract_Send
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _AppInteract_SetReceiver($sAppName, $sFuncName)
If Not IsHWnd($APPINTRCT_HWND) Then
$APPINTRCT_HWND = GUICreate($sAppName)
GUIRegisterMsg($WM_COPYDATA, '__AppInteract_WM_COPYDATA')
EndIf
$APPINTRCT_RECEIVER = $sFuncName
EndFunc
; #FUNCTION# ====================================================================================================================
; Name ..........: _AppInteract_Send
; Description ...: Sends data to the receiver.
; Syntax ........: _AppInteract_Send($sAppName, $vData[, $sPath = '' [, $sCmdLine = '']])
; Parameters ....: $sAppName - Application Unique name that receives the data.
; Should be the same as used in the _AppInteract_SetReceiver function.
; $vData - Data to send, can be any type of data except 3D (or higher) arrays, objects and structures.
; $sPath - [optional] Path to script executable to check.
; Default is '' - do not check application path (less reliable).
; $sCmdLine - [optional] Executable command line to check (partial check).
; Default is '' - do not check for command line (less reliable).
; Return values .: Success: Returns the data from the receiver.
; Failure: Returns 0 and sets @error flag to non-zero:
; 1 - Window handle of the receiver not found.
; 2 - Unable to send data (SendMessage error).
; -1 - $vData is not supported data type.
; Author ........: G.Sandler
; Modified ......:
; Remarks .......: If #RequireAdmin used in the receiver, it should be used in the sender as well!
; Related .......: _AppInteract_SetReceiver
; Link ..........:
; Example .......: Yes
; ===============================================================================================================================
Func _AppInteract_Send($sAppName, $vData, $sPath = '', $sCmdLine = '')
If Not __AppInteract_Variant_IsSupportedType($vData) Then
Return SetError(-1, 0, 0)
EndIf
Local $hWnd, $tPtr, $tData, $tCopyData, $aRet, $pData, $tSize, $stStr
$hWnd = __AppInteract_GetHwnd($sAppName, $sPath, $sCmdLine)
If @error Then
Return SetError(1, 0, 0)
EndIf
$vData = __AppInteract_Variant_Pack($vData)
$tPtr = DllStructCreate('ptr pData') ;Pointer for reading vRet Value
$tData = DllStructCreate('Ptr pReturn;long iPID;wchar sData[' & (StringLen($vData) + 1) & ']')
DllStructSetData($tData, 'pReturn', DllStructGetPtr($tPtr))
DllStructSetData($tData, 'iPID', @AutoItPID) ;Pid for write memory
DllStructSetData($tData, 'sData', $vData) ;Data to Send
$tCopyData = DllStructCreate($tagCOPYDATASTRUCT)
DllStructSetData($tCopyData, 'cbData', DllStructGetSize($tData))
DllStructSetData($tCopyData, 'lpData', DllStructGetPtr($tData))
$aRet = DllCall('user32.dll', 'lresult', 'SendMessage', 'hwnd', $hWnd, 'uint', $WM_COPYDATA, 'ptr', 0, 'ptr', DllStructGetPtr($tCopyData))
If @error Then
Return SetError(2, 0, 0)
EndIf
$pData = Ptr(DllStructGetData($tPtr, 'pData'))
$tSize = __AppInteract_ReadProcessMemory(WinGetProcess($hWnd), $pData, 'long iSize')
$stStr = __AppInteract_ReadProcessMemory(WinGetProcess($hWnd), $pData + 4, 'wchar sStr[' & DllStructGetData($tSize, 'iSize') & ']')
Return __AppInteract_Variant_UnPack(DllStructGetData($stStr, 'sStr'))
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_GetHwnd
; Description ...: Gets receiver window.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_GetHwnd($sAppName, $sPath, $sCmdLine)
Local $aWinList, $iPID, $bVisible, $bPath, $bCmdLine, $hWnd = 0
Local $sTitle = '[CLASS:AutoIt v3 GUI;TITLE:' & $sAppName & ']'
If IsHWnd($sAppName) Then
$hWnd = $sAppName
Else
$aWinList = WinList($sTitle)
For $i = 1 To UBound($aWinList) - 1
$iPID = WinGetProcess($aWinList[$i][1])
$bVisible = (BitAND(WinGetState($aWinList[$i][1]), $WIN_STATE_VISIBLE) = $WIN_STATE_VISIBLE)
$bPath = (StringStripWS($sPath, 8) = '' Or $sPath = _WinAPI_GetProcessFileName($iPID))
$bCmdLine = (StringStripWS($sCmdLine, 8) = '' Or StringInStr(_WinAPI_GetProcessCommandLine($iPID), $sCmdLine))
If (@AutoItPID <> $iPID) And Not $bVisible And $bPath And $bCmdLine Then
$hWnd = $aWinList[$i][1]
ExitLoop
EndIf
Next
EndIf
If Not $hWnd Then
$hWnd = WinGetHandle($sTitle)
EndIf
Return SetError((IsHWnd($hWnd) ? 0 : 1), 0, $hWnd)
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_ReadProcessMemory
; Description ...: Reads process memory by pointer and returns structure.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_ReadProcessMemory($iPID, $pPointer, $sStructTag)
Local $hProcess, $stStruct, $iSize, $pStruct, $iRead
$hProcess = _WinAPI_OpenProcess($PROCESS_ALL_ACCESS, False, $iPID)
If @error Then Return SetError(@error, 1, 0)
$stStruct = DllStructCreate($sStructTag)
$iSize = DllStructGetSize($stStruct)
$pStruct = DllStructGetPtr($stStruct)
_WinAPI_ReadProcessMemory($hProcess, $pPointer, $pStruct, $iSize, $iRead)
_WinAPI_CloseHandle($hProcess)
Return SetError(@error, $iRead, $stStruct)
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_WriteProcessMemoryPtr
; Description ...: Writes to process memory by pointer.
; Author ........: Danyfirex (mod. by G.Sandler)
; ===============================================================================================================================
Func __AppInteract_WriteProcessMemoryPtr($iPID, $pPointer, $ptPtr)
Local $hProcess, $stData, $iSize, $pData, $bWrite, $iWriten
$hProcess = _WinAPI_OpenProcess($PROCESS_ALL_ACCESS, False, $iPID)
If @error Then Return SetError(@error, 1, 0)
$stData = DllStructCreate('ptr pData')
$iSize = DllStructGetSize($stData)
$pData = DllStructGetPtr($stData)
DllStructSetData($stData, 'pData', $ptPtr)
$bWrite = _WinAPI_WriteProcessMemory($hProcess, $pPointer, $pData, $iSize, $iWriten)
_WinAPI_CloseHandle($hProcess)
Return SetError(@error, $iWriten, $bWrite)
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_WM_COPYDATA
; Description ...: Interaction handler.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_WM_COPYDATA($hWnd, $iMsg, $wParam, $lParam)
If $hWnd <> $APPINTRCT_HWND Then
Return 'GUI_RUNDEFMSG'
EndIf
Local $tCopyData, $tData, $sStr, $vRet, $iLen
Local Static $stStr
$tCopyData = DllStructCreate($tagCOPYDATASTRUCT, $lParam)
$tData = DllStructCreate('Ptr pReturn;long iPID;wchar sData[' & (DllStructGetData($tCopyData, 'cbData') - (@AutoItX64 ? 12 : 8)) & ']', DllStructGetData($tCopyData, 'lpData'))
$sStr = __AppInteract_Variant_UnPack(DllStructGetData($tData, 'sData'))
$vRet = Call($APPINTRCT_RECEIVER, $sStr)
$vRet = __AppInteract_Variant_Pack($vRet)
If @error Then
Return 'GUI_RUNDEFMSG'
EndIf
$iLen = (StringLen($vRet) + 1)
$stStr = DllStructCreate('long iSize;wchar sStr[' & $iLen & ']')
DllStructSetData($stStr, 'iSize', $iLen)
DllStructSetData($stStr, 'sStr', $vRet)
Return __AppInteract_WriteProcessMemoryPtr(DllStructGetData($tData, 'iPID'), DllStructGetData($tData, 'pReturn'), DllStructGetPtr($stStr))
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_Pack
; Description ...: Pack variable to string.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_Pack($vData)
If Not __AppInteract_Variant_IsSupportedType($vData) Then
Return SetError(1, 0, $vData)
EndIf
Local $sVarType = VarGetType($vData)
If $sVarType <> 'Array' Then
If $sVarType = 'Ptr' And HWnd($vData) Then
Return '[HWnd]' & String($vData)
EndIf
If $sVarType = 'Function' Or $sVarType = 'UserFunction' Then
$vData = FuncName($vData)
EndIf
Return '[' & $sVarType & ']' & String($vData)
EndIf
Local $sRet = ''
Local $iDim = UBound($vData, $UBOUND_DIMENSIONS)
Switch $iDim
Case 1
For $iRow = 0 To UBound($vData, $UBOUND_ROWS) - 1
$sRet &= ($sRet ? $APPINTRCT_VRNT_ROW_SEP : '') & __AppInteract_Variant_Pack($vData[$iRow])
Next
Case 2
For $iRow = 0 To UBound($vData, $UBOUND_ROWS) - 1
$sRet &= ($iRow ? $APPINTRCT_VRNT_COL_SEP : '')
For $iCol = 0 To UBound($vData, $UBOUND_COLUMNS) - 1
$sRet &= ($iCol ? $APPINTRCT_VRNT_ROW_SEP : '') & __AppInteract_Variant_Pack($vData[$iRow][$iCol])
Next
Next
EndSwitch
Return '[Array,' & $iDim & ']' & $sRet
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_UnPack
; Description ...: UnPack string to variable (preserving data types).
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_UnPack($sData)
If Not __AppInteract_Variant_IsSupportedType($sData) Then
Return SetError(1, 0, $sData)
EndIf
Local $aData = StringRegExp($sData, '(?s)^\[((?:' & $APPINTRCT_VAR_TYPES & ')(?:,\d)?)\](.*)$', 1)
If UBound($aData) < 2 Then
Return $sData
EndIf
Local $vRet = $aData[1]
Local $iDim = Int(StringRegExpReplace($aData[0], '^.*,(\d)$', '\1'))
If $iDim Then
$aData[0] = StringTrimRight($aData[0], 2) ;Remove array dimension
EndIf
Switch $aData[0]
Case 'Int32', 'Int64', 'Double'
$vRet = Number($aData[1])
Case 'Bool'
$vRet = ($aData[1] = 'True')
Case 'String', 'Binary', 'Ptr', 'HWnd'
Local $hFunc = Execute($aData[0])
$vRet = $hFunc($aData[1])
Case 'Keyword'
$vRet = ($aData[1] = 'Default' ? Default : Null)
Case 'Function', 'UserFunction'
$vRet = Execute($aData[1])
Case 'Array'
Switch $iDim
Case 1
$vRet = StringSplit($aData[1], $APPINTRCT_VRNT_ROW_SEP, BitOR($STR_ENTIRESPLIT, $STR_NOCOUNT))
For $i = 0 To UBound($vRet, $UBOUND_ROWS) - 1
$vRet[$i] = __AppInteract_Variant_UnPack($vRet[$i])
Next
Case 2
Local $aRows = StringSplit($aData[1], $APPINTRCT_VRNT_COL_SEP, BitOR($STR_ENTIRESPLIT, $STR_NOCOUNT))
Local $iRows = UBound($aRows, $UBOUND_ROWS)
Local $iCols
Dim $vRet[$iRows][1]
For $iRow = 0 To $iRows - 1
$aCols = StringSplit($aRows[$iRow], $APPINTRCT_VRNT_ROW_SEP, BitOR($STR_ENTIRESPLIT, $STR_NOCOUNT))
$iCols = UBound($aCols, $UBOUND_ROWS)
ReDim $vRet[$iRows][$iCols]
For $iCol = 0 To $iCols - 1
$vRet[$iRow][$iCol] = __AppInteract_Variant_UnPack($aCols[$iCol])
Next
Next
EndSwitch
EndSwitch
Return $vRet
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_IsSupportedType
; Description ...: Checks if a given data is supported data type.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_IsSupportedType($vData)
Switch VarGetType($vData)
Case 'Array'
If UBound($vData, $UBOUND_DIMENSIONS) > 2 Then
Return False
EndIf
Case 'Object', 'DllStruct'
Return False
EndSwitch
Return True
EndFunc
; #INTERNAL_USE_ONLY# ===========================================================================================================
; Name ..........: __AppInteract_Variant_GetTypes
; Description ...: Gets all(?) AutoIt variable types.
; Author ........: G.Sandler
; ===============================================================================================================================
Func __AppInteract_Variant_GetTypes($bArr = False)
Local $aVars[] = _
[ _
StringSplit('', ''), Binary('0'), True, Ptr(-1), WinGetHandle(''), 1, DllStructSetData(DllStructCreate('int64'), 1, 1), 2.0, _
ObjCreate('Scripting.Dictionary'), 'a', DllStructCreate('int'), Default, Int, __AppInteract_Variant_GetTypes _
]
Local $sType, $sTypes = ''
For $i = 0 To UBound($aVars) - 1
$sType = VarGetType($aVars[$i])
$sTypes &= ($sTypes ? '|' : '') & (($sType = 'Ptr' And HWnd($aVars[$i])) ? 'HWnd' : $sType)
$aVars[$i] = 0
Next
If $bArr Then
$sTypes = StringSplit($sTypes, '|')
EndIf
Return $sTypes
EndFunc
GeSHi © Extension Codebox Plus
► Afficher le texte
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <Array.au3>
#include <AppInteract.au3>
Global $iApp = 1
Global $sApp_Name = 'My App' & $iApp
Global $sSend_App_Name = 'My App' & Mod($iApp, 2) + 1
Global $sSend_Script_Name = 'Script' & Mod($iApp, 2) + 1 & '.' & (@Compiled ? 'exe' : 'au3')
Global $iGUI_Width = 600
Global $iGUI_Left = 100 + ($iGUI_Width * ($iApp - 1)) + (10 * ($iApp - 1))
_AppInteract_SetReceiver($sApp_Name, '_Receiver')
$hGUI = GUICreate(@ScriptName & ' - AppInteract Example', $iGUI_Width, 400, $iGUI_Left, 20)
GUICtrlCreateLabel('Please run ' & $sSend_Script_Name & ' and enter some data to send:', 10, 5, -1, 15)
$iEdit = GUICtrlCreateEdit(StringFormat('Send\r\nThis\r\nData\r\nTo\r\n%s', $sSend_Script_Name), 10, 20, 580, 150)
GUICtrlCreateLabel('Received:', 10, 175, -1, 15)
$iReceiver_LV = GUICtrlCreateListView('Type|Data', 10, 190, 580, 170)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 0, 285)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 1, 285)
GUICtrlCreateLabel('Send to ' & $sSend_Script_Name & ' as:', 20, 373)
$iSendStr_Bttn = GUICtrlCreateButton('String', 150, 370, 70, 20)
$iSendArr_Bttn = GUICtrlCreateButton('Array', 230, 370, 70, 20)
$iSendBin_Bttn = GUICtrlCreateButton('Binary', 310, 370, 70, 20)
GUISetState(@SW_SHOW, $hGUI)
WinSetOnTop($hGUI, '', 1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $iSendStr_Bttn, $iSendArr_Bttn, $iSendBin_Bttn
$vData = GUICtrlRead($iEdit)
Switch $nMsg
Case $iSendArr_Bttn
$vData = StringSplit(StringStripCR($vData), @LF)
Case $iSendBin_Bttn
$vData = StringToBinary($vData)
EndSwitch
_AppInteract_Send($sSend_App_Name, $vData, @AutoItExe)
If @error Then
MsgBox(48, @ScriptName, 'Unable to send, probably ' & $sSend_Script_Name & ' is not executed!', 0, $hGUI)
EndIf
EndSwitch
WEnd
Func _Receiver($vData)
Local $sData = $vData
Local $sType = VarGetType($vData)
Switch $sType
Case 'Array'
$sData = _ArrayToString($vData, '~', -1, -1, Chr(10))
Case 'Binary'
$sData = BinaryToString($vData)
EndSwitch
GUICtrlCreateListViewItem($sType & '|' & $sData, $iReceiver_LV)
EndFunc
#include <ListViewConstants.au3>
#include <Array.au3>
#include <AppInteract.au3>
Global $iApp = 1
Global $sApp_Name = 'My App' & $iApp
Global $sSend_App_Name = 'My App' & Mod($iApp, 2) + 1
Global $sSend_Script_Name = 'Script' & Mod($iApp, 2) + 1 & '.' & (@Compiled ? 'exe' : 'au3')
Global $iGUI_Width = 600
Global $iGUI_Left = 100 + ($iGUI_Width * ($iApp - 1)) + (10 * ($iApp - 1))
_AppInteract_SetReceiver($sApp_Name, '_Receiver')
$hGUI = GUICreate(@ScriptName & ' - AppInteract Example', $iGUI_Width, 400, $iGUI_Left, 20)
GUICtrlCreateLabel('Please run ' & $sSend_Script_Name & ' and enter some data to send:', 10, 5, -1, 15)
$iEdit = GUICtrlCreateEdit(StringFormat('Send\r\nThis\r\nData\r\nTo\r\n%s', $sSend_Script_Name), 10, 20, 580, 150)
GUICtrlCreateLabel('Received:', 10, 175, -1, 15)
$iReceiver_LV = GUICtrlCreateListView('Type|Data', 10, 190, 580, 170)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 0, 285)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 1, 285)
GUICtrlCreateLabel('Send to ' & $sSend_Script_Name & ' as:', 20, 373)
$iSendStr_Bttn = GUICtrlCreateButton('String', 150, 370, 70, 20)
$iSendArr_Bttn = GUICtrlCreateButton('Array', 230, 370, 70, 20)
$iSendBin_Bttn = GUICtrlCreateButton('Binary', 310, 370, 70, 20)
GUISetState(@SW_SHOW, $hGUI)
WinSetOnTop($hGUI, '', 1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $iSendStr_Bttn, $iSendArr_Bttn, $iSendBin_Bttn
$vData = GUICtrlRead($iEdit)
Switch $nMsg
Case $iSendArr_Bttn
$vData = StringSplit(StringStripCR($vData), @LF)
Case $iSendBin_Bttn
$vData = StringToBinary($vData)
EndSwitch
_AppInteract_Send($sSend_App_Name, $vData, @AutoItExe)
If @error Then
MsgBox(48, @ScriptName, 'Unable to send, probably ' & $sSend_Script_Name & ' is not executed!', 0, $hGUI)
EndIf
EndSwitch
WEnd
Func _Receiver($vData)
Local $sData = $vData
Local $sType = VarGetType($vData)
Switch $sType
Case 'Array'
$sData = _ArrayToString($vData, '~', -1, -1, Chr(10))
Case 'Binary'
$sData = BinaryToString($vData)
EndSwitch
GUICtrlCreateListViewItem($sType & '|' & $sData, $iReceiver_LV)
EndFunc
GeSHi © Extension Codebox Plus
► Afficher le texte
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <Array.au3>
#include <AppInteract.au3>
Global $iApp = 2
Global $sApp_Name = 'My App' & $iApp
Global $sSend_App_Name = 'My App' & Mod($iApp, 2) + 1
Global $sSend_Script_Name = 'Script' & Mod($iApp, 2) + 1 & '.' & (@Compiled ? 'exe' : 'au3')
Global $iGUI_Width = 600
Global $iGUI_Left = 100 + ($iGUI_Width * ($iApp - 1)) + (10 * ($iApp - 1))
_AppInteract_SetReceiver($sApp_Name, '_Receiver')
$hGUI = GUICreate(@ScriptName & ' - AppInteract Example', $iGUI_Width, 400, $iGUI_Left, 20)
GUICtrlCreateLabel('Please run ' & $sSend_Script_Name & ' and enter some data to send:', 10, 5, -1, 15)
$iEdit = GUICtrlCreateEdit(StringFormat('Send\r\nThis\r\nData\r\nTo\r\n%s', $sSend_Script_Name), 10, 20, 580, 150)
GUICtrlCreateLabel('Received:', 10, 175, -1, 15)
$iReceiver_LV = GUICtrlCreateListView('Type|Data', 10, 190, 580, 170)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 0, 285)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 1, 285)
GUICtrlCreateLabel('Send to ' & $sSend_Script_Name & ' as:', 20, 373)
$iSendStr_Bttn = GUICtrlCreateButton('String', 150, 370, 70, 20)
$iSendArr_Bttn = GUICtrlCreateButton('Array', 230, 370, 70, 20)
$iSendBin_Bttn = GUICtrlCreateButton('Binary', 310, 370, 70, 20)
GUISetState(@SW_SHOW, $hGUI)
WinSetOnTop($hGUI, '', 1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $iSendStr_Bttn, $iSendArr_Bttn, $iSendBin_Bttn
$vData = GUICtrlRead($iEdit)
Switch $nMsg
Case $iSendArr_Bttn
$vData = StringSplit(StringStripCR($vData), @LF)
Case $iSendBin_Bttn
$vData = StringToBinary($vData)
EndSwitch
_AppInteract_Send($sSend_App_Name, $vData, @AutoItExe)
If @error Then
MsgBox(48, @ScriptName, 'Unable to send, probably ' & $sSend_Script_Name & ' is not executed!', 0, $hGUI)
EndIf
EndSwitch
WEnd
Func _Receiver($vData)
Local $sData = $vData
Local $sType = VarGetType($vData)
Switch $sType
Case 'Array'
$sData = _ArrayToString($vData, '~', -1, -1, Chr(10))
Case 'Binary'
$sData = BinaryToString($vData)
EndSwitch
GUICtrlCreateListViewItem($sType & '|' & $sData, $iReceiver_LV)
EndFunc
#include <ListViewConstants.au3>
#include <Array.au3>
#include <AppInteract.au3>
Global $iApp = 2
Global $sApp_Name = 'My App' & $iApp
Global $sSend_App_Name = 'My App' & Mod($iApp, 2) + 1
Global $sSend_Script_Name = 'Script' & Mod($iApp, 2) + 1 & '.' & (@Compiled ? 'exe' : 'au3')
Global $iGUI_Width = 600
Global $iGUI_Left = 100 + ($iGUI_Width * ($iApp - 1)) + (10 * ($iApp - 1))
_AppInteract_SetReceiver($sApp_Name, '_Receiver')
$hGUI = GUICreate(@ScriptName & ' - AppInteract Example', $iGUI_Width, 400, $iGUI_Left, 20)
GUICtrlCreateLabel('Please run ' & $sSend_Script_Name & ' and enter some data to send:', 10, 5, -1, 15)
$iEdit = GUICtrlCreateEdit(StringFormat('Send\r\nThis\r\nData\r\nTo\r\n%s', $sSend_Script_Name), 10, 20, 580, 150)
GUICtrlCreateLabel('Received:', 10, 175, -1, 15)
$iReceiver_LV = GUICtrlCreateListView('Type|Data', 10, 190, 580, 170)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 0, 285)
GUICtrlSendMsg($iReceiver_LV, $LVM_SETCOLUMNWIDTH, 1, 285)
GUICtrlCreateLabel('Send to ' & $sSend_Script_Name & ' as:', 20, 373)
$iSendStr_Bttn = GUICtrlCreateButton('String', 150, 370, 70, 20)
$iSendArr_Bttn = GUICtrlCreateButton('Array', 230, 370, 70, 20)
$iSendBin_Bttn = GUICtrlCreateButton('Binary', 310, 370, 70, 20)
GUISetState(@SW_SHOW, $hGUI)
WinSetOnTop($hGUI, '', 1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $iSendStr_Bttn, $iSendArr_Bttn, $iSendBin_Bttn
$vData = GUICtrlRead($iEdit)
Switch $nMsg
Case $iSendArr_Bttn
$vData = StringSplit(StringStripCR($vData), @LF)
Case $iSendBin_Bttn
$vData = StringToBinary($vData)
EndSwitch
_AppInteract_Send($sSend_App_Name, $vData, @AutoItExe)
If @error Then
MsgBox(48, @ScriptName, 'Unable to send, probably ' & $sSend_Script_Name & ' is not executed!', 0, $hGUI)
EndIf
EndSwitch
WEnd
Func _Receiver($vData)
Local $sData = $vData
Local $sType = VarGetType($vData)
Switch $sType
Case 'Array'
$sData = _ArrayToString($vData, '~', -1, -1, Chr(10))
Case 'Binary'
$sData = BinaryToString($vData)
EndSwitch
GUICtrlCreateListViewItem($sType & '|' & $sData, $iReceiver_LV)
EndFunc
GeSHi © Extension Codebox Plus
► Afficher le texte
#include-once
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <AVIConstants.au3>
#include <GUIListBox.au3>
#include <GuiListView.au3>
#include <GuiComboBox.au3>
#include <ScrollBarsConstants.au3>
#include <Array.au3>
#Include <WinAPIEx.au3>
#include <GuiEdit.au3>
#include <WinAPIFiles.au3>
#include <GuiSlider.au3>
#include <ColorConstants.au3>
#include <WinAPITheme.au3>
#include <Date.au3>
#include <String.au3>
#include <Misc.au3>
#RequireAdmin
#NoTrayIcon
Global Const $Title = "Essai"
#Region ### START Koda GUI section ### Form=
$MainGui = GUICreate($Title, 494, 852, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Group1 = GUICtrlCreateGroup("1", 8, 10, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group1), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo1 = GUICtrlCreateCombo("", 18, 30, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit1 = GUICtrlCreateEdit("", 18, 87, 209, 113)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Start 1", 18, 57, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("2", 250, 10, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group2), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo2 = GUICtrlCreateCombo("", 260, 30, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit2 = GUICtrlCreateEdit("", 260, 87, 209, 113)
GUICtrlSetData(-1, "")
$Button2 = GUICtrlCreateButton("Start 2", 260, 57, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("3", 9, 220, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group3), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo3 = GUICtrlCreateCombo("", 19, 240, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit3 = GUICtrlCreateEdit("", 19, 297, 209, 113)
GUICtrlSetData(-1, "")
$Button3 = GUICtrlCreateButton("Start 3", 19, 267, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("4", 250, 220, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group4), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo4 = GUICtrlCreateCombo("", 260, 240, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit4 = GUICtrlCreateEdit("", 260, 297, 209, 113)
GUICtrlSetData(-1, "")
$Button4 = GUICtrlCreateButton("Start 4", 260, 267, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("5", 10, 425, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group5), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo5 = GUICtrlCreateCombo("", 20, 445, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit5 = GUICtrlCreateEdit("", 20, 502, 209, 113)
GUICtrlSetData(-1, "")
$Button5 = GUICtrlCreateButton("Start 5", 20, 472, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("6", 250, 425, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group6), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo6 = GUICtrlCreateCombo("", 260, 445, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit6 = GUICtrlCreateEdit("", 260, 502, 209, 113)
GUICtrlSetData(-1, "")
$Button6 = GUICtrlCreateButton("Start 6", 260, 472, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("7", 10, 640, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group7), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo7 = GUICtrlCreateCombo("", 20, 660, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit7 = GUICtrlCreateEdit("", 20, 717, 209, 113)
GUICtrlSetData(-1, "")
$Button7 = GUICtrlCreateButton("Start 7", 20, 687, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("8", 250, 640, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group8), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo8 = GUICtrlCreateCombo("", 260, 660, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit8 = GUICtrlCreateEdit("", 260, 717, 209, 113)
GUICtrlSetData(-1, "")
$Button8 = GUICtrlCreateButton("Start 8", 260, 687, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <AVIConstants.au3>
#include <GUIListBox.au3>
#include <GuiListView.au3>
#include <GuiComboBox.au3>
#include <ScrollBarsConstants.au3>
#include <Array.au3>
#Include <WinAPIEx.au3>
#include <GuiEdit.au3>
#include <WinAPIFiles.au3>
#include <GuiSlider.au3>
#include <ColorConstants.au3>
#include <WinAPITheme.au3>
#include <Date.au3>
#include <String.au3>
#include <Misc.au3>
#RequireAdmin
#NoTrayIcon
Global Const $Title = "Essai"
#Region ### START Koda GUI section ### Form=
$MainGui = GUICreate($Title, 494, 852, -1, -1, -1, BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Group1 = GUICtrlCreateGroup("1", 8, 10, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group1), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo1 = GUICtrlCreateCombo("", 18, 30, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit1 = GUICtrlCreateEdit("", 18, 87, 209, 113)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Start 1", 18, 57, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("2", 250, 10, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group2), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo2 = GUICtrlCreateCombo("", 260, 30, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit2 = GUICtrlCreateEdit("", 260, 87, 209, 113)
GUICtrlSetData(-1, "")
$Button2 = GUICtrlCreateButton("Start 2", 260, 57, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("3", 9, 220, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group3), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo3 = GUICtrlCreateCombo("", 19, 240, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit3 = GUICtrlCreateEdit("", 19, 297, 209, 113)
GUICtrlSetData(-1, "")
$Button3 = GUICtrlCreateButton("Start 3", 19, 267, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("4", 250, 220, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group4), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo4 = GUICtrlCreateCombo("", 260, 240, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit4 = GUICtrlCreateEdit("", 260, 297, 209, 113)
GUICtrlSetData(-1, "")
$Button4 = GUICtrlCreateButton("Start 4", 260, 267, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("5", 10, 425, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group5), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo5 = GUICtrlCreateCombo("", 20, 445, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit5 = GUICtrlCreateEdit("", 20, 502, 209, 113)
GUICtrlSetData(-1, "")
$Button5 = GUICtrlCreateButton("Start 5", 20, 472, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("6", 250, 425, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group6), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo6 = GUICtrlCreateCombo("", 260, 445, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit6 = GUICtrlCreateEdit("", 260, 502, 209, 113)
GUICtrlSetData(-1, "")
$Button6 = GUICtrlCreateButton("Start 6", 260, 472, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("7", 10, 640, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group7), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo7 = GUICtrlCreateCombo("", 20, 660, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit7 = GUICtrlCreateEdit("", 20, 717, 209, 113)
GUICtrlSetData(-1, "")
$Button7 = GUICtrlCreateButton("Start 7", 20, 687, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group8 = GUICtrlCreateGroup("8", 250, 640, 233, 201)
_WinAPI_SetWindowTheme(GUICtrlGetHandle($Group8), "", "")
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x004080)
$Combo8 = GUICtrlCreateCombo("", 260, 660, 153, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Edit8 = GUICtrlCreateEdit("", 260, 717, 209, 113)
GUICtrlSetData(-1, "")
$Button8 = GUICtrlCreateButton("Start 8", 260, 687, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
GeSHi © Extension Codebox Plus
Les différents Edit me servirons à indiquer le statuts du programme en cours:
"En cours" - "A l'arrêt" - "Exécute l'étape 1" - "Exécute l'étape 2" ect...
Et là est mon premier soucis, dois-je utiliser un Edit sachant que les programmes devront principalement lire les derniers messages et j'ai peur que cela ne risque de créer des confusion, a moins qu'il y a un moyen d'avoir une lecture uniquement du dernier message ?
Ou alors je vais devoir utiliser autre chose ?
Et là deuxième soucis que je rencontre,
Comment est-ce que je pourrais indiquer au programme 2 ou 3 de lire le dernier message de l'edit du programme 1 ?
Se serait principalement attendre le "Envoyer" du programme 1 pour exécuter son action.
C'est uniquement pour "la gloire", je me répète mais je sais qu'il y a plus simple, c'est justement le fait de pouvoir faire une synchronisation des programmes via l'interface qui m'intéresse
Dans l'attente de votre aide, Merci d'avance
