Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 5
Aller à la page: 1, 2, 3, 4, 5  >
[prog] Logiciel antivol et d'information gratuit (mail/ftp)
Auteur Message
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Bonjour,

Je vous annonce que je vais adapter mon programme IPSvc en batch vers autoit !
Normalement compatible à partir de windows 5.1 (xp) et optimisé pour être installé sur un parc informatique.

Statut du développement:
-Terminé

Aperçu:







Téléchargements:
(maj 05/05/2015)
version batch
IPSvc.au3 version beta



Dernière édition par Cαutex le Mar 5 Mai 2015 - 18:27; édité 72 fois

______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Bonsoir très intéressant projet Okay merci pour le partage le mieux maintenant est d'essai de contourner ton système pour trouver les failles et les sécurisé aussi puisque le code est open source vielle a ce qu'il ne soit pas utiliser illégalement



Visiter le site web du posteur
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Bonjour

Attention- Rappel : nous sommes sur un forum de partage...

Un bug d'affichage, il faut juste déplacer D'un chouilla
Edit on voit le bug quand on passe la souris.



Et un oublié dans input : input7


Ta bannière est mis dans les temporaires, les antivirus n'aiment pas trop ça, ils risquent de réagir en fp.

Je serai toi, je l'inclurai dans l'exe directement.

Belle interface Very Happy
Vu sous xp

Bon courage pour le developpement

Okay



Dernière édition par Laddy le Sam 18 Fév 2012 - 19:42; édité 2 fois

______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
merci laddy Smile

pour ce qui est du partage... je montrerait les sources quand mon projet sera fini (peut-être un peut avant pour vous donnée une idée de la chose)

pour ce qui est de la bannière, comment tu l’inclus directement ?? (j'ai déjà vu un forum qui en parle mais je ne le retrouve plus !)




______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Laisse moi 5 min et je t expliques

Edit :

ça va être un peu difficile sans avoir ton code de Gui.

Tu dois utiliser l udf resources.au3 telecharge le dans ce sujet : http://batch.xoo.it/t2349-UDF-Boite-a-ressources-disponibles.htm

Tu as dû utiliser fileinstall pour ton image. Il faut mettre en commentaire les deux lignes qui s'y rapportent.

Et à la place en haut du code tu mets ce type de ligne bien sur à adapter à ton profil, chemin de l image:


Code:
#AutoIt3Wrapper_Res_File_Add=C:\Users\Ton_Profil\Desktop\ProjetIPSCV\banniere.jpg, rt_rcdata, Banniere ; chemin de l'image, type, Nom_Image sans extension
#include <resources.au3> ; INTEGRATION DES RESSOURCES IMAGES :D La placer dans ton dossier include autoit


#cs
Source : viewtopic.php?f=11&t=513
_ResourceSetImageToCtrl($CtrlId, $ResName, $ResType = $RT_RCDATA, $DLL = -1)
    Ex :
    $background = GUICtrlCreatePic("", 16, 20, 290, 30) ;x16 y20 w290 h30
    _ResourceSetImageToCtrl(-1, "AVIRA_GIF")
#ce


Global $Pic1 = GUICtrlCreatePic("", 0, 0, 428, 76, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS)) ; on retire le nom de l'image dans GuiCtrlCreatePic
_ResourceSetImageToCtrl(-1, "banniere") ; utilisation de l'udf  et on ajoute le nom de l'image mise en #AutoIt3Wrapper_Res_File_Add


Et le tour est joué à la compilation l image sera intégrée à l executable.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
je viens de mettre à jour l'interface (disponible dans mon premier post)




______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
J'ai un problème: je n'arrive pas à passer un paramètre à une fonction puis la récupérer ensuite.

les deux fonctions impliqué:
Code:

Func _mail()
$SmtpServer=GUICtrlRead($Input10)
$FromName="IPSvc"
$FromAddress=GUICtrlRead($Input20)
$ToAddress=GUICtrlRead($Input11)


;DEBUT DU PROBLEME
_adapt($tmp_var = GUICtrlRead($Input19))
$Subject = $tmp_var
;FIN DU PROBLEME

$Body = "Message de test"
$AttachFiles = ""
$CcAddress = ""
$BccAddress = ""
$Username = GUICtrlRead($Input8)
$Password = GUICtrlRead($Input9)
$IPPort = GUICtrlRead($Input21)
if GUICtrlRead($radio9) = 1 then $ssl = 1
if GUICtrlRead($radio10) = 1 then $ssl = ""
$Importance = ""
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
GUICtrlSetState($Label25,$gui_show)
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
GUICtrlSetState($Label25,$GUI_HIDE)
EndFunc

Func _adapt($tmp_var)
StringReplace ( $tmp_var, "[computername]", @computername)
StringReplace ( $tmp_var, "[homedrive]", @homedrive)
StringReplace ( $tmp_var, "[homepath]", @homepath)
StringReplace ( $tmp_var, "[logonserver]", @logonserver)
StringReplace ( $tmp_var, "[OSVersion]", @OSVersion)
StringReplace ( $tmp_var, "[OSArch]", @OSArch)
StringReplace ( $tmp_var, "[WindowsDir]", @WindowsDir)
StringReplace ( $tmp_var, "[SystemDir]", @SystemDir)
StringReplace ( $tmp_var, "[username]", @username)
StringReplace ( $tmp_var, "[mday]", @mday)
StringReplace ( $tmp_var, "[mon]", @MON)
StringReplace ( $tmp_var, "[year]", @YEAR)
StringReplace ( $tmp_var, "[hour]", @HOUR)
StringReplace ( $tmp_var, "[min]", @min)
StringReplace ( $tmp_var, "[sec]", @sec)
StringReplace ( $tmp_var, "[date]", @MDAY & "-" & @MON & "-" & @YEAR)
StringReplace ( $tmp_var, "[time]", @HOUR & "h" & @MIN & "m" & @SEC)
StringReplace ( $tmp_var, "[ProgramFiles]", @ProgramFilesDir)
EndFunc





______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Bonsoir
je pense avoir compris ton soucis tu ne peux pas mettre une variable qui est égal à un résultat
c'est l equivalent de set toto ="bibi.txt" en batch
suivant ce que tu veux faire utile l'un des deux syntaxe données.

_adapt($tmp_var = GUICtrlRead($Input19))


essaie comme ça

Code:
$tmp_var = _adapt(GuiCtrlRead($Input19))
$Subject = $tmp_var


ou

Code:
$tmp_var =  GUICtrlRead($Input19) ; stockage de la lecture du contenu de l'input
$Subject = _adapt($tmp_var) ; application de la fonction sur l input



Espere que ça te dépannera.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Du coup la variable $tmp_var ne sert à rien donc tu peux faire directement :
Code:
$Subject = _adapt(GuiCtrlRead($Input19))


