L'estremo
 - Group:
- Member
- Posts:
- 202
- Reputazione:
- +2
- Status:
| |
| E da un po che stavo lavorando e devo dire che la parte più difficile da fare è stata quella della skin xD. Comunque faccio una piccola descrizione del programma (essendo una beta builder 1.0 QUESTA VERSIONE E SOLO A SCOPO INFORMATIVO e attualmente CARICA SOLO i file sul server ma non li scarica....quindi e inutile scaricarla se non per vedere come funziona e come può essere migliorata. NOTA: Quando avvierete l'applicazione vi chiederà di aggiornarlo VOI NON fattelo. L'aggiornamento scaricherà un parchetto .rar che non c'entrerà nnt con il software. SYM (SaveYourMoney) e un software creato per adfly e tutti i tipi di siti shortcuner (o come si chiamano) (attualmente supporta solo adfly con la prossima build) il suo funzionamento consiste nel: caricare link adfly scritti in un file txt e caricati sul server,da qua gli altri client scaricheranno a random i file con i link e una volta scaricati il client li usa per navigare tramite shell explorer sui link adfl facendo guadagnare. Per ogni link che si visiterà si guadagnerà un punto,ogni 5 punti si può caricare un nuovo link. Ora vi chiederete a cosa serva una roba del genere? vi sembrerà una cosa inutile, invece non lo è affato! . Vi faccio un esempio, voi pubblicate un link giusto? se lo spmate in giro riceverete alcuni click al massimo una decina, in vecce con questo metodo il tuo link e nel server e i client scaricheranno il tuo link e lo utilizzeranno facendovi guadagnare un click vero? imaginate questa cosa con però decine o centinaia di persone? ma non solo, i tuoi link saranno sempre disponibili a essere cliccati mentre spamando non durano molto prima che siano o dimenticati dal spam altrui o se messo nei topic dimenticati. Spero di aver dato l'idea di cosa voglio intendere dire. download exe www.mediafire.com/?vof90nv135p1scbtotal scan www.virustotal.com/it/file/63f9bfc...sis/1419174955/CODICE #cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.12.0
Author: AbsoZero
Credits: >Master (autoit.forumcomunity.net)
Version Software: 0.0.1
Date: 17/12/2014 19:13
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
;----> Only the lines to skin your program...
#include "_UskinLibrary.au3"
;--
_Uskin_LoadDLL()
_USkin_Init(@ScriptDir & "\Skins\Arcadia.msstyles"); <-- Put here your skin...
;--
; If you use skin embedded...
;_Uskin_LoadDLL()
;#include ".\Skins\Arcadia.au3"
;_USkin_Init(_NightMove(True))
;<----
; Script Start - Add your code below here
#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <IE.au3>
#include <FTPEx.au3>
$read=FileReadLine("censured")
#Region ### START Koda GUI section ### Form=C:\Users\Daniel\Desktop\SYM.kxf
$Form1 = GUICreate("SaveYourMoney SYM", 919, 568, 184, 97)
$MenuItem1 = GUICtrlCreateMenu("Menu")
$MenuItem4 = GUICtrlCreateMenu("Opzioni (disabilitata)", $MenuItem1)
$MenuItem8 = GUICtrlCreateMenuItem("Verifica Aggior.", $MenuItem4)
$MenuItem9 = GUICtrlCreateMenuItem("Panello di Cont.", $MenuItem4)
$MenuItem10 = GUICtrlCreateMenuItem("Disinstalla", $MenuItem4)
$MenuItem3 = GUICtrlCreateMenu("Premium", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Attiva Premium", $MenuItem3)
$MenuItem6 = GUICtrlCreateMenuItem("Compra Premium", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem("Codice Bonus", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetBkColor(0x3399FF)
$Group1 = GUICtrlCreateGroup("Profillo", 8, 0, 185, 145)
$Label1 = GUICtrlCreateLabel("Benvenutto:", 16, 16, 62, 17)
$Label2 = GUICtrlCreateLabel(@UserName, 80, 16, 100, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel("Punti attuali:", 16, 32, 62, 17)
$Label4 = GUICtrlCreateLabel($read, 16, 48, 174, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label5 = GUICtrlCreateLabel("NOTA: Per ogni Link che posterai", 16, 72, 163, 17)
$Label6 = GUICtrlCreateLabel("Ti verrano sotratti 5 punti.", 16, 88, 171, 17)
$Label7 = GUICtrlCreateLabel("I punti si aggiornano", 16, 104, 99, 17)
$Label8 = GUICtrlCreateLabel("solo al riavio del Software.", 16, 120, 127, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetCursor (-1, 2)
$Button1 = GUICtrlCreateButton("Carica Link", 8, 168, 185, 25)
$Button3 = GUICtrlCreateButton("Guadagna Punti", 8, 192, 185, 25)
$Button2 = GUICtrlCreateButton("Facebook FanPage", 8, 232, 187, 25)
$Button4 = GUICtrlCreateButton("Facebook Points", 8, 256, 187, 25)
$oIE=ObjCreate("Shell.explorer.2")
GUICtrlCreateObj($oIE,200,5,715,540)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; INSTALLAZZIONE
$rrr=FileOpen("C:\Program Files (x86)\SYM\Data\install_effectuated.dat")
If $rrr=-1 Then
MsgBox(64,"ATENZIONE","Il software esseguira una piccola installaziene")
DirCreate("C:\Program Files (x86)\SYM")
DirCreate("C:\Program Files (x86)\SYM\Data")
DirCreate("C:\Program Files (x86)\SYM\Premium")
_FileCreate("C:\Program Files (x86)\SYM\Data\install_effectuated.dat")
_FileCreate("C:\Program Files (x86)\SYM\Premium\PRO.trs")
_FileCreate("censured")
_FileCreate("C:\Program Files (x86)\SYM\Data\configurazzione.trr")
_FileCreate("C:\Program Files (x86)\SYM\updater.ini")
MsgBox(64,"Instalazzione Riuscita","L'instalazzione e riuscita senza intopi")
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Updater ini
$VersionsInfo = "https://www.dropbox.com/s/t0oc4bwn8jgizsl/version.ini?dl=0"
$oldVersion = IniRead("C:\Program Files (x86)\SYM\updater.ini","Version","Version","NotFound")
$newVersion = "0.0"
$Ini = InetGet($VersionsInfo,"C:\Program Files (x86)\SYM\version.ini") ;download version.ini
If $Ini = 0 Then ;was the download of version.ini successful?
MsgBox(0,"ERROR","The server seems to be offline.")
Else
$newVersion = IniRead ("C:\Program Files (x86)\SYM\version.ini","Version","Version","") ;reads the new version out of version.ini
If $NewVersion = $oldVersion Then ;compare old and new
MsgBox (0,"No update","There is no update available!")
Else
$msg = MsgBox (4,"Update: SYM","E disponibile un nuovo aggiornamento: " & $newVersion & " ! Lei Sta Usando: " & $oldVersion & ". Vuole Scaricare la nuova versione?")
If $msg = 7 Then ;No was pressed
FileDelete("C:\Program Files (x86)\SYM\version.ini")
ElseIf $msg = 6 Then ;OK was pressed
$downloadLink = IniRead("C:\Program Files (x86)\SYM\version.ini","Version","download","NotFound")
$dlhandle = InetGet($downloadLink,@ScriptDir & "\Update.rar",1,1)
ProgressOn("", "", "",-1,-1,16) ;creates an progressbar
$Size = InetGetSize($downloadLink,1) ;get the size of the update
While Not InetGetInfo($dlhandle, 2)
$Percent = (InetGetInfo($dlhandle,0)/$Size)*100
ProgressSet( $Percent, $Percent & " percent");update progressbar
Sleep(1)
WEnd
ProgressSet(100 , "Done", "Complete");show complete progressbar
sleep(500)
ProgressOff() ;close progress window
IniWrite("C:\Program Files (x86)\SYM\updater.ini","version","version",$NewVersion) ;updates update.ini with the new version
InetClose($dlhandle)
MsgBox(-1,"Aggiornamento Scaricato","Aggiornamento scaricato! Per iniziare l'installazione apra il file. rar al e avvii l'installer.")
EndIf
EndIf
EndIf
FileDelete("C:\Program Files (x86)\SYM\version.ini")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HOST Server
$host = "censured"
$username = "censured"
$password ="censured"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem2
Exit
Case $MenuItem3
Case $MenuItem5
Case $MenuItem6
Case $MenuItem7
$input=InputBox("Code Bonus","Inserisca il codice Bonus")
If $input="censured" Then
FileWriteLine("censured")
Else
MsgBox(48,"Error","Non è stato trovato nessun codice bonus valido")
EndIf
Case $MenuItem8
Case $MenuItem9
MsgBox(48,"Error","Attualmente questa funzione e disabilitata, verra implementata nelle versioni future")
#cs;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;$parte Menu 9
If 1>1 Then
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Menu Configurazzione", 617, 341, -1, -1)
$PasswordEdit = GUICtrlCreateInput("password", 16, 296, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$ButtonOk = GUICtrlCreateButton("&OK", 254, 296, 75, 25, $BS_NOTIFY)
$EnterPassLabel = GUICtrlCreateLabel("Sicurezza : Inserisci la parola per poter salvare le modifiche : LIFE", 16, 276, 528, 17, 0)
$Group1 = GUICtrlCreateGroup("Sicurezza", 8, 256, 601, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Combo1 = GUICtrlCreateCombo("---", 8, 40, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Adf.ly|CoinUrl")
$Label1 = GUICtrlCreateLabel("Imposta Di Default Shortcuner da utilizare.", 8, 16, 205, 17)
$Button1 = GUICtrlCreateButton("Aplica", 160, 40, 75, 25)
$Label2 = GUICtrlCreateLabel("Imposta Auto-Lavoro Tempo (NO Capcha) (ONLY PREMYUM)", 8, 72, 299, 17)
$Combo2 = GUICtrlCreateCombo("---", 8, 96, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "10 punti|50 punti|100 punti|250 punti")
$Button2 = GUICtrlCreateButton("Aplica", 160, 96, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonOk
If GUICtrlRead($PasswordEdit)="LIFE" Then
FileWriteLine("C:\Program Files (x86)\SYM\Data\configurazzione.trr",guictrlread($Combo1))
EndIf
EndSwitch
WEnd
EndIf
#ce;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; parte $menu 9
Case $MenuItem10
FileDelete("C:\Program Files (x86)\SYM\Data\install_effectuated.dat")
FileDelete("C:\Program Files (x86)\SYM\Premium\PRO.trs")
FileDelete("C:\Windows\Temp\pnts.das")
FileDelete("C:\Program Files (x86)\SYM\Data\configurazzione.trr")
FileDelete("C:\Program Files (x86)\SYM\Data\version.ini")
DirRemove("C:\Program Files (x86)\SYM\Premium")
DirRemove("C:\Program Files (x86)\SYM\Data")
DirRemove("C:\Program Files (x86)\SYM")
Case $Button2
MsgBox(64,"ATENZIONE","La sezione e ancora in costruzzione,nei prossimi aggiornamenti sara fruibile.")
Case $Button4
MsgBox(64,"ATENZIONE","La sezione e ancora in costruzzione,nei prossimi aggiornamenti sara fruibile.")
Case $Button1
If FileReadLine("censured")="censured" Then
#include <GUIConstants.au3>
#include "ftp.au3"
$host = "ftp.byethost18.com"
$username = "b18_15671516"
$password ="Setanta6"
DllOpen ("wininet.dll")
$apri = _FTPOpen ($host)
$connessione = _FTPConnect ($apri ,$host,$username,$password)
If @error Then
MsgBox (0 , "Form1" , "Errore nella connessione")
Else
$rand=Random(1,100)
$opfile=FileOpenDialog ("Seleziona un file" , @DesktopDir , "All files test (*.txt)")
$trrr=_filecreate("C:\Program Files (x86)\SYM\"&$rand&".txt")
$readd=FileRead($opfile)
FileWrite("C:\Program Files (x86)\SYM\adfly"&$rand&".txt",$readd)
$percorso = ("C:\Program Files (x86)\SYM\"&$rand&".txt")
If @error Then
MsgBox (0 , "Error" , "Specifica un file!")
EndIf
$nome = StringSplit ($percorso , "\")
$count = UBound ($nome)
$put = _FTPPutFile ($connessione , $percorso , $nome [$count - 1])
_FTPClose ($apri)
If $put = 1 Then
MsgBox (0 , "Operazione Riuscita" , "File caricato con successo")
ElseIf $put = 0 Then
MsgBox (0 , "Error" , "Errore nell'upload del file")
EndIf
EndIf
EndIf
Case $Button3
$op=_FTP_Open($host)
_FTP_Connect($op,$host,$username,$password)
If @error Then
MsgBox (0 , "Form1" , "Errore nella connessione")
Else
_FTP_FileGet("adfly"&"*.txt")
EndIf
EndSwitch
WEnd alcune parti sono state censurate per motivi di sicurezza: tutti i dati per l'acceso dell server. |
