Søg
Avatar billede thomzen Nybegynder
27. februar 2004 - 16:32 Der er 15 kommentarer og
1 løsning

Sleep, og Start program

Hey!

Jeg skal lave en .vbs fil der kan køre et program, pause i 30 sek, og loope til start.

er det noget der er en der sidder klar med? :D

ThomZen
Avatar billede sjh Nybegynder
27. februar 2004 - 16:55 #1
'---- Sleep.vbs ----
wscript.sleep 30000
msgbox "Der er nu gået 30 sekunder"
'---- Sleep.vbs ----
Avatar billede thomzen Nybegynder
27. februar 2004 - 16:57 #2
Den skal også gerne køre et program.. :)

(altså, run"C:\... eller hvad det hedder..
Avatar billede thomzen Nybegynder
27. februar 2004 - 16:58 #3
(og loope til start..)

hehe
Avatar billede sjh Nybegynder
27. februar 2004 - 17:00 #4
ja men så kommer du jo aldrig ud af det script før du slukker din computer
Avatar billede thomzen Nybegynder
27. februar 2004 - 17:01 #5
nej, det ved jeg. det skal jeg heller ikke.. :)
Avatar billede thomzen Nybegynder
27. februar 2004 - 17:01 #6
og ja, den starter et program hver gang.. :) det ved jeg også.. :) (meningen, tror jeg..) hehe
Avatar billede sjh Nybegynder
27. februar 2004 - 17:03 #7
Dim objShell
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "notepad.exe", 1, True
Avatar billede thomzen Nybegynder
27. februar 2004 - 17:04 #8
.. så skal den bare loope til start? :o)
Avatar billede sjh Nybegynder
27. februar 2004 - 17:04 #9
så skal du bare sette det indunder:

Do

'her din kode

Loop
Avatar billede thomzen Nybegynder
27. februar 2004 - 17:05 #10
Ahh... thnz! :D
Avatar billede sjh Nybegynder
27. februar 2004 - 17:06 #11
Dim objShell
  Do
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run "notepad.exe", 1, True
    wscript.sleep 30000
  Loop
Avatar billede thomzen Nybegynder
27. februar 2004 - 17:07 #12
Hmm.. hvis den så skal køre to forskellige programmer, hvor meget skal jeg så ændre?
Avatar billede thomzen Nybegynder
27. februar 2004 - 17:07 #13
..for den ikke braser sammen, når jeg skal køre andet program? :D
Avatar billede sjh Nybegynder
27. februar 2004 - 17:09 #14
Dim objShell
  Do
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run "program1.exe", 1, True
    wscript.sleep 15000
    objShell.Run "program2.exe", 1, True
    wscript.sleep 15000
  Loop
Avatar billede thomzen Nybegynder
27. februar 2004 - 17:09 #15
thnx! :D
Avatar billede sjh Nybegynder
27. februar 2004 - 17:10 #16
øøø du skal nok gøre sådan:

Dim objShell
  Set objShell = CreateObject("Wscript.Shell")
  Do
    objShell.Run "program1.exe", 1, True
    wscript.sleep 15000
    objShell.Run "program2.exe", 1, True
    wscript.sleep 15000
  Loop
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 12:15 morf bilede Af knuldefar1942 i Fri debat
07/0822:13 Gemme største værdi Af Lemming@privat.dk i Excel
07/0821:39 Kvindelig journalist ved DR - hvad er hendes navn. Af ErikHg i Fri debat
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
White papers
Flere white papers »