Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[AutoIt + VBS] Aide ordi
Auteur Message
Répondre en citant
Message [AutoIt + VBS] Aide ordi 
Salut,
c'est pas un logiciel exceptionnel que je vous montre là, mais c'est mon tout premier truc en AutoIt qui fonctionne Embarassed

J'en avais marre que ma mère m'appelle sans cesse pour me demander de l'aide sur toujours les mêmes choses.... usant.

Pour faire un truc propre au lieu d'un dossier surchargé de fichiers <<Hugo je dois cliquer sur le quel?>>, j'ai donc créé un autre dossier avec les VBS.
Ceci se présente comme ça:
Dossier parent
.. Aide.au3 (ou .exe)
.. \Fichiers\
.... fichiers vbs .vbs
.... \SRC\
...... les sources
Par conséquent, l'autoit exécute des trucs qui se trouvent dans le dossier Fichiers (première galère...)
Ensuite j'ai eu un peu de mal quant à savoir comment savoir quel bouton a été appuyé :X


Aide.au3
Code:

;
; Code créé par Hugo
; Avec Koda pour le GUI
; HugoMinilogiciels
;


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$ici = @WorkingDir

;
#Region ### START Koda GUI section ### Form=F:\Programmation\Programmes_Hugo\Aide ordi\Fichiers\GUI.kxf
$Form1 = GUICreate("Logiciel d'aide informatique, créé par Hugo", 637, 211, 235, 165)
$Pic1 = GUICtrlCreatePic("Fichiers\Image.jpg", 0, 0, 92, 100)
$Label1 = GUICtrlCreateLabel("Votre problème concerne :", 160, 32, 320, 36)
GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif")
$fb = GUICtrlCreateButton("Facebook", 208, 112, 75, 25)
$txt = GUICtrlCreateButton("Ecrire un courrier", 112, 112, 91, 25)
$Google = GUICtrlCreateButton("Google", 288, 112, 75, 25)
$pbOrdi = GUICtrlCreateButton("Problème concernant l'ordinateur", 368, 112, 163, 25)
$autre = GUICtrlCreateButton("Autre", 112, 144, 419, 25)
$Pic2 = GUICtrlCreatePic("Fichiers\Image.jpg", 543, 0, 92, 100)
$Label2 = GUICtrlCreateLabel("Logiciel créé par Hugo", 200, 184, 111, 17)
$erreur = GUICtrlCreateButton("Signaler une erreur", 336, 176, 99, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;


While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
        Case $txt
            shellexecute("Fichiers\Message.vbs", "", @SW_SHOWMAXIMIZED)
            exit
        Case $fb
            shellexecute("Fichiers\Facebook.vbs", "", @SW_SHOWMAXIMIZED)
            exit
        Case $Google
            shellexecute("Fichiers\Google.vbs", "", @SW_SHOWMAXIMIZED)
            exit
        Case $pbOrdi
            shellexecute("Fichiers\Windows.vbs", "", @SW_SHOWMAXIMIZED)
            exit
        Case $autre
            shellexecute("Fichiers\Autre.vbs", "", @SW_SHOWMAXIMIZED)
            exit
        Case $erreur
            shellexecute("Fichiers\Report.vbs", "", @SW_SHOWMAXIMIZED)
            exit

   EndSwitch
WEnd


Ensuite, pour les vbs, il y en a plein, et oui j'aurais pu faire plus simple, par ce que la structure est toujours la même, seules 2 variables changent x')
Vous les trouverez dans \Fichiers\, je vais pas tout détailler x)

http://www.sendspace.com/file/918pxw



Code:

;
; Code créé par Hugo
; Avec Koda pour le GUI
; HugoMinilogiciels
;    VERSION 2
;


#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
$ici = @WorkingDir


;
#Region ### START Koda GUI section ### Form=F:\Programmation\Programmes_Hugo\Aide ordi\Fichiers\GUI.kxf
$Form1 = GUICreate("Logiciel d'aide informatique, créé par Hugo", 637, 211, 235, 165)
$Pic1 = GUICtrlCreatePic("Fichiers\Image.jpg", 0, 0, 92, 100)
$Label1 = GUICtrlCreateLabel("Votre problème concerne :", 160, 32, 320, 36)
GUICtrlSetFont(-1, 22, 400, 0, "MS Sans Serif")
$fb = GUICtrlCreateButton("Facebook", 208, 112, 75, 25)
$txt = GUICtrlCreateButton("Ecrire un courrier", 112, 112, 91, 25)
$Google = GUICtrlCreateButton("Google", 288, 112, 75, 25)
$pbOrdi = GUICtrlCreateButton("Problème concernant l'ordinateur", 368, 112, 163, 25)
$autre = GUICtrlCreateButton("Autre", 112, 144, 419, 25)
$Pic2 = GUICtrlCreatePic("Fichiers\Image.jpg", 543, 0, 92, 100)
$Label2 = GUICtrlCreateLabel("Logiciel créé par Hugo", 200, 184, 111, 17)
$erreur = GUICtrlCreateButton("Signaler une erreur", 336, 176, 99, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;
Beep(262*2, 500)
; if Form1Read() = $fb then Exit

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
        Case $txt
            lancer("écrire un texte/courrier", "https://support.office.com/fr-CA/search/results?query=")
           
            exit
        Case $fb
            lancer("Facebook", "https://fr-fr.facebook.com/help/search/?query=")
           
            exit
        Case $Google
            lancer("Google", "https://www.google.fr/?gws_rd=ssl#q=aide google ")
           
            exit
        Case $pbOrdi
            lancer("un problème divers sur l'ordi", "http://windows.microsoft.com/fr-fr/windows/search#q=")
           
            exit
        Case $autre
            lancer("un autre problème", "http://laissemoichercherca.com/?q=")
           
            exit
        Case $erreur
            ShellExecute("Fichiers\Erreur.vbs")
           
            exit

   EndSwitch
WEnd
exit

func lancer($cas, $site)

$message = "Bienvenue dans l'aide concernant " & $cas & "."
$titre = "Aide : " & $cas
msgbox(1,$titre,$message)

$aide = inputbox($titre, "Entrez ici les mots clés concernant le problème.")

$t = $site & $aide
ShellExecute($t)
endfunc

Et vous aurez besoin de ça (le au3 y est compillé) -> http://www.sendspace.com/file/df7on6




Dernière édition par Hugo7 le Mar 24 Fév 2015 - 19:31; édité 1 fois

______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [AutoIt + VBS] Aide ordi 
_

ça me rappelle un truc en vbs que j'avais vu, mais alors là où ????????????????

si ça me revient, je poste le lien



Répondre en citant
Message [AutoIt + VBS] Aide ordi 
Effectivement tu pourrais faire un VBS auquel tu passerais des arguments,
ou mieux faire la même chose directement dans ton code Autoit.

Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message [AutoIt + VBS] Aide ordi 
Citation:
faire la même chose directement dans ton code Autoit.

J'ai pas le niveau, mais je veux bien essayer Okay




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message [AutoIt + VBS] Aide ordi 
Hugo7 a écrit:
Citation:
faire la même chose directement dans ton code Autoit.

J'ai pas le niveau, mais je veux bien essayer Okay


OMG j'ai réussi :X

Finalement c'est pas si mal l'AutoIt, c'est même pratique Smile
je met le lien sur le Topic




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Message [AutoIt + VBS] Aide ordi 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



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