Vbs de aynı scripte iki farklı işlem yaptırmak


VBs ile özellik açıp kapatmak

Windowsta çoğu bileşenler bir registry değeri ile açıp kapatılabilmektedir , eğer registry anahtarlarını biliyorsak ilgili anahtarı/ları export edip (sağ tıklayıp ver diyerek) bu anahtarın .reg uzantılı bir

dosyasına sahip oluruz bunu not defteri ile açtığımızda eğer dword değeri içeriyorsa bu değeri “0” ise “1” yada tersi yapıp çalıştırdığımızda mesela windowsumuzun dosya uzantılarını göstermesini yada göstermemesini sağlayabiliriz yada herzaman editlememek için bu egistry anahtarını dword değeri “0” ve dword değeri “1” olan iki adet anahtar şeklide saklar ihtiyacımıza göre bunlardan birini çalıştırırız , gel gelelim bunlardan hiçbiri yeterince pratik değildir ,en basitinden bilgisyarı kısmen arızalı birine önce şu anahtara git export et içini editle … diye anlatamazssınız zaten onu yapabilecek olsa size ihtiyaç duymayacaktır insanlar tıklayayım olsun çözümlerini pratik bulurlar ve haklıdırlar , işte konu bir veya birkaç registry değerini bir tıkla değiştirip ikinci tıkta eski haline getirmek ise bu konuda .vbs bize oldukça kolaylık sağlıyor ; tek bir script ile registrydeki bir ahatrada değişiklik yaptırıp ikinci tıklamada eski haline getirebiliyoruz:

1. Dosya uzantılarını göster – gösterme (vbs scripti)

Microsoft tüm işletim sistemlerinde aynı arayüzü kullanmadığından sıklıkla kullanılan dosya uzantılarını göster veya gösterme özellğini açıp kapatmanın yolu da farklılıklar içerebilmektedir bunun işletim sistemine göre bunun nereden yapılacağını bilmek pratiklik sağlasa da sıksık bu özelliği açıp kapatmak gerekiyorsa her defasında 3-5 adım uygulamak can sıkıcı bir hal alabilmektedir işte aşağıdaki script ilk tıklandığında : eğer dosya uzantılarını göster kapalı ise açmakta , ikinci tıklandığında ise tersi işlem yapmaktadır

FileExt = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
Set Sh = WScript.CreateObject("WScript.Shell")
St = Sh.RegRead(FileExt)
If St = 1 Then
Sh.RegWrite FileExt, 0, "REG_DWORD"
Else
Sh.RegWrite FileExt, 1, "REG_DWORD"
End If
Sh.SendKeys("{F5}")

Koddaki en baştaki FileExt ile ilgili regsitry kaydını belirtiyoruz , set sh ; scriptin çalışması için gerekli kodlar , alt kısımda eğer 1 ise 0 – 0 ise 1 yap diyoruz ve son olarak ekranı tazelettiriyoruz.

2. Thumbnail (Küçük resim) önizlemesini açıp kapatalım (vbs scripti)

Mantık ve kodlar üstteki ile tamamen aynı işi yapan bir regsitry değeridir ve .vbs scriptimiz registry değerine bakıp değeri değiştirmektedir

Registry = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IconsOnly"
Set Command = CreateObject("WScript.Shell")
Thumbnails = Command.RegRead(Registry)
If Thumbnails = 0 Then
Command.RegWrite Registry, 1, "REG_DWORD"
Else
Command.RegWrite Registry, 0, "REG_DWORD"
End If
Command.SendKeys "{F5}"

İkinci scriptte , FileExt yerine Registry denmiş , Set Sh yerine Set Command kullanılmıştır kısacası bu isimleri değiştirmek scriptin çalışmasını etkilememektedir o nedenle uygun düzenlemelerle kendimize göre isimler kullanabiliriz , bir scriple iki işlem yapma bazı durumlarda bize oldukça pratiklik kazandırabilmektedir .

Bu scripleri bir notepad e yapıştırıp uygun isimler verip .vbs şeklinde kaydedebileceğiniz gibi aşağıdaki linkten hazırlarınıda indirip kullanabilirsiniz.

Download



Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA