Bland 2.0, l'1 Anubi lo aveva fatto con l'altro account

#NoTrayIcon
#include <skincrafter.au3>
#include <gdiplus.au3>
#include <guiedit.au3>
#include <winapi.au3>
#include <windowsconstants.au3>
#include <guiconstantsex.au3>
#include <misc.au3>
#include <guistatusbar.au3>
#include <file.au3>

$trss = 700
$trssd = 700



$fil3 = FileRead ( @ScriptDir & "\inipass.ini" )
if NOT $fil3 = "DOFJF3329055CIOUVSE" Then
$fop = InputBox ( "Licence", "Write licence code", " " )
If $fop = "DOFJF3329055CIOUVSE-K3423DD" Then
MsgBox ( 0, "Good licence", "Ok" )
FileWrite ( "inipass.ini", "DOFJF3329055CIOUVSE" )
Else
MsgBox ( 0, "Error", "Invalid licence code" )
Exit
EndIf
EndIf

FileChangeDir ( @scriptdir )

SkinStartLibrary('Skin.dll')

FileChangeDir ( @scriptdir )


$dd = GUICreate ( "BLAND 3.0Text Editor", $trss, $trssd,-1,-1,$WS_MAXIMIZEBOX+$WS_MINIMIZEBOX)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $dd, "int", 1000, "long", 0x00040001)
GUISetState()
#define AW_HOR_POSITIVE 0x00000001
#define AW_HOR_NEGATIVE 0x00000002
#define AW_VER_POSITIVE 0x00000004
#define AW_VER_NEGATIVE 0x00000008
#define AW_CENTER 0x00000010
#define AW_HIDE 0x00010000
#define AW_ACTIVATE 0x00020000
#define AW_SLIDE 0x00040000
#define AW_BLEND 0x00080000
If FileExists ( "SKIN.INI" ) Then
$filed = FileRead ( "SKIN.INI" )
AddSkin ($dd, $filed, 2 )
SkinUpdate()
Else
$filed = "Skin.skf"
EndIf



if FileExists ( "color.ini" ) Then
$o = FileReadLine ( "color.ini", 1 )
GUISetBkColor ( $o )
EndIf

$filemenu = GUICtrlCreateMenu("&File")
$fileitemx = GUICtrlCreateMenuItem("&Empity", $filemenu)
$filemenuxx = GUICtrlCreateMenu("&Help")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
$fileitem2 = GUICtrlCreateMenuItem("", $filemenu)
$fileitem3 = GUICtrlCreateMenuItem("Save as", $filemenu)
$fileitem4 = GUICtrlCreateMenuItem("", $filemenu)
$fileitem5 = GUICtrlCreateMenuItem("Exit", $filemenu)
$fileitem34 = GUICtrlCreateMenuItem("", $filemenu)
$fileitemM = GUICtrlCreateMenuItem("Minimize all", $filemenu)
$fileitemxx = GUICtrlCreateMenuItem("?", $filemenuxx)
$edit = GUICtrlCreateEdit ( "", 1, 4, $trss - 10,$trssd - 70 )

If FileExists ("font.ini") Then
$readdim = FileReadLine ("font.ini", 1 )
$readcfont = FileReadLine ("font.ini", 2 )
$readcolr = FileReadLine ("font.ini", 3 )
$font=GUICtrlSetFont($edit,$readdim ,$readcfont)
$color=GUICtrlSetColor($edit,$readcolr)
EndIf



$lab = GUICtrlCreateMenu("&Extras")
$iteml = GUICtrlCreateMenuItem ( ".bat save only", $lab )
$item1 = GUICtrlCreateMenuItem ( "", $lab )
$itemfl = GUICtrlCreateMenuItem ( "Choose font", $lab )
$item2 = GUICtrlCreateMenuItem ( "", $lab )
$itemyl = GUICtrlCreateMenuItem ( "Choose GUI color", $lab )
$item3 = GUICtrlCreateMenuItem ( "", $lab )
$ites = GUICtrlCreateMenuItem ( "Count lines", $lab )
$item4 = GUICtrlCreateMenuItem ( "", $lab )
$itefg = GUICtrlCreateMenuItem ( "Find", $lab )
$item5 = GUICtrlCreateMenuItem ( "", $lab )
$itjfg = GUICtrlCreateMenuItem ( "Replace", $lab )
$itemygd = GUICtrlCreateMenuItem ( "", $lab )
$ago35 = GUICtrlCreateMenuItem ( "Print", $lab )
$itemygdswes = GUICtrlCreateMenuItem ( "", $lab )
$go5 = GUICtrlCreateMenuItem ( "Select skin", $lab )





GUISetState()

While 1
$msg = GUIGetMsg()


Select

Case $msg = $go5
$fd = FileOpenDialog ( "Select skin", @scriptDir & "\Skin", "Skin (*.skf)" )
AddSkin ($dd, $fd, 2 )
SkinUpdate()
FileDelete ( "SKIN.INI" )
FileWrite ( @ScriptDir & "\SKIN.INI", $fd )
MsgBox ( 0, "Reboot", "Is necessary reboot program" )
ExitLoop

Case $msg = $itefg
_GUICtrlEdit_Find($edit, False)
Case $msg = $itjfg
_GUICtrlEdit_Find($edit, True)
Case $msg = $ago35

$tempor1 = _GUICtrlEdit_GetText ( $edit )
FileWrite ("xc.txt", $tempor1 )
$tempor = "xc.txt"
$print = _FilePrint ($tempor)
If $print Then
MsgBox(0, "Print", "The file was printed.")
Else
MsgBox(0, "Print", "Error: " & @error & @CRLF & "The file was not printed.")
EndIf
FileDelete ( $tempor )

