AutoIt Français

#include <SQLite.au3>
#include <SQLite.dll.au3>

Local $aResult, $iRows, $iColumns, $iRval

_SQLite_Startup ()
If @error Then
MsgBox(16, "SQLite Error", "SQLite.dll Can't be Loaded!")
Exit - 1
EndIf
ConsoleWrite("_SQLite_LibVersion=" &_SQLite_LibVersion() & @CRLF)
_SQLite_Open () ; Open a :memory: database
If @error Then
MsgBox(16, "SQLite Error", "Can't Load Database!")
Exit - 1
EndIf

;Example Table
; Name | Age
; -----------------------
; Alice | 43
; Bob | 28
; Cindy | 21

If Not _SQLite_Exec (-1, "CREATE TEMP TABLE persons (Name, Age);") = $SQLITE_OK Then _
MsgBox(16, "SQLite Error", _SQLite_ErrMsg ())
If Not _SQLite_Exec (-1, "INSERT INTO persons VALUES ('Alice','43');") = $SQLITE_OK Then _
MsgBox(16, "SQLite Error", _SQLite_ErrMsg ())
If Not _SQLite_Exec (-1, "INSERT INTO persons VALUES ('Bob','28');") = $SQLITE_OK Then _
MsgBox(16, "SQLite Error", _SQLite_ErrMsg ())
If Not _SQLite_Exec (-1, "INSERT INTO persons VALUES ('Cindy','21');") = $SQLITE_OK Then _
MsgBox(16, "SQLite Error", _SQLite_ErrMsg ())

; Query
$iRval = _SQLite_GetTable2d (-1, "SELECT * FROM persons;", $aResult, $iRows, $iColumns)
If $iRval = $SQLITE_OK Then
_SQLite_Display2DResult($aResult)

;~ $aResult looks like this:
;~
;~ Name Age
;~ Alice 43
;~ Bob 28
;~ Cindy 21
;~
;~ If the dimensions would be switched in _SQLite_GetTable2d the result would look like this:
;~
;~ Name Alice Bob Cindy
;~ Age 43 28 21

Else
MsgBox(16, "SQLite Error: " & $iRval, _SQLite_ErrMsg ())
EndIf

_SQLite_Close ()
_SQLite_Shutdown ()

Global $bdd,$requete,$row,$nombre_element,$nom_poste,$ping_resultat,$ip_resultat,$values,$x,$file

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=favicon.ico
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <File.au3>
#include <Array.au3>

;#NoTrayIcon

;create_all_undeclared()

verification_bdd()

calcul_nombre_element()

TCPStartup()

ping_poste()

exit

;******************************** verification de la bdd *******************************
func verification_bdd()

ConsoleWrite("verification base" & @CRLF)

_SQLite_Startup ()

If @error > 0 Then Exit MsgBox(16, "SQLite Error", "SQLite.dll Impossible de charger!")

; verification si base de donnees est present
If FileExists(@scriptdir&"\data\data.sqli") Then

$bdd=_SQLite_Open (@ScriptDir & "\data\data.sqli")

If @error > 0 Then Exit MsgBox(16, "SQLite Error", "Impossible de charger la Base de donnée!")

Else

If @error > 0 Then Exit MsgBox(16, "SQLite Error", "Impossible de charger la Base de donnée!")

EndIf

endfunc

;******************************** *******************************
func calcul_nombre_element()

ConsoleWrite("calcul element" & @CRLF)

_SQLite_Query ( $bdd, "SELECT COUNT (*) FROM liste_ad", $requete)

While (_SQLite_FetchData ($requete, $row) = $SQLITE_OK)

$nombre_element = $row[0]

WEnd

_SQLite_QueryFinalize($requete)

endfunc

;******************************** ping la liste des postes *******************************
func ping_poste()

ConsoleWrite("demarrage ping poste" & @CRLF)

_SQLite_Query($bdd, "SELECT * FROM liste_ad ORDER BY nom_poste ASC", $requete)

While (_SQLite_FetchData ($requete, $row) = $SQLITE_OK)

$nom_poste = $row[0]

ConsoleWrite("--------------------------------------------------------------------" & @CRLF)
ConsoleWrite("poste : " & $nom_poste & @CRLF)

$ping_resultat = Ping($nom_poste)
ConsoleWrite("ping : " & $ping_resultat & @CRLF)

$ip_resultat = TCPNameToIP($nom_poste)
ConsoleWrite("IP : " & $ip_resultat & @CRLF)

$values = "ip='" & $ip_resultat & "', "
$values &= "status_ping='" & $ping_resultat & "'"

_SQLite_Exec(-1, "UPDATE liste_ad SET " & $values & " WHERE nom_poste='" & $nom_poste & "'")

ConsoleWrite("SQLite Error - Error Code: " & _SQLite_ErrCode() & @CRLF & "Error Message: " & _SQLite_ErrMsg() & @CRLF)

TrayTip("Ping", $nom_poste & @CRLF & "SQLite Error - Error Code: " & _SQLite_ErrCode() & @CRLF & "Error Message: " & _SQLite_ErrMsg(), 1, 1)

if _SQLite_ErrCode() = 5 then ; base locked

for $x = 1 to 100 ; boucle attente si base locked

TrayTip("Ping", $nom_poste & @CRLF & "SQLite Error - Error Code: " & _SQLite_ErrCode() & @CRLF & "Error Message: " & _SQLite_ErrMsg() & @CRLF & "tour d'attente : " & $x, 1, 1)

sleep (1000)

_SQLite_Exec(-1, "UPDATE liste_ad SET " & $values & " WHERE nom_poste='" & $nom_poste & "'")

if _SQLite_ErrCode() <> 5 then

ExitLoop

endif

next

endif

WEnd

_SQLite_QueryFinalize($requete)
_SQLite_Close ()
_SQLite_Shutdown ()

TCPShutdown ()

endfunc