Auto-refresh og titel på MsgBox

Mit script ligger her: http://www.puttitat.dk/Fri.vbs - i må virusscanne alt det i vil, der ligger garanteret ingen Malicous Code i :)

// Troels

Eller for de tvivlende: http://www.puttitat.dk/Fri.txt :)

// Troels

Der er rettet en del i det siden originalen, såeh :) Derfor er der et par comments der ikke passer efter en PIND...

Udover Visual Basic, hvad kan i ellers anbefale af (gerne gratis) editorer, der farver koden, og evt. giver råd til hvad man kan gøre, hvis man laver en fejl i koden? :)

// Troels

vil du have den msgbox til at blive fremme eller hva?????
er jeg ikke helt med på så den hele tiden bliver refreshed??

Det i titellinjen hvad er det du vil have til at stå der....er det det samme som der står i msgboxen eller???

Vil lige sige jeg også er nybegynder.... Men måske kan vi finde ud af det sammen... ;)

Den skal ikke blive fremme hele tiden, selvom den er minimeret skal den bare køre tids-aflæsningen 1 gang i sekundet, således at titellinien også opdateres, og man derfor får en slags countdown-timer ;)

// Troels

hmmm.. kan jeg så ikke lige se i mit lille hoved hvordan man kan det... jeg kan godt gøre så lortet sætter det op i titel linjen... det i sig selv er rimelig sikkert...

Men den virker vist heller ikke helt så godt.. for i weekenden skrev den stadig at der ikke var weekend...

Og samtidig med så skriver den efter kl. 4...  bare - antal timer over kl. 4...

Her et eksempel som tæller ned ( i sekunder) fra de tider du nævnte.

popupboksen står på skærmen i 1 sekund, så går den "i loop" medmindre du
har trykket på <OK>

Hvis du vil have resultatet i timer:minutter:sekunder  må du udregne dette
matematisk, og indsætte i en tekststreng.

-------------------------------------------------------------
option explicit

call prg_

sub prg_

dim variabel,x, oplysning, WshShell, y, nu, maal
Set WshShell = WScript.CreateObject("WScript.Shell")

do
  select case weekday(date)
      case 6
        maal = "14:00:00"
      case 1
        msgbox"Kan ikke køres søndage"
        exit sub
      case 7
        msgbox"Kan ikke køres lørdage"
        exit sub
      case else
maal = "12:49:00"
'        maal = "15:45:00"
  end select
  nu = datediff("s",time,maal)
  if nu < 0 then exit do
     
  y = WshShell.PopUp(nu,1)
  if y = 1 then exit do
loop

if nu < 0 then
  msgbox "klokken er " & maal & " og du kan xxxxxx"
  else
  msgbox "Du har standset programmet " & time
end if

end sub