Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Scriptproblem Programmstart und evtl. Rechnerstart
Frage
Hallo,
ich habe gleich zwei Fragen:
1.) ich habe mit einer Vorlage zwei vbs-Scripte zum Starten und Stoppen der Videoaufnahme mit VirtualDub geschrieben.
Leider kommt bei dem Stop-Script immer eine Fehlermeldung für Zeile 9, Zeichen 1.
Die Scripte hänge ich weiter unten noch an.
2.) Ich würde gerne meinen Rechner ebenfalls zeitgesteuert einschalten. Wo kann ich nachlesen/wer kann mir sagen, wie ich das bei meinem Asrock-Mainboard mache?
Hier die beiden Scripte:
Start - Script:
[code]´VBS-Script zum Starten von Virtualdub im Sofort-Capture-Modus
set osh = wscript.CreateObject("wscript.Shell") ´Shell-Objekt definieren
osh.run "start c:programmevirtualdubvirtualDub.exe",0 ´VirtualDub starten
wscript.sleep 5000 ´5 Sekunden warten (damit Programm starten kann)
osh.Sendkeys "%F{p}" ´Mit ALT+F+a Virtualdub Capturemodus aktivieren
wscript.sleep 5000 ´5 Sekunde warten
osh.Sendkeys "%C{c}" ´Mit ALT+F+v Aufnahme starten[/code]
Stop - Script:
[code]´VBS-Script zum Beenden Virtualdub im Aufnahme-Modus
´Anschliessend wird die Capture-Datei umbenannt
osh.Sendkeys "{ALT}{TAB}" ´Vom Codec zum Virtual-Dub-Fenster wechseln
wscript.sleep 5000 ´5 Sekunde warten
Option Explicit
Dim strSourceName
strSourceName = "c:videobearbeitungCapturing_aktuellCapturing_Standard-Datei.avi" ´HIER CAPTURE-DATEINAME ANGEBEN
´1. Schritt: Anhalten des Aufnahmemodus und beenden von Virtualdub
dim osh
set osh = wscript.CreateObject("wscript.Shell") ´Shell-Objekt definieren
osh.SendKeys "{Esc}" ´Aufnahme mit ESC beenden
osh.Sendkeys "%F{x}" ´Capture Modus beenden
osh.Sendkeys "%F{Q}" ´Virtualdub beenden
´2. Schritt: Umbennen der Capture-Datei
Dim strDestName
BuildDestinationName strSourceName, strDestName
RenameFile strSourceName, strDestName
´ Neuen Dateinamen nach folgenden Regeln berechnen:
´ sourceName = ´<drive><path><fname><ext>
´ desName = ´<drive><path><fname-DATE-TIME<ext>
function BuildDestinationName( strSourceName, strDestName)
dim fso
set fso = CreateObject("Scripting.FileSystemObject")
dim extension
extension = fso.GetExtensionName( strSourceName)
dim basename
basename = fso.GetBaseName( strSourceName)
dim path
path = fso.GetParentFolderName( strSourceName)
dim theDate
theDate = Replace( FormatDateTime( Date, 2), ".", "-")
dim theTime
theTime = Replace( FormatDateTime( Time, 3), ":" , "-")
´3. Datum in Format Jahr-Monat-Tag umwandeln
´ (besser für Sortierung in Explorer!)
dim Jahr
dim Monat
dim Tag
Tag=left(theDate,2)
Monat=mid(theDate,4,2)
Jahr=right(theDate,4)
theDate= Jahr & "-" & Monat & "-" & Tag
if len(path)=3 then
strDestName = path & basename & "-" & theDate & "-" & theTime & "." & extension
else
strDestName = path & "" & basename & "-" & theDate & "-" & theTime & "." & extension
end if
end function
function RenameFile( strSourceName, strDestinationName)
dim fso
set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile strSourceName, strDestinationName
end function[/code]
Für Eure Hilfe im voraus vielen Dank!
Jürgen
Antwort 1 von vasquez
der fehler müsste (ohne kommentare ) bei
osh.Sendkeys "%F{x}"
liegen
aber
osh.SendKeys
sind zwei unterschiedlich geschriebene versionen
der gleichen function???
ich hab virtual dub nicht deshalb ist das mit dem ausprobieren etws schwer ...
osh.Sendkeys "%F{x}"
liegen
aber
osh.SendKeys
sind zwei unterschiedlich geschriebene versionen
der gleichen function???
ich hab virtual dub nicht deshalb ist das mit dem ausprobieren etws schwer ...