Je trouve l'interface très belle. Je vais sûrement l'utiliser car je trouve le logiciel très utile.

J'espère que tu vas réussir à utiliser la webcam parce que ça ne va pas être du gâteau non plus en Autoit (même si c'est possible).

Good luck !




______________________________________________________
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
@Laddy et sablier94: merci ce problème est résolu... mais j'en ai un nouveau Embarassed

J'appelle donc ma fonction par $Subject = _adapt(GUICtrlRead($Input19))GUICtrlRead($Input19) contien la chaine "IPSvc sur [computername] le [date]". Mais les chaines [computername] et [date] ne se mettent pas à jour et je ne vois vraiment pas pourquoi. j'ai testé StringReplace en dehors de la fonction _adapt() et sa marche très bien.
la deuxième msgbox me retourne "IPSvc sur [computername] le [date]" alors que sa devrait être "IPSvc sur PCXX le 22-02-2012"

Code:

Func _adapt($tmp_var)
MsgBox(0,"",$tmp_var)
StringReplace ( $tmp_var, "[computername]", @computername)
StringReplace ( $tmp_var, "[homedrive]", @homedrive)
StringReplace ( $tmp_var, "[homepath]", @homepath)
StringReplace ( $tmp_var, "[logonserver]", @logonserver)
StringReplace ( $tmp_var, "[OSVersion]", @OSVersion)
StringReplace ( $tmp_var, "[OSArch]", @OSArch)
StringReplace ( $tmp_var, "[WindowsDir]", @WindowsDir)
StringReplace ( $tmp_var, "[SystemDir]", @SystemDir)
StringReplace ( $tmp_var, "[username]", @username)
StringReplace ( $tmp_var, "[mday]", @mday)
StringReplace ( $tmp_var, "[mon]", @MON)
StringReplace ( $tmp_var, "[year]", @YEAR)
StringReplace ( $tmp_var, "[hour]", @HOUR)
StringReplace ( $tmp_var, "[min]", @min)
StringReplace ( $tmp_var, "[sec]", @sec)
StringReplace ( $tmp_var, "[date]", @MDAY & "-" & @MON & "-" & @YEAR)
StringReplace ( $tmp_var, "[time]", @HOUR & "h" & @MIN & "m" & @SEC)
StringReplace ( $tmp_var, "[ProgramFiles]", @ProgramFilesDir)
MsgBox(0,"",$tmp_var)
Return $tmp_var
EndFunc


@sablier94: merci, pour ce qui est de la webcam si je n'y arrive pas en autoit je passerai par une commande externe, dans tous les cas sa marchera. par contre je vais essayer (quand je serait à cette étape) de voir si je peut faire des screenshot depuis l’environnement system avec autoit (ce que je n'ai pas réussi à faire en batch)



Dernière édition par Cαutex le Mer 22 Fév 2012 - 16:31; édité 1 fois

______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Je n'ai pas compris le problème, si on avait au moins un bout de code avec une input et ce que tu aimerais je pourrai comprendre je pense
ou caputre d'écran

Désolé




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
@Laddy: la fonction _adapt ne marche tout simplement pas. Cette fonction est censé remplacer du texte dans la variable $tmp_var sauf qu'elle ne remplace rien du tout.


Voici le code complet:

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=IPSvconf.ico
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <resources.au3>
#Include <File.au3>
#include <FTP.au3>
#AutoIt3Wrapper_Res_File_Add=bannière.jpg, rt_rcdata, banniere
#AutoIt3Wrapper_Res_File_Add=btn_donate_SM.gif, rt_rcdata, don

#region
$variables_utilisables = "[variable_IPSvc]=résultat pour cet ordinateur" & @CRLF & @CRLF & _
"[computername]=" & @computername & @CRLF & _
"[homedrive]=" & @homedrive & @CRLF & _
"[homepath]=" & @homepath & @CRLF & _
"[logonserver]=" & @logonserver & @CRLF & _
"[OSVersion]=" & @OSVersion & @CRLF & _
"[OSArch]=" & @OSArch & @CRLF & _
"[WindowsDir]=" & @WindowsDir & @CRLF & _
"[SystemDir]=" & @SystemDir & @CRLF & _
"[username]=" & @username & @CRLF & _
"[MDAY]=" & @MDAY & @CRLF & _
"[MON]=" & @MON & @CRLF & _
"[YEAR]=" & @YEAR & @CRLF & _
"[HOUR]=" & @HOUR & @CRLF & _
"[MIN]=" & @MIN & @CRLF & _
"[SEC]=" & @SEC & @CRLF & _
"[DATE]=" & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF & _
"[TIME]=" & @HOUR & "h" & @MIN & "m" & @SEC & @CRLF & _
"[ProgramFiles]=" & @ProgramFilesDir & @CRLF & @CRLF & _
"ATTENTION, certaines variables ne sont pas disponnible sur tous les systèmes d'exploitation.)"
#Endregion

