Sürücü Gizle v1.2

[arsenik]

Google code'a atsana sonuçta kendi projen.

 

[__kadıköyRAP__]

bak o da iyi aklıma gelmedi

http://yyddfg.googlecode.com/files/Sürücü Gizle v1.2.exe

hatta kodu da koydum oraya

Seç beğen al

 

[engerex]

4shared kalıcı olur bence yeni farkettim hesabım olduğunu baktım yıllık dosyalar var

teşekkürler hocam alternatifler için

4shared hesabına 180 gün giriş yapmazsan tüm dosyalar uçuyor.
zippyshare 30gün indiren olmazsa dosya uçuyor.

ifile.it ve speedyshare de bekleme süresi ve kod girme gibi zımbırtılar yok. SpeedyShare tek tık, ifile.it iki tıkla dosya iniyor. Tavsiyemdir.

 

[__kadıköyRAP__]

[MENTION=39332]engerex[/MENTION] hocam en son ne zaman girdiğimi unutmuştum 4shared'e, 180 günü geçmiştir diye düşünüyorum, emin misin 180 gün olduğuna? Divshare var bi de oradaki dosyalarım da duruyordu oraya da 1 yıldan fazladır girmemiştim.

 

[engerex]

Sitesi yarı türkçe ve ben yanlış çerişmiş olabilirim.

Dosyalarımın saklanma süresi nedir?Your Free account and all your files will be removed from 4shared only if you do not log in the account for 180 days.

 

[__kadıköyRAP__]

versiyon 1.3

http://yyddfg.googlecode.com/files/Sürücü Gizle v1.3.exe

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

yerine

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer

içindeki NoDrives da değişiklik yapılıyor. Çünkü önce HKEY_LOCAL_MACHINE konumuna bakılıyor.

 

[promidal]

tam da ihtiyacım olan şeydi emeğine sağlık arkadaşım

 

[T800]

Hocam çok teşekkür ederim eline sağlık..

 

[burc ugur]

versiyon 1.3

http://yyddfg.googlecode.com/files/Sürücü Gizle v1.3.exe

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

yerine

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer

içindeki NoDrives da değişiklik yapılıyor. Çünkü önce HKEY_LOCAL_MACHINE konumuna bakılıyor.

Kral paylaşım olmuş eline sağlık işime yaradı. Yeni final versiyon yaparsan da tadından yenmez maksat arayüz güzelliği..

 

[TheToweler]

İşletim sisteminizin teması nedir bu arada paylaşım için teşekkürler

 

[__kadıköyRAP__]

İşletim sisteminizin teması nedir bu arada paylaşım için teşekkürler

hiç hatırlamıyorum 2011 de kalmış

 

[__kadıköyRAP__]

10 yıl olmuş. Bugün tekrar lazım oldu bilgisayarımın derinliklerinden çıkardım tekrar upload ettim belki birinin işine yarar.

surucugizle

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

virustotal

VirusTotal

VirusTotal

www.virustotal.com

autoit kodları

#RequireAdmin
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <GUIComboBox.au3>
#include <WindowsConstants.au3>

