Kodlar burda;
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Black-Folder.ico
#AutoIt3Wrapper_Outfile=DUH v1.exe
#AutoIt3Wrapper_Res_Comment=Virüslerin gizlediği klasörlerinizi görünür yapabilirsiniz...
#AutoIt3Wrapper_Res_Description=DirUnHider v1
#AutoIt3Wrapper_Res_Fileversion=1
#AutoIt3Wrapper_Res_LegalCopyright=Yasin Ka
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#region ### START Koda GUI section ### Form=
$Form2 = GUICreate("DUH v1", 417, 135, -1, -1)
$Ust = GUICtrlCreateLabel("DirUnHider", 40, 18, 339, 25, 0x50020101)
$Alt = GUICtrlCreateLabel("Virüslerin gizlediği klasörlerinizi bu programla görünür yapabilirsiniz.", 40, 72, 339, 25, 0x50020101)
$Button1 = GUICtrlCreateButton("Görünür Yap", 40, 43, 339, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form2)
Dim $StatusBar1_PartsWidth[3] = [50, 270, 100]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "Durum :", 0)
_GUICtrlStatusBar_SetText($StatusBar1, "Bekleniyor...", 1)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & @TAB & "Yasin Ka ", 2)
$nasil = GUICtrlCreateLabel("Nasıl Kullanılır", 326, 91, -1, -1, 0x50020101)
GUICtrlSetColor(-1, 0x808080)
$Icon1 = GUICtrlCreateIcon("shell32.dll", -211, 396, 90, 16, 16)
GUISetState(@SW_SHOW)
$goster = "attrib *.* /d /s -h -s -r +a"
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_GUICtrlStatusBar_SetText($StatusBar1, "Hazırlanıyor.", 1)
Sleep(200)
_RunDos($goster)
_GUICtrlStatusBar_SetText($StatusBar1, "Başarılı.", 1)
MsgBox(0, "Başarılı", "Gizlenmiş klasörler görünür hale getirildi.")
Case $nasil
MsgBox(-1, "Nasıl?", "Programımızı görünür yapmak istediğiniz klasörlerin bulunduğu klasöre atınız. Programımızı kullandığınızda alt klasörler dahil içinde bulunan tüm gizli klasörler görünür olacaktır...")
Case $Icon1
MsgBox(-1, "Nasıl?", "Programımızı görünür yapmak istediğiniz klasörlerin bulunduğu klasöre atınız. Programımızı kullandığınızda alt klasörler dahil içinde bulunan tüm gizli klasörler görünür olacaktır...")
EndSwitch
WEnd