ScanIp - Gambas France

Auteur : manu
Date d'envoi : le 22/4/2010 à 20:32:55
Catégorie : Réseau
Niveau : Débutant
Version : Gambas 3

À propos de ce code

Petit logiciel de scanerisation de réseau pour accéder facilement aux interface de configuration des hotes

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
45
46
47
48
49
50
51
52 ' Gambas class file STATIC PUBLIC sIp AS STRING PRIVATE sFile AS STRING PRIVATE sResume AS STRING PRIVATE fFichier AS File PUBLIC SUB Form_Open() 'Teste si nmap est installé. Sort si ce n'est pas le cas ! IF Exist("/usr/bin/nmap") = FALSE THEN Message.Title = "Impossible de Continuer !" Message.Warning(" Il semble que Nmap ne soit pas installé.\nVeuillez verifier dans votre gestionnaire de paquet\n et installez le." "Quitter") ME.Close QUIT ENDIF FSplash.Show 'Teste la presence du dernier scan, fait un scan si ce n'est pas les cas IF Exist(User.home & "/.lastscan.txt") = FALSE THEN EXEC ["nmap", "-T4", "-sP", "-oG", User.Home & "/.lastscan.txt", "192.168.1.1/24"] WAIT 5 ENDIF InfoLastScan() ReadLastScan() WebSettings.IconDatabase.Path = File.Dir(File.Dir(Temp$())) WebSettings.Font[WebSettings.FixedFont] = "Monospace" WebSettings[WebSettings.PluginsEnabled] = TRUE WebSettings[WebSettings.JavascriptEnabled] = TRUE WebSettings[WebSettings.JavaEnabled] = TRUE ColumnView1.Columns.Count = 2 ColumnView1.Columns[0].Text = "Adresse IP" ColumnView1.Columns[0].Width = 120 ColumnView1.Columns[1].Text = "Nom de l'Hote" ColumnView1.Columns[1].Width = 230 PgrBar.Visible = TRUE PgrBar.Value = 1 ME.Center ME.Maximized = TRUE FSplash.Close 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 45 46 47 48 49 50 51 52	' Gambas class file STATIC PUBLIC sIp AS STRING PRIVATE sFile AS STRING PRIVATE sResume AS STRING PRIVATE fFichier AS File PUBLIC SUB Form_Open() 'Teste si nmap est installé. Sort si ce n'est pas le cas ! IF Exist("/usr/bin/nmap") = FALSE THEN Message.Title = "Impossible de Continuer !" Message.Warning(" Il semble que Nmap ne soit pas installé.\nVeuillez verifier dans votre gestionnaire de paquet\n et installez le." "Quitter") ME.Close QUIT ENDIF FSplash.Show 'Teste la presence du dernier scan, fait un scan si ce n'est pas les cas IF Exist(User.home & "/.lastscan.txt") = FALSE THEN EXEC ["nmap", "-T4", "-sP", "-oG", User.Home & "/.lastscan.txt", "192.168.1.1/24"] WAIT 5 ENDIF InfoLastScan() ReadLastScan() WebSettings.IconDatabase.Path = File.Dir(File.Dir(Temp$())) WebSettings.Font[WebSettings.FixedFont] = "Monospace" WebSettings[WebSettings.PluginsEnabled] = TRUE WebSettings[WebSettings.JavascriptEnabled] = TRUE WebSettings[WebSettings.JavaEnabled] = TRUE ColumnView1.Columns.Count = 2 ColumnView1.Columns[0].Text = "Adresse IP" ColumnView1.Columns[0].Width = 120 ColumnView1.Columns[1].Text = "Nom de l'Hote" ColumnView1.Columns[1].Width = 230 PgrBar.Visible = TRUE PgrBar.Value = 1 ME.Center ME.Maximized = TRUE FSplash.Close END

Commentaires

Le premier code ... coool

Par contre l'utilisation de l'instruction QUIT n'est pas recommandé dans les programmes GUI.
Ton Me.Close suffit amplement.

Autre remarque, il est possible d'avoir le même résultat sans utiliser de programme externe et ça serait plus intéressant :-) .

Sinon c'est sympa.

oui je sais pour Quit à la place de me.close mais visiblement ca ne fait pas la meme chose... J'ai mis quit car me.close ne fermais pas le programme !

Pour info, l'exécution du programme depuis l'IDE fait cracher Gambas.

Une alerte s'affiche avec ce message :

This application has raised an unexpected
error and must abort.

[11] Unknown symbol 'Editor' in class 'FForm'.
Project.CompileError.2070

Au click sur le bouton OK, plus de Gambas !