27 Mayıs 2019, 04:11:41

Gönderen Konu: Autoit Yeni Klasör Oluşturma  (Okunma sayısı 1511 defa)

Çevrimdışı tetikçi

  • Yönetici
  • Kıdemli Üye
  • *****
  • İleti: 283
  • Karma +1/-0
    • Asayis
    • Profili Görüntüle
Autoit Yeni Klasör Oluşturma
« : 20 Şubat 2016, 11:08:41 »
Merhaba arkadaşlar Autoit ile masaüstünde yeni klasör oluşturmak için kodları vereceğim. Kodlar Tnctr den blu_life'a aittir. Ben Sadece üzerinde oynama yaptım.

Kod İçerisinde "Yeni Klasör" yazan yere istediğiniz klasör ismini verebilirsiniz. Klasör ismi oluşurken Yeni Klasör(1),Yeni Klasör(2),... diye gidecektir. Programı çalıştırdıktan Sonra Ctrl-Shift-n ile klasör oluşacaktır. Bu komutu "+^n" yazan yerden değiştirebilirsiniz.

Kod: [Seç]
HotKeySet("+^n", "The_A_Team_Yeni_Klasor") ;Shift-Ctrl-n
While 1
Sleep(100) ;Cpu Save
WEnd

Func The_A_Team_Yeni_Klasor()
Local $WinGetActive = WinGetHandle("[active]") ;Active Title
;Local $WinGetActive = WinGetHandle("System (C:)")
Local $DesktopHwnd = WinGetHandle("[Class:Progman]")
If $DesktopHwnd = $WinGetActive Then
If _CreateNewFolder(@DesktopDir) = 0 Then Return SetError(3, 0, 0)
Return 1
EndIf
; -----------
Local $Window_Location
Local $oShell = ObjCreate("shell.application") ; Get the Windows Shell Object
Local $oShellWindows = $oShell.windows ; Get the collection of open shell Windows

If IsObj($oShellWindows) = 0 Then Return SetError(1, 0, 0)
For $Window In $oShellWindows ; Count all existing shell windows
If $Window.hwnd = $WinGetActive Then
$Window_Location = $Window.LocationURL
$aRet = DllCall('shlwapi.dll', 'long', 'PathCreateFromUrlW', 'wstr', $Window_Location, 'wstr', '', 'dword*', 65534, 'dword', 0)
If Not @error And $aRet[0] = 0 Then $Window_Location = $aRet[2]
ExitLoop
EndIf
Next
If $Window_Location = "" Or FileExists($Window_Location) = 0 Then Return SetError(2, 0, 0)
If _CreateNewFolder($Window_Location) = 0 Then Return SetError(3, 0, 0)
Return 1
EndFunc ;==>The_A_Team_Yeni_Klasor


Func _CreateNewFolder($Location, $FolderName = "Yeni Klasör")
If StringRight($Location, 1) <> "\" Then $Location &= "\"

Local $OldFolderName = $FolderName, $I = 1
While FileExists($Location & $FolderName)
$FolderName = $OldFolderName & " (" & $I & ")"
$I += 1
WEnd
If DirCreate($Location & $FolderName) = 0 Then Return SetError(1, 0, 0)
Return 1
EndFunc ;==>_CreateNewFolder
Yasaklı Sitelere ve Download Sitelerine Erişmek İçin DNS ayarlarınıızı alttakilerle değiğtirin.
208-67-222-222
208-67-220-220

156.154.70.22
156.154.71.22


Düzenlenmesi Gereken Konular için:
Düzeltilmesi Gereken Uygunsuz Konu ya da Mesajlar

Kırık link Bildirme Merkezi

©Copyright A-Takımı © Since 2012
█║▌│ █║▌ ║││█║█║

Tags: