"Deyim Sonu Gerekli" Hatası

galip_28 · 22 Ocak 2023

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")

Maxtoric · 22 Ocak 2023

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?

galip_28 · 22 Ocak 2023

Maxtoric dedi:

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

Maxtoric · 12 Şubat 2023

galip_28 dedi:
teşekkürler sorun çözdüm

Bu Arada wscript.quit sona koyacaktın

Sizin bu konunuz olmasa Visual Basic kullanmayalı 2 yılım olacaktı bayadır kullanmadığımdan unutmuşum kusura bakmayın

burak eren kısa · 8 Ocak 2025

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.

"Deyim Sonu Gerekli" Hatası

Ayrıntılı düzenleme

galip_28

Femtopat

Maxtoric

Megapat

galip_28

Femtopat

Maxtoric

Megapat

burak eren kısa

Femtopat

Benzer konular

Bu konuyu görüntüleyen kullanıcılar

Technopat Haberler

Yeni konular

Yeni mesajlar

Gizliliğinize önem veriyoruz