Le site de la communauté de Gambas

Auteur Messages

xoin #1 Posté le 28/2/2012 à 13:52:23

slt tout le monde j'ai un problem j'ai un commande
qu'il est exec["gksu","tcpdump -i wlan0 -v"] ((cette commande pour ecoute resau ))il marche
mais i bloquer le problem le textare ne peut voir un résulta dynamique
donc svp expliquer bien pour comprendre
un solution tableau par exp ....

spheris #2 Posté le 28/2/2012 à 14:19:52

xion,
La solution est:
The solution is :

1	`SHELL "gksu tcpdump -i wlan0 -v" TO TextArea1.Text`

bye

www.gambaslinux.fr

xoin #3 Posté le 28/2/2012 à 16:49:23

je fait mais pas marche il bloque le fenetre

GarulfoUnix #4 Posté le 28/2/2012 à 22:54:45

By the way In this case, you mustn't use the second syntax of this command.
Use the first syntax by adding the "FOR" keyword in order to handle it with a Process object.
Once intercepted, you'll just add again the result of output by using I/O stream functions to your TextArea.

xoin #5 Posté le 29/2/2012 à 08:24:49

please i'm don't understand Redjack1964 ((with exmpel))

GarulfoUnix #6 Posté le 29/2/2012 à 10:49:07

By the way Unfortunately, i have to go working.
But this evening, i will try doing a piece of code for you.

linuxos #7 Posté le 29/2/2012 à 12:12:29

Un peu de sel, de poivre et la crevette sera...

Hello

To do that you explain in your message, you need to proceed like that:

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 PUBLIC SUB Start_Command() DIM ProcessToStart AS Process DIM TcpdumpCmd AS STRING ' Stat the Process Tcpdump TcpdumpCmd = "....command to execute ......" ProcessToStart = SHELL TcpdumpCmd FOR INPUT AS "ProcessToStart1" END PUBLIC SUB ProcessToStart1_Read() ' Event when the TcpDump command send text DIM sLine AS STRING READ #LAST, sLine, -256 TextArea1.Text = TextArea1.Text & sLine END PUBLIC SUB ProcessToStart1_Kill() ' Event when the Tcpdump process stop or was killed END PUBLIC SUB ProcessToStart1_Error(errorText AS STRING) ' Event when the Tcpdump command sent an error IF errorText LIKE "some error text" THEN TextArea1.Text = TextArea1.Text & "Process Error: your error message" ' Example of error treatment END IF END

Olivier

Lorsqu'on s'occupe d'informatique, il faut faire comme les canards... Paraître calme en surface et pédaler comme un forcené par en dessous.