Savior 0.9

« Older Newer »

Marduk

Posted on 18/6/2011, 19:58 +1

Dopo due giorni di duro lavoro (MA LOL) ecco a voi la mia chicca... forse il programma più utile che abbia mai creato (non che ne abbia creati tanti XD). E' una 0.9 perchè non avevo voglia di finirlo e volevo postarlo ora... con la 1.0 potrete aprire la finestra settings e impostare delle cosette... Non ho voglia di fare la lunga presentazione di cosa fa Savior, ma potrete trovarla nella gui, il pulsante: "Info"

In poche parole potrete, tramite la pressione di pochi click avviati e conclusi dalla pressione continua di un tasto, avviare programmi, pagine web, o "incollare" lettere... ad esempio se siete stufi di scrivere sempre le stesse password o sempre i stessi commenti come lol, omg ecc. potrete configurare il programma in modo che, dopo un determinato numero di click sul box dove inserire il comento, scriverà automaticamente quello che avete preimpostato dal programma...

Per il resto delle info, c'è il programma...

Source:

SPOILER (clicca per visualizzare)

CODICE

#include <Skin.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#Include <Constants.au3>
#Include <GuiEdit.au3>
#include <misc.au3>
#Include <String.au3>

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayAutoPause", 0)
TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "Show")

SkinStartLibrary()

$IndexForm = GUICreate("Savior", 610, 340, 600, 300, $WS_SIZEBOX, $WS_EX_ACCEPTFILES)
AddSkin($IndexForm, "avenger.skf")

TrayCreateItem("Apri")
TrayItemSetOnEvent(-1, "Show")
TrayCreateItem("Esci")
TrayItemSetOnEvent(-1, "_Exit")

GUICtrlCreateLabel("Savior", 25, 0, 200, 100)
GUICtrlSetFont (-1, 85, 500, 2, "Chiller")

GUICtrlCreateLabel("N. Clicks: ", 110, 144, 60)
GUICtrlSetFont (-1, 12, 500, 2, "Calibri")

GUICtrlCreateLabel(" Cosa"& @CRLF &"Faccio", 345, 78, 90)
GUICtrlSetFont (-1, 11, 600, 2, "Calibri")

GUICtrlCreateLabel("[", 330, 68, 12, 45)
GUICtrlSetFont (-1, 30, 400, 2, "Calibri")
GUICtrlCreateLabel("]", 390, 68, 12, 45)
GUICtrlSetFont (-1, 30, 400, 2, "Calibri")

$AutostartCheck = GUICtrlCreateCheckbox("", 556, 241, 15, 15)
GUICtrlCreateLabel(" Avviare Savior"&@CRLF&" automaticamente"&@CRLF&" all'avvio del pc?", 520, 205, 170, 35)
GUICtrlSetFont(-1, 8, 700, 2, "Calibrì")

$HelpButton = GUICtrlCreateButton("", 5, 240, 85, 70, $BS_ICON)
GUICtrlSetImage(-1, "help.ico")
$SettingsButton = GUICtrlCreateButton("", 518, 5, 85, 70, $BS_ICON)
GUICtrlSetImage(-1, "config.ico")

$ActionButton = GUICtrlCreateButton("Inserisci", 180, 280, 90, 24)
GUICtrlSetFont (-1, 13, 400, 2, "Calibri")
$ProgrammedButton = GUICtrlCreateButton("Programmati", 350, 280, 100, 24)
GUICtrlSetFont (-1, 11, 400, 2, "Calibri")

$BrowseButton = GUICtrlCreateButton("Browse", 530, 140, 70, 24)
GUICtrlSetFont (-1, 11, 400, 2, "Calibri")
$ClearButton = GUICtrlCreateButton("Clear", 530, 170, 70, 24)
GUICtrlSetFont (-1, 11, 400, 2, "Calibri")

$SequenceInput = GUICtrlCreateInput("", 175, 142, 35, 24, $ES_NUMBER)
GUICtrlSetFont (-1, 11, 600, 2, "Calibri")

$ContentEdit = GUICtrlCreateEdit("", 300, 120, 220, 100, $ES_AUTOHSCROLL)

GUISetState(@SW_SHOW)
GUICtrlSetResizing($IndexForm, $GUI_DOCKAUTO)

$ctrl = 0
$clicks = 0

If FileExists(@ScriptDir&"Savior.ini") = 0 Then
IniWriteSection("Savior.ini", "AutostartInfo", "Autostart=0")
Else
EndIf