Opt("TrayIconHide",1)
$aArray = DriveGetDrive("ALL")
$sString = _ArrayToString($aArray, "|", 1)
$hGUI = GUICreate("Sürücü Gizle v1.3", 130, 120,-1,-1,-1,BitOR($WS_EX_TOPMOST,$WS_EX_TOOLWINDOW))
GUICtrlCreateGroup("Açık",10,10,50,70)
$hCombo = GUICtrlCreateCombo("", 15, 25, 40, 20, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$button1 = GUICtrlCreateButton(" --> ", 14, 50,42,23)
GUICtrlCreateGroup("Gizli",70,10,50,70)
$hCombo2 = GUICtrlCreateCombo("", 75, 25, 40, 20, BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
$button3 = GUICtrlCreateButton(" <-- ", 74, 50,42,23)
$button2 = GUICtrlCreateButton(" Uygula ", 9, 85, 112)

$deger = 0

$reg = _ToBase(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives"), 2, 26)
$regarray = StringSplit($reg,"")

$k=26
$l=97
Do
    If $regarray[$k] = 1 Then
        If StringInStr($sString,Chr($l)&":") Then
            _GUICtrlComboBox_AddString($hCombo2, Chr($l)&":")
        EndIf
    Else
        If StringInStr($sString,Chr($l)&":") Then
            _GUICtrlComboBox_AddString($hCombo, Chr($l)&":")
        EndIf
    EndIf
    $k=$k-1
    $l=$l+1
Until $k=0 And $l=123

_GUICtrlComboBox_SetCurSel($hCombo,0)
_GUICtrlComboBox_SetCurSel($hCombo2,0)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $button1
            If GUICtrlRead($hCombo) <> "" Then
                _GUICtrlComboBox_AddString($hCombo2, GUICtrlRead($hCombo))
            EndIf

            _GUICtrlComboBox_SelectString($hCombo2,GUICtrlRead($hCombo))
            _GUICtrlComboBox_DeleteString($hCombo, _GUICtrlComboBox_GetCurSel($hCombo))
            _GUICtrlComboBox_SetCurSel($hCombo,0)

        Case $button3
            If GUICtrlRead($hCombo2) <> "" Then
                _GUICtrlComboBox_AddString($hCombo, GUICtrlRead($hCombo2))
            EndIf

            _GUICtrlComboBox_SelectString($hCombo,GUICtrlRead($hCombo2))
            _GUICtrlComboBox_DeleteString($hCombo2, _GUICtrlComboBox_GetCurSel($hCombo2))
            _GUICtrlComboBox_SetCurSel($hCombo2,0)

        Case $button2
            $deger=0
            $gonder = StringSplit(_GUICtrlComboBox_GetList($hCombo2),"|")
            For $i = 1 to $gonder[0]
                If $gonder[$i] = "a:" Then
                    $deger = $deger + 2^0
                ElseIf $gonder[$i] = "b:" Then
                    $deger = $deger + 2^1
                ElseIf $gonder[$i] = "c:" Then
                    $deger = $deger + 2^2
                ElseIf $gonder[$i] = "d:" Then
                    $deger = $deger + 2^3
                ElseIf $gonder[$i] = "e:" Then
                    $deger = $deger + 2^4
                ElseIf $gonder[$i] = "f:" Then
                    $deger = $deger + 2^5
                ElseIf $gonder[$i] = "g:" Then
                    $deger = $deger + 2^6
                ElseIf $gonder[$i] = "h:" Then
                    $deger = $deger + 2^7
                ElseIf $gonder[$i] = "i:" Then
                    $deger = $deger + 2^8
                ElseIf $gonder[$i] = "j:" Then
                    $deger = $deger + 2^9
                ElseIf $gonder[$i] = "k:" Then
                    $deger = $deger + 2^10
                ElseIf $gonder[$i] = "l:" Then
                    $deger = $deger + 2^11
                ElseIf $gonder[$i] = "m:" Then
                    $deger = $deger + 2^12
                ElseIf $gonder[$i] = "n:" Then
                    $deger = $deger + 2^13
                ElseIf $gonder[$i] = "o:" Then
                    $deger = $deger + 2^14
                ElseIf $gonder[$i] = "p:" Then
                    $deger = $deger + 2^15
                ElseIf $gonder[$i] = "q:" Then
                    $deger = $deger + 2^16
                ElseIf $gonder[$i] = "r:" Then
                    $deger = $deger + 2^17
                ElseIf $gonder[$i] = "s:" Then
                    $deger = $deger + 2^18
                ElseIf $gonder[$i] = "t:" Then
                    $deger = $deger + 2^19
                ElseIf $gonder[$i] = "u:" Then
                    $deger = $deger + 2^20
                ElseIf $gonder[$i] = "v:" Then
                    $deger = $deger + 2^21
                ElseIf $gonder[$i] = "w:" Then
                    $deger = $deger + 2^22
                ElseIf $gonder[$i] = "x:" Then
                    $deger = $deger + 2^23
                ElseIf $gonder[$i] = "y:" Then
                    $deger = $deger + 2^24
                ElseIf $gonder[$i] = "z:" Then
                    $deger = $deger + 2^25
                EndIf
            Next
            ;MsgBox(0,"değer",$deger)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoDrives", "REG_DWORD", $deger)
            ProcessClose("explorer.exe")
    EndSwitch
WEnd

Func _ToBase($iNumber, $iBase, $iPad = 1)
    Local $sRet = "", $iDigit
    Do
        $iDigit = Mod($iNumber, $iBase)
        If $iDigit < 10 Then
            $sRet = String($iDigit) & $sRet
        Else
            $sRet = Chr(55 + $iDigit) & $sRet
        EndIf
        $iNumber = Int($iNumber / $iBase)
    Until ($iNumber = 0) And (StringLen($sRet) >= $iPad)
    Return $sRet
EndFunc