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
'Sniff')
