"Deyim Sonu Gerekli" Hatası

galip_28

Femtopat
Katılım
21 Ocak 2023
Mesajlar
22
Çözümler
1
Daha fazla  
Cinsiyet
Erkek
Arkadaşımı trollemek için virüs yaptım ve .vbs olarak kaydettim ama denemek için açtığımda hep "Deyim Sonu gerekli" Hatası veriyor
Yazdığım kod =
CreateObject ("SAPI.SpVoice").Speak"Bilgisayarın Heklendi hahaha"

X = Msgbox ("XXXgalip Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64,"WİNDOWS")

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(d).Eject
set owmp = nothing
set colCDROMs = nothing
wscript.quit

CreateObject ("SAPI.SpVoice")"Dosyaların silindi ben gidiyorum görüşürüz"

X = Msgbox ("Bilgisayarınız 30 saniye sonra kapanacaktır ?", 4 + 64,"WİNDOWS")
 
Kod: 
CreateObject ("SAPI.SpVoice").Speak("Bilgisayarın Heklendi hahaha")

X = Msgbox ("XXXgalip Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64,"WİNDOWS")

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(d).Eject
set owmp = nothing
set colCDROMs = nothing
wscript.quit

CreateObject ("SAPI.SpVoice").Speak("Dosyaların silindi ben gidiyorum görüşürüz")

X = Msgbox ("Bilgisayarınız 30 saniye sonra kapanacaktır ?", 4 + 64,"WİNDOWS")

Böyle deneyebilir misiniz? ve hangi satırda hata veriyor?
 
teşekkürler sorun çözdüm

Bu Arada wscript.quit sona koyacaktın
 
Son düzenleme:
Kod: 
Result = MsgBox ("bilgisayar kapatılsınmı"), "vbYesNo, "Evet hayır örneği"

Select Case result
Case vbYes
 MsgBox("kapatılıyor")
Shutdown /s /t 100

Case vbNo
 MsgBox("Hayıra bastınız")
End Select

Bunu yazdım deyim sonu hatası veriyor satır 1 karakter 48.
 
Konuyu cevapla
Menü
Giriş yap
Kaydol
Bu siteyi kullanmak için çerezler gereklidir. Siteyi kullanmaya devam etmek için çerezleri kabul etmelisiniz. Daha Fazlasını Öğren.…