VBScript

[muratgunay48]

Arkadaşlar, sayın hocalarım, aslında ben bu tarz bir soruyu çok önce de sormuştum ama şimdi bir örnekle sormak istedim.
Hem belki hocalarımızdan örnekle cevap veren olur.
Şimdiden teşekkür ederim. Saygılarımla.

Şimdi örnekte VBScript çalıştırınca 5 saniye sonra metin belgesi açılıyor. Benim istediğim 5 saniye sonra değil de ben VBS çalıştırınca, örneğin 12:55:00'da açılsın.

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
WScript.Sleep(5000)
objShell.Run("notepad.exe")
Set objShell = Nothing

 

[pitchoute]

Merhabalar;

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")

Dim hedefSaat
hedefSaat = "12:55:00"

Do
    If Time >= hedefSaat Then
        objShell.Run("notepad.exe")
        Exit Do
    End If
    WScript.Sleep(1000)
Loop

Set objShell = Nothing

 

[muratgunay48]

Merhabalar;

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")

Dim hedefSaat
hedefSaat = "12:55:00"

Do
    If Time >= hedefSaat Then
        objShell.Run("notepad.exe")
        Exit Do
    End If
    WScript.Sleep(1000)
Loop

Set objShell = Nothing

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")

x=msgbox("Komut alınmıştır" ,0, "merhaba")

Dim hedefSaat
hedefSaat = "12:55:00"

Do
If Time >= hedefSaat Then
objShell.Run("notepad.exe")
Exit Do
End If
WScript.Sleep(1000)
Loop

Set objShell = Nothing


Hocam cevabınız için teşekkür ederim.
Şeklinde yaptım ama çalışmadı

Yeni_Metin_Belgesi.zip dosyasını indir - download

Yeni_Metin_Belgesi.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[pitchoute]

Kodunuzu şöyle düzenleyip dener misiniz;

Dim objShell
Set objShell = CreateObject("WScript.Shell")

Dim x
x = MsgBox("Komut alınmıştır", 0, "merhaba")

Dim hedefSaat
hedefSaat = TimeValue("12:55:00") 

Do
    If Time >= hedefSaat Then
        objShell.Run "notepad.exe"
        Exit Do
    End If
    WScript.Sleep 1000
Loop

Set objShell = Nothing

 

[muratgunay48]

Hocam çok teşekkür ederim.
Ben MsgBox'ı Koda tanıtmadım
Sonra bir de suçu size atıyorum. Kusura bakmayın lütfen.
Şaka bir yana çok teşekkür ederim.

Hocam çok elzem değil ama VBS'de MsgBox'daki yazıda Türkçe karakterleri yazmanın yolu var mı? ı-İ-ü-Ü-ö-Ö-ç-Ç-ğ-Ğ

 

[pitchoute]

Hiç problem yok hocam, yanlış benim doğru sizin olsun sorununuz çözüldükten sonra
Dosyayı farklı kaydederken, dosya uzantısını .vbs olarak düzenleyin ve kodlama (encoding) kısmından UTF-8 seçeneğini seçin. Bu sayede direkt olarak Türkçe karakterleri kullanabilirsiniz.

 

[muratgunay48]

Hiç problem yok hocam, yanlış benim doğru sizin olsun sorununuz çözüldükten sonra
Dosyayı farklı kaydederken, dosya uzantısını .vbs olarak düzenleyin ve kodlama (encoding) kısmından UTF-8 seçeneğini seçin. Bu sayede direkt olarak Türkçe karakterleri kullanabilirsiniz.

Hocam çok teşekkür ederim.

Hocam son bir şey sorsam.

Şöyle bir ekleme yaptım ama belli bir dosyayı açmak için. Çalıştır dene diyeceksiniz ama kapanmaz falan

Dim objShell
Set objShell = CreateObject("WScript.Shell")

Dim x
x = MsgBox("Komut alinmistir", 0, "Merhaba")

