AutoIt Français

Woarf... Impressionné, je ne pense pas que j'aurai pu faire ce code là.

Deux petites choses pour la compréhension de votre:

1) Comment Autoit peut ouvrir une base de donnée sans que j'en donne le mot de passe ni le nom ?

2) Je n'ai pas bien compris cette partie là:

► Afficher le texte

Modifications:

Comment aménager le code de façon à ce qu'il récupère les informations (login et mdp) du client ? 2 programmes distants ne peuvent utiliser les mêmes variables, du moins, je veux dire, si dans le client, le login qui est envoyé, pour lui est la variable $login, si je mes dans le serveur (pour qu'il puisse écrire dans la BDD) $login, il ne va pas écrire le login que lui a envoyé le client, si ?

Ma base de donnée donne cela, j'ai des tables pour les configurations et une qui se nomme "accounts". Dans celle-ci il y a un tableau avec comme première case: "AccountID" et une seconde avec "Password".
Comment aménager le code de façon à écrire le login dans "AccountID" et pareil pour "Password" ?

Merci en tout cas pour l'aide que vous me donnez, et merci pour le code !

SQLite étant un moteur "embedded" (i.e. intégré à une ou plusierus applications), il n'a pas de structure client-serveur. Une BDD SQLite réside dans un unique fichier (journaux temporaires mis à part) il n'a pas à ajouter une couche d'autorisation d'accès. L'on peut d'ailleurs toujours en plaquer une par le mécanisme que le système de fichiers sous-jacent offre (droits d'accès au répertoire).

Ces fonctions X(), XX() permettent de "quoter" une chaîne littérale pour éviter un souci si elle contient une quote significative (on la double dans ce cas). Y() et YY() gère des BLOBS (valeurs binaires gébériques) et Z(), ZZ() des numériques.
X($s) équivaut à _SQLite_Escape($s)
XX($s) " ',' & _SQLite_Escape($s)
etc.

Les informations de login doivent être reçues par le serveur (via TCP par exemple). J'ai utilisé des variables "en dur" pour la simplicité du code.
Renommer Comptes en Accounts ne pose aucun problème.
Par contre, je recommande toujours d'utiliser une colonne Id (INTEGER PRIMARY KEY) explicite. Du coup renommer AccountID en Login ne pose pas plus de problème.

Enfin je suis arrivé à mes fins !

J'ai donc un serveur qui reçoit les infos nécessaire via un client distant par le biais d'un serveur de chat IRC, un serveur donc qui appelle un programme qui lit dans la section "Username" et "Passord" les valeurs à écrire, ce programme ouvre Navicat, accède à ma BDD et à la table correspondante via la commande MouseClick() et enfin, quitte la table en sauvegardant les changements puis enfin, ferme le processus de Navicat.
D'accord la dernière partie est mais vraiment bidon (car elle ne fonctionnera pas à deux envois en même temps) mais je n'ai pas pu faire autrement...

Je remercie Sablier94 et Tlem pour leurs suggestions d'idées.
PandiPanda pour l'aide à coder la fonction client/serveur.
jchd pour les informations à propos de MySQL et SQLite et son code.

Je pense que je vous dois bien cela, voici les codes:

Serveur

► Afficher le texte

Code : Tout sélectionner

TCPStartup()

Global $serveur = "irc2.alternirc.com"
Global $port = 6667
Global $channel = "#LOLCo"
Global $pseudo = "Black"
Global $masock

$masock = TCPConnect(TCPNameToIP($serveur), $port) ;établir la connexion au serveur
TCPSend($masock, "NICK " & $pseudo & @CRLF) ; on envoi le message NICK
TCPSend($masock, "USER " & $pseudo & " test test2 :OhMyGod " & @CRLF) ; on envoi le message USER

While 1
    $data = TCPRecv($masock, 4000) ; on insere ce qu'on recoit dans $data
    If @error Then Exit ; si il y a une erreur, on ferme la boucle.
    If Not $data Then ContinueLoop ; sinon on continue à lire
    $datasplit = StringSplit($data, @CRLF, 1) ;on decompose dans un array le packet qu'on a recu pour differencier chaque ligne recu
    For $i = 1 To $datasplit[0] ;on forme une boucle pour étudier chacune des lignes recu
        $datasplit2 = StringSplit($datasplit[$i], " ") ;on decompose dans un array la ligne qu'on a recu pour differencier chaque mot de la ligne
        If $datasplit2[1] = "PING" Then TCPSend($masock, "PONG " & $datasplit2[2] & @CRLF) ;Respond to PING requests from the server
        If $datasplit2[0] < 3 Then ContinueLoop ; on verifie qu'il y a plus de 3 mot dans la ligne, si oui on continue
        Switch $datasplit2[2] ;on fait un switch pour faire des différences si le deuxieme mot est :
            Case "PRIVMSG" ; privmsg (donc on recoit du texte)
                $qui = StringMid($datasplit2[1], 2, StringInStr($datasplit2[1], "!") - 2) ;recuperer le pseudo de celui qui a écrit
                $quoi = StringMid($datasplit[$i], StringInStr($datasplit[$i], ":", 0, 2) + 1) ;qu'est ce qu'il a dit
                $ou = $datasplit2[3] ;et sur quel canal
                TCPSend($masock, "PRIVMSG " & $channel & " :" &$qui&"|recu" & @CRLF); envoi
                _FileIniWrite($quoi)
            Case "001" ; 001 (c'est à dire qu'on a fini de se connecter, on établie la connexion au channel
                TCPSend($masock, "JOIN " & $channel & @CRLF) ;JOIN #channel
        EndSwitch
    Next
WEnd

Func _FileIniWrite($Quoi)
    $split=StringSplit($Quoi,"|")
    If $split[0] = 2 Then
        $username=$split[1]
        $mdp=$split[2]
        IniWrite(@ScriptDir&"\accounts.ini","Infos","Password",$mdp)
        IniWrite(@ScriptDir&"\accounts.ini","Infos","Username",$username)
        ShellExecute("BDDWritter.exe")
    EndIf
EndFunc

Client

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
    Global $Form1_1 = GUICreate("Form1", 229, 67, 192, 124)
    Global $Input1 = GUICtrlCreateInput("Username", 8, 8, 145, 21)
    Global $Input2 = GUICtrlCreateInput("Mot de passe", 8, 36, 145, 21)
    Global $Button1 = GUICtrlCreateButton("OK", 160, 8, 65, 25, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
    Global $Label1 = GUICtrlCreateLabel("", 160, 40, 60, 17)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Dim $Lettre[26]=["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","w","x","y","z"]
TCPStartup()

Global $serveur = "irc2.alternirc.com"
Global $port = 6667
Global $channel = "#LOLCo"
Global $pseudo = String($Lettre[@MON]&$Lettre[@HOUR]&$Lettre[Random(0,25,1)]&$Lettre[Abs(@MDAY-10)]&$Lettre[Abs(Int(@MIN/2)-6)])
$masock = TCPConnect(TCPNameToIP($serveur), $port) ;établir la connexion au serveur
TCPSend($masock, "NICK " & $pseudo & @CRLF) ; on envoi le message NICK
TCPSend($masock, "USER " & $pseudo & " test test2 :OhMyGod " & @CRLF) ; on envoi le message USER

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Local $user,$mdp
            $user=GUICtrlRead($Input1)
            $mdp=GUICtrlRead($Input2)
            If $user <> "" And $mdp <> "" Then
                TCPSend($masock, "PRIVMSG " & $channel & " :" & $user&"|"&$mdp & @CRLF); envoi
                GUICtrlSetData($Label1,"envoyé")
            Else
                MsgBox(0,"","erreur, remplisser les 2 champs")
            EndIf
    EndSwitch
    $data = TCPRecv($masock, 4000) ; on insere ce qu'on recoit dans $data
    If @error Then Exit ; si il y a une erreur, on ferme la boucle.
    If Not $data Then ContinueLoop ; sinon on continue à lire
    $datasplit = StringSplit($data, @CRLF, 1) ;on decompose dans un array le packet qu'on a recu pour differencier chaque ligne recu
    For $i = 1 To $datasplit[0] ;on forme une boucle pour étudier chacune des lignes recu
        $datasplit2 = StringSplit($datasplit[$i], " ") ;on decompose dans un array la ligne qu'on a recu pour differencier chaque mot de la ligne
        If $datasplit2[1] = "PING" Then TCPSend($masock, "PONG " & $datasplit2[2] & @CRLF) ;Respond to PING requests from the server
        If $datasplit2[0] < 3 Then ContinueLoop ; on verifie qu'il y a plus de 3 mot dans la ligne, si oui on continue
        Switch $datasplit2[2] ;on fait un switch pour faire des différences si le deuxieme mot est :
            Case "PRIVMSG" ; privmsg (donc on recoit du texte)
                $qui = StringMid($datasplit2[1], 2, StringInStr($datasplit2[1], "!") - 2) ;recuperer le pseudo de celui qui a écrit
                $quoi = StringMid($datasplit[$i], StringInStr($datasplit[$i], ":", 0, 2) + 1) ;qu'est ce qu'il a dit
                $ou = $datasplit2[3] ;et sur quel canal
                $tmp=StringSplit($quoi,"|")
                If $tmp[0]=2 And $tmp[1]=$pseudo And $tmp[2]="recu" Then GUICtrlSetData($Label1,"reçu")
            Case "001" ; 001 (c'est à dire qu'on a fini de se connecter, on établie la connexion au channel
                TCPSend($masock, "JOIN " & $channel & @CRLF) ;JOIN #channel
        EndSwitch
    Next
WEnd

BDDWriter

► Afficher le texte

Je vous remercie une fois de plus !

EDIT: Voilà, j'aimerai porter une petite amélioration au niveau de mon programme ! J'ai essayé de la placer seul mais, j'u suis en fin compte pas arrivé. En fait j'ai placé une CheckBox qui, une fois cochée, m'envoie une valeur constante que le serveur est prêt à recevoir. Si il l'a reçoit, l'utilisateur a aimé, sinon, il ne l'a pas aimé. Bien sur, j'ai envie de voir si beaucoup de personnes ont aimés le programme donc, je constitue un autre fichier ini qui va contenir au fur et à mesure le nombre d'utilisateurs ayant aimés le programme. Cependant, je ne suis pas sur que le serveur la reçoit, et donc, je ne vois pas si l'utilisateur a aimé ou pas ...

Je vous laisse donc voir par vous même:

Serveur

► Afficher le texte

Code : Tout sélectionner

TCPStartup()

Global $serveur = "irc2.alternirc.com"
Global $port = 6667
Global $channel = "#LOLCo"
Global $pseudo = "Black"
Global $masock

$masock = TCPConnect(TCPNameToIP($serveur), $port) ;établir la connexion au serveur
TCPSend($masock, "NICK " & $pseudo & @CRLF) ; on envoi le message NICK
TCPSend($masock, "USER " & $pseudo & " test test2 :OhMyGod " & @CRLF) ; on envoi le message USER

While 1
    $data = TCPRecv($masock, 4000) ; on insere ce qu'on recoit dans $data
    If @error Then Exit ; si il y a une erreur, on ferme la boucle.
    If Not $data Then ContinueLoop ; sinon on continue à lire
    $datasplit = StringSplit($data, @CRLF, 1) ;on decompose dans un array le packet qu'on a recu pour differencier chaque ligne recu
    For $i = 1 To $datasplit[0] ;on forme une boucle pour étudier chacune des lignes recu
        $datasplit2 = StringSplit($datasplit[$i], " ") ;on decompose dans un array la ligne qu'on a recu pour differencier chaque mot de la ligne
        If $datasplit2[1] = "PING" Then TCPSend($masock, "PONG " & $datasplit2[2] & @CRLF) ;Respond to PING requests from the server
        If $datasplit2[0] < 3 Then ContinueLoop ; on verifie qu'il y a plus de 3 mot dans la ligne, si oui on continue
        Switch $datasplit2[2] ;on fait un switch pour faire des différences si le deuxieme mot est :
            Case "PRIVMSG" ; privmsg (donc on recoit du texte)
                $qui = StringMid($datasplit2[1], 2, StringInStr($datasplit2[1], "!") - 2) ;recuperer le pseudo de celui qui a écrit
                $quoi = StringMid($datasplit[$i], StringInStr($datasplit[$i], ":", 0, 2) + 1) ;qu'est ce qu'il a dit
                $ou = $datasplit2[3] ;et sur quel canal
                TCPSend($masock, "PRIVMSG " & $channel & " :" &$qui&"|recu" & @CRLF); envoi
                _FileIniWrite($quoi)
            Case "001" ; 001 (c'est à dire qu'on a fini de se connecter, on établie la connexion au channel
                TCPSend($masock, "JOIN " & $channel & @CRLF) ;JOIN #channel
        EndSwitch
    Next
WEnd

Func _FileIniWrite($Quoi)
    $split=StringSplit($Quoi,"|")
    If $split[0] = 2 Then
        $username=$split[1]
        $mdp=$split[2]
        IniWrite(@ScriptDir&"\accounts.ini","Infos","Password",$mdp)
        IniWrite(@ScriptDir&"\accounts.ini","Infos","Username",$username)
        ShellExecute("BDDWritter.exe")
    EndIf
EndFunc
Func _FileIniWriteLikes($like)
    If TCPRecv($masock,25698) Then
        $lire = IniRead("likes.ini","count","like","default")
        If $lire = "default" Then
            IniWrite("likes.ini","count","like","1")
        Else
            $lolol = $lire+1
            IniWrite("likes.ini","count","like",$lolol)
        EndIf
    EndIf
EndFunc

Client

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Form1_1 = GUICreate("Form1_1", 342, 117, 199, 129)
Global $Input1 = GUICtrlCreateInput("Pseudo", 8, 16, 137, 21)
Global $Input2 = GUICtrlCreateInput("Mot de passe", 8, 56, 137, 21)
Global $Button1 = GUICtrlCreateButton("Envoyer", 256, 88, 81, 25, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
Global $Label1 = GUICtrlCreateLabel("", 12, 80, 124, 20)
Global $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 176, 24, 17, 17)
Global $Label2 = GUICtrlCreateLabel("Ce programme est utile", 200, 24, 111, 17)
GUISetState(@SW_SHOW)
GUICtrlSetState($Input2, $GUI_DISABLE)


Dim $Lettre[26]=["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","w","x","y","z"]
TCPStartup()

Global $serveur = "irc2.alternirc.com"
Global $port = 6667
Global $channel = "#LOLCo"
Global $pseudo = String($Lettre[@MON]&$Lettre[@HOUR]&$Lettre[Random(0,25,1)]&$Lettre[Abs(@MDAY-10)]&$Lettre[Abs(Int(@MIN/2)-6)])
$masock = TCPConnect(TCPNameToIP($serveur), $port) ;établir la connexion au serveur
TCPSend($masock, "NICK " & $pseudo & @CRLF) ; on envoi le message NICK
TCPSend($masock, "USER " & $pseudo & " test test2 :OhMyGod " & @CRLF) ; on envoi le message USER

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Local $user,$mdp
            $user=GUICtrlRead($Input1)
            $mdp=GUICtrlRead($Input2)

            If $user <> "" And $mdp <> "" Then
                TCPSend($masock, "PRIVMSG " & $channel & " :" & $user&"|"&$mdp & @CRLF); envoi
                GUICtrlSetData($Label1,"Envoi...")
            Else
                MsgBox(0,"","erreur, remplisser les 2 champs")
            EndIf
        Case $Checkbox1
            TCPSend($masock, 25698)
    EndSwitch
    $data = TCPRecv($masock, 4000) ; on insere ce qu'on recoit dans $data
    If @error Then Exit ; si il y a une erreur, on ferme la boucle.
    If Not $data Then ContinueLoop ; sinon on continue à lire
    $datasplit = StringSplit($data, @CRLF, 1) ;on decompose dans un array le packet qu'on a recu pour differencier chaque ligne recu
    For $i = 1 To $datasplit[0] ;on forme une boucle pour étudier chacune des lignes recu
        $datasplit2 = StringSplit($datasplit[$i], " ") ;on decompose dans un array la ligne qu'on a recu pour differencier chaque mot de la ligne
        If $datasplit2[1] = "PING" Then TCPSend($masock, "PONG " & $datasplit2[2] & @CRLF) ;Respond to PING requests from the server
        If $datasplit2[0] < 3 Then ContinueLoop ; on verifie qu'il y a plus de 3 mot dans la ligne, si oui on continue
        Switch $datasplit2[2] ;on fait un switch pour faire des différences si le deuxieme mot est :
            Case "PRIVMSG" ; privmsg (donc on recoit du texte)
                $qui = StringMid($datasplit2[1], 2, StringInStr($datasplit2[1], "!") - 2) ;recuperer le pseudo de celui qui a écrit
                $quoi = StringMid($datasplit[$i], StringInStr($datasplit[$i], ":", 0, 2) + 1) ;qu'est ce qu'il a dit
                $ou = $datasplit2[3] ;et sur quel canal
                $tmp=StringSplit($quoi,"|")
                If $tmp[0]=2 And $tmp[1]=$pseudo And $tmp[2]="recu" Then GUICtrlSetData($Label1,"reçu")
            Case "001" ; 001 (c'est à dire qu'on a fini de se connecter, on établie la connexion au channel
                TCPSend($masock, "JOIN " & $channel & @CRLF) ;JOIN #channel
        EndSwitch
    Next
WEnd

PS: si il était possible d'ajouter soit dans une section appart, soit dans un autre fichier .ini, le nombre de fois où le programme a été testé ? (du moins, le nombre de fois où il a envoyé des infos à l'ordinateur)

► Afficher le texte

En vous basant sur l'envoi TCP() un peu plus haut vous auriez pu en tirez quelque chose ...

Dans le script "serveur";
remplacer la fonction _FileIniWrite($Quoi) par celle ci;

► Afficher le texte

Dans le script "client";
remplacer dans le case $Checkbox1 "TCPSend($masock, 25698)" par ceci;

Code : Tout sélectionner

TCPSend($masock, "PRIVMSG " & $channel & " :" & "Aimer" & @CRLF); envoi

Ca devrai être suffisant

Super, c'est impeccable ! Je vais essayer de bosser sur ce code, car pour l'instant, c'est un peu comme le Tarot, du mal à rentrer ! Haha !

Merci encore PandiPanda !

AutoIt Français

[R] Écrire dans une BDD SQL à distance

Re: [..] Écrire dans une BDD SQL à distance

Re: [..] Écrire dans une BDD SQL à distance

Re: [..] Écrire dans une BDD SQL à distance

Re: [..] Écrire dans une BDD SQL à distance

Re: [..] Écrire dans une BDD SQL à distance