- Konum
- BERTUNA
-
- Üyelik Tarihi
- 2 Haz 2020
-
- Mesajlar
- 5,338
-
- MFC Puanı
- 16,230
Merhabalar
Bugün sizlerle, mouse tıklama hızınızı ölçmek için kullanabileceğiniz basit ama etkili bir VBS scripti paylaşmak istiyorum. Eğer tıklama hızınızı merak ediyorsanız veya sadece eğlenceli bir şeyler denemek istiyorsanız, bu script tam size göre!
Bu oluşturduğum .vbs betiğinin kod tasarımını "https://www.sordum.org/9207/find-prime-numbers-v1-1/" web adresindeki "Find Prime Numbers" isimli portable sordum.ORG yazılımından esinlendim.Tabii biz sordum.org koder ekibi gibi olamayız ve bunun da farkındayım.
Bakalım beğenecek misini? benim donanım test yazılımını (ilkel taş devri modeli)
Önce betiğin içeriğini verelim
Sistemin Tıklama Hızı Ölçme.vbs
VBS Betiğin Açıklaması (bu betik ne yapar sorusuna yanıt niteliğinde) :
Scriptin Özellikleri:
İki Tıklama Arasındaki Süreyi Ölçer:
İlk olarak, script sizden iki kez tıklamanızı istiyor ve bu tıklamalar arasındaki süreyi milisaniye cinsinden hesaplıyor. Yani, "Ne kadar hızlı tıklıyorum?" sorusunun cevabını alıyorsunuz!
10 Saniye Süresince Tıklama Sayısını Hesaplar:
Ardından, 10 saniye boyunca masaüstünde boş bir alana tıklamanızı istiyor. Bu süre zarfında kaç kez tıkladığınızı sayıyor. Hızlı tıklayanlar, bu kısımda kendilerini gösterebilir!
Tepki Süresi Analizi:
Script, tıklama sürenizi analiz ederek "İyi", "Orta" veya "Kötü" gibi bir tepki süresi değerlendirmesi yapıyor. Yani, tıklama hızınızın ne kadar etkili olduğunu öğreniyorsunuz.
Sonuçları Kaydeder:
Sonuçlarınızı masaüstünüze bir metin dosyası olarak kaydediyor. Böylece, tıklama hızınızı arkadaşlarınızla paylaşabilir (hava atabilirsiniz de) veya ileride tekrar bakabilirsiniz.
Kullanım:
Scripti bir .vbs dosyası olarak kaydedin.
Dosyayı çalıştırın ve ekrandaki talimatları izleyin.
Sonuçlarınızı görün ve belki de kendinizi geliştirmek için yeni hedefler koyun!
Kodun Kısa Özeti:
Kod, kullanıcıdan iki tıklama alarak aralarındaki süreyi ölçüyor, ardından 10 saniye boyunca tıklama sayısını hesaplıyor ve sonuçları bir dosyaya kaydediyor.
Kodun bazı önemli kısımları:
Timer fonksiyonu ile zaman ölçümü yapılıyor.
MsgBox ile kullanıcıya bilgi veriliyor.
Sonuçlar, masaüstünde bir dosyaya yazılıyor.
Eğer bu scripti denerseniz, sonuçlarınızı bizimle paylaşmayı unutmayın! Belki de en hızlı tıklayanı buluruz!
Herkese iyi tıklamalar!
EKRAN GÖRÜNTÜSÜ :
NOT:
Eğer sadece iki tıklatma olayı arasındaki süreyi milisaniye cinsinden öğrenmek isterseniz bu betik parçası işinizi görür..
İki Tıklama Zamanlaması.vbs
TRWE_2102
Alaydan Yetişme PC Kullanıcısı
Bugün sizlerle, mouse tıklama hızınızı ölçmek için kullanabileceğiniz basit ama etkili bir VBS scripti paylaşmak istiyorum. Eğer tıklama hızınızı merak ediyorsanız veya sadece eğlenceli bir şeyler denemek istiyorsanız, bu script tam size göre!
Bu oluşturduğum .vbs betiğinin kod tasarımını "https://www.sordum.org/9207/find-prime-numbers-v1-1/" web adresindeki "Find Prime Numbers" isimli portable sordum.ORG yazılımından esinlendim.Tabii biz sordum.org koder ekibi gibi olamayız ve bunun da farkındayım.
Bakalım beğenecek misini? benim donanım test yazılımını (ilkel taş devri modeli)
Önce betiğin içeriğini verelim
Sistemin Tıklama Hızı Ölçme.vbs
Kod:
Option Explicit
Dim objShell, startTime, endTime, clickCount, elapsedTime, responseTime
Dim fileName, fileNumber, filePath, i
Dim clickStartTime, clickEndTime, clickElapsedTime
Dim calculatedClickCount
' İki tıklama arasındaki süreyi ölç
' İlk tıklama için kullanıcıdan bekle
MsgBox "Lütfen ilk tıklamanızı yapın ve 'Tamam' butonuna tıklayın."
' İlk tıklamanın zamanını al
clickStartTime = Timer
' İkinci tıklama için kullanıcıdan bekle
MsgBox "Lütfen ikinci tıklamanızı yapın ve 'Tamam' butonuna tıklayın."
' İkinci tıklamanın zamanını al
clickEndTime = Timer
' Geçen süreyi milisaniye cinsinden hesapla
clickElapsedTime = (clickEndTime - clickStartTime) * 1000
' Kullanıcıya bilgi veren ilk ileti penceresi
MsgBox "10 Saniye Boyunca Masaüstünde Boş Bir Alana Sürekli Tıklayın", vbInformation, "Mouse Tıklatma Hız Ölçümü"
' Başlangıç zamanını al
startTime = Timer
clickCount = 0
' 10 saniye boyunca tıklamaları say
Do While Timer < startTime + 10
' Kullanıcı tıklamaya devam eder
Loop
' 11. saniyede ikinci ileti penceresi
MsgBox "10 Saniyelik Tıklatma Süreniz Bitmiştir. Artık Tıklatmayı Bırakabilirsiniz. Sisteminizin Tıklatma Hızı Milisaniye Cinsinden Ölçülmüştür. Lütfen Tamam Butonuna Basınız", vbInformation, "Mouse Tıklatma Hız Ölçümü"
' Tıklama sayısını ve bitiş zamanını al
endTime = Timer
elapsedTime = endTime - startTime
' Tıklama süresini milisaniye cinsine çevir
elapsedTime = elapsedTime * 1000
' Tepki süresini belirle
If elapsedTime < 1000 Then
responseTime = "İyi"
ElseIf elapsedTime < 2000 Then
responseTime = "Orta"
Else
responseTime = "Kötü"
End If
' Tıklama sayısını hesapla
If clickElapsedTime > 0 Then
calculatedClickCount = elapsedTime / clickElapsedTime
Else
calculatedClickCount = 0
End If
' Sonuçları bir mesaj kutusunda göster
Dim resultMessage
resultMessage = "Sisteminizin Tıklatma Süresi : " & elapsedTime & " milisaniye..." & vbCrLf & _
"İki tıklama arasındaki süre: " & clickElapsedTime & " milisaniye." & vbCrLf & _
"Tıklama Sayısı: " & calculatedClickCount & vbCrLf & _
"Sisteminizin tepki süresi: " & responseTime
MsgBox resultMessage, vbInformation, "Sonuçlar"
' Sonuçları masaüstüne kaydet
Set objShell = CreateObject("WScript.Shell")
filePath = objShell.SpecialFolders("Desktop") & "\Sistemin Tepki Süresi"
' Dosya numarasını belirle
fileNumber = 0
Do While True
fileName = filePath & " " & fileNumber & ".txt"
If Not FileExists(fileName) Then Exit Do
fileNumber = fileNumber + 1
Loop
' Dosya var mı kontrolü için fonksiyon
Function FileExists(filePath)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
FileExists = fso.FileExists(filePath)
End Function
' Sonuçları dosyaya yaz
Dim fso, file
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile(fileName, True)
file.WriteLine "Sisteminizin Tıklatma Süresi : " & elapsedTime & " milisaniye..."
file.WriteLine "İki tıklama arasındaki süre: " & clickElapsedTime & " milisaniye."
file.WriteLine "Tıklama Sayısı: " & calculatedClickCount
file.WriteLine "Sisteminizin tepki süresi: " & responseTime
file.Close
' Kullanıcıya sonuçları göster
MsgBox "Sonuçlar " & fileName & " dosyasına kaydedildi.", vbInformation, "Sonuç"
WScript.QuitVBS Betiğin Açıklaması (bu betik ne yapar sorusuna yanıt niteliğinde) :
Scriptin Özellikleri:
İki Tıklama Arasındaki Süreyi Ölçer:
İlk olarak, script sizden iki kez tıklamanızı istiyor ve bu tıklamalar arasındaki süreyi milisaniye cinsinden hesaplıyor. Yani, "Ne kadar hızlı tıklıyorum?" sorusunun cevabını alıyorsunuz!
10 Saniye Süresince Tıklama Sayısını Hesaplar:
Ardından, 10 saniye boyunca masaüstünde boş bir alana tıklamanızı istiyor. Bu süre zarfında kaç kez tıkladığınızı sayıyor. Hızlı tıklayanlar, bu kısımda kendilerini gösterebilir!
Tepki Süresi Analizi:
Script, tıklama sürenizi analiz ederek "İyi", "Orta" veya "Kötü" gibi bir tepki süresi değerlendirmesi yapıyor. Yani, tıklama hızınızın ne kadar etkili olduğunu öğreniyorsunuz.
Sonuçları Kaydeder:
Sonuçlarınızı masaüstünüze bir metin dosyası olarak kaydediyor. Böylece, tıklama hızınızı arkadaşlarınızla paylaşabilir (hava atabilirsiniz de) veya ileride tekrar bakabilirsiniz.
Kullanım:
Scripti bir .vbs dosyası olarak kaydedin.
Dosyayı çalıştırın ve ekrandaki talimatları izleyin.
Sonuçlarınızı görün ve belki de kendinizi geliştirmek için yeni hedefler koyun!
Kodun Kısa Özeti:
Kod, kullanıcıdan iki tıklama alarak aralarındaki süreyi ölçüyor, ardından 10 saniye boyunca tıklama sayısını hesaplıyor ve sonuçları bir dosyaya kaydediyor.
Kodun bazı önemli kısımları:
Timer fonksiyonu ile zaman ölçümü yapılıyor.
MsgBox ile kullanıcıya bilgi veriliyor.
Sonuçlar, masaüstünde bir dosyaya yazılıyor.
Eğer bu scripti denerseniz, sonuçlarınızı bizimle paylaşmayı unutmayın! Belki de en hızlı tıklayanı buluruz!
Herkese iyi tıklamalar!
EKRAN GÖRÜNTÜSÜ :
NOT:
Eğer sadece iki tıklatma olayı arasındaki süreyi milisaniye cinsinden öğrenmek isterseniz bu betik parçası işinizi görür..
İki Tıklama Zamanlaması.vbs
Kod:
Dim startTime, endTime, elapsedTime
' İlk tıklama için kullanıcıdan bekle
MsgBox "Lütfen ilk tıklamanızı yapın ve 'Tamam' butonuna tıklayın."
' İlk tıklamanın zamanını al
startTime = Timer
' İkinci tıklama için kullanıcıdan bekle
MsgBox "Lütfen ikinci tıklamanızı yapın ve 'Tamam' butonuna tıklayın."
' İkinci tıklamanın zamanını al
endTime = Timer
' Geçen süreyi milisaniye cinsinden hesapla
elapsedTime = (endTime - startTime) * 1000
' Sonucu göster
MsgBox "İki tıklama arasındaki süre: " & elapsedTime & " milisaniye." & vbCrLf & vbCrLf & "Kapatmak için 'Tamam' butonuna tıklayın."TRWE_2102
Alaydan Yetişme PC Kullanıcısı