Bland 3.5

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=Note PAD
#AutoIt3Wrapper_Res_Fileversion=2.0.0.1
#AutoIt3Wrapper_Res_LegalCopyright=qp product
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <skincrafter.au3>
#include <gdiplus.au3>
#include <guiedit.au3>
#include <winapi.au3>
#include <windowsconstants.au3>
#include <guiconstantsex.au3>
#include <guiconstants.au3>
#include <misc.au3>
#include <guistatusbar.au3>
#include <file.au3>
#Include <string.au3>
#include <editconstants.au3>
#include <staticconstants.au3>
#include <ie.au3>
#include <guirichedit.au3>
$trss = @DesktopWidth - 30
$trssd = @DesktopHeight - 30



#cs
$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
#ce

FileChangeDir ( @scriptdir )

SkinStartLibrary('Skin.dll')

FileChangeDir ( @scriptdir )




$dd = GUICreate ( "BLAND 3.0Text Editor", $trss, $trssd,-1,-1,$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)
$fileitem2 = GUICtrlCreateMenuItem("", $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 = _GUICtrlRichEdit_Create($dd, "", 1, 4, $trss - 10,$trssd - 80, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
_GuiCtrlRichEdit_AutoDetectURL($edit, True)
_GUICtrlRichEdit_PasteSpecial($edit, True)

;$edit = GUICtrlCreateEdit ( "", 1, 4, $trss - 10,$trssd - 80,-1)

GUICtrlSetCursor (-1, 3)

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("&Struments")
$iteml = GUICtrlCreateMenuItem ( ".bat save only", $lab )
$item1 = GUICtrlCreateMenuItem ( "", $lab )
$itemCRy = GUICtrlCreateMenuItem ( "Crypt string", $lab )
$item1 = GUICtrlCreateMenuItem ( "", $lab )
$itemECRy = GUICtrlCreateMenuItem ( "Decrypt string", $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 )
$html = GUICtrlCreateMenuItem ( "HTML View", $lab )
$itemygdswes = GUICtrlCreateMenuItem ( "", $lab )
$htmlR = GUICtrlCreateMenuItem ( "Text View", $lab )
$itemygdswes = GUICtrlCreateMenuItem ( "", $lab )
$hinsFile = GUICtrlCreateMenuItem ( "Insert File", $lab )
$itemygdswes = GUICtrlCreateMenuItem ( "", $lab )
;$PasteSD = GUICtrlCreateMenuItem ( "Insert Image", $lab )
;$itemygdswes = GUICtrlCreateMenuItem ( "", $lab )
$go5 = GUICtrlCreateMenuItem ( "Select skin", $lab )
$oIe = _IECreateEmbedded ()




GUISetState()

While 1
$msg = GUIGetMsg()

Select
;Case $msg = $PasteSD
;$image = FileOpenDialog ( "Choose image name", @DesktopDir, "All (*.*)" )


Case $msg = $htmlR
$edit = _GUICtrlRichEdit_Create($dd, "", 1, 4, $trss - 10,$trssd - 80, _
BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
If $ht Then
_GUICtrlRichEdit_AppendText ($edit, $ht )
EndIf
GUICtrlDelete ( $obj )

Case $msg = $hinsFile
$sFilespec = FileOpenDialog ( "Select file", @DesktopDir, "All (*.*)" )
_GUICtrlRichEdit_AppendText ($edit, "file:///" & $sFilespec )

Case $msg = $html
FileDelete ( @TempDir & "\Source.html" )
$ht = _GUICtrlRichEdit_GetText ( $edit )
FileWrite ( @TempDir & "\Source.html", $ht )
_GUICtrlRichEdit_Destroy ($edit)
$obj = GUICtrlCreateObj ( $oIe, 1,4,$trss - 10,$trssd - 80)
_IENavigate ( $oIe, "file:///" & @TempDir & "\Source.html" )
;_IENavigate ( $oIe, "javascript:document.body.contentEditable='true';document.designMode='on'; void 0" )

Case $msg = $itemCRy
$nc = _GUICtrlEdit_GetText ( $edit )
$passw = InputBox ( "Wrote the password", "IN", "Password" )
$cri = _StringEncrypt ( 1, $nc, $passw )
GUICtrlSetData ( $edit, $cri )

Case $msg = $itemECRy
$nc = _GUICtrlEdit_GetText ( $edit )
$passw = InputBox ( "Wrote the password", "IN", "Password" )
$cri = _StringEncrypt ( 0, $nc, $passw )
GUICtrlSetData ( $edit, $cri )



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
$tit = WinGetTitle ( "[ACTIVE]")
$tempor = @ScriptDir & "\" & $tit
$tempor1 = _GUICtrlRichEdit_StreamToFile ($edit, $tempor )

$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
GUICtrlDelete ( $edit )
Sleep (1000)
GUICtrlDelete ( $lab )
Sleep (1000)
GUICtrlDelete ( $filemenu )
Sleep (1000)
GUICtrlDelete ( $filemenuxx )
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
ExitLoop

Case $msg = $ites
$basd = _GUICtrlEdit_GetLineCount ($edit)
$hStatus = _GUICtrlStatusBar_Create ($dd)
_GUICtrlStatusBar_SetText ($hStatus, "Lines 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 file", @UserProfileDir, "All (*.*)")
If Not $file = "" Then
$zip = FileGetSize ( $file )
_GUICtrlEdit_SetText ($edit, "")
_GUICtrlRichEdit_StreamFromFile($edit, $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 = _GUICtrlRichEdit_StreamToFile ( $edit, $pattosave )
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
GUICtrlDelete ( $edit )
Sleep (1000)
GUICtrlDelete ( $lab )
Sleep (1000)
GUICtrlDelete ( $filemenu )
Sleep (1000)
GUICtrlDelete ( $filemenuxx )
#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" )
While 1
Sleep (1000)
WEnd