AutoIt Français

Code : Tout sélectionner

#include <Array.au3>

$WMI  = ObjGet("winmgmts:{impersonationLevel=Impersonate}!//.")
Dim $result[1][4] = [[0, "Model", "InterfaceType", "SerialNumber"]], $i = 0

$devices =  $WMI.InstancesOf("Win32_DiskDrive")
For $device In $devices
    $result[0][0] = $result[0][0] + 1
    ReDim $result[$result[0][0]+1][4]
    $result[$result[0][0]][1] = $device.Model
    $result[$result[0][0]][2] = $device.InterfaceType
Next

$devices =  $WMI.InstancesOf("Win32_PhysicalMedia")
For $device In $devices
    $i = $i + 1
    If $i > $result[0][0] Then ExitLoop
    $result[$i][3] = $device.SerialNumber
Next

_ArrayDisplay($result, "Class List")

Code : Tout sélectionner

#include <Array.au3>
#include <Crypt.au3>
#include <MsgBoxConstants.au3>

$WMI  = ObjGet("winmgmts:{impersonationLevel=Impersonate}!//.")

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
Global $GUI_LICENCE_CREATE = GUICreate("Licence Create", 341, 224, 449, 141)
GUISetOnEvent($GUI_EVENT_CLOSE, "GUI_LICENCE_CREATEClose")
Global $Label1 = GUICtrlCreateLabel("DESCRIPTION", 8, 40, 77, 17)
Global $Label2 = GUICtrlCreateLabel("NAME", 50, 65, 35, 17)
Global $Label3 = GUICtrlCreateLabel("SERIAL", 43, 95, 42, 17)
Global $Label4 = GUICtrlCreateLabel("DISQUE SELECTIONNER", 8, 8, 150, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Global $dsk_description = GUICtrlCreateLabel("dsk_description", 112, 40, 250, 17)
Global $dsk_name = GUICtrlCreateLabel("dsk_name", 112, 65, 250, 17)
Global $dsk_serial = GUICtrlCreateLabel("dsk_serial", 112, 95, 250, 17)
Global $Label5 = GUICtrlCreateLabel("LICENCE GENERER", 8, 130, 105, 17)
Global $Licence_Key = GUICtrlCreateInput("Licence_Key", 8, 152, 321, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_READONLY))
Global $Generation = GUICtrlCreateButton("Generation", 120, 184, 75, 25)
GUICtrlSetOnEvent(-1, "GenerationClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 Sleep(100)
WEnd

Func GenerationClick()
Local $result[1][5] = [[0, "Model", "InterfaceType"]], $i = 0,$select = 0

;obtention des description des different DISQUES
$devices =  $WMI.InstancesOf("Win32_DiskDrive")
For $device In $devices
    $result[0][0] = $result[0][0] + 1
    ReDim $result[$result[0][0]+1][3]
    $result[$result[0][0]][1] = $device.Model
    $result[$result[0][0]][2] = $device.InterfaceType
Next

;choix du disque a utiliser en tant que LICENCE_KEY
_ArrayDisplay($result, "Class List")
$select = 0
while ($select <1 Or $select>$result[0][0])
$select = InputBox("SELECTION","Bonjour," & @CRLF & "indiquez l'index du disque que vous souhaitez utilisez comme licence.")
WEnd

;Recuperation des information concernant la IDSERIAL
$devices =  $WMI.InstancesOf("Win32_PhysicalMedia")
For $device In $devices
        $i = $i + 1
        If $i > $result[0][0] Then
            If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
            $iMsgBoxAnswer = MsgBox(4144,"Licence Create","Désolé, l'obtention du numero de serie de ce peripherique à échoué.",5)
            exit
        EndIf
        if $select = $i then
            $Serialrecuperer = $device.SerialNumber
            ExitLoop
        endif
Next

;descritpion
GUICtrlSetData($dsk_description,$result[$select][1])
;name
GUICtrlSetData($dsk_name,$result[$select][2])
;SERIAL
GUICtrlSetData($dsk_serial,$Serialrecuperer)
;LICENCEKEY
GUICtrlSetData($Licence_Key,StringEncrypt(True, $Serialrecuperer, 'PASSWORDunPeuNaze2293'))
EndFunc


Func GUI_LICENCE_CREATEClose()
    exit
EndFunc

Func StringEncrypt($bEncrypt, $sData, $sPassword)
    _Crypt_Startup() ; Start the Crypt library.
    Local $sReturn = ''
    If $bEncrypt Then ; If the flag is set to True then encrypt, otherwise decrypt.
        $sReturn = _Crypt_EncryptData($sData, $sPassword, $CALG_RC4)
    Else
        $sReturn = BinaryToString(_Crypt_DecryptData($sData, $sPassword, $CALG_RC4))
    EndIf
    _Crypt_Shutdown() ; Shutdown the Crypt library.
    Return $sReturn
EndFunc   ;==>StringEncrypt