main-post-cover

    Notepad proqramı ilə edə biləcəyiniz 7 maraqlı əməliyyat

    Elm & Texnologiya
    07.05.2017
    Farid Pardashunas

    Kompyuterinizdə olan Notepad proqramının əslində bir çox funksiyaları olduğunu bilirdinizmi?

    Bu yazımızda sizə Notepad proqramı ilə edə biləcəklərinizi göstərəcəyik. Notepad’la nələr edə bilərsiniz? Bir neçə əmr ilə 10 möhtəşəm funksiya yarada bilərsiniz.
     
     
     
    1.Şəxsi Gündəlik yaradın
    Kompyuterinizdə şəkildəki kimi şəxsi gündəlik yarada bilərsiniz. Bununla da günün hansı saatında nə etdiyiniz qeyd edə bilərsiniz. Bunun üçün bu addımları ardıcıllıqla edin:
     
    ·Notepad proqramını açın
    ·Birinci sətirdə ".LOG” ifadəsini yazın
    ·Həmin bu faylı "log.txt” adı ilə yaddaşa verin
     
     
     
    2.Qovluqları Notepad istifadə etməklə şifrələmək
    Siz kompyuterinizdəki qovluqları Notepad istifadə edərək şifrələyə bilərsiniz. Bir neçə sətirlik kodlardan istifadə edərək bunu etmək mümkündür. Aşağdakı kodların arasında olan "fossBytes” sözü əvəzinə istədiyiniz sözü şifrə kimi istifadə edə bilərsiniz. Daha sonra bu faylı "private.bat” adı ilə saxlayın və fayl tipində isə "All Files (*.*)” seçin. Bundan sonra şifrələnmiş qovluğunuzu hazır olacaq və istədiyiniz faylı bura əlavə edə bilərsiniz.
     
    Kodlar belədir:
    @ECHO OFF
    title Folder Kilitli
    if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
    if NOT EXIST Kilitli goto MDKilitli
    :CONFIRM
    echo Klasor kilitlensin mi?(e/h)
    set/p "cho=>"
    if %cho%==e goto LOCK
    if %cho%==E goto LOCK
    if %cho%==h goto END
    if %cho%==H goto END
    echo Invalid choice.
    goto CONFIRM
    :LOCK
    ren Kilitli "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
    attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
    echo Folder locked
    goto End
    :UNLOCK
    echo Sifreyi giriniz:
    set/p "pass=>"
    if NOT %pass%== BURAYA ŞİFRE YAZILACAK goto FAIL
    attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
    ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Kilitli
    echo Folder Unlocked successfully
    goto End
    :FAIL
    echo Invalid password
    goto end
    :MDKilitli
    md Kilitli
    echo Locker created successfully
    goto End
    :End
     
     
    3.Matrix Effekti
    Matrix filminin həvəskarısınız? Onda bu trick tam sizin üçündür. Aşağıdakı kodları yazın və faylı
    "Matrix.bat” adı ilə saxlayın. Daha sonra açdıqda Matrix effekti ilə qarşılaşacaqsınız.
     
    Kodlar:
    @echo off
    color 02
    :start
    echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
    goto start
     
    4. Kompyuteri bir mesajla söndürmək
    Kompyuteri söndürmək üçün uzun bir yoldan istifadə edirik: Star menyunu açırıq, söndür düyməsini seçirik, OK düyməsini basırıq və s. Bəs bunu bir ikona 2 dəfə tıklamaqla etmək istərdinizmi? Hətta bununla bağlı sizə mesaj belə göstəriləcək. Notepad proqramını açın aşağıdakı kodları daxil edin, daha sonra isə fayla sonluğu ".bat” olmaqla istədiyiniz adı verin, hazırdır.
     
    @echo off
    msg * Computer will now shut down
    shutdown -c "Sweet Dreams. Take care.” –s
     
    5. CD Drive hissəsini davamlı olaraq açıb-bağlayın
    Dostlarınızla zarafat etmək istəyirsiniz? Bu kodlarla siz onun kompyuterinin CD Drive hissəsini davamlı olaraq açılıb-bağlanmasına və dostunuzun panika olmasına səbəb ola bilərsiniz. Notepad proqramını açın, aşağıdakı kodları daxil edin və faylı istədiyiniz bir adla ".vbs” sonluğu ilə saxlayın. Əməliyyatı dayandırmaq üçün isə Task Manager’dən (Ctrl+Alt+Delete) wscript.vbs prosesini sonlandırın.
     
    Kodlar:
    Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >=1 then do For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom loop End If
     
    6. Yazdığınız sözlərin Notepad tərəfindən səsləndirilməsi
    Notepad proqramını açın və bu kodları daxil edin:
     
    Dim message,sapi
    message=InputBox("What should I speak?”,”Speak to me”)
    Set sapi=CreateObject("sapi.spvoice”)
    sapi.Speak message
    Daha sonra bu faylı "speak.vbs” adı ilə saxlayın. Bundan sonra faylı açın, istədiyiniz cümləni basıb "OK” düyməsinə basdıqda Notepad yazdığınız cümləni səsləndirəcək.
     
    7. Fake Windows Error Mesajı
    Notepad proqramını açın və aşağıdakı kodları daxil edib faylı "error.vbs” adı ilə saxlayın.
    X=Msgbox("Press OK and Windows will restart now.”,0+16,"There is a serious problem in your system”)
     
    Bu yazımızda sizə Notepad proqramı edə biləcəyiniz kiçik aksiyaları göstərdik. Əlavə proqrama ehtiyac duymadan, sistemin özünün bu xüsusiyyətindən zövq alın :)
     
    Linki kopyala