Sizde benim gibi çok sık .VBS betikleri ile çalışanlardan biri iseniz bu yazılım tam da size göre demektir.
Yazılım'ın Açıklaması :
Uygulama: VbsToExe
Kategori: Araçlar
Lisans: MIT
Dil: Çok Dilli
Açıklama: VbsToExe, VBS (.vbs) dosyalarını EXE (.exe) formatına dönüştürebilen bir uygulamadır.
(MD5: ed9776cde2d5cbefe7a9694fb6764cdd)
(SHA-1: d0d06013e017291f5ea2dbba652dd133b2ca55f5)
(SHA-256: 470887f40264dcecd818ded225970338d2c84cbc3b7d0a3169bda7582d83633b)
Resmi Web Adresi (Geliştirme GitHub Web Sitesi) : https://github.com/Makazzz/VbsToExePortable
VirüsTOTAL Sonucu : https://www.virustotal.com/gui/file/470 ... /detection
İndirme Adresi :
https://portableapps.com/node/61305
Örnek Bir .VBS Betiği Ve Yazılımın Uygulaması :
Sayısal Loto v1.vbs Betiği Kod İçeriği :
Kod: Tümünü seç
Dim sayilar(5)
Dim i, sayi, mesaj, j
Dim toplam(5) ' Her sayının toplamını tutmak için dizi
Dim ortalama(5) ' Her sayının ortalamasını tutmak için dizi
' Rastgele sayıları oluştur
Randomize
' 8 ayrı çekiliş yap
For j = 1 To 8
' Her çekiliş için sayıları sıfırla
For i = 0 To 5
Do
sayi = Int((49 * Rnd) + 1) ' 1 ile 49 arasında rastgele sayı
Loop While UBound(Filter(sayilar, sayi)) >= 0 ' Aynı sayıyı tekrar etmemek için
sayilar(i) = sayi
' Her sayının toplamını güncelle
toplam(i) = toplam(i) + sayi
Next
' Sayıları sıralama
Call QuickSort(sayilar, 0, UBound(sayilar))
' Sonuç mesajını oluştur
mesaj = mesaj & "Çekiliş " & j & ": " & Join(sayilar, ", ") & vbCrLf
Next
' Ortalamaları hesapla ve tam kısma yuvarla
For i = 0 To 5
ortalama(i) = Int(toplam(i) / 8) ' 8 çekilişin ortalaması ve tam kısma yuvarlama
Next
' Ortalama sonuçları mesajına ekle
mesaj = mesaj & vbCrLf & "Çekiliş Ortalaması: " & Join(ortalama, ", ")
' Mesaj kutusunu göster
MsgBox mesaj, vbInformation, "Sayısal Loto Sonuçları-Kod Tasarımı:TRWE_2012"
' Hızlı sıralama fonksiyonu
Sub QuickSort(arr, first, last)
Dim low, high, mid, temp
low = first
high = last
mid = arr((first + last) \ 2)
Do While low <= high
Do While arr(low) < mid
low = low + 1
Loop
Do While arr(high) > mid
high = high - 1
Loop
If low <= high Then
temp = arr(low)
arr(low) = arr(high)
arr(high) = temp
low = low + 1
high = high - 1
End If
Loop
If first < high Then QuickSort arr, first, high
If low < last Then QuickSort arr, low, last
End Sub
' Dosya kaydetme işlemi
Dim fso, dosyaYolu, dosya
Set fso = CreateObject("Scripting.FileSystemObject")
' Masaüstü yolunu al
dosyaYolu = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Çekiliş_Sonuçları.txt"
' Dosyayı oluştur veya aç
Set dosya = fso.CreateTextFile(dosyaYolu, True)
' Sonuç mesajını dosyaya yaz
dosya.WriteLine mesaj
' Dosyayı kapat
dosya.Close
' Kullanıcıya bilgi ver
MsgBox "Sonuçlar masaüstüne 'Çekiliş_Sonuçları.txt' olarak kaydedildi.", vbInformation, "Dosya Kaydedildi"
NOT:
Kodlanan betik hakkında buradan da ayrıntılı bilgi de alabilirsiniz.
Sayısal Loto v1.vbs
https://forum.sordum.net/viewtopic.php?f=19&t=225280
