Bilgisayarınızın Cinsiyetini Öğrenin!!

Bangx

Bangx

Katılımcı Üye
29 Tem 2017
312
0
giphy.gif



Bilgisayarınızın cinsiyetini merak ettiniz mi?
Çok kolay bir işlemle öğrenebilirsiniz!

----------------------------------------------------------------------------

1.Not defterini açın.

2. Aşağıdaki kodu kopyalayıp not defterine yapıştırın

Kod: 
CreateObject(“SAPI.SpVoice”).Speak”I love you”
Bu kodun çalışmaması durumunda alttakini deneyebilirsiniz.
Kod: 
CreateObject("SAPI.SpVoice").Speak"I love you"
3. love.vbs olarak kaydedin

4. İki kere tıklayarak çalıştırın.

----------------------------------------------------------------------------

Mesajı ve dosyanın adını istediğiniz gibi değiştirebilirsiniz.
Bildiğim kadarıyla Linux'da çalışmıyor.​


Spyboyblog'dan tercüme edilmiştir​
 
Son düzenleme:
HACKEDBYHYDRA

HACKEDBYHYDRA

Uzman üye
21 Ağu 2016
1,822
0
127.0.0.1
I Love You yu istediğiniz şeyle değiştirebilirsiniz ve love.vbs de love yerine istediğinizi yazabilirsiniz Bunları Eklersen Sevinirim. Elinize Sağlık.
 
gharmori

gharmori

Uzman üye
6 Kas 2011
1,950
1
Andromeda G.
Son düzenleme:
Bangx

Bangx

Katılımcı Üye
29 Tem 2017
312
0
gharmori' Alıntı:
kadın değil bayan :trl

bende hata verdi birebir doğru yaptım hiçbir eksiği yok tam kopyaladım olmadı
Genişletmek için tıkla ...

Tüm Windows bilgisayarlarda çalışıyor diye biliyordum. Belki sizinki İngilizce bilmiyordur, Türkçe bir mesajla deneyin isterseniz.
 
gharmori

gharmori

Uzman üye
6 Kas 2011
1,950
1
Andromeda G.
Bangx' Alıntı:
Hocam en alta yazmıştım ama fark etmediniz sanırım.




14 karakter diyor. Kodun tamamını yapıştırdınız mı?
Genişletmek için tıkla ...

işte sırf o yüzden harfleri tek tek saydım tekrar yapıştırdım tekrar açtım 14 karakter diyor neden diyor bende bilmiyorum ascii unicode kodlama ile alakası mı var ama ben onları ellemedim direk kaydettim vbs olarak
 
Bangx

Bangx

Katılımcı Üye
29 Tem 2017
312
0
gharmori' Alıntı:
işte sırf o yüzden harfleri tek tek saydım tekrar yapıştırdım tekrar açtım 14 karakter diyor neden diyor bende bilmiyorum ascii unicode kodlama ile alakası mı var ama ben onları ellemedim direk kaydettim vbs olarak
Genişletmek için tıkla ...

Bu kodda aynı işi görüyor sanırım. Bir de bunu deneyin.
Kod: 
Dim msg, sapi
msg=InputBox(“Enter your text”,”Talk it”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak msg
 
gharmori

gharmori

Uzman üye
6 Kas 2011
1,950
1
Andromeda G.
Konuyu açan kardeş,diğer arkadaşın dediği gibi " işaretinde sorun varmış

Kod: 
CreateObject("SAPI.SpVoice").Speak"I love you"

Bu kodu yazdım oldu tırnakları " olarak değiştirdim konuyu güncelle istersen

Bu arada cinsiyeti garı :D
 
mrNightblood

mrNightblood

Katılımcı Üye
20 Ağu 2017
323
0
Tırnakları dediğiniz gibi yaptım oldu bende de kadın sanırsam ama erkek olsaydı ses nasıl gelecekti merak etmiyor değilim :D
 
Bangx

Bangx

Katılımcı Üye
29 Tem 2017
312
0
gharmori' Alıntı:
Konuyu açan kardeş,diğer arkadaşın dediği gibi " işaretinde sorun varmış

Kod: 
CreateObject("SAPI.SpVoice").Speak"I love you"

Bu kodu yazdım oldu tırnakları " olarak değiştirdim konuyu güncelle istersen

Bu arada cinsiyeti garı :D
Genişletmek için tıkla ...


Diğerlerinde nasıl çalıştı ki? En iyisi ben ikisini de koyayım.
 
Bangx

Bangx

Katılımcı Üye
29 Tem 2017
312
0
<!--Henüz görmeyen arkadaşlarımız için güncel-->
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.