#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ICONS\RED\repeat_off.ico
#AutoIt3Wrapper_Outfile=SoanVBVer1.1.1.0.exe
#AutoIt3Wrapper_Res_Comment=Phần mềm này thuộc về quyền sở hữu của Nguyễn Vũ Trường Giang
#AutoIt3Wrapper_Res_Description=Phần mềm soạn thảo mini sẽ mang đến cho bạn sự tiện ích
#AutoIt3Wrapper_Res_Fileversion=1.1.1.0
#AutoIt3Wrapper_Res_LegalCopyright=Đây là phần mềm của Nguyễn Vũ Trường Giang
#AutoIt3Wrapper_Res_Language=1066
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_Tidy=y
#Obfuscator_Parameters=save
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;kết thúc việc khai báo







;Khai báo danh tánh
#cs-----------------------------------------
   Tác giả        Nguyễn Vũ Trường Giang
   Phiên bản          1.0.0.0
   Ứng dụng        Đánh văn bản kết hợp nghe nhạc
#ce----------------------------------------
#include <GUIConstantsEx.au3>

; Không hiện Icon

HotKeySet("{Esc}", "Thoat")
HotKeySet("{End}", "Thong_Tin")
#region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
MsgBox(64, "Thông tin", "Phần mềm này được Nguyễn Vũ Trường Giang dựng lên" & @CRLF & _
      "nhằm đem lại sự tiện dụng cho người dùng" & @CRLF & _
      "__________________________________________________" & @CRLF & @CRLF & _
      "Phần mềm chỉ cấp bản quyền khi bạn gọi tới cho" & @CRLF & _
      "anh Giang để đăng kí. ĐT: 01264486180.")
#endregion --- CodeWizard generated code Start ---

