1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
   | CheckListBox1->Visible = false;
stateSend->Visible = true;
 
STARTUPINFO si;
PROCESS_INFORMATION pi;
 
BOOL b = false;
ZeroMemory(&si, sizeof(STARTUPINFO));
si.cb = sizeof (STARTUPINFO);
ZeroMemory(&pi, sizeof (PROCESS_INFORMATION));
char parametre[200] = "\0";
char parametre2[10] = "\0";
 
for(int i = 0; i < CheckListBox1->Count; i++)
{
        if(CheckListBox1->Selected[i] == false)
        {
                AnsiString ping = " " + CheckListBox1->Items->Strings[i];
                strcpy(parametre2, ping.c_str());
                //On teste avant tout que l'on puisse communiquer avec la machine
                b = CreateProcess("ping.exe", parametre2, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
 
                if(b)
                {
                        stateSend->Font->Color = clBlue;
                        stateSend->Text = stateSend->Text + "Ping " + ping + " reussi...\r\n";
 
                        AnsiString texte =  CheckListBox1->Items->Strings[i];
                        texte = texte.Trim();
                        //exemple pscp.exe -l root -pw root 127.0.0.1:C:\\File C:\\File
                        AnsiString param = " -l " + UserCh->Text + " -pw " + MdpCh->Text + " " + texte + ":"+ OpenDialog1->FileName + " " + Sortie->Text;
                        strcpy(parametre, param.c_str());
                        b = CreateProcess("pscp.exe", parametre, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
 
                        if(b)
                        {
                                stateSend->Font->Color = clBlue;
                                stateSend->Text = stateSend->Text + "Transfert vers machine " + CheckListBox1->Items[i].Text.Trim() + " reussi...\r\n";
                        }
                        else
                        {
                                stateSend->Font->Color = clRed;
                                stateSend->Text = stateSend->Text + "Transfert vers machine " + CheckListBox1->Items[i].Text.Trim() + " code KO...\r\n"  ;
                        }
                }
                else
                {
                        stateSend->Font->Color = clRed;
                        stateSend->Text = stateSend->Text + "Ping " + ping + " Code KO...\r\n";
                }
       } | 
Partager