VBS ile zaman aralığında kod çalışabilsin

[mozdem]

Merhabalar,
------------------------------
On Error Resume Next
set calistir = createobject("wscript.shell")

Eğer Saat:10:00 ile 17:15 arası ise

wscript.sleep(500)
calistir.run "C:\Deneme.exe"

değilse son
-----------------
Yukarıdaki örnek .Vbs dosyası çalıştırıldığında Saat 10:00 ile 17:15 arası ise kodlar çalışsın. zaman dışında ise çalışmasın istiyorum.Bu mümlün mü?
Şimdiden yardımlarınız için teşekkür ederim.

 

[excelokyanus500]

Deneyin ,kendinize uyarlayın.

Call saatci



Sub saatci()

If Hour(Now()) >= 8 OR hour(Now()) < 11 Then

Msgbox " Saat 8-11 arasinda firefoxu calistirin"
Call firefox()
Wscript.sleep(5000)

 Call saatci

Else

Msgbox " Saat 11'i gecmis"

Wscript.Quit

End If

End Sub

Sub firefox()

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run("firefox")
Set objShell = Nothing

End Sub

 

[veyselemre]

ilkSaat=timeserial(11,00,00)
sonSaat=timeserial(11,15,00)


if time>ilkSaat and time<sonSaat then
    set calistir = createobject("wscript.shell")
    wscript.sleep(500)  
    calistir.run ("C:\Deneme.exe")
    set calistir = nothing
else
    wscript.echo ("çalışmadı")
end if

 

[mozdem]

ilkSaat=timeserial(11,00,00)
sonSaat=timeserial(11,15,00)


if time>ilkSaat and time<sonSaat then
    set calistir = createobject("wscript.shell")
    wscript.sleep(500) 
    calistir.run ("C:\Deneme.exe")
    set calistir = nothing
else
    wscript.echo ("çalışmadı")
end if

Çok teşekkür ederim. Sorduğum sorunun tam cevabı.
Bir şey daha rica etsem. buraya günleride kriter olarak koymak istersem. Yani Cumartesi ve Pazar çalışmasın. Diğer günler çalışsın.
Mümkünmü.
Tekrardan cevabınız için çok çok teşekkür ederim.

 

[veyselemre]

ilkSaat=timeserial(10,00,00)
sonSaat=timeserial(11,15,00)


if time>ilkSaat and time<sonSaat and weekday(date)>1 and weekday(date)<7 then
    set calistir = createobject("wscript.shell")
    wscript.sleep(500) 
    calistir.run ("C:\Deneme.exe")
    set calistir = nothing
else
    wscript.echo ("çalışmadı")
end if

 

[mozdem]

ilkSaat=timeserial(10,00,00)
sonSaat=timeserial(11,15,00)


if time>ilkSaat and time<sonSaat and weekday(date)>1 and weekday(date)<7 then
    set calistir = createobject("wscript.shell")
    wscript.sleep(500)
    calistir.run ("C:\Deneme.exe")
    set calistir = nothing
else
    wscript.echo ("çalışmadı")
end if

Çok teşekkür ederim. Ben bir şey öğrendiğimde çok mutlu oluyorum. Allah'ta sizi mutlu etsin.