adsl2 - Gambas France

Auteur : jeanyvon
Date d'envoi : le 6/11/2014 à 13:16:42
Catégorie : Réseau
Niveau : Débutant
Version : Gambas 3

À propos de ce code

bonjour!
J'ai entièrement refait ce projet avec des éléments gambas.
Il fonctionne mieux et avec plus de rigueur.

Code source

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 'attention '========== 'En l état ce projet ne fonctionne pas 'Il faut remplire les propriétés du pop3client 'nommé : mailclient 'avec vos identifiants de messagerie. 'Après ça plus de problème. '================================================== PUBLIC SUB Form_Open() Form1.w = TextLabel1.W + 2 + ToolButton1.W Form1.h = TextLabel1.H ME.Center TextLabel1.Text = "Pas de connection" Form1.Show INC Application.Busy TRY MailClient.Open DEC Application.Busy IF MailClient.status = Net.Connected THEN TextLabel1.text = "Connection établie" MailClient.Close ENDIF END PUBLIC SUB ToolButton1_Click() TRY MailClient.Close ME.Close QUIT END

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	'attention '========== 'En l état ce projet ne fonctionne pas 'Il faut remplire les propriétés du pop3client 'nommé : mailclient 'avec vos identifiants de messagerie. 'Après ça plus de problème. '================================================== PUBLIC SUB Form_Open() Form1.w = TextLabel1.W + 2 + ToolButton1.W Form1.h = TextLabel1.H ME.Center TextLabel1.Text = "Pas de connection" Form1.Show INC Application.Busy TRY MailClient.Open DEC Application.Busy IF MailClient.status = Net.Connected THEN TextLabel1.text = "Connection établie" MailClient.Close ENDIF END PUBLIC SUB ToolButton1_Click() TRY MailClient.Close ME.Close QUIT END

Commentaires

hello!
"me.close" ne ferme pas le programme, je suis obligé de rajouter "quit".

Allez... gambas est encore plus ton ami que ça :

1 2 3 4 5 6 7 8	`#!/usr/bin/env gbs3 USE "gb.gui" DIM rs AS STRING EXEC["nm-tool"] TO rs Message.Info(rs)`

Tu utilise un editeur de texte comme kwrite, gedit ou nano.

Ensuite tu enregistre le fichier sous nminfo.gbs
puis dans ta console :

chmod +x nminfo.gbs

Ensuite tu peux executer :

./nminfo.gbs

Et voila un beau script gambas appelant une messagebox.

Merci gambix.

j'ai essayé tous les interpréteurs présent dans usr/bin même réponse pour tous.

jean-yvon@PC:~$ chmod +x nminfo.gbs
jean-yvon@PC:~$ ./nminfo.gbs
bash: ./nminfo.gbs : / : mauvais interpréteur: Permission non accordée
jean-yvon@PC:~$

Alors j'en resterais avec mon petit bricolage.

lol ... as tu installé le paquet gambas script ?