CODICE
#include<guiconstants.au3>
GUICreate ("memo",400,400)
GUISetState (@sw_show)
GUICtrlCreatePic( "C:\Users\DRAKE\Pictures\Untitled 1.bmp", 0, 0,400,400)
GuiCtrlSetState(-1,$GUI_DISABLE)
$input=GUICtrlCreateInput ("memo.V3",100,100,200,200)
$bottone=GUICtrlCreateButton ("salva",300,300)
$bottone2=GUICtrlCreateButton ("esci",235,300)
$bottone3=GUICtrlCreateButton ("carica",195,300)
$bottone4=GUICtrlCreateButton ("info",255,300)
$bottone5=GUICtrlCreateButton ("sito",280,300)
$bottone6=GUICtrlCreateButton ("siton2",145,300)
$bottone7=GUICtrlCreateButton ("guida actool",80,300)
$bottone8=GUICtrlCreateButton ("scaricare vb",10,300)
$bottone9=GUICtrlCreateButton ("scaricare autoIt",10,270)
$bottone10=GUICtrlCreateButton ("itaci99 video",10,250)
$bottone11=GUICtrlCreateButton ("guida autoit(nn da me))",300,270)
$bottone12=GUICtrlCreateButton ("video divertenti",300,250)
$bottone13=guictrlcreatebutton ("canzone idota per noi hacker",150,60)
$bottone14=GUICtrlCreateButton ("la mia pass",10,230)
$bottone15=GUICtrlCreateButton ("orologio",300,230)
$bottone16=GUICtrlCreateButton ("trova ip",10,190)
$bottone17=GUICtrlCreateButton ("bei testi",300,190)
While 1=1
switch GUIGetMsg ()
Case $gui_event_close
Exit
Case $bottone
$leggo=guictrlread($input)
FileWrite ("memo.v3.txt",""& $leggo)
Case $bottone2
GUISetState (@sw_hide)
Case $bottone3
MsgBox(0,"memorizazione","la mini memorizazione eletronica")
ShellExecute ("memo.v3.txt")
Case $bottone4
MsgBox(0,"Informazione","Autore: harry dinner1"& @CRLF &""& @CRLF &"la mini aggenda eletronica serve per nn scordare"& @CRLF &"in particolare quelli con la memoria corta"& @CRLF &""& @CRLF &"Istruziozioni,la voce SALVA serve per salvare i vostri appunti tipo un gui o un sito,la voce ESCI serve per chiudere il programma,la voce CARICA serve per caricare i tuoi dati,la voce INFO serve per sapere tutto cio, la voce SITI ti porta in un sito www.01184601.forumfree.net.Scaricare autoIT ti scarica autoit,scaricare vb ti va a scaricare visual besic,guida actool e una piccola guida inventata da me,sito 2 e www.autoIT.forumcommunity.net fine buon divertimento a sparare cazzate by harry dinner1")
Case $bottone5
#Include <Process.au3>
$sito = 'www.01184601.forumfree.net'
_RunDos ('Start '&$sito)
Case $bottone6
#Include <Process.au3>
$sito = 'www.autoit.forumcommunity.net'
_RunDos ('Start '&$sito)
Case $bottone7
MsgBox(0,"guida actool","ciao,per prima cosa dobbiamo aprie actool!")
MsgBox(0,"guida actool","poi dopo aver aperto actool in alto a sinistra c'e la voce file cliccate sopra e andate su!")
MsgBox(0,"guida actool","open!")
MsgBox(0,"guida actool","subito dopo aprite bot speker/ecc se nn avete bot speker fatevelo mandare.(nn e importante ma e un bot in caso se tu sei assente nel compiuter lascii questo messagio!")
MsgBox(0,"guida actool","poi dopo caricato vedrete tante parole voi nn cliccate niente!")
MsgBox(0,"guida actool","poi andate su metin2/sacred ecc e entrate con il vostro personaggio!")
MsgBox(0,"guida actool","poi fate la bandiera sulla tastiera e vi porta dinuovo su windos!")
MsgBox(0,"guida acttol","subito dopo cliccate su start!")
MsgBox(0,"presentato da","ariete=celticryan=sephiroth!")
MsgBox(0,"altri bot","per modificare il messaggio del bot su un altra guida che faro!")
MsgBox(0,"altri bot","ancora deve uscire!")
MsgBox(0,"altri bot","per usare altri bot la stessa cosa!")
MsgBox(0,"guida actool","questa guida praticamente e per lo speker bot!")
MsgBox(0,"ciao","arrivederci!")
Case $bottone8
#Include <Process.au3>
$sito = 'http://download.html.it/software/getit/3180/visual-basic-2005/'
_RunDos ('Start '&$sito)
Case $bottone9
#Include <Process.au3>
$sito = 'http://italian.eazel.com/lv/group/view/kl31715/AutoIt.htm'
_RunDos ('Start '&$sito)
Case $Bottone10
#Include <Process.au3>
$sito = 'http://www.youtube.com/user/itaci99'
_RunDos ('Start '&$sito)
Case $bottone11
#Include <Process.au3>
$sito = 'http://autoit.forumcommunity.net/?t=13166251'
_RunDos ('Start '&$sito)
Case $bottone12
#Include <Process.au3>
$sito = 'http://www.youtube.com/user/ilMioCaneTruzzo'
_RunDos ('Start '&$sito)
Case $bottone13
#Include <Process.au3>
$sito = 'http://www.youtube.com/watch?v=G-HRVRjAwfs'
_RunDos ('Start '&$sito)
Case $bottone14
Msgbox(0,"Pass register","Scrivi la tua pass qui")
$input=InputBox("My pass","La mia pass")
FileWrite("la mia pass.txt","Eccola:"& $input)
Case $bottone15
While 5
ToolTip(@HOUR&':'&@MIN&":"&@SEC, 0, 0)
sleep (1000)
WEnd
Case $bottone16
#NoTrayIcon
GUICreate ("IP searcher", 200, 130)
GUICtrlCreateLabel ("Il tuo IP è:", 10, 30)
GUICtrlCreateInput ($bottone16, 10, 50)
$add = GUICtrlCreateButton ("Add to clipboard", 100, 30)
$about = GUICtrlCreateButton ("About the author", 100, 60)
GUISetState ()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
case $msg = $add
ClipPut ($bottone16)
case $msg = $about
MsgBox (32, "About the author", "IP searcher è stato creato da harry dinner2"&@crlf&"www.01184601.forumfree.net")
EndSelect
Wend
Case $bottone17
#include <GUIConstants.au3>
#include <Color.au3>
#include <ScreenCapture.au3>
#cs
Program name: Cool text creator
Bug(s): 0
Version: 1.0
Author(s): I.Ren
Description: A tools for create a cool text.
Author comment: wait the next version!
#ce
Global Const $read = IniRead (@tempdir & '\shadow.ini','shadow','shadow','1')
Global Const $color2 = IniRead (@tempdir & '\shadow.ini','color','color','00f0ff')
Global Const $version = '1.0'
$Width = 750
$Height = 500
$Form = GUICreate("Cool text creator " & $version & ' By I.Ren', $Width, $Height, -1, -1)
$inpt_txt = GUICtrlCreateEdit ('Here the text',0,0,750,200)
$color_lbl = GUICtrlCreateLabel ('Color:',10,210,80,20)
GUICtrlSetColor (-1,0xFFFFFF)
$red = GUICtrlCreateButton ('Red',40,205,50,20)
GUICtrlSetColor (-1,0xf80000)
$green = GUICtrlCreateButton ('Green',90,205,50,20)
GUICtrlSetColor (-1,0x00FF00)
$blue = GUICtrlCreateButton ('Blue',140,205,50,20)
GUICtrlSetColor (-1,0x0000FF)
$purple = GUICtrlCreateButton ('Purple',190,205,50,20)
GUICtrlSetColor (-1,0x8a00ff)
$orange = GUICtrlCreateButton ('Orange',240,205,50,20)
GUICtrlSetColor (-1,0xffa200)
$grey = GUICtrlCreateButton ('Grey',290,205,50,20)
GUICtrlSetColor (-1,0x939393)
$white = GUICtrlCreateButton ('White',340,205,50,20)
GUICtrlSetColor (-1,0xFFFFFF)
$shadow = GUICtrlCreateButton ('shadow',445,205,50,20)
$add_color = GUICtrlCreateButton ('Add color',390,205,55,20)
$prewiew_group = GUICtrlCreateGroup ('Prewiew',0,230,750,270)
$color = GUICtrlCreateButton ('Color added',495,205,70,20)
$bk_color = GUICtrlCreateButton ('bk color',565,205,50,20)
$create_img = GUICtrlCreateButton ('Create the text',615,205,80,20)
$clear = GUICtrlCreateButton ('Clear',696,205,50,20)
GUICtrlSetState (-1,$GUI_DISABLE)
GUISetBkColor(0x666666)
GUISetState()
While 1
$msg = GUIGetMsg ()
Select
Case $msg = $bk_color
$bk = InputBox ('Background color','Insert the code of the background','0xDDDDDD','',50,100)
GUISetBkColor ($bk)
Case $msg = $create_img
createText ()
Case $msg = $color
CoolText (GUICtrlRead ($inpt_txt), 15, 300, 50, 40, 10, 20, 0x000000, $color2, 25, 25, $read, 1)
Case $msg = $add_color
$color = InputBox ('Add color','Insert the code of the color',$color2,'',50,100)
IniWrite (@tempdir & '\shadow.ini','color','color','0x' & $color)
Run ('Cool text generator.exe')
Exit
Case $msg = $white
CoolText (GUICtrlRead ($inpt_txt), 15, 300, 50, 50, 10, 20, 0x000000, 0xFFFFFF, 25, 25, $read, 1)
Case $msg = $grey
CoolText (GUICtrlRead ($inpt_txt), 15, 300, 50, 50, 10, 20, 0x000000, 0x939393, 25, 25, $read, 1)
Case $msg = $orange
CoolText (GUICtrlRead ($inpt_txt), 15, 300, 50, 50, 10, 20, 0x000000, 0xffa200, 25, 25, $read, 1)
Case $msg = $purple
CoolText (GUICtrlRead ($inpt_txt), 15, 300, 50, 50, 10, 20, 0x000000, 0x8a00ff, 25, 25, $read, 1)
Case $msg = $shadow
Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(36,"Shadow?","Do you wont have shaodw in your cool text?")
Select
Case $iMsgBoxAnswer = 6 ;si
IniWrite(@tempdir & '\shadow.ini','shadow','shadow','1')
Run ('cool text generator.exe')
Exit
Case $iMsgBoxAnswer = 7 ;no
IniWrite(@tempdir & '\shadow.ini','shadow','shadow','0')
Run ('cool text generator.exe')
Exit
EndSelect
Case $msg = $blue
CoolText (GUICtrlRead ($inpt_txt), 15, 300, 50, 40, 10, 20, 0x000000, 0x0000FF, 25, 25, $read, 1)
Case $msg = $green
CoolText (GUICtrlRead ($inpt_txt), 15, 300, 50, 40, 10, 20, 0x000000, 0x00FF00, 25, 25,$read, 1)
Case $msg = $red
Cooltext(GUICtrlRead ($inpt_txt), 15, 300, 50, 40, 10, 20, 0x000000, 0xFF0000, 25, 25, $read, 1)
Case $msg = $GUI_EVENT_CLOSE
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form, "int", 500, "long", 0x00090000)
Exit
EndSelect
WEnd
Func Cooltext($Text, $Left, $Top, $Fontsize, $Fontspace, $Step, $Delay, $Color, $Color2, $Colorstep, $Colorstep2, $Shadow, $Gradient)
$Color = Colors($Color, $Color2, $Colorstep, $Colorstep2)
$Letters = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
$Let = StringSplit($Letters, ",", 1)
$Len = StringLen($Text)
Local $Control[$Len + 1], $Fontspace2 = 0
For $i = 1 To $Len
$pLeft = (($Left + ($i * $Fontspace)) - $Fontspace2) - $Fontspace
$Control[$i] = GUICtrlCreateLabel("", $pLeft, 0, $Fontspace, $Fontspace * 2)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, $Fontsize)
$sLeft = StringLeft($Text, $i)
If $i <> 1 Then $sLeft = StringTrimLeft($sLeft, $i - 1)
If $sLeft <> " " Then
For $z = 1 To $Step
GUICtrlSetPos(-1, $pLeft, $z * ($Top / $Step))
$Text2 = $Let[Random(1, UBound($Let) - 1, 1)]
GUICtrlSetData(-1, $Text2)
GUICtrlSetColor(-1, $Color[$z * ($Colorstep / $Step)])
Sleep($Delay)
Next
EndIf
GUICtrlSetData(-1, $sLeft)
If $Gradient = 1 Then
If $i < $Len / 2 Then
GUICtrlSetColor(-1, $Color[$Colorstep - ($i * (($Colorstep / 2) / ($Len / 2)))])
Else
GUICtrlSetColor(-1, $Color[($Colorstep / 2) + (($i - ($Len / 2)) * (($Colorstep / 2) / ($Len / 2)))])
EndIf
EndIf
If $Shadow = 1 Then
GUICtrlCreateLabel($sLeft, $pLeft - 3, $Top + 3, $Fontspace, $Fontspace * 2)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, $Color[$Step / 1.2])
GUICtrlSetFont(-1, $Fontsize)
GUICtrlSetPos($Control[$i], $pLeft, $Top)
EndIf
If $sLeft = "i" Or $sLeft = "i" Then $Fontspace2 += $Fontspace / 2
If $sLeft = "f" Or $sLeft = "l" Then $Fontspace2 += $Fontspace / 2.5
Next
EndFunc ;==>TextEffect
Func Colors($nStartColor = 0xFFFFFF, $nEndColor = 0xFF0000, $Step = 50, $Step2 = 50)
Local $color1R = _ColorGetRed($nStartColor)
Local $color1G = _ColorGetGreen($nStartColor)
Local $color1B = _ColorGetBlue($nStartColor)
Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $Step2
Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $Step2
Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $Step2
For $i = 1 To $Step
$sColor = "0x" & StringFormat("%02X%02X%02X", $color1R + $nStepR * $i, $color1G + $nStepG * $i, $color1B + $nStepB * $i)
If $i = 1 Then
$Colors = $sColor
Else
$Colors &= "," & $sColor
EndIf
Next
$Colors = StringSplit($Colors, ",", 1)
Return $Colors
EndFunc ;==>Colors
Func createText ()
$save = FileSaveDialog ('Save text',@desktopdir,'(*.jpg)|(*.bmp)|(*.png)|(*.*)')
_ScreenCapture_CaptureWnd ($save,$form,5,268)
_ScreenCapture_SetJPGQuality (100)
EndFunc ;==>createText
Exit
EndSwitch
WEnd