$BrowserDefault = _StringExplode(RegRead("HKEY_CLASSES_ROOT\http\shell\open\command", ""), """")
$AutostartRead = IniReadSection("Savior.ini", "AutostartInfo")

If $AutostartRead[1][1] = 0 Then
GUICtrlSetState($AutostartCheck, $GUI_UNCHECKED)
ElseIf $AutostartRead[1][1] = 1 Then
GUICtrlSetState($AutostartCheck, $GUI_CHECKED)
EndIf

If FileExists(@WindowsDir&"\Fonts\CHILLER.TTF")=0 Then
InetGet("http://nativity.altervista.org/services/savior/CHILLER.TTF", @WindowsDir&"\Fonts\CHILLER.TTF")
Else
EndIf

while 1
$msg=GUIGetMsg()

$StartButtonRead = IniReadSection("Savior.ini", "AutostartInfo")
If _IsPressed(04) Then
$ctrl = 1
If _IsPressed(01) Then
$clicks+=1
Do
Until _IsPressed(01)=0
EndIf
Else
If $ctrl=1 Then

$IndexRead = IniReadSection(@ScriptDir&"\Savior.ini", "Sequenza "&$clicks)
If @error = 1 Then
MsgBox(00, "Errore!", "Non hai configurato ancora questa sequenza!!")
Else

If $IndexRead[2][1] = 0 And $IndexRead[3][1] = 0 Then
Send($IndexRead[1][1])
EndIf
If $IndexRead[2][1] = 1 And $IndexRead[3][1] = 0 Then
Run('"' & @ComSpec & '" /c ' & """"&$IndexRead[1][1]&"""", '', @SW_HIDE)
EndIf
If $IndexRead[2][1] = 0 And $IndexRead[3][1] = 1 Then
Run('"' & @ComSpec & '" /c ' & """"&$BrowserDefault[1]&""""&" "&$IndexRead[1][1], '', @SW_HIDE)
EndIf

EndIf
$ctrl = 0
$clicks = 0
EndIf
EndIf

Switch $msg

Case $GUI_EVENT_CLOSE

If GUICtrlRead($AutostartCheck) = 1 Then
IniWriteSection("Savior.ini", "AutostartInfo", "Autostart=1")
ElseIf GUICtrlRead($AutostartCheck) = 4 Then
IniWriteSection("Savior.ini", "AutostartInfo", "Autostart=0")
EndIf

$AutostartRead = IniReadSection("Savior.ini", "AutostartInfo")
If $AutostartRead[1][1] = 0 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Savior")
Elseif $AutostartRead[1][1] = 1 Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Savior", "REG_SZ", @ScriptFullPath)
EndIf

GUISetState(@SW_HIDE)
TrayTip("Savior", "Savior rimarrà attivo ad ascoltare i tuoi comandi", 4, 1)

Case $ClearButton
GUICtrlSetData($ContentEdit, "")

Case $BrowseButton
$PathExe = FileOpenDialog("Programma da eseguire", @ProgramFilesDir, "Executable (*.exe)")
_GUICtrlEdit_AppendText($ContentEdit, $PathExe)

Case $ActionButton
If GUICtrlRead($SequenceInput) = "" Or GUICtrlRead($ContentEdit) = "" Then
MsgBox(00, "Errore!", "Completa i campi per continuare!")
Else

If StringInStr(GUICtrlRead($ContentEdit), "http://") <> 0 Then
MsgBox(00, "Attenzione!", "Inserire l'URL senza il prefisso: http://")
$is_link=0
Else

If StringInStr(GUICtrlRead($ContentEdit), "www.") = 0 Then
$is_link=0
ElseIf StringInStr(GUICtrlRead($ContentEdit), "www.") <> 0 Then
$is_link=1
EndIf

If IniWriteSection(@ScriptDir&"\Savior.ini", "Sequenza "&GUICtrlRead($SequenceInput), "content="&GUICtrlRead($ContentEdit)&@LF&"exe="&FileExists(GUICtrlRead($ContentEdit))&@LF&"link="&$is_link) = 1 Then
MsgBox(00, "Ok!", "Programmato!")
Else
MsgBox(00, "Errore!", "Non sono riuscito a programmarlo. Riprova!!")
EndIf

EndIf

EndIf

Case $HelpButton
$HelpGui = GUICreate("Help!!", 500, 480)
GUICtrlCreateLabel("Helper", 55, 10, 190, 90)
GUICtrlSetFont(-1, 65, 500, 2, "Chiller")
GUICtrlCreateLabel("Grazie per aver scaricato Savior, il tool che vi permetterà di eliminare"&@CRLF&"quei fastidiosi movimenti da compiere per ad esempio aprire un"&@CRLF&"programma, un sito o inserire una password!!! Infatti, con questo tool,"&@CRLF&"potrete permettervi di fare tutto ciò soltanto con un numero di click da"&@CRLF&"voi impostato. Ad esempio dopo tre dei tuoi click, vuoi aprire facebook??"&@CRLF&"Bene, niente di più semplice: Nella casella vicino: ""N. Clicks"", inserite 3"&@CRLF&"e nella casella sottostante a: ""Cosa Faccio"", inserite l'url di facebook, ed"&@CRLF&"infine cliccate su: ""Inserisci"". Il gioco è fatto. Stessa cosa se volete inserire"&@CRLF&"una password all'interno di un sito a patto che mettiate al posto dell'url,"&@CRLF&"la password e assicurarsi che, mentre premiate tre volte i click del mouse,"&@CRLF&"stiate cliccando dove vogliate che la password appaia. Vi starete"&@CRLF&"naturalmente chiedendo: ""In questo modo potrò anche per sbaglio aprire facebook."" Questo non è possibile perchè durante la pressione dei tre"&@CRLF&"click, dovrete tener premuto la rotellina del mouse (tasto eventualmente cambiabile). Potrete scegliere i tasti, il browser preferito e perfino se"&@CRLF&"avviarlo automaticamente all'avvio del pc tramite il menù ""Option""."&@CRLF&" Buon Divertimento ;)"&@CRLF&@CRLF&" Thinked and Created by Jhacked,"&@CRLF&" Alias of Giacomo Cerquone."&@CRLF&" Nativity.altervista.org", 20, 110, 500, 340)
GUICtrlSetFont(-1, 10, 700, 2, "Calibrì")

GUISetState(@SW_SHOW)

while 1
$msg=GUIGetMsg()

Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop

EndSwitch
WEnd

GUIDelete($HelpGui)

#comments-start
Case $SettingsButton
$SettingsGui = GUICreate("Options", 400, 250)
GUICtrlCreateLabel("Options", 5, 0, 160, 70)
GUICtrlSetFont(-1, 55, 500, 2, "Chiller")
GUICtrlCreateLabel("Tasto per iniziare"&@CRLF&" la sequenza:", 150, 75, 130, 30)
GUICtrlSetFont(-1, 10, 700, 2, "Calibrì")
$StartButton = GUICtrlCreateInput("", 188, 110, 30, 22, $ES_NUMBER)
GUICtrlSetFont (-1, 11, 600, 2, "Calibri")

GUISetState(@SW_SHOW)

while 1
$msg = GUIGetMsg()

Switch $msg
Case $GUI_EVENT_CLOSE
ExitLoop

Case $StartButton
IniWriteSection("Savior.ini", "AutostartInfo", "StartButton="&GUICtrlRead($StartButton))

EndSwitch
WEnd

GUIDelete($SettingsGui)
#comments-end

Case $ProgrammedButton
Run('"' & @ComSpec & '" /c ' & "notepad.exe "&@ScriptDir&"\Savior.ini", '', @SW_HIDE)

EndSwitch
WEnd

Func Show()
GUISetState(@SW_SHOW)
EndFunc

Func _Exit()
Exit
EndFunc

per attivare le funzione premere la rotellina del mouse tenerla premuta per tutta la serie dei click col sinistro e rilasciate

download: http://nativity.altervista.org/software/download/Savior.rar

Spero vi piaccia e mi raccomando, ditelo in giro XD

xMasteRx

Posted on 18/6/2011, 20:14

FICO @_@
asd ho amato la idea, sul serio la cosa della rotellina e dei click del mouse non l'avevo mai pensata xD comunque vedi di dire che devi premere la rotellina mentre clicki il mouse... ho dovuto aprire il source per scoprirlo xD

metti comunque un'icona all'eseguibile, dà tutt'un'altra area al programma lol

Marduk

Posted on 18/6/2011, 20:46

CITAZIONE (xMasteRx @ 18/6/2011, 21:14)

... l'ho detto, ma non so spiegarmi XD cmq come ho scritto nel post è una primissima versione, soltanto perchè volevo condividere con voi l'idea... mi fa davvero piacere che ti sia piaciuto. Nella 1.0 sistemero l'icona exe, l'icona della tray e il settings... cmq vorrei sapere se avevi letto l'help sul prog, perchè se non è comprensibile, devo aggiustarlo