Développement d'une application informatique d'échange de messagerie en réseau local

II.3.6. Quelques codes sources

? Code pour la création du setup avec l'IDE InnoSetup

; Script generated by the Inno Setup Script Wizard.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]

; NOTE: The value of AppId uniquely identifies this application.

; Do not use the same AppId value in installers for other applications.

; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

AppId={{88D2EEE5-6BF6-4D9E-8DB2-73DF1F6FF244}

AppName=Serv Mess Client

AppVersion=1.5

;AppVerName=Serv Mess Client 1.5

AppPublisher=Theocent_Soft, Inc.

AppPublisherURL=http://www.theocent.e-monsite.com/

AppSupportURL=http://www.theocent.e-monsite.com/

AppUpdatesURL=http://www.theocent.e-monsite.com/

DefaultDirName={pf}\Serv Mess Client

DefaultGroupName=Serv Mess Client

AllowNoIcons=yes

InfoBeforeFile=C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_de_satge

_2013\Service Messenger\Service_Messenger_Client\A lire.txt

InfoAfterFile=C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_de_satge_

2013\Service Messenger\Service_Messenger_Client\Readme.txt OutputDir=C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_de_satge_20

13\Out put setup

OutputBaseFilename=Serv Mess Client

SetupIconFile=C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_de_satge _2013\Service Messenger\Service_Messenger_Client\763.ico

Compression=lzma

SolidCompression=yes

WizardImageFile=C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_de_sa tge_2013\Me.bmp

[Files]

Page | 30

WizardSmallImageFile=C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_ de_satge_2013\Me.bmp

[Languages]

Name: "english"; MessagesFile: "compiler:Default.isl"

Name: "basque"; MessagesFile: "compiler:Languages\Basque.isl"

Name: "brazilianportuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"

Name: "catalan"; MessagesFile: "compiler:Languages\Catalan.isl"

Name: "czech"; MessagesFile: "compiler:Languages\Czech.isl"

Name: "danish"; MessagesFile: "compiler:Languages\Danish.isl"

Name: "dutch"; MessagesFile: "compiler:Languages\Dutch.isl"

Name: "finnish"; MessagesFile: "compiler:Languages\Finnish.isl"

Name: "french"; MessagesFile: "compiler:Languages\French.isl"

Name: "german"; MessagesFile: "compiler:Languages\German.isl"

Name: "hebrew"; MessagesFile: "compiler:Languages\Hebrew.isl"

Name: "hungarian"; MessagesFile: "compiler:Languages\Hungarian.isl"

Name: "italian"; MessagesFile: "compiler:Languages\Italian.isl"

Name: "japanese"; MessagesFile: "compiler:Languages\Japanese.isl"

Name: "mashi"; MessagesFile: "compiler:Languages\Mashi.isl"

Name: "norwegian"; MessagesFile: "compiler:Languages\Norwegian.isl"

Name: "polish"; MessagesFile: "compiler:Languages\Polish.isl"

Name: "portuguese"; MessagesFile: "compiler:Languages\Portuguese.isl"

Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

Name: "slovak"; MessagesFile: "compiler:Languages\Slovak.isl"

Name: "slovenian"; MessagesFile: "compiler:Languages\Slovenian.isl"

Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"

[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked; OnlyBelowVersion: 0,6.1

Page | 31

Source:

" C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_de_satge_20 13\Service Messenger\Service_Messenger_Client\Serv Mess Client.exe"; DestDir: "{app}"; Flags: ignoreversion

Source:

" C:\Users\Theocent\Documents\Mémoire_Theocent_L2_IG\Rapport_de_satge_20 13\Service Messenger\Service_Messenger_Client\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]

Name: "{group}\Serv Mess Client"; Filename: "{app}\Serv Mess Client.exe"

Name:

; NOTE: Don't use "Flags: ignoreversion" on any shared system files

"

{group}\{cm:ProgramOnTheWeb,Serv Mess Client}"; Filename:

"http://www.theocent.e-monsite.com/"

Name: "{group}\{cm:UninstallProgram,Serv Mess Client}"; Filename: "{uninstallexe}" Name: "{commondesktop}\Serv Mess Client"; Filename: "{app}\Serv Mess Client.exe"; Tasks: desktopicon

Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\Serv Mess Client"; Filename: "{app}\Serv Mess Client.exe"; Tasks: quicklaunchicon

[Run]

Filename: "{app}\Serv Mess Client.exe"; Description: "{cm:LaunchProgram,Serv Mess Client}"; Flags: nowait postinstall skipifsilent

Page | 32

? Code pour sélectionner l'adresse IP dans le combox du coté client Private Sub IpAddr_DropDown()

On Error GoTo FlErro

FlName = "IpConf"

IpAddr.Clear

Open "" & App.Path & "V" & FlName & ".txt" For Input As #1

Do While Not EOF(1)

DoEvents

Input #1, Datas

IpAddr.AddItem Datas

Loop

Close #1

FlErro:

If Err.Number = (53) Then

MsgBox "Fichier vide veuillez confugirez les adresses des machines correspondantes..."

Err.Clear

Open "" & App.Path & "VIpConf.txt" For Append As #2

Close #2

Else

Err.Clear

End If

End Sub

Page | 33

? Code pour l'envoi d'un message à un destinateur

Private Sub Command2_Click()

If SckSender.State = 7 Then

SckSender.SendData IpAddr & "|" & SckSender.LocalHostName & " : " & TxtSend

TxtDspl.AddItem SckSender.LocalHostName & " : " & TxtSend

TxtSend.Text = ""

TxtSend.SetFocus

Else

TxtDspl.AddItem SckSender.LocalHostName & " : " & TxtSend & " Vous êts deconnecter, texte non envoyé"

TxtSend.Text = "" TxtSend.SetFocus End If

End Sub

Cette liste n'est pas exhaustive !!!!!. Vous trouverez la suite sur le CD ROM qui est fournit
avec le présent rapport !

Page | 34