;Bắt đầu tạo GUI
$Gui = GUICreate("Soạn thảo văn bản", 600, 600, -1, -1)
$S = GUICtrlCreateLabel("", 10, 5, 100, 20)
GUICtrlSetColor($S, 0x00FE059F)
$A = GUICtrlCreateLabel("Phần mềm soạn thảo Mini của Nguyễn Vũ Trường Giang", 150, 1, 270, 20)
GUICtrlSetBkColor($A, 0x00333B46)
GUICtrlSetColor($A, 0x005EBF00)
$Bang = GUICtrlCreateMenu("File")
$Bang1 = GUICtrlCreateMenuItem("Mở nhạc", $Bang)
GUICtrlCreateMenuItem("", $Bang)
$Bang2 = GUICtrlCreateMenuItem("Lưu", $Bang)
$Bang4 = GUICtrlCreateMenuItem("Mở file", $Bang)
GUICtrlCreateMenuItem("", $Bang)
$Bang3 = GUICtrlCreateMenuItem("Thoát(Bạn có thể nhấn Esc)", $Bang)
$Ban = GUICtrlCreateMenu("Thông tin")
$Ban0 = GUICtrlCreateMenuItem("", $Ban)
$Ban1 = GUICtrlCreateMenuItem("Phần mềm", $Ban0)
$Ban3 = GUICtrlCreateMenuItem("Ổ đĩa, dung lượng máy", $Ban0)
$Ban2 = GUICtrlCreateMenuItem("Trợ giúp (có thể không có)", $Ban)
$Edit = GUICtrlCreateEdit("", 10, 30, 580, 552)
WinMinimizeAll()
GUISetState()
While 1
   GUICtrlSetData($S, "ĐỒNG HỒ: " & @HOUR & ":" & @MIN & ":" & @SEC)
   WinSetTitle($Gui, '', "Soạn thảo|    " & @HOUR & ":" & @MIN & ":" & @SEC)
   $Msg = GUIGetMsg()
   Switch $Msg
      Case $GUI_EVENT_CLOSE
         Thoat()
      Case $Bang3
         Thoat()

      Case $Bang2
         $i = GUICtrlRead($Edit)
         $Mode = 2 + 8 + 128 ;Chế độ Xóa toàn bộ dữ liệu và tạo mới Folder
         Local $Duong
         $Duong = FileSaveDialog("Chọn chỗ lưu", "D:\", "Định dạng (*.txt)|Định dạng Log(*.log)|File thiết đặt(*.ini)|Định dạng AutoIT(*.au3)|Tất cả định dạng(*.*)", 2 + 16, "Nguyễn Vũ Trường Giang.txt")
         $FileName1 = $Duong
         $File1 = FileOpen($FileName1, $Mode)

         $Data = $i
         FileWrite($File1, $Data)

         FileClose($File1)

      Case $Bang1
         Local $path, $e ;đường dẫn và dò tìm có bao nhiêu kí tự : kí tự đầu ....điều kiện

         $path = FileOpenDialog("Chọn Nhạc | Thuộc phần mềm soạn thảo", "D:\", "Định dạng(*.mp3)|Định dạng(*.wmv)|Định dạng(*.flv)", 1 + 2 + 4, "Nhập đường dẫn") ; trả lại danh sách nhạc gồm có đường dẫn. music|music|..|..
         SoundSetWaveVolume(100)
         SoundPlay($path)
         Sleep(1000)
      Case $Bang4
         Tim_txt()

      Case $Ban1
         Thong_Tin()
      Case $Ban2
         Win()
      Case $Ban3
         May()
   EndSwitch
WEnd



Func __Exit()
   For $b = 255 To 0 Step -1
      WinSetTrans($Gui, "", $b)
      Sleep(10)
   Next
   MsgBox(64, "Lời nhắn", "Cảm ơn bạn đã sử dụng phần mềm!" & @CRLF & "Chúng tôi chân thành xin cảm ơn")
   Exit
EndFunc  ;==>__Exit


Func Thong_Tin()
   MsgBox(64, "Thông tin", "Đây là phần mềm soạn thảo được dựng lên dựa trên AutoIT" & @CRLF & "Bất kì sao lưu nào cũng được xem như là trái phép" & @CRLF & "và sẽ bị truy tố nặng trước pháp luật" & @CRLF & "Phần mềm được Nguyễn Vũ Trường Giang viết" & @CRLF & "Liên hệ: 01264486180")
EndFunc  ;==>Thong_Tin

Func Win()
   MsgBox(16, "Trợ giúp", "Lỗi hệ thống! Không có trợ giúp")
EndFunc  ;==>Win

Func Thoat()
   Local $Hoi = MsgBox(33, "Thông báo", "Bạn có muốn thoát không?")

   If $Hoi = 2 Then
      MsgBox(0, "", "Cảm ơn bạn đã ở lại")
   Else
      MsgBox(64, "Thông báo", "Cảm ơn bạn đã sử dụng phần mềm" & @CRLF & "Mọi thắc mắc về phần mềm xin hãy liên hệ qua" & @CRLF & "Yahoo: nguyenvutruongg" & @CRLF & "Hoặc ĐT: 01264486180")
      __Exit()
   EndIf
EndFunc  ;==>Thoat

Func Tim_txt()

   Local $filePath, $file



   $filePath = FileOpenDialog("Mở dữ liệu", @MyDocumentsDir, "Định dạng (*.txt)|Định dạng Log(*.log)|File thiết đặt(*.ini)|Định dạng AutoIT(*.au3)|Tất cả định dạng(*.*)", 1 + 2 + 8)

   If @error <> 1 Then

      $file = FileOpen($filePath, 0)

      If $file = -1 Then

         MsgBox(16, "Lỗi", " Xin lỗi!Phần mềm không đọc được dữ liệu. ")

         Return 0

      Else

         $string = FileRead($file)

         FileClose($file)

         GUICtrlSetData($Edit, "Nội dung văn bản : (Đã được Nguyễn Vũ Trường Giang nâng cấp) " & @CRLF & $string)

      EndIf

   Else

      Return 0

   EndIf

   Return 1

EndFunc  ;==>Tim_txt

Func May()
   MsgBox(64, "Thông tin về máy", "Chỉ áp dụng cho ổ C và D" & @CRLF & _
         "Tên ổ C: " & DriveGetLabel("C:\") & @CRLF & "Tên ổ D: " & DriveGetLabel("D:\") & @CRLF & _
         "Tổng dung lượng ổ C: " & DriveSpaceTotal("C:\") & "  Mb" & @CRLF & "  Trống: " & DriveSpaceFree("C:\") & "  Mb" & @CRLF & _
         "Tổng dung lượng ổ D: " & DriveSpaceTotal("D:\") & "  Mb" & @CRLF & "  Trống: " & DriveSpaceFree("D:\") & "  Mb", -1)
EndFunc  ;==>May