İnceleme
Kategoriler
Cep Telefonu
Notebook
Anakart
ADSL Modem
İşlemci
Tablet
Ekran Kartı
Televizyon
Fotoğraf Makinesi
Depolama
Klavye ve Mouse
Giyilebilir Teknoloji
Kulaklık
Ses Sistemi
Oyun İnceleme
Ev Elektroniği
Navigasyon
Son İncelenenler
MOVA S20 Ultra inceleme
Lenovo ThinkPad X1 Carbon Gen 12 inceleme
Huawei FreeBuds Pro 4 inceleme
WD MyPassport 6TB inceleme
TP-Link Archer BE230 inceleme
Dreame L10 Prime inceleme
SteelSeries Arctis GameBuds inceleme
Haber
Kategoriler
Kripto Dünyası
Cep Telefonu
Windows
Sosyal Medya
Oyun ve Eğlence
Bilim
Dijital Fotoğraf
Notebook
Ekran Kartları
Güvenlik
Mobil Uygulamalar
Twitter
Instagram
Facebook
CES 2024
Scooter
Araçlar
Netflix
Gitex 2022
En Son Haberler
Honor Magic 7 Pro, yapay zeka özellikleriyle tanıtıldı
İnsanlar, gerçek suç yapımlarına neden bu kadar ilgi gösteriyor?
Microsoft'tan U dönüşü: Google'ı kızdıran "Bing kurnazlığı" geri çekildi
Dünyanın en zengin 2. adamının şirketi uzaya gönderdi, Elon Musk tebrik etti
Elon Musk'tan tartışma yaratan tweet: Yardım mı, reklam mı?
EuroLeague'de çift maç haftası Tivibu'dan yayınlanacak
Nissan'ın efsanevi modeli R32 Skyline da elektriklendi
Forum
CHIP Online
Chip Dergisi
PDF Arşivi
2003
Ocak
CHIP Dergisi Arşivi: Ocak 2003 - Sayfa 94
92
93
94
95
96
Kategoriler
İnceleme
Cep Telefonu
Notebook
Anakart
ADSL Modem
İşlemci
Tablet
Ekran Kartı
Televizyon
Fotoğraf Makinesi
Depolama
Klavye ve Mouse
Giyilebilir Teknoloji
Kulaklık
Ses Sistemi
Oyun İnceleme
Ev Elektroniği
Navigasyon
Haberler
Cep Telefonu
Oyun ve Eğlence
Bilim
Notebook
Ekran Kartları
Mobil Uygulamalar
Yapay zeka
Sony Xperia Z3
Xiaomi
Xbox One
Windows 11
Windows 10
TikTok
Sinema
Samsung Galaxy S8
Samsung Galaxy S6
Samsung Galaxy S5
Samsung
Playstation 5
Oyun konsolu
Otomobil
Ofis ve Finans
Note 4
MWC 2018
MWC 2017
MWC 2015
Microsoft
LG G6
LG G5
LG G4
LG G3
İşletim Sistemleri
İş dünyası
iPhone SE
iPhone 7
iPhone 6S
iPhone 6
iOS
Instagram
IFA 2017
HTC One M9
HTC 10
Google
Diziler
Discovery 2
CES 2018
CES 2017
CES 2015
Blockchain ve Bitcoin
Bilgisayarlar
Xbox Game Pass
Xbox Series S/X
Uzay
Android
Forum
© 2025 Doğan Burda Dergi Yayıncılık ve Pazarlama A.Ş.
148 Windows Otomasyonu AAKKTTÜÜEELL»»KKAAPPAAKK»»DDOONNAANNIIMM»»YYAAZZIILLIIMM»»PPRRAATT‹‹KK»»IINNTTEERRNNEETT CHIP" OCAK 2003 nun için "date()"fonksiyonu kullanılır. Bu fonksiyonun içeriği "Tarih"değişkenine atanır: Tarih = date() Artık "Tarih"değişkeninde "10.01.2003" gibi bir değer yer alır.Ancak bizim görevimiz için sadece Ay ve Sene bilgileri gereklidir.Söz konusu değerleri,month()ve year()fonksiyonlarını kullanarak "Tarih" değişkeninden ayırabilirsiniz.Elde edeceğiniz her bir değeri uygun değişkenlerde saklamalısınız: Ay = month(Tarih) Sene = year(Tarih) Kullandığımız örneğe göre "Ay"değişkeni "1"ve "Sene"değişkeni ise "2003"değişkenlerine sahip olacaktır. Daha çok fonksiyon kullanmak: Nesne olu?turma Tüm programcılar VBScript komutları ile kısa sürede sınırlara ulaşabilirler.VBS, Kayıt Düzenleyicisi'ne sayı yazamaz,yeni klasörler oluşturamaz veya dosyaları seçemez. Ancak VBS'in nesneleri çağırabilme özelliği söz konusu dezavantajını ortadan kaldırır.Bu sayede Windows'un veya başka yazılımların kullanışlı fonksiyonlarına erişme hakkı elde edebilir.Bizim örneğimiz için hazırladığımız programın sadece Kayıt Defteri'ne erişmesi yeterli olacaktır. Bunun için bir nesnenin çağrılması gereklidir: set Registry = CreateObject("WScript.Shell") Yukarıdaki satır,Registry değişkeninin WScript.Shell ile haberleşmek için kullanılabileceği anlamına geliyor.Burada kullanılan WScript.Shelll,Kayıt Düzenleyicisi fonksiyonlarına sahiptir.Aynı işlemin klasör oluştururken kullanılması gereken dosya sistemi için de gerçekleştirilmesi gereklidir: set FileSystem = CreateObject("Scripting. FileSystemObject") Arka Plan:Bir nesne araba ile kıyaslanabilir,yani bir arabayı BenimArabam nesnesi olarak tanımlayabilirsiniz.Artık bu nesneyi elde etmek istediğiniz bilgiye göre sorgulayabilirsiniz.Örneğin,"Renk:BenimArabam.Color"ataması Ferrari için "Red"(Kırmızı) değerini verecektir.BenimArabam.Oil ise arabanızın yağ durumunu verecektir.Tabii ki "BenimArabam.Start"gibi komutlar kullanarak da arabanızın çalıştırılmasını sağlayabilirsiniz.Scripting Host'un nesneleri aynen bu şekilde çalışır. Kay›t Defteri'ne yazmak ve okumak Hazırladığımız Script'in aylık klasörleri oluşturacağı yer Kayıt Defteri'ndeki bir değer içerisinde tutulur.Script,ilk çalıştırıldığında bu konumun boş olması gereklidir: Folderpath = Registry.RegRead("HKEY_ CURRENT_USER\Software\Chip\ Folderpath") Yukarıdaki satır,"Folderpath"değişkenin içeriğini Kayıt Defteri'ndeki "HKEY_CU RRENT_USER\Software\Chip\"anahtarında bulunan "Folderpath"değerine atar. Ayrıca script,Kayıt Defteri'nde bulunan SonTarihdeğerini Oncekiay değişkenine okur.Bu sayede script'in daha önce çalıştırılıp,çalıştırılmadığı kontrol edilir. ‹simlendirmek: Klasör isminin haz›rlanmas› Script,Kayıt Defteri'ndeki Oncekiay değerini okudu ve güncel ay yardımıyla "Ay" değişkeninde kullandı.Şimdi ay değeri değiştirildi ve program henüz bir klasör oluşturmadı,yani Kayıt Defteri'nden okunan sayı "Ay"değişkeninde bulunandan daha küçük.Script artık çalışmaya başlayabilir.Sorgu aynı zamanda daha önce bir klasörün kaydedilip,kaydedilmediğini kontrol eder. If Oncekiay < Ay AND Folderpath <> "" Then Her iki şart da sağlandığı zaman script, ikinci bir durumla ilgilenmeye başlar. Klasör isimleri dört karakterden oluşmalıdır.Ancak ayı belirten değer tek bir rakamdan oluşuyorsa,klasörün ismi "029" biçiminde görünecektir.Script,bu nedenle ayı belirten sayının ondan küçük olup, olmadığını kontrol eder.Eğer sonuç küçük çıkarsa,önüne bir sıfır eklenir ve bu yeni değer "Ayismi"değişkeninde saklanır.Aksi takdirde isim oluşturulurken normal değer kullanılır: if Ay < 10 Then Ayismi = "0" + CStr(Ay) Else Ayismi = CStr(Ay) End If "Ayismi"değişkeni bir metin içermelidir, buna karşılık "Ay"değişkeni sayı değerine sahiptir.Bu nedenle kullanılan "Cstr()"fonksiyonu sayıları metinlere dönüştürür. Şimdi klasör isminde kullanılmak üzere içinde bulunduğunuz senenin son iki basamağının ayrılması gereklidir.Tanımlanan "Sene"değişkeni değer olarak "2003"tarihini sayı cinsinden saklar. Script,sayıyı metne çevirir,sağ taraftaki son iki karakterini ayırır ve bunları SeneNamedeğişkenine yazar. SeneName = Right(Cstr(Sene),2) Yukarıda elde edilen parçalar,aşağıdaki komut satırı ile klasör ismini oluşturmak üzere birleştirilirler. Görev:Script, her ay bir klasör olu?turmal› ve isimlendirirken ay ve sene bilgilerini kullanmal›d›r. Haf›za: Windows'un en son ne zaman klasör olu?turdu¤unu hat›rlayabilmesi için bir önceki ay›n Kay›t Defteri'nde saklanmas› gereklidir. Windows, ana klasörün yerini de buradan ö¤renir. k
