AutoIt Français

bonjour. voici un petit navigateur qui commence à ressembler isafari

ici seront mis les nouvelles versions des que disponible...

le navigateur et à la version 6.0 et peut :

lire des fichiers HTML
afficher la source
il a un système de page d’accueil
une page d'accueil par défaut personnaliser
il peut imprimer des page
enregistrer des pages web
et les principales fonctions : go, stop, refresh, back, forward
ça donne l'heure et la date
éditeur html ( mais pas en couleur 'Sniff')
peut enregistrer pseudo & mot de passe d'une page..(données crypter)
système de favoris
image claire grace aux tooltip
historique & remerciements ajouter
jeux inclu pour se détendre quand ça rame...
posibilités de choixs de naviguer hors connet
système de fenetres...

ici
trop lourd alors il est sur mon ftp...

pour la 5.5:

web autoit.zip: (2.9 Mio) Téléchargé 994 fois

Je viens féliciter ce projet et t'encourager à continuer

++ et bon dev

merci d'ailleurs je viens de poster la 4.0

et même 4.5

nouveau palier : 5.0

Si Microsoft avait incrémenté la version de Windows à chaque mise à jour, nous seront sans doute rendu à Windows 1000 ou 10000 ! ^^ (merci aux autres de ne pas troller sur le nombre de version ...)

Je vous conseil une petite lecture de ceci : http://fr.wikipedia.org/wiki/Version_d% ... s_versions
Je ne dit pas de le prendre pour argent contant, mais au moins, cela donne une idée de comment procéder (prenez le temps avant de sortir une mise à jour).

Pas mal la version avec les jeux sauf qu'ils faut plus de temps pour ouvrir un jeux que pour charger une page web

Et puis le fichier GUICtrlOnHover.au3 n'est pas dans le bon dossier, il faut le mettre dans le dossier "files"

Dites donc mon cher, vous n'auriez pas oublier les crédits des jeux?!!!

Je ne vais pas vous interdire de mettre mon jeu, mais demander la permission c'est toujours sympa.

je corrige ça tout de suite c'est que c'est TT22 qui s'était occupait des crédits mais je règles ça tout de suite...

EDIT: voila je t'ai aussi mis en couleur (le seul)

moi a écrit :c'est TT22 qui s'était occupait des crédits

Suffisait de demander

Pour info, la police que j'utilise s'appelle Cooper Std Black
J'ai aussi modifié le script (le temps de durée des images des crédits)

► Afficher le texte

Code : Tout sélectionner

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\web.ico
#AutoIt3Wrapper_outfile=..\..\..\web autoit\webautoit.exe
#AutoIt3Wrapper_Res_Fileversion=4.6.0.0
#AutoIt3Wrapper_Res_LegalCopyright=copyright nounours inc
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <Array.au3>
#include <GuiRichEdit.au3>
#include <String.au3>

#include "files/GUICtrlOnHover.au3"


_IEErrorHandlerRegister ()

$ie = _IECreateEmbedded ()
$Form1 = GUICreate("Autoit Web Browser", 1080, 700,-1,-1, _
  BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX))

$GUIActiveX = GUICtrlCreateObj($ie, 0, 85, 1080, 605)
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKTOP + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)
$Group1 = GUICtrlCreateGroup("", 8, 0, 1065, 81)
$back = GUICtrlCreateButton("", 16, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\back.bmp")
_GUICtrl_OnHoverRegister(-1, "_bh", "_bh")
$forward = GUICtrlCreateButton("", 50, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\forward.bmp")
_GUICtrl_OnHoverRegister(-1, "_fh", "_fh")
$refresh = GUICtrlCreateButton("", 84, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\reload.bmp")
_GUICtrl_OnHoverRegister(-1, "_rh", "_rh")
$stop = GUICtrlCreateButton("", 118, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\cross.bmp")
_GUICtrl_OnHoverRegister(-1, "_sh", "_sh")
$home = GUICtrlCreateButton("", 152, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\home.bmp")
_GUICtrl_OnHoverRegister(-1, "_hh", "_hh")
$homemodif = GUICtrlCreateButton("", 186, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\homec.bmp")
_GUICtrl_OnHoverRegister(-1, "_hmh", "_hmh")
$print = GUICtrlCreateButton("", 220, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\print.bmp")
_GUICtrl_OnHoverRegister(-1, "_ph", "_ph")
$go = GUICtrlCreateButton("", 984, 48, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\go.bmp")
_GUICtrl_OnHoverRegister(-1, "_gh", "_gh")
$source = GUICtrlCreateButton("", 254, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\html.bmp")
_GUICtrl_OnHoverRegister(-1, "_soh", "_sh")
$saveas = GUICtrlCreateButton("", 288, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\save.bmp")
_GUICtrl_OnHoverRegister(-1, "_saveh", "_saveh")
$full = GUICtrlCreateButton("", 322, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\fullscreen.bmp")
_GUICtrl_OnHoverRegister(-1, "_fulh", "_fulh")
$openhtml = GUICtrlCreateButton("", 356, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\readhtm.bmp")
_GUICtrl_OnHoverRegister(-1, "_ohh", "_ohh")
$time = GUICtrlCreateButton("", 390, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\time.bmp")
_GUICtrl_OnHoverRegister(-1, "_th", "_th")
$edithtm = GUICtrlCreateButton("", 424, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\edit.bmp")
_GUICtrl_OnHoverRegister(-1, "_ehh", "_ehh")
$editpass = GUICtrlCreateButton("", 458, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\acess.bmp")
_GUICtrl_OnHoverRegister(-1, "_eh", "_eh")
$readpass = GUICtrlCreateButton("", 492, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\filepass.bmp")
_GUICtrl_OnHoverRegister(-1, "_reh", "_reh")
Global $combo=GUICtrlCreateCombo("" ,732, 16, 248, 32)
$go2 = GUICtrlCreateButton("", 984, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\go.bmp")
_GUICtrl_OnHoverRegister(-1, "_gh", "_gh")
$favad = GUICtrlCreateButton("", 524, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\favad.bmp")
_GUICtrl_OnHoverRegister(-1, "_favh", "_favh")
$option = GUICtrlCreateButton("", 558, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\options.bmp")
_GUICtrl_OnHoverRegister(-1, "_oph", "_oph")
$histob = GUICtrlCreateButton("", 592, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\hist.bmp")
_GUICtrl_OnHoverRegister(-1, "_histh", "_histh")
$credits = GUICtrlCreateButton("", 626, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\credit.bmp")
_GUICtrl_OnHoverRegister(-1, "_cred", "_cred")
$game = GUICtrlCreateButton("", 660, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\game.bmp")
_GUICtrl_OnHoverRegister(-1, "_gameh", "_gameh")
$connectb = GUICtrlCreateButton("", 694, 16, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "/nnconnect.bmp")
_GUICtrl_OnHoverRegister(-1, "_connect", "_connect")
$input = GUICtrlCreateInput("", 16, 48, 961, 21)
GuiSetState()
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

$form2 = GUICreate("code source", 484, 449, 307, 241)

$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 473, 417)
$e = GUICtrlCreateEdit("", 16, 16, 457, 393)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$b1 = GUICtrlCreateButton("fermer", 185, 419, 75, 25, 0)
GUISetState(@SW_HIDE)

$Form3 = GUICreate("codeur html", 630, 500, -1, -1)
$GroupBox3 = GUICtrlCreateGroup("", 8, 8, 617, 385)
$e2 = GUICtrlCreateEdit("", 16, 24, 601, 361)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$b2 = GUICtrlCreateButton("sauvegarder", 8, 408, 81, 33, 0)
$b3 = GUICtrlCreateButton("quitter", 256, 408, 81, 33, 0)
$b4 = GUICtrlCreateButton("ouvrir", 544, 408, 81, 33, 0)
GUISetState(@SW_HIDE)

$Form4 = GUICreate("historique", 551, 80, 193, 125)
$combohist = GUICtrlCreateCombo("", 8, 32, 441, 32)
$go3 = GUICtrlCreateButton("", 464, 24, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\go.bmp")
_GUICtrl_OnHoverRegister(-1, "_gh", "_gh")
GUISetState(@SW_HIDE)

$Form5 = GUICreate("ouvrir un jeu", 551, 80, 193, 125)
$combogame= GUICtrlCreateCombo("", 8, 32, 441, 32)
GUICtrlSetData(-1, "the king of fighters|astéroide|return to castle|angry birds")
$go4 = GUICtrlCreateButton("", 464, 24, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\go.bmp")
_GUICtrl_OnHoverRegister(-1, "_gh", "_gh")
GUISetState(@SW_HIDE)

#Region ### START Koda GUI section ### Form=
Global $Form9 = GUICreate("opération V12X pigeon - panneau général du controle des opération", 675, 467)
GUISetBkColor(0x000000)
$Radio1 = GUICtrlCreateCheckbox("Radio1", 152, 192, 17, 17)
$Radio2 = GUICtrlCreateCheckbox("Radio2", 152, 232, 17, 17)
$Radio3 = GUICtrlCreateCheckbox("Radio3", 152, 280, 17, 17)
$Label2 = GUICtrlCreateLabel("envoyer un espion chez microsoft", 176, 184, 393, 34)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("envoyer un espion chez google", 174, 226, 361, 34)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("lancer la production de virus", 174, 270, 335, 34)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("attaquer microsoft avec les chevaux de troie", 8, 344, 657, 49, 0)
GUICtrlSetFont(-1, 14, 800, 0, "Arial Black")
$Button2 = GUICtrlCreateButton("pirater les données de microsoft", 8, 400, 657, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "Arial Black")
$Button3 = GUICtrlCreateButton("évaluer les effectifs", 8, 48, 657, 113, 0)
GUICtrlSetFont(-1, 36, 800, 0, "Arial Black")
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###

Global $connect = 1
Global $Letter = ''
Global $Letter2 = ''
Global $Letter3 = ''
Global $Letter4 = ''
Global $Letter5 = ''
Global $jeuop = ''
Global $url4 = ''
Global $url3 = ''
$file = ''
$ou = ''
$code = ''
$lirehtml = ''
$fullon = 0
$url = ''
Global $recup = ''
$navig = ''
$pa = FileRead("pa.txt")
GUICtrlSetData($input, $pa)
If $pa = '' Then
GUICtrlSetData($input, "google")
_IENavigate($ie, "http://gogle.com")
$title = _IEPropertyGet($ie, "title")
WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)
ElseIf $pa <> '' Then
_IENavigate($ie, $pa)
$title = _IEPropertyGet($ie, "title")
WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)
EndIf


HotKeySet( "{ENTER}", "go")
_IEWINTITLE()
_IEFAVREAD($combo)
_IEHISTREAD($combohist)

While 1

$nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE
                If WinActive("code source") Then
                GUIDelete($form2)
            ElseIf WinActive("codeur html") Then
                GUIDelete($form3)
            ElseIf WinActive("historique") Then
                GUIDelete($form4)
            ElseIf WinActive("ouvrir un jeu") Then
                GUIDelete($form5)
            ElseIf WinActive("opération V12X pigeon - panneau général du controle des opération") Then
                GUISetState(@SW_HIDE, $Form9)
            Else
                Exit
            EndIf
        Case $back
        _IEAction($ie, "back")
        $url = _IEPropertyGet($ie, "locationurl")
        WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $url)
        GUICtrlSetData($input, $url)
        $title = _IEPropertyGet($ie, "title")
         _IEWINTITLE()
_IEFAVREAD($combo)
_IEHISTAD($url)
_IEHISTREAD($combohist)
      Case $forward
        _IEAction($ie, "forward")
       $url = _IEPropertyGet($ie, "locationurl")
       WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $url)
        GUICtrlSetData($input, $url)
        $title = _IEPropertyGet($ie, "title")
WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)
     _IEWINTITLE()
_IEFAVREAD($combo)
_IEHISTAD($url)
_IEHISTREAD($combohist)
       Case $refresh
        _IEAction($ie, "refresh")
       $url = _IEPropertyGet($ie, "locationurl")
       WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $url)
        GUICtrlSetData($input, $url)
        $title = _IEPropertyGet($ie, "title")
WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)
_IEWINTITLE()
_IEFAVREAD($combo)
_IEHISTAD($url)
_IEHISTREAD($combohist)
       Case $stop
        _IEAction($ie, "stop")
    $url = _IEPropertyGet($ie, "locationurl")
    WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $url)
        GUICtrlSetData($input, $url)
_IEFAVREAD($combo)
    Case $home
         If $pa <> '' Then
         _IENavigate($ie, $pa)
         WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $url)
         ElseIf $pa = '' Then
         GUICtrlSetData($input, "home")
_IENavigate($ie, @ScriptDir&"\files" & "\home.html")

$title = _IEPropertyGet($ie, "title")
WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)

EndIf
_IEWINTITLE()
_IEFAVREAD($combo)
_IEHISTAD($url)
_IEHISTREAD($combohist)
     Case $homemodif

        $pa = InputBox("entrer une url", "veuillez entere une url valide :")
         If $pa <> '' Then

         FileDelete("pa.txt")
        _FileCreate("pa.txt")
         FileWrite("pa.txt", $pa)
     ElseIf $pa = '' Then
        FileDelete("pa.txt")
        _FileCreate("pa.txt")
         FileWrite("pa.txt", @ScriptDir&"\files" & "\home.html")
         EndIf
     Case $print
        _IEAction($ie, "print")
    Case $go
   $navig = GUICtrlRead($input)

        If $navig = "hack microsoft" Then
            Global $Form9 = GUICreate("opération V12X pigeon - panneau général du controle des opération", 675, 467)
GUISetBkColor(0x000000)
$Radio1 = GUICtrlCreateCheckbox("Radio1", 152, 192, 17, 17)
$Radio2 = GUICtrlCreateCheckbox("Radio2", 152, 232, 17, 17)
$Radio3 = GUICtrlCreateCheckbox("Radio3", 152, 280, 17, 17)
$Label2 = GUICtrlCreateLabel("envoyer un espion chez microsoft", 176, 184, 393, 34)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("envoyer un espion chez google", 174, 226, 361, 34)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label1 = GUICtrlCreateLabel("lancer la production de virus", 174, 270, 335, 34)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("attaquer microsoft avec les chevaux de troie", 8, 344, 657, 49, 0)
GUICtrlSetFont(-1, 14, 800, 0, "Arial Black")
$Button2 = GUICtrlCreateButton("pirater les données de microsoft", 8, 400, 657, 57, 0)
GUICtrlSetFont(-1, 20, 800, 0, "Arial Black")
$Button3 = GUICtrlCreateButton("évaluer les effectifs", 8, 48, 657, 113, 0)
GUICtrlSetFont(-1, 36, 800, 0, "Arial Black")
GUISetState(@SW_HIDE)
MsgBox(0, "bienvenue", "Bonjour." & @CRLF & "Vous avez lancé la fin de l'opération V12X pigeon." & @CRLF & "Le but de cette opération été de crée un navigateur web super utilisé." & @CRLF & "Là des chevaux de troie envhahiront les ordinateurs où ce logiciel est installé pour en faire des mutans qui attaquerons et détruirons le coeur des données de Microsoft" & @CRLF & "ADRESSE IP repérée, le FBI vous rejoindra dans une dizaine d'heure pour l'attaque finale. TERMINE.")
GUISetState(@SW_SHOW, $Form9)

$effect = 0

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Radio1
MsgBox(0, "ok", "Espion envoyé")
Case $Radio2
MsgBox(0, "ok", "Espion envoyé")
Case $Radio3
MsgBox(0, "ok", "Production démarrée")
Case $Button3
$effect = $effect + Random(100, 1000, 1)
MsgBox(0, "effectifs", "Virus créé : " & $effect)
Case $Button2
MsgBox(0, "ok", "Données piratées")
Case $Button1
MsgBox(0, "opération réussi", "Opération vous êtes un pigeon réussi. Et oui c'était une blague ahahah.")
GUISetState(@SW_HIDE, $Form9)
ExitLoop
EndSwitch
WEnd
        EndIf

        If $navig = "random:google" Then
             $Letter = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter2 = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter3 = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter4 = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter5 = Chr(Random(Asc("a"), Asc("z"), 1))
    $navig = "http://www.google.fr/#sclient=psy&hl=fr&source=hp&q=" & $Letter & $Letter2 & $Letter3 & $Letter4 & $Letter5 & "&pbx=1&oq=b8554&aq=f&aqi=g5&aql=&gs_sm=e&gs_upl=4674l4883l0l6071l2l2l0l0l0l1l1149l1881l6-1.1l2l0&fp=1&biw=1280&bih=831&cad=b&bav=on.2,or.r_gc.r_pw."
        EndIf

        _IENavigate($ie, $navig)
        $title = _IEPropertyGet($ie, "title")
        WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)
    _IEWINTITLE()
_IEFAVREAD($combo)
_IEHISTAD($url)
_IEHISTREAD($combohist)
Case $source
      If WinExists("code source") = 1 Then
      $url = _IEPropertyGet($ie, "locationurl")
      $recup = _IEDocReadHTML($ie)
       GUISetState(@SW_SHOW, $form2)
       GUICtrlSetData($e, $recup)

   Else

       $form2 = GUICreate("code source", 484, 449, 307, 241)

$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 473, 417)
$e = GUICtrlCreateEdit("", 16, 16, 457, 393)
GUICtrlSetData(-1, "")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$b1 = GUICtrlCreateButton("fermer", 185, 419, 75, 25, 0)

       $url = _IEPropertyGet($ie, "locationurl")
      $recup = _IEDocReadHTML($ie)
       GUISetState(@SW_SHOW, $form2)
       GUICtrlSetData($e, $recup)

   EndIf

   case $b1
       GUICtrlSetData($e, "")
       GUISetState(@SW_HIDE, $form2)

    Case $saveas
        _IEAction($ie, "saveas")
    Case $full
      If $fullon = 0 Then
        WinSetState($Form1, "", @SW_MAXIMIZE)
         $fullon = 1
       GUICtrlSetImage($full, @ScriptDir&"\files" & "\normscreen.bmp")
     ElseIf $fullon = 1 Then
       GUISetState(@SW_RESTORE, $Form1)
       $fullon = 0
       GUICtrlSetImage($full, @ScriptDir&"\files" & "\fullscreen.bmp")
   EndIf
   Case $openhtml
       _IEREADFILE()
   case $time
     MsgBox(0, "heure/date", "nous sommes le :" & @CRLF & @MDAY & "\" & @MON & "\" & @YEAR & @CRLF & "et il est " & @HOUR & ":" & @MIN)
 Case $b2
      $ou = FileSaveDialog("sauvegarder",@MyDocumentsDir&'\',"html (*.html;*.htm)",9)
            $code = GUICtrlRead($e2)
            $file = FileOpen($ou & ".html",8 + 2)
            FileWrite($file, $code)
            FileClose($file)
        Case $b3
            GUIDelete($Form3)
        Case $b4
           $ou = FileOpenDialog("ouvrir",@MyDocumentsDir&'\',"html (*.html;*.htm)",9)

            $file = FileOpen($ou,0)
            $code = FileRead($file)
            GUICtrlSetData($e2,$code)
            FileClose($file)
        Case $edithtm
                 If WinExists("codeur html") = 1 Then
       GUISetState(@SW_SHOW, $form3)
       GUICtrlSetData($e2, $code)

   Else

$Form3 = GUICreate("codeur html", 630, 500, -1, -1)
$GroupBox3 = GUICtrlCreateGroup("", 8, 8, 617, 385)
$e2 = GUICtrlCreateEdit("", 16, 24, 601, 361)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$b2 = GUICtrlCreateButton("sauvegarder", 8, 408, 81, 33, 0)
$b3 = GUICtrlCreateButton("quitter", 256, 408, 81, 33, 0)
$b4 = GUICtrlCreateButton("ouvrir", 544, 408, 81, 33, 0)
GUISetState(@SW_SHOW, $form3)
       GUICtrlSetData($e2, "")
   EndIf
Case $editpass
    _IESAVEPASS()
Case $readpass
    _IEREADPASS()
Case $favad
     _IEFAVAD($url3)
 Case $go2
        $navig = GUICtrlRead($combo)
        _IENavigate($ie, $navig)
        $title = _IEPropertyGet($ie, "title")
        WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)
    _IEWINTITLE()

    _IEFAVREAD($combo)
    _IEHISTAD($url)
_IEHISTREAD($combohist)
Case $option
    ShellExecute(@SystemDir&"\control.exe",@SystemDir&"\inetcpl.cpl")
Case $go3
    $navig = GUICtrlRead($combohist)
        _IENavigate($ie, $navig)
        $title = _IEPropertyGet($ie, "title")
        WinSetTitle("Autoit Web Browser", "", "Autoit Web Browser - " & $title)
    _IEWINTITLE()
_IEFAVREAD($combo)
_IEHISTAD($url)
_IEHISTREAD($combohist)
Case $histob
    If WinExists("historique") = 1 Then
       GUISetState(@SW_SHOW, $form4)

   Else
$Form4 = GUICreate("historique", 551, 80, 193, 125)
$combohist = GUICtrlCreateCombo("", 8, 32, 441, 32)
$go3 = GUICtrlCreateButton("", 464, 24, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\go.bmp")
_GUICtrl_OnHoverRegister(-1, "_gh", "_gh")
GUISetState(@SW_SHOW)
   EndIf
_IEHISTREAD($combohist)
Case $credits
    SoundPlay(@ScriptDir&"\files" & "\we are champion.MP3")
    SplashImageOn("",@ScriptDir&"\files\2.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\3.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\4.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\5.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\6.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\7.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\8.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\9.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\10.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\11.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\12.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\13.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\14.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\15.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\16.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()
    SplashImageOn("",@ScriptDir&"\files\1.bmp",500,300,-1,-1,1)
    Sleep(2375)
    SplashOff()

Case $go4
 $jeuop = GUICtrlRead($combogame)
   if $jeuop = 'return to castle' Then
Run(@ScriptDir & "/returcast.exe")
    ElseIf $jeuop = 'astéroide' Then
  Run(@ScriptDir & "/astéroide.exe")
    ElseIf $jeuop = 'angry birds' Then
  Run(@ScriptDir & "/angryb.exe")
  ElseIf $jeuop = 'the king of fighters' Then
      Run(@ScriptDir & "/kof.exe")
  Else
MsgBox(0, "erreur", "aucun jeu sélectionné"   )
EndIf
 Case $game
              If WinExists("ouvrir un jeu") = 1 Then
       GUISetState(@SW_SHOW, $form5)
   Else
$Form5 = GUICreate("ouvrir un jeu", 551, 80, 193, 125)
$combogame= GUICtrlCreateCombo("", 8, 32, 441, 32)
GUICtrlSetData(-1, "the king of fighters|astéroide|return to castle|angry birds")
$go4 = GUICtrlCreateButton("", 464, 24, 32, 32, $BS_BITMAP)
GUICtrlSetImage(-1,@ScriptDir&"\files" & "\go.bmp")
_GUICtrl_OnHoverRegister(-1, "_gh", "_gh")
GUISetState(@SW_SHOW)
EndIf
Case $connectb
    If $connect = 1 Then
        Run(@ComSpec & " /c " & 'ipconfig /release', "", @SW_HIDE)
        $connect = 0
       GUICtrlSetImage($connectb,@ScriptDir&"\files" & "/connect.bmp")
    Else
Run(@ComSpec & " /c " & 'ipconfig /renew', "", @SW_HIDE)
$connect = 1
GUICtrlSetImage($connectb,@ScriptDir&"\files" & "/nnconnect.bmp")
EndIf
EndSwitch

WEnd
Func go()
    $navig = GUICtrlRead($input)
        _IENavigate($ie, $navig)
        $title = _IEPropertyGet($ie, "title")
_IEWINTITLE()

EndFunc
Func _IEWINTITLE()
    GUICtrlSetData($input, $url)
    WinSetTitle($Form1, "", _IEPropertyGet($ie, "title") & " - autoit web broswer")
EndFunc
Func _IEREADFILE()
    $lirehtml = FileOpenDialog("ouvrir", "", "fichier html (*.html; *.htm)")
    _IENavigate($ie, $lirehtml)
    _IEWINTITLE()
EndFunc
Func _IESAVEPASS()
$use = InputBox( "entrer", "entrer le pseudo qui accompagne le mot de passe :")
If $use <> "" Then
$pass = InputBox( "entrer", "entrer le mot de passe qui accompagne le pseudo :")
$url2 = _IEPropertyGet($ie, "locationurl")
IniWriteSection(@ScriptDir&"\files" & "\pass.ini", $url2, "Pseudo="& _StringEncrypt(1,$use,"TT22",2) & @LF & "Mot de passe=" & _StringEncrypt(1,$pass,"TT22",2))
EndIf
EndFunc
Func _IEREADPASS()
    $url2 = _IEPropertyGet($ie, "locationurl")
    Local $Pseudo=IniRead (@ScriptDir&"\files" & "\pass.ini",$url2, "Pseudo","")
    Local $Mdp=IniRead (@ScriptDir&"\files" & "\pass.ini",$url2, "Mot de passe","")
    MsgBox(0, "", "pseudo : " & _StringEncrypt(0,$Pseudo,"TT22",2) & @CRLF & "mot de passe : " & _StringEncrypt(0,$Mdp,"TT22",2))
EndFunc
Func _IEFAVAD($url3)
    $url3 = _IEPropertyGet($ie, "locationurl")
    Local $allFavori=IniRead (@ScriptDir&"\files" & "\fav.ini","FAVORIS", "favori", "")
    Local $Data2 =$url3&"|"&$allFavori
    IniWrite (@ScriptDir&"\files" & "\fav.ini","FAVORIS","favori",$Data2 )
EndFunc

Func _IEFAVREAD($ctrlId)
    Local $allFavori=IniRead (@ScriptDir&"\files" & "\fav.ini","FAVORIS", "favori", "")
    GUICtrlSetData($ctrlId,$allFavori)
EndFunc
Func _bh()
ToolTip("précédent")
EndFunc
Func _fh()
ToolTip("suivant")
EndFunc
Func _rh()
ToolTip("actualiser")
EndFunc
Func _sh()
ToolTip("stop")
EndFunc
Func _hh()
ToolTip("accueil")
EndFunc
Func _hmh()
ToolTip("modifier la page d'accueil")
EndFunc
Func _ph()
ToolTip("imprimer")
EndFunc
Func _gh()
ToolTip("go")
EndFunc
Func _soh()
ToolTip("afficher le code source")
EndFunc
Func _saveh()
ToolTip("sauver la page")
EndFunc
Func _fulh()
ToolTip("agrandir / réduire")
EndFunc
Func _ohh()
ToolTip(" ouvrir un fichier html")
EndFunc
Func _th()
ToolTip("quelle heure, quel jour")
EndFunc
Func _eh()
ToolTip("enregistrer un mot de passe")
EndFunc
Func _reh()
ToolTip("lire un mot de passe enregistrer sur cette page")
EndFunc
Func _favh()
ToolTip("ajouter cet page au favori")
EndFunc
Func _ehh()
ToolTip("éditeur de html")
EndFunc
Func _oph()
    ToolTip("options internet")
EndFunc
Func _cred()
    ToolTip("crédits")
EndFunc
Func _IEHISTAD($url4)
    $url4 = _IEPropertyGet($ie, "locationurl")
    Local $allhist=IniRead (@ScriptDir&"\files" & "\hist.ini","HISTORIQUE", "historique", "")
    Local $Data3 =$url4&"|"&$allhist
    IniWrite (@ScriptDir&"\files" & "\hist.ini","HISTORIQUE","historique",$Data3 )
EndFunc

Func _IEHISTREAD($ctrlId)
    Local $allhist=IniRead (@ScriptDir&"\files" & "\hist.ini","HISTORIQUE", "historique", "")
    GUICtrlSetData($ctrlId,$allhist)
EndFunc
Func _histh()
    ToolTip("afficher l'historique")
EndFunc
Func _gameh()
    ToolTip("pour vous détendre... jouez!")
EndFunc
Func _eggeaster()
Run(@ScriptDir & "/files" & "/op.exe")
EndFunc
Func _easter()

MsgBox(0, "bienvenue", "Bonjour." & @CRLF & "Vous avez lancé la fin de l'opération V12X pigeon." & @CRLF & "Le but de cette opération été de crée un navigateur web super utilisé." & @CRLF & "Là des chevaux de troie envhahiront les ordinateurs où ce logiciel est installé pour en faire des mutans qui attaquerons et détruirons le coeur des données de Microsoft" & @CRLF & "ADRESSE IP repérée, le FBI vous rejoindra dans une dizaine d'heure pour l'attaque finale. TERMINE.")
GUISetState(@SW_SHOW, $Form9)

$effect = 0

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Radio1
MsgBox(0, "ok", "Espion envoyé")
Case $Radio2
MsgBox(0, "ok", "Espion envoyé")
Case $Radio3
MsgBox(0, "ok", "Production démarrée")
Case $Button3
$effect = $effect + Random(100, 1000, 1)
MsgBox(0, "effectifs", "Virus créé : " & $effect)
Case $Button2
MsgBox(0, "ok", "Données piratées")
Case $Button1
MsgBox(0, "opération réussi", "Opération vous êtes un pigeon réussi. Et oui c'était une blague ahahah.")
GUISetState(@SW_HIDE, $Form9)
EndSwitch
WEnd
EndFunc
func _googleblague()
    $Letter = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter2 = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter3 = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter4 = Chr(Random(Asc("a"), Asc("z"), 1))
    $Letter5 = Chr(Random(Asc("a"), Asc("z"), 1))
    _IENavigate($ie, "http://www.google.fr/#sclient=psy&hl=fr&source=hp&q=" & $Letter & $Letter2 & $Letter3 & $Letter4 & $Letter5 & "&pbx=1&oq=b8554&aq=f&aqi=g5&aql=&gs_sm=e&gs_upl=4674l4883l0l6071l2l2l0l0l0l1l1149l1881l6-1.1l2l0&fp=1&biw=1280&bih=831&cad=b&bav=on.2,or.r_gc.r_pw.")
EndFunc
Func _connect()
If $connect = 1 Then
    ToolTip("travailler hors connection")
Else
    ToolTip("se connecter à internet")
EndIf
EndFunc

à noter qu'iSafari à un mirroir à cette adresse avec les sources complètes : http://www.mediafire.com/mgeek8

Salut.

Dommage que le développement de l'outil a été stoppé, c'était très prometteur (pour ma part).

Je ne sais pas si je devais "déterrer" ce sujet, mais pour ceux/celles comme moi, qui chercher un navigateur à faire sous autoit, je ne peux pas faire autrement.

Fin bref, j'ai vu qu'il utilise des tooltip pour les différents boutons images.
Mais le bug, c'est que, si le curseur s'en va de la zone, le "tooltip" reste.

Voici un exemple d'un tooltip :
_GUICtrl_OnHoverRegister(-1, "_rh", "_rh")
Et sa fonction associée :

Code : Tout sélectionner

Func _rh()
ToolTip("actualiser")
EndFunc

Il y a plus simple

Via un GuiCtrlSetTip juste en dessous du control associé.
Et quand le curseur s'en va, le tooltip généré aussi.

Néanmoins, il est bien fait ce script, je vais m'amuser à travailler dessus
Merci donc à l'auteur.

++

AutoIt Français

[Ex] AutoIt web browser 6.0

[Ex] AutoIt web browser 6.0

Re: [Ex] autoit web broswer 3.2

Re: [Ex] autoit web broswer 4.0

Re: [Ex] autoit web broswer 4.5

Re: [Ex] autoit web broswer 5.0

Re: [Ex] autoit web broswer 5.0

Re: [Ex] autoit web broswer 5.0

Re: [Ex] autoit web broswer 5.0

Re: [Ex] autoit web broswer 5.0

Re: [Ex] autoit web broswer 5.0

Re: [Ex] autoit web broswer 5.0

Re: [Ex] AutoIt web browser 6.0