Serveur Minecraft Hugoland Index du Forum




 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

[AutoIt + VBS] Aide ordi

 
Poster un nouveau sujet   Répondre au sujet    Serveur Minecraft Hugoland Index du Forum -> Centre ville -> Cabane des Clubs -> Programmation
Sujet précédent :: Sujet suivant  
Auteur Message
Hugo
Administrateur
Administrateur

Hors ligne


Inscrit le: 24 Juil 2013
Messages: 1 243
Localisation: Lorraine :)
Masculin Bélier (21mar-19avr) 龍 Dragon
Commentaire: Admin, créateur et constructeur du serveur.
J'accepte les règles: J'accepte

MessagePosté le: Ven 27 Fév - 22:37 (2015)    Sujet du message: [AutoIt + VBS] Aide ordi Répondre en citant

PublicitéSupprimer les publicités ?
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>
#include <GUIConstantsEx>
#include <StaticConstants>
#include <WindowsConstants>
$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>
#include <GUIConstantsEx>
#include <StaticConstants>
#include <WindowsConstants>
#include <MsgBoxConstants>
$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

__________________________________________________________________
Hugo, administrateur du forum.

┌─────────┐ ┌───────────────────┐
│ Hey ! Salut === Tu veux voir sa signature? │
└─V───────┘ └───────────────────┘


règles sms

non non non non non non non non
. . . . . . . . . . . . zut!
Toi -> Oups pan
. . . . . . . . . . . . zut!

T'es un "cliqueur incorrigible". Rire
dehors

Tu crois quoi? Que c'est facile ce boulot?




Non aux animaux dans les cirques!




Clique ici pour lire les règles -> règles

Si vous me cherchez, je suis dans mon 737.
Revenir en haut
Visiter le site web du posteur
Farcraft
Hugolandien
Hugolandien

Hors ligne


Inscrit le: 03 Déc 2014
Messages: 137
Localisation: Sur le serveur
Masculin
Commentaire: Yolooooo
J'accepte les règles: J'accepte

MessagePosté le: Sam 14 Mar - 18:58 (2015)    Sujet du message: [AutoIt + VBS] Aide ordi Répondre en citant

Heyyyy!
Pas mal, je vais m'en servir moi plutot, je galère aussi x)
Revenir en haut
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 00:46 (2019)    Sujet du message: [AutoIt + VBS] Aide ordi

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Serveur Minecraft Hugoland Index du Forum -> Centre ville -> Cabane des Clubs -> Programmation Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Portail | Index | Panneau d’administration | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com