Dim hedefSaat
hedefSaat = TimeValue("21:50:00")

Do
If Time >= hedefSaat Then


Set NewXL = CreateObject("notepad.Application")
Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\test.txt")


Exit Do
End If
WScript.Sleep 1000
Loop

Set objShell = Nothing

 

[pitchoute]

Şu şekilde hedef klasörde belirtilen dosyanın açılmasını sağlayabiliriz, bende denemedim ama umarım çalışır

Dim objShell
Set objShell = CreateObject("WScript.Shell")

Dim x
x = MsgBox("Komut alinmistir", 0, "Merhaba")

Dim hedefSaat
hedefSaat = TimeValue("21:50:00")

Do
    If Time >= hedefSaat Then
        objShell.Run "notepad.exe ""C:\Users\muratgunay48\Desktop\test.txt"""
        Exit Do
    End If
    WScript.Sleep 1000
Loop

Set objShell = Nothing

 

[muratgunay48]

Şu şekilde hedef klasörde belirtilen dosyanın açılmasını sağlayabiliriz, bende denemedim ama umarım çalışır

Dim objShell
Set objShell = CreateObject("WScript.Shell")

Dim x
x = MsgBox("Komut alinmistir", 0, "Merhaba")

Dim hedefSaat
hedefSaat = TimeValue("21:50:00")

Do
    If Time >= hedefSaat Then
        objShell.Run "notepad.exe ""C:\Users\muratgunay48\Desktop\test.txt"""
        Exit Do
    End If
    WScript.Sleep 1000
Loop

Set objShell = Nothing

Hocam çok teşekkür ederim. Emeğinize sağlık. VBS konusunda kendimi geliştirmeye çalışıyorum. Sizlerin yardımıyla.
Yalnız haddim olmayarak Kodlama türünde ANSI Türkçe karakter yaptı. Web page maker ile site yaparken. ANSI yapıyordum, oradan hatırladım.

 

[pitchoute]

Biraz olsun yardımcı olabildiysem ne mutlu, iyi çalışmalar dilerim hocam.
Belirttiğiniz gibi ANSI Windows-1254 kullanılırsa, Türkçe karakterleri ayrıca destekliyor, haklısınız.

 

[Zeki Gürsoy]

Kısa bilgi;

VBA/VBS; utf-8 desteklemediği için, multibyte-null terminated karakter olan ANSI kodlamayı seçmek doğru tercih olur.

.

 

[muratgunay48]

Kısa bilgi;

VBA/VBS; utf-8 desteklemediği için, multibyte-null terminated karakter olan ANSI kodlamayı seçmek doğru tercih olur.

.

İlginize teşekkür ederim hocam. Var olun.
Saygılarımla.

 

[muratgunay48]

Kısa bilgi;

VBA/VBS; utf-8 desteklemediği için, multibyte-null terminated karakter olan ANSI kodlamayı seçmek doğru tercih olur.

.

Hocam, haddim olmayarak. Sizin yazdığınız kodu kendi kodlarımla birleştirdim.

Dim objShell
Set objShell = CreateObject("WScript.Shell")

Dim x
x = MsgBox("Komut alınmıştır", 0, "merhaba")

Dim hedefSaat
hedefSaat = TimeValue("00:48:00")

Do
    If Time >= hedefSaat Then



Set WshNetwork = WScript.CreateObject("WScript.Network")
        
Set NewXL = CreateObject("Excel.Application")
    
Set MyWB = NewXL.workbooks.open("C:\Users\muratgunay48\Desktop\Interpress\KAPAKLAR\GAZETE KAPAKLARI.xlsm")

NewXL.Visible = True

NewXL.application.run "paz"

MyWB.Close False

NewXL.Quit

Set MyWB = Nothing

Set NewXL  = Nothing

Set WshNetwork = Nothing


        Exit Do
    End If
    WScript.Sleep 1000
Loop

Set objShell = Nothing