Case $msg = $GUI_EVENT_CLOSE
$answer = MsgBox ( 4, "Are you sure ?", "Exit ?" )
If $answer = 7 Then
ContinueLoop
EndIf
ExitLoop

Case $msg = $ites
$basd = _GUICtrlEdit_GetLineCount ($edit)
$hStatus = _GUICtrlStatusBar_Create ($dd)
_GUICtrlStatusBar_SetText ($hStatus, "Line number = " & $basd )




Case $msg = $itemyl
FileChangeDir ( @scriptdir )
$ompot = _ChooseColor( )
$hand = WinGetHandle ( "[AVTIVE]", "" )
GUISetBkColor ( $ompot )
If FileExists ( "color.ini" ) then
FileDelete ( "color.ini" )
EndIf
FileWrite ( "color.ini", $ompot )



Case $msg = $fileitem
$file = ""
$file = FileOpenDialog("Choose text file", @UserProfileDir, "All (*.*)")
If Not $file = "" Then
$zip = FileGetSize ( $file )
_GUICtrlEdit_SetText ($edit, "")
_GUICtrlEdit_setText($edit, FileRead ($file))
_GUICtrlEdit_LineScroll($edit, 0, _GUICtrlEdit_GetLineCount($edit) * - 1)
WinSetTitle( "[ACTIVE]", "", $file )
EndIf

Case $msg = $fileitem3
$pattosave = FileSaveDialog ( "Chose path", @UserProfileDir, "All (*.*)|Bland file (*.fal)")
if NOT $pattosave = "" Then
$editf = _GUICtrlEdit_GetText ( $edit )
FileChangeDir ( @scriptdir )
FileWrite ( $pattosave & ".%­tmp%", $editf )
FileSetAttrib ( $pattosave & ".%­tmp%", "+SH" )
FileDelete ( $pattosave & ".%­tmp%" )
WinSetTitle ( "[ACTIVE]", "", $pattosave )
If $editf = "" Then
MsgBox ( 0, "Error saving", "Write before saving!" )
Else
FileWrite ( $pattosave, $editf )
EndIf
EndIf

Case $msg = $fileitem5
$answer = MsgBox ( 4, "Are you sure ?", "Exit ?" )
If $answer = 7 Then
ContinueLoop
EndIf
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $dd, "int", 1000, "long", 0x00050010);implode

#define AW_HOR_POSITIVE 0x00000001
#define AW_HOR_NEGATIVE 0x00000002
#define AW_VER_POSITIVE 0x00000004
#define AW_VER_NEGATIVE 0x00000008
#define AW_CENTER 0x00000010
#define AW_HIDE 0x00010000
#define AW_ACTIVATE 0x00020000
#define AW_SLIDE 0x00040000
#define AW_BLEND 0x00080000
ExitLoop

Case $msg = $fileitemx
$file = ""
_GUICtrlEdit_SetText ($edit, "")
WinSetTitle( "[ACTIVE]", "", "BLAND 3.0Text Editor easy" )

Case $msg = $fileitemxx
run ( @ScriptDir & "\hep.exe" )

Case $msg = $iteml
$pattosaves = FileSaveDialog ( "Chose bat file name", @WindowsDir, "Batch (*.bat)")
if NOT $pattosaves = "" Then
$editfs = _GUICtrlEdit_GetText ( $edit )
If $editfs = "" Then
MsgBox ( 0, "Error saving", "Write before saving!" )
Else
FileWrite ( $pattosave, $editfs )
endif

endif

Case $msg = $fileitemM
WinMinimizeAll ( )

Case $msg = $itemfl

Local $font1
FileChangeDir ( @scriptdir )
if FileExists ("font.ini") Then
FileDelete ( "font.ini" )
EndIf
$font1=_ChooseFont()
If NOT @error Then
$modificato_testo=GUICtrlSetFont($edit,$font1[3],$font1[4])
$modifica_colore=GUICtrlSetColor($edit,$font1[5])
FileWrite ( "font.ini", " " & $font1[3] & @CRLF & " " & $font1[4] & @CRLF & " " & $font1[5] )
EndIf

EndSelect
WEnd


FileChangeDir ( @scriptdir )
FileSetAttrib ( "font.ini", "+RASHNOT" )
FileSetAttrib ( "color.ini", "+RASHNOT" )

#NoTrayIcon
#include <guiconstantsex.au3>
#include <guiedit.au3>
#include <skincrafter.au3>
$guihelp = GUICreate ( "Help (?) ", 500, 500 )
SkinStartLibrary('Skin.dll')
AddSkin ($guihelp, "Skin.skf", 2 )
SkinUpdate()
$edit = GUICtrlCreateEdit ( "", 1, 4, 700 - 1,700 - 7 )
$text = FileRead ( "help_3.txt" )
if $text = "" Then
MsgBox (8192, "Error", "Help file was not found" )
Exit
endif
_GUICtrlEdit_SetText ($edit, $text )
_GUICtrlEdit_SetReadOnly($edit, True)
GUISetState ( )

while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

________________________________________________________________________________________

--- Help ---

This is the help file:

* Function:

Empity = Clean the clipboard
------------------------- File
Open = Open a file
Save = Save the text
Esc = Exit
Minimize all = Minimize all windows
------------------------- Help
Help = Wiew this file
------------------------- Extras
.bat save only
Choose font = Sets font
Choose Gui color = Set Gui color
Count line = Count the lines
Find = Find a string in the clipboard
Replace = Replace a string in the clipboard
Print = Print the file

* Credits

Created by _qp_assoc
copyrights (C) qp products (Anubi)

________________________________________________________________________________________