#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("IPSvc", 427, 495, 226, 192)
GUISetBkColor ( 0xF0F0F0 )
$Pic1 = GUICtrlCreatePic("", 8, 8, 409, 137)
_ResourceSetImageToCtrl(-1, "banniere")
GUICtrlCreateTab(8, 152, 409, 265)
$TabSheet1 = GUICtrlCreateTabItem("Configuration générale")
$Label14 = GUICtrlCreateLabel("Dossier d'installation:", 24, 185, 102, 17)
GUICtrlSetTip ( - 1 , $variables_utilisables)
$Input14 = GUICtrlCreateInput("[programfiles]\IPSvc", 136, 185, 273, 21)
$Label3 = GUICtrlCreateLabel("Nombre de test de connexion avant la fermeture d'IPSvc:", 24, 232, 274, 17)
$Input2 = GUICtrlCreateInput("12", 312, 232, 97, 21)
$Input3 = GUICtrlCreateInput("5", 312, 208, 97, 21)
$Label4 = GUICtrlCreateLabel("Ecart entre chaque test de connexion internet en minute:", 24, 208, 274, 17)
$Label5 = GUICtrlCreateLabel("Fichier à executer au lancement du service:", 24, 280, 210, 17)
GUICtrlSetTip ( - 1 , "Le service IPSvc peut éxecuter un fichier dans l'environement SYSTEM quand il démarre." )
$Input4 = GUICtrlCreateInput("", 240, 280, 169, 21)
$Label6 = GUICtrlCreateLabel("Message d'information à afficher pour cette configuration:", 24, 256, 274, 17)
GUICtrlSetTip ( - 1 , "Quand vous créez plusieurs configurations pour IPSvc, cette information pourra vous aider à l'identifier." )
$Input5 = GUICtrlCreateInput("Profile 1", 312, 256, 97, 21)
$TabSheet2 = GUICtrlCreateTabItem("Système antivol")
$Checkbox3 = GUICtrlCreateCheckbox("Activer", 20, 185, 65, 17)
$Label2 = GUICtrlCreateLabel("Images envoyé par:", 20, 209, 97, 17)
$Label13 = GUICtrlCreateLabel("Ip publique notifié par:", 20, 232, 108, 17)
GUIStartGroup()
$Radio11 = GUICtrlCreateRadio("Mail", 168, 208, 41, 17)
$Radio12 = GUICtrlCreateRadio("Ftp", 216, 208, 41, 17)
GUIStartGroup()
GUIStartGroup()
$Radio3 = GUICtrlCreateRadio("Mail", 168, 232, 41, 17)
$Radio4 = GUICtrlCreateRadio("Ftp", 216, 232, 41, 17)
GUIStartGroup()
$Label7 = GUICtrlCreateLabel("Mot de passe d'administration:", 20, 280, 146, 17)
GUICtrlSetTip ( - 1 , "Ce mot de passe est demandé lorsque l'utilisateur souhaite acceder à l'administration du système antivol." )
$Input6 = GUICtrlCreateInput("", 168, 280, 129, 21)
$Label24 = GUICtrlCreateLabel("Récupération des fichiers par: Ftp", 20, 256, 163, 17)
$TabSheet3 = GUICtrlCreateTabItem("Rapports")
$Checkbox8 = GUICtrlCreateCheckbox("Envoi du rapport sur détection wan:", 20, 209, 185, 17)
$Input1 = GUICtrlCreateInput("30", 157, 281, 33, 21)
GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Activer", 124, 185, 57, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Envoi périodique tous les", 20, 281, 137, 17)
$Label1 = GUICtrlCreateLabel("jour(s)", 192, 280, 32, 17)
$Group1 = GUICtrlCreateGroup("Contenu du rapport", 16, 304, 393, 105)
$Checkbox5 = GUICtrlCreateCheckbox("Informations générales", 24, 320, 161, 17)
GUICtrlSetTip ( - 1 , "Nom de l'ordinateur, numéro de série, type, UUID, marque, version, propriétaire, date d'installation originale, RAM, cartes réseaux, etc..." )
$Checkbox4 = GUICtrlCreateCheckbox("Démarrages/Arrêts", 24, 336, 129, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Système d'eploitation", 24, 352, 121, 17)
GUICtrlSetTip ( - 1 , "Nom du système, service pack installé, architecture, lague, version, etc..." )
$Checkbox10 = GUICtrlCreateCheckbox("Nombre d'ouverture des sessions", 24, 368, 177, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Processeur", 24, 384, 169, 17)
GUICtrlSetTip ( - 1 , "Architecture, cache, fréquence, nom, nombre de processeurs, nombre de thread, etc..." )
$Checkbox12 = GUICtrlCreateCheckbox("Bios", 216, 312, 169, 17)
GUICtrlSetTip ( - 1 , "Fabricant, nom, version." )
$Checkbox13 = GUICtrlCreateCheckbox("Stockage (lecteurs et disques)", 216, 328, 169, 17)
GUICtrlSetTip ( - 1 , "taille, format, lettre, espace libre, nom, numéro de série, etc..." )
$Checkbox14 = GUICtrlCreateCheckbox("Utilisateurs", 216, 344, 161, 17)
GUICtrlSetTip ( - 1 , "Type de compte, description, domaine, nom, mdp modifiable, mdp expiration, mdp requis, SID, SIDtype, status, etc..." )
$Checkbox15 = GUICtrlCreateCheckbox("Logiciels", 216, 360, 113, 17)
GUICtrlSetTip ( - 1 , "Nom, version, dossier d'installation, fabricant, date d'installation." )
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUIStartGroup()
$Radio1 = GUICtrlCreateRadio("par mail", 184, 184, 57, 17)
$Radio2 = GUICtrlCreateRadio("par ftp", 248, 184, 49, 17)
GUIStartGroup()
GUIStartGroup()
$Radio13 = GUICtrlCreateRadio("quand l'ip publique est différente", 40, 232, 177, 17)
GUICtrlSetTip ( - 1 , "Le rapport est envoyé à chaque fois que l'ip publique détecté est différente de la précédente." )
$Radio14 = GUICtrlCreateRadio("à chaque connexion", 40, 256, 161, 17)
GUICtrlSetTip ( - 1 , "Le rapport est envoyé à chaque fois qu'une connexion internet est détecté." )
GUIStartGroup()
$Label12 = GUICtrlCreateLabel("Mode de la liste d'adresse ip:", 264, 224, 140, 17)
GUIStartGroup()
$Radio5 = GUICtrlCreateRadio("Blanche", 264, 248, 73, 17)
GUICtrlSetTip ( - 1 , "Le rapport est envoyé si l'adresse ip publique actuelle n'existe pas dans la liste d'adresse ip" )
$Radio6 = GUICtrlCreateRadio("Noir", 264, 272, 73, 17)
GUICtrlSetTip ( - 1 , "Le rapport est envoyé si l'adresse ip publique actuelle existe dans la liste d'adresse ip" )
GUIStartGroup()
$TabSheet4 = GUICtrlCreateTabItem("Mail")
$Label25 = GUICtrlCreateLabel("Traitement en cours ...", 150, 390, 120, 17)
GUICtrlSetState(-1,$GUI_HIDE)
$Checkbox2 = GUICtrlCreateCheckbox("Utiliser les mails", 20, 185, 121, 17)
GUICtrlSetTip ( - 1 , "Pour que l'envoi de mail fonctionne sur tous les fai, utilisez une configuration no filtré comme gmail qui est gratuit et sécurisé (ssl)." & @CRLF & "Pour des raisons de sécurité, il est conseillé de créer un compte de messagerie dédié uniquement à IPSvc car les informations confidentielles contenu dans le programme ne son pas à l'abri d'une décompilation.")
$Label8 = GUICtrlCreateLabel("Identifiant:", 20, 209, 53, 17)
GUICtrlSetTip ( - 1 , "Identifiant utilisé pour se connecter au serveur smtp." & @CRLF & "Exemple: nom.prenom@domaine.com" )
$Label9 = GUICtrlCreateLabel("Mdp:", 276, 209, 28, 17)
GUICtrlSetTip ( - 1 , "Mot de passe utilisé pour se connecter au serveur smtp")
$Label10 = GUICtrlCreateLabel("Smtp:", 20, 233, 31, 17)
GUICtrlSetTip ( - 1 , "Serveur smtp qui servira à envoyer les mail." & @CRLF & "Exemple: smtp.gmail.com")
$Input8 = GUICtrlCreateInput("", 76, 209, 193, 21)
$Input9 = GUICtrlCreateInput("", 316, 209, 89, 21)
$Input10 = GUICtrlCreateInput("", 76, 233, 193, 21)
$Label11 = GUICtrlCreateLabel("Ssl:", 276, 257, 21, 17)
GUICtrlSetTip ( - 1 , "Vous pouvez activer le ssl si votre serveur de messagerie le prend en charge." & @CRLF & "Gmail impose l'utilisation de ssl")
$Radio9 = GUICtrlCreateRadio("Oui", 316, 257, 33, 17)
$Radio10 = GUICtrlCreateRadio("Non", 364, 257, 41, 17)
$Label19 = GUICtrlCreateLabel("Port:", 276, 233, 26, 17)
GUICtrlSetTip ( - 1 , "Port du serveur smtp." & @CRLF & "Gmail: 465")
$Label20 = GUICtrlCreateLabel("Emmeteur:", 20, 257, 54, 17)
GUICtrlSetTip ( - 1 , "Nom qui apparaitra comme étant l'emmeteur du mail.")
$Label21 = GUICtrlCreateLabel("Sujet:", 20, 281, 31, 17)
GUICtrlSetTip ( - 1 , $variables_utilisables)
$Label22 = GUICtrlCreateLabel("Récepteur:", 20, 305, 57, 17)
GUICtrlSetTip ( - 1 , "pour désigner plusieurs destinataires: mail1@domaine.com, mail2@domaine.com")
$Input11 = GUICtrlCreateInput("", 76, 305, 329, 21)
$Input19 = GUICtrlCreateInput("IPSvc sur [computername] le [date]", 76, 281, 329, 21)
$Input20 = GUICtrlCreateInput("IP@service.com", 76, 257, 193, 21)
$Input21 = GUICtrlCreateInput("25", 316, 233, 89, 21)
$Button1 = GUICtrlCreateButton("Envoyer un mail de test", 144, 360, 123, 25)
$TabSheet5 = GUICtrlCreateTabItem("Ftp")
$Checkbox7 = GUICtrlCreateCheckbox("Utiliser un dossier ftp personnel", 20, 185, 185, 17)
$Label15 = GUICtrlCreateLabel("Identifiant:", 20, 209, 53, 17)
$Input15 = GUICtrlCreateInput("", 92, 209, 313, 21)
$Input16 = GUICtrlCreateInput("", 92, 233, 313, 21)
$Input17 = GUICtrlCreateInput("", 92, 257, 313, 21)
$Label16 = GUICtrlCreateLabel("Mot de passe:", 20, 233, 71, 17)
$Label17 = GUICtrlCreateLabel("Adresse:", 20, 257, 45, 17)
GUICtrlSetTip ( - 1 , "Adresse du serveur [url=http://ftp.]ftp."[/url] & @CRLF & "Exemple: adresse.fr")
$Label18 = GUICtrlCreateLabel("Nom des fichier de rapport:", 20, 305, 131, 17)
GUICtrlSetTip ( - 1 , $variables_utilisables)
$Input18 = GUICtrlCreateInput("[computername] le [date] a [time]", 156, 305, 249, 21)
$Checkbox16 = GUICtrlCreateCheckbox("SSL", 20, 329, 185, 17)
GUICtrlSetTip ( - 1 , "Si cette option est coché, le transfert de fichier se fera par FTPS.")
$Button3 = GUICtrlCreateButton("Tester", 90, 360, 113, 25)
$Button7 = GUICtrlCreateButton("Ouvrir", 220, 360, 113, 25)
$Label26 = GUICtrlCreateLabel("Traitement en cours ...", 92, 390, 120, 17)
GUICtrlSetState(-1,$GUI_HIDE)
$Label23 = GUICtrlCreateLabel("Dossier:", 20, 280, 42, 17)
GUICtrlSetTip ( - 1 , "Dossier à utiliser." & @CRLF & "Exemple: /dossier 1/dossier 2")
$Input7 = GUICtrlCreateInput("", 92, 280, 313, 21)
GUICtrlCreateTabItem("")
$Button2 = GUICtrlCreateButton("Créer votre programme IPSvc configuré", 24, 424, 377, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetBkColor(-1, 0xF0F0F0)
$Pic3 = GUICtrlCreatePic("", 317, 466, 100, 20)
_ResourceSetImageToCtrl(-1, "don")
$Button6 = GUICtrlCreateButton("Mise à jours", 249, 464, 65, 25)
$Button4 = GUICtrlCreateButton("Exporter la configuration", 3, 464, 121, 25)
GUICtrlSetTip ( - 1 , "Vous pouvez exporter la configuration en cous ou en importer une depuis un fichier." )
$Button5 = GUICtrlCreateButton("Importer la configuration", 127, 464, 119, 25)
GUICtrlSetTip ( - 1 , "Vous pouvez exporter la configuration en cous ou en importer une depuis un fichier." )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_set_gui_defaut()

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      case $Checkbox3
         _up_systeme_antivol()
      Case $Pic3
         msgbox(0,"", "Lien Paypal")
      case $Checkbox2
         _up_mail()
      Case $Checkbox1
         _up_rapports()
      case $Checkbox7
         _up_ftp()
      Case $Button4
         _export_conf()
      Case $Button5
         _import_conf()
      case $Button1
         _mail()
      case $Button3
         _ftp()
      case $Button7
         _open_ftp()
   EndSwitch
WEnd

Func _export_conf()
   $tmp_var = FileSaveDialog("Fichier d'exportation", @DesktopDir & "\", "Fichiers .ini (*.ini)",0, "IPSvconf.ini")
   If $tmp_var Then
      If FileExists($tmp_var) = 1 Then
         $tmp_var2 = MsgBox(3 + 32, "", "Ecraser le fichier existant ?")
         if $tmp_var2 <> 6 then Return
      Endif
      $tmp_var2 = "Dossier d'installation=" & $Input14 & "=" & GUICtrlRead($Input14) & "=$Input14" & _
      @CRLF & "Ecart entre chaque test de connexion internet en minute=" & $Input3 & "=" & GUICtrlRead($Input3) & "=$Input3" & _
      @CRLF & "Nombre de test de connexion avant la fermeture d'IPSvc=" & $Input2 & "=" & GUICtrlRead($Input2) & "=$Input2" & _
      @CRLF & "Message d'information à afficher pour cette configuration=" & $Input5 & "=" & GUICtrlRead($Input5) & "=$Input5" & _
      @CRLF & "Fichier à executer au lancement du service=" & $Input4 & "=" & GUICtrlRead($Input4) & "=$Input4" & _
      @CRLF & "Activer système antivol=" & $Checkbox3 & "=" & GUICtrlRead($Checkbox3) & "=$Checkbox3" & _
      @CRLF & "Images envoyé par mail=" & $Radio11 & "=" & GUICtrlRead($Radio11) & "=$Radio11" & _
      @CRLF & "Images envoyé par ftp=" & $Radio12 & "=" & GUICtrlRead($Radio12) & "=$Radio12" & _
      @CRLF & "Ip publique notifié par mail=" & $Radio3 & "=" & GUICtrlRead($Radio3) & "=$Radio3" & _
      @CRLF & "Ip publique notifié par ftp=" & $Radio4 & "=" & GUICtrlRead($Radio4) & "=$Radio4" & _
      @CRLF & "Mot de passe d'administration=" & $Input6 & "=" & GUICtrlRead($Input6) & "=$Input6" & _
      @CRLF & "Activer rapports=" & $Checkbox1 & "=" & GUICtrlRead($Checkbox1) & "=$Checkbox1" & _
      @CRLF & "par mail=" & $Radio1 & "=" & GUICtrlRead($Radio1) & "=$Radio1" & _
      @CRLF & "Par ftp=" & $Radio2 & "=" & GUICtrlRead($Radio2) & "=$Radio2" & _
      @CRLF & "=" & $Checkbox2 & "=" & GUICtrlRead($Checkbox2) & "=$Checkbox2" & _
      @CRLF & "=" & $Checkbox4 & "=" & GUICtrlRead($Checkbox4) & "=$Checkbox4" & _
      @CRLF & "=" & $Checkbox5 & "=" & GUICtrlRead($Checkbox5) & "=$Checkbox5" & _
      @CRLF & "=" & $Checkbox6 & "=" & GUICtrlRead($Checkbox6) & "=$Checkbox6" & _
      @CRLF & "=" & $Checkbox7 & "=" & GUICtrlRead($Checkbox7) & "=$Checkbox7" & _
      @CRLF & "=" & $Checkbox8 & "=" & GUICtrlRead($Checkbox8) & "=$Checkbox8" & _
      @CRLF & "=" & $Checkbox9 & "=" & GUICtrlRead($Checkbox9) & "=$Checkbox9" & _
      @CRLF & "=" & $Checkbox10 & "=" & GUICtrlRead($Checkbox10) & "=$Checkbox10" & _
      @CRLF & "=" & $Checkbox11 & "=" & GUICtrlRead($Checkbox11) & "=$Checkbox11" & _
      @CRLF & "=" & $Checkbox12 & "=" & GUICtrlRead($Checkbox12) & "=$Checkbox12" & _
      @CRLF & "=" & $Checkbox13 & "=" & GUICtrlRead($Checkbox13) & "=$Checkbox13" & _
      @CRLF & "=" & $Checkbox14 & "=" & GUICtrlRead($Checkbox14) & "=$Checkbox14" & _
      @CRLF & "=" & $Checkbox15 & "=" & GUICtrlRead($Checkbox15) & "=$Checkbox15" & _
      @CRLF & "=" & $Checkbox16 & "=" & GUICtrlRead($Checkbox16) & "=$Checkbox16" & _
      @CRLF & "=" & $Radio5 & "=" & GUICtrlRead($Radio5) & "=$Radio5" & _
      @CRLF & "=" & $Radio6 & "=" & GUICtrlRead($Radio6) & "=$Radio6" & _
      @CRLF & "=" & $Radio9 & "=" & GUICtrlRead($Radio9) & "=$Radio9" & _
      @CRLF & "=" & $Radio10 & "=" & GUICtrlRead($Radio10) & "=$Radio10" & _
      @CRLF & "=" & $Radio13 & "=" & GUICtrlRead($Radio13) & "=$Radio13" & _
      @CRLF & "=" & $Radio14 & "=" & GUICtrlRead($Radio14) & "=$Radio14" & _
      @CRLF & "=" & $input1 & "=" & GUICtrlRead($Input1) & "=$Input1" & _
      @CRLF & "=" & $Input7 & "=" & GUICtrlRead($Input7) & "=$Input7" & _
      @CRLF & "=" & $Input8 & "=" & GUICtrlRead($Input8) & "=$Input8" & _
      @CRLF & "=" & $Input9 & "=" & GUICtrlRead($Input9) & "=$Input9" & _
      @CRLF & "=" & $Input10 & "=" & GUICtrlRead($Input10) & "=$Input10" & _
      @CRLF & "=" & $Input11 & "=" & GUICtrlRead($Input11) & "=$Input11" & _
      @CRLF & "=" & $Input15 & "=" & GUICtrlRead($Input15) & "=$Input15" & _
      @CRLF & "=" & $Input16 & "=" & GUICtrlRead($Input16) & "=$Input16" & _
      @CRLF & "=" & $Input17 & "=" & GUICtrlRead($Input17) & "=$Input17" & _
      @CRLF & "=" & $Input18 & "=" & GUICtrlRead($Input18) & "=$Input18" & _
      @CRLF & "=" & $Input19 & "=" & GUICtrlRead($Input19) & "=$Input19" & _
      @CRLF & "=" & $Input20 & "=" & GUICtrlRead($Input20) & "=$Input20" & _
      @CRLF & "=" & $Input21 & "=" & GUICtrlRead($Input21) & "=$Input21"
      If FileExists($tmp_var) = 1 Then FileDelete($tmp_var)
      Filewrite($tmp_var, $tmp_var2)
   EndIf
EndFunc

Func _import_conf()
   $tmp_var = FileOpenDialog("Fichier d'importation", @DesktopDir, "Fichiers .ini (*.ini)",0)
      If FileExists($tmp_var) = 1 Then
         $read = FileRead($tmp_var)
         $line = StringSplit($read, @CR)
         For $i = 1 To $line[0]
            $var = FileReadLine($tmp_var, $i)
            $c1 = StringSplit($var, "=")
            if StringLeft ( $c1[4], 6 ) = "$Input" then GUICtrlSetData($c1[2], $c1[3])
            if StringLeft ( $c1[4], 6 ) = "$Radio" then GUICtrlSetState($c1[2], $c1[3])
            if StringLeft ( $c1[4], 9 ) = "$Checkbox" then
               $tmp_var3 = GUICtrlRead($c1[2])
               GUICtrlSetState($c1[2], $c1[3])
               If $tmp_var3 <> GUICtrlRead($c1[2]) then
                  if StringLeft ( $c1[4], 10 ) = "$Checkbox3" then _up_systeme_antivol()
                  if StringLeft ( $c1[4], 10 ) = "$Checkbox1" then _up_rapports()
                  if StringLeft ( $c1[4], 10 ) = "$Checkbox7" then _up_ftp()
                  if StringLeft ( $c1[4], 10 ) = "$Checkbox2" then _up_mail()
               EndIf
            EndIf
         Next
      Endif
EndFunc

Func _up_systeme_antivol()
   If GUICtrlGetState ( $Label2 ) = 144 Then
      GUICtrlSetState($Label2, $GUI_ENABLE)
      GUICtrlSetState($Radio11, $GUI_ENABLE)
      GUICtrlSetState($Radio12, $GUI_ENABLE)
      GUICtrlSetState($Radio3, $GUI_ENABLE)
      GUICtrlSetState($Radio4, $GUI_ENABLE)
      GUICtrlSetState($Label13, $GUI_ENABLE)
      GUICtrlSetState($Label24, $GUI_ENABLE)
      GUICtrlSetState($Label7, $GUI_ENABLE)
      GUICtrlSetState($Input6, $GUI_ENABLE)
   Else
      GUICtrlSetState($Label2, $GUI_DISABLE)
      GUICtrlSetState($Radio11, $GUI_DISABLE)
      GUICtrlSetState($Radio12, $GUI_DISABLE)
      GUICtrlSetState($Radio3, $GUI_DISABLE)
      GUICtrlSetState($Radio4, $GUI_DISABLE)
      GUICtrlSetState($Label13, $GUI_DISABLE)
      GUICtrlSetState($Label24, $GUI_DISABLE)
      GUICtrlSetState($Label7, $GUI_DISABLE)
      GUICtrlSetState($Input6, $GUI_DISABLE)
   EndIf
EndFunc

Func _up_rapports()
   If GUICtrlGetState ($Checkbox8 ) = 144 Then
      GUICtrlSetState($Checkbox8, $GUI_ENABLE)
      GUICtrlSetState($Radio1, $GUI_ENABLE)
      GUICtrlSetState($Radio2, $GUI_ENABLE)
      GUICtrlSetState($Radio5, $GUI_ENABLE)
      GUICtrlSetState($Radio6, $GUI_ENABLE)
      GUICtrlSetState($Radio13, $GUI_ENABLE)
      GUICtrlSetState($Radio14, $GUI_ENABLE)
      GUICtrlSetState($Label12, $GUI_ENABLE)
      GUICtrlSetState($Checkbox9, $GUI_ENABLE)
      GUICtrlSetState($label1, $GUI_ENABLE)
      GUICtrlSetState($input1, $GUI_ENABLE)
      GUICtrlSetState($Checkbox4, $GUI_ENABLE)
      GUICtrlSetState($Checkbox5, $GUI_ENABLE)
      GUICtrlSetState($Checkbox6, $GUI_ENABLE)
      GUICtrlSetState($Checkbox10, $GUI_ENABLE)
      GUICtrlSetState($Checkbox15, $GUI_ENABLE)
      GUICtrlSetState($Checkbox11, $GUI_ENABLE)
      GUICtrlSetState($Checkbox12, $GUI_ENABLE)
      GUICtrlSetState($Checkbox13, $GUI_ENABLE)
      GUICtrlSetState($Checkbox14, $GUI_ENABLE)
   Else
      GUICtrlSetState($Checkbox8, $GUI_DISABLE)
      GUICtrlSetState($Radio1, $GUI_DISABLE)
      GUICtrlSetState($Radio2, $GUI_DISABLE)
      GUICtrlSetState($Radio5, $GUI_DISABLE)
      GUICtrlSetState($Radio6, $GUI_DISABLE)
      GUICtrlSetState($Radio13, $GUI_DISABLE)
      GUICtrlSetState($Radio14, $GUI_DISABLE)
      GUICtrlSetState($Label12, $GUI_DISABLE)
      GUICtrlSetState($Checkbox9, $GUI_DISABLE)
      GUICtrlSetState($label1, $GUI_DISABLE)
      GUICtrlSetState($input1, $GUI_DISABLE)
      GUICtrlSetState($Checkbox4, $GUI_DISABLE)
      GUICtrlSetState($Checkbox5, $GUI_DISABLE)
      GUICtrlSetState($Checkbox6, $GUI_DISABLE)
      GUICtrlSetState($Checkbox10, $GUI_DISABLE)
      GUICtrlSetState($Checkbox15, $GUI_DISABLE)
      GUICtrlSetState($Checkbox11, $GUI_DISABLE)
      GUICtrlSetState($Checkbox12, $GUI_DISABLE)
      GUICtrlSetState($Checkbox13, $GUI_DISABLE)
      GUICtrlSetState($Checkbox14, $GUI_DISABLE)
   EndIf
EndFunc

func _up_mail()
   If GUICtrlGetState ($label8 ) = 144 Then
      GUICtrlSetState($label8, $GUI_ENABLE)
      GUICtrlSetState($label9, $GUI_ENABLE)
      GUICtrlSetState($label10, $GUI_ENABLE)
      GUICtrlSetState($Input8, $GUI_ENABLE)
      GUICtrlSetState($input9, $GUI_ENABLE)
      GUICtrlSetState($input10, $GUI_ENABLE)
      GUICtrlSetState($Label11, $GUI_ENABLE)
      GUICtrlSetState($Radio9, $GUI_ENABLE)
      GUICtrlSetState($Radio10, $GUI_ENABLE)
      GUICtrlSetState($Label19, $GUI_ENABLE)
      GUICtrlSetState($Label20, $GUI_ENABLE)
      GUICtrlSetState($Label21, $GUI_ENABLE)
      GUICtrlSetState($Label22, $GUI_ENABLE)
      GUICtrlSetState($Input11, $GUI_ENABLE)
      GUICtrlSetState($Input19, $GUI_ENABLE)
      GUICtrlSetState($Input20, $GUI_ENABLE)
      GUICtrlSetState($Input21, $GUI_ENABLE)
      GUICtrlSetState($Button1, $GUI_ENABLE)
   Else
      GUICtrlSetState($label8, $GUI_DISABLE)
      GUICtrlSetState($label9, $GUI_DISABLE)
      GUICtrlSetState($label10, $GUI_DISABLE)
      GUICtrlSetState($Input8, $GUI_DISABLE)
      GUICtrlSetState($input9, $GUI_DISABLE)
      GUICtrlSetState($input10, $GUI_DISABLE)
      GUICtrlSetState($Label11, $GUI_DISABLE)
      GUICtrlSetState($Radio9, $GUI_DISABLE)
      GUICtrlSetState($Radio10, $GUI_DISABLE)
      GUICtrlSetState($Label19, $GUI_DISABLE)
      GUICtrlSetState($Label20, $GUI_DISABLE)
      GUICtrlSetState($Label21, $GUI_DISABLE)
      GUICtrlSetState($Label22, $GUI_DISABLE)
      GUICtrlSetState($Input11, $GUI_DISABLE)
      GUICtrlSetState($Input19, $GUI_DISABLE)
      GUICtrlSetState($Input20, $GUI_DISABLE)
      GUICtrlSetState($Input21, $GUI_DISABLE)
      GUICtrlSetState($Button1, $GUI_DISABLE)
   EndIf
EndFunc

Func _up_ftp()
   If GUICtrlGetState ($Label15) = 144 Then
      GUICtrlSetState($Label15, $GUI_ENABLE)
      GUICtrlSetState($Input15, $GUI_ENABLE)
      GUICtrlSetState($Input16, $GUI_ENABLE)
      GUICtrlSetState($Input17, $GUI_ENABLE)
      GUICtrlSetState($Label16, $GUI_ENABLE)
      GUICtrlSetState($Label17, $GUI_ENABLE)
      GUICtrlSetState($Label18, $GUI_ENABLE)
      GUICtrlSetState($Input18, $GUI_ENABLE)
      GUICtrlSetState($Checkbox16, $GUI_ENABLE)
      GUICtrlSetState($Label23, $GUI_ENABLE)
      GUICtrlSetState($Input7, $GUI_ENABLE)
      GUICtrlSetState($Button7, $GUI_ENABLE)
   Else
      GUICtrlSetState($Label15, $GUI_DISABLE)
      GUICtrlSetState($Input15, $GUI_DISABLE)
      GUICtrlSetState($Input16, $GUI_DISABLE)
      GUICtrlSetState($Input17, $GUI_DISABLE)
      GUICtrlSetState($Label16, $GUI_DISABLE)
      GUICtrlSetState($Label17, $GUI_DISABLE)
      GUICtrlSetState($Label18, $GUI_DISABLE)
      GUICtrlSetState($Input18, $GUI_DISABLE)
      GUICtrlSetState($Checkbox16, $GUI_DISABLE)
      GUICtrlSetState($Label23, $GUI_DISABLE)
      GUICtrlSetState($Input7, $GUI_DISABLE)
      GUICtrlSetState($Button7, $GUI_DISABLE)
   EndIf
EndFunc

Func _set_gui_defaut()
   GUICtrlSetState($Label2, $GUI_DISABLE)
   GUICtrlSetState($Radio11, $GUI_DISABLE)
   GUICtrlSetState($Radio11, $GUI_CHECKED)
   GUICtrlSetState($Radio12, $GUI_DISABLE)
   GUICtrlSetState($Radio3, $GUI_DISABLE)
   GUICtrlSetState($Radio3, $GUI_CHECKED)
   GUICtrlSetState($Radio4, $GUI_DISABLE)
   GUICtrlSetState($Label13, $GUI_DISABLE)
   GUICtrlSetState($Label24, $GUI_DISABLE)
   GUICtrlSetState($Label7, $GUI_DISABLE)
   GUICtrlSetState($Input6, $GUI_DISABLE)

   GUICtrlSetState($Checkbox8, $GUI_DISABLE)
   GUICtrlSetState($Radio1, $GUI_DISABLE)
   GUICtrlSetState($Radio1, $GUI_CHECKED)
   GUICtrlSetState($Radio2, $GUI_DISABLE)
   GUICtrlSetState($Radio5, $GUI_DISABLE)
   GUICtrlSetState($Radio5, $GUI_CHECKED)
   GUICtrlSetState($Radio6, $GUI_DISABLE)
   GUICtrlSetState($Radio13, $GUI_DISABLE)
   GUICtrlSetState($Radio13, $GUI_CHECKED)
   GUICtrlSetState($Radio14, $GUI_DISABLE)
   GUICtrlSetState($Label12, $GUI_DISABLE)
   GUICtrlSetState($Checkbox9, $GUI_DISABLE)
   GUICtrlSetState($label1, $GUI_DISABLE)
   GUICtrlSetState($input1, $GUI_DISABLE)
   GUICtrlSetState($Checkbox4, $GUI_DISABLE)
   GUICtrlSetState($Checkbox4, $GUI_CHECKED)
   GUICtrlSetState($Radio11, $GUI_CHECKED)
   GUICtrlSetState($Checkbox5, $GUI_DISABLE)
   GUICtrlSetState($Checkbox5, $GUI_CHECKED)
   GUICtrlSetState($Checkbox6, $GUI_DISABLE)
   GUICtrlSetState($Checkbox6, $GUI_CHECKED)
   GUICtrlSetState($Checkbox10, $GUI_DISABLE)
   GUICtrlSetState($Checkbox10, $GUI_CHECKED)
   GUICtrlSetState($Checkbox15, $GUI_DISABLE)
   GUICtrlSetState($Checkbox15, $GUI_CHECKED)
   GUICtrlSetState($Checkbox11, $GUI_DISABLE)
   GUICtrlSetState($Checkbox11, $GUI_CHECKED)
   GUICtrlSetState($Checkbox12, $GUI_DISABLE)
   GUICtrlSetState($Checkbox12, $GUI_CHECKED)
   GUICtrlSetState($Checkbox13, $GUI_DISABLE)
   GUICtrlSetState($Checkbox13, $GUI_CHECKED)
   GUICtrlSetState($Checkbox14, $GUI_DISABLE)
   GUICtrlSetState($Checkbox14, $GUI_CHECKED)

   GUICtrlSetState($label8, $GUI_DISABLE)
   GUICtrlSetState($label9, $GUI_DISABLE)
   GUICtrlSetState($label10, $GUI_DISABLE)
   GUICtrlSetState($Input8, $GUI_DISABLE)
   GUICtrlSetState($input9, $GUI_DISABLE)
   GUICtrlSetState($input10, $GUI_DISABLE)
   GUICtrlSetState($Label11, $GUI_DISABLE)
   GUICtrlSetState($Radio9, $GUI_DISABLE)
   GUICtrlSetState($Radio9, $GUI_CHECKED)
   GUICtrlSetState($Radio10, $GUI_DISABLE)
   GUICtrlSetState($Label19, $GUI_DISABLE)
   GUICtrlSetState($Label20, $GUI_DISABLE)
   GUICtrlSetState($Label21, $GUI_DISABLE)
   GUICtrlSetState($Label22, $GUI_DISABLE)
   GUICtrlSetState($Input11, $GUI_DISABLE)
   GUICtrlSetState($Input19, $GUI_DISABLE)
   GUICtrlSetState($Input20, $GUI_DISABLE)
   GUICtrlSetState($Input21, $GUI_DISABLE)
   GUICtrlSetState($Button1, $GUI_DISABLE)

   GUICtrlSetState($Label15, $GUI_DISABLE)
   GUICtrlSetState($Input15, $GUI_DISABLE)
   GUICtrlSetState($Input16, $GUI_DISABLE)
   GUICtrlSetState($Input17, $GUI_DISABLE)
   GUICtrlSetState($Label16, $GUI_DISABLE)
   GUICtrlSetState($Label17, $GUI_DISABLE)
   GUICtrlSetState($Label18, $GUI_DISABLE)
   GUICtrlSetState($Input18, $GUI_DISABLE)
   GUICtrlSetState($Checkbox16, $GUI_DISABLE)
   GUICtrlSetState($Label23, $GUI_DISABLE)
   GUICtrlSetState($Input7, $GUI_DISABLE)
   GUICtrlSetState($Button7, $GUI_DISABLE)
EndFunc

Func _mail()
GUICtrlSetState($Label25,$gui_show)
$SmtpServer=GUICtrlRead($Input10)
$FromName="IPSvc"
$FromAddress=GUICtrlRead($Input20)
$ToAddress=GUICtrlRead($Input11)
$Subject = _adapt(GUICtrlRead($Input19))
$Body = "Message de test"
$AttachFiles = ""
$CcAddress = ""
$BccAddress = ""
$Username = GUICtrlRead($Input8)
$Password = GUICtrlRead($Input9)
$IPPort = GUICtrlRead($Input21)
if GUICtrlRead($radio9) = 1 then $ssl = 1
if GUICtrlRead($radio10) = 1 then $ssl = ""
$Importance = ""
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
GUICtrlSetState($Label25,$GUI_HIDE)
EndFunc

Func _adapt($tmp_var)
MsgBox(0,"",$tmp_var)
StringReplace ( $tmp_var, "[computername]", @computername)
StringReplace ( $tmp_var, "[homedrive]", @homedrive)
StringReplace ( $tmp_var, "[homepath]", @homepath)
StringReplace ( $tmp_var, "[logonserver]", @logonserver)
StringReplace ( $tmp_var, "[OSVersion]", @OSVersion)
StringReplace ( $tmp_var, "[OSArch]", @OSArch)
StringReplace ( $tmp_var, "[WindowsDir]", @WindowsDir)
StringReplace ( $tmp_var, "[SystemDir]", @SystemDir)
StringReplace ( $tmp_var, "[username]", @username)
StringReplace ( $tmp_var, "[mday]", @mday)
StringReplace ( $tmp_var, "[mon]", @MON)
StringReplace ( $tmp_var, "[year]", @YEAR)
StringReplace ( $tmp_var, "[hour]", @HOUR)
StringReplace ( $tmp_var, "[min]", @min)
StringReplace ( $tmp_var, "[sec]", @sec)
StringReplace ( $tmp_var, "[date]", @MDAY & "-" & @MON & "-" & @YEAR)
StringReplace ( $tmp_var, "[time]", @HOUR & "h" & @MIN & "m" & @SEC)
StringReplace ( $tmp_var, "[ProgramFiles]", @ProgramFilesDir)
MsgBox(0,"",$tmp_var)
Return $tmp_var
EndFunc

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance="Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
    Local $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
            ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
                SetError(1)
                Return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    If Number($IPPort) = 0 then $IPPort = 25
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
    ;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
    ;Update settings
    $objEmail.Configuration.Fields.Update
    ; Set Email Importance
    Switch $s_Importance
        Case "High"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "High"
        Case "Normal"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Normal"
        Case "Low"
            $objEmail.Fields.Item ("urn:schemas:mailheader:Importance") = "Low"
    EndSwitch
    $objEmail.Fields.Update
    ; Sent the Message
    $objEmail.Send
    If @error Then
        SetError(2)
        Return $oMyRet[1]
   Else
      MsgBox(0,"","Message envoyé")
    EndIf
    $objEmail=""
EndFunc   ;==>_INetSmtpMailCom

Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description, 3)
    msgbox(48,"ERREUR","Number: " & $HexNumber & "   ScriptLine: " & $oMyError.scriptline & "   Description:" & $oMyRet[1] & @LF)
    SetError(1); something to check for when this function returns
    Return
EndFunc   ;==>MyErrFunc

Func _ftp()
GUICtrlSetState($Label26,$gui_show)
if GUICtrlread($Checkbox7) = 1 then
   $username = GUICtrlRead($Input15)
   $pass = GUICtrlRead($Input16)
   $server = "ftp://" & GUICtrlRead($Input17)
   $dossier = GUICtrlRead($Input7)
Else
EndIf
DllOpen('wininet.dll')
GUICtrlSetData($Label26,"Test d'upload ...")
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
Filewrite(@ScriptDir & "\tmp.txt" , "")
$Ftpp = _FtpPutFile($Conn, @ScriptDir & "\tmp.txt", $dossier & "/tmp.txt")
$Ftpc = _FTPClose($Open)
FileDelete(@ScriptDir & "\tmp.txt")

MsgBox(0, "Error", $Ftpp) ; 1 = OK , 2 = Error

GUICtrlSetData($Label26,"Traitement en cours ...")
GUICtrlSetState($Label26,$GUI_HIDE)
EndFunc

func _open_ftp()
   $tmp_mdp = ""
   $tmp_id = ""
   $tmp_ad = ""
   $tmp_fd = ""
   $tmp_var = ""
   if GUICtrlRead($Input15) <> "" Then
      $tmp_id = GUICtrlRead($Input15)
      $tmp_var = "@"
   EndIf
   if GUICtrlRead($Input16) <> "" then $tmp_mdp = ":" & GUICtrlRead($Input16)
   if GUICtrlRead($Input7) <> "" then $tmp_fd = GUICtrlRead($Input7)
   ShellExecute("ftp://" & $tmp_id & $tmp_mdp & $tmp_var & GUICtrlRead($Input17) & $tmp_fd)
EndFunc





______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Bonjour cmanix
j ai regardé ton code
je pense que tu souhaiterais que le nom du computeur et la date apparaissent directement dans l inputbox 19 autmoatiquement ce n'est pas ça ?

si on fait ceci :
Code:
$Input19 = GUICtrlCreateInput("IPSvc sur " & @computername & "-" & @MDAY & "-" & @MON & "-" & @YEAR, 76, 281, 329, 21)

ça joue ?




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
Non au contraire. l'inputbox doit obligatoirement garder les variables entre crochet. c'est au moment de l'envoi du mail qu'il faut adapter les variables entre crochet en variable correspondant à l'ordinateur en cour d'utilisation.

c'est pourquoi il me faut une fonction (ici "_adapt") qui me permet d'adapter mes variables entre crochet puis de me retourner la chaine "adapté".

Bref au final il faut simplement faire en sorte que la fonction "_adapt" fonctionne correctement car actuellement elle ne change rien et ne touche pas aux variables entre crochet.



Voici un exemple batch de ce que je veux faire en autoit:
Code:

@echo off
setlocal enabledelayedexpansion
set chaine=IPSvc sur [computername] le [date]
echo chaine d'origine: "%chaine%"
call:adapt
echo chaine modifié: "%chaine%"
pause
exit

:adapt
set chaine=!chaine:[computername]=%computername%!
set chaine=!chaine:[date]=%date%!
goto:eof




Dernière édition par Cαutex le Jeu 23 Fév 2012 - 13:14; édité 1 fois

______________________________________________________
Mes principales réalisations: Cp (batch) et IPSvc (autoit)
Répondre en citant
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 
ok je comprend mieux.

Jai regardé la fonction elle semble correcte pourtant.... je regarderai encore tout à l heure.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message [prog] Logiciel antivol et d'information gratuit (mail/ftp) 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 5
Aller à la page: 1, 2, 3, 4, 5  >
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch