vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
vbs-Script funktioniert nicht 
Autor: hajosch
Datum: 13.07.12 11:50

Hallo,
folgendes Script bekomme ich nicht zum Laufen.
Hilft jemand?

'==========================================================================
'
' VBScript Source File
'
' NAME: MKSHOT.VBS
'
' AUTHOR: Thorsten Eggeling
' DATE : 01.2001
'
' COMMENT: Screenshot-Demo
'
' nötige Anpassungen: myPath: Ausgabepfad
' Delay in Millisekunde
' GetActiveWindow oder GetFullScreen aktivieren
' CreateFilename: Dateinamen erzeugen
'
'
'==========================================================================
Option Explicit
MsgBox("Bitte dieses Script vor dem Start erst anpassen! Script wird beendet.")
Wscript.Quit



'Deklarationen

'WScript.Quit

Dim myFile
Dim myPath
Dim myClip
Dim WshShell
myPath="H:\temp1"
'Objektreferenzen
set myClip=CreateObject("pcwClip.pcwClip")
Set WshShell = WScript.CreateObject("WScript.Shell")
'Dateinamen erzeugen

myFile=CreateFileName()

With myClip
.BmpFileName=myPath & myFile & ".bmp"
.Delay=1000
'.Notify=True
.GetActiveWindow
'.GetFullScreen
WshShell.Popup "Fertig",1
End With

WshShell.Run myPath & myFile & ".bmp"

Set myClip=nothing
Set WshShell=nothing

Function CreateFileName ()
'
Dim a(5)
Dim NewName
Dim i
a(0)=Day(now)
a(1)=Month(Now)
a(2)=Year(Now)
a(3)=Hour(Now)
a(4)=Minute(Now)
a(5)=Second(Now)
For i = 0 to 5
If Len(a(i))=1 Then a(i)="0" & (a(i))
NewName=NewName & a(i)
Next
CreateFileName="NewName"
End Function
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
vbs-Script funktioniert nicht1.959hajosch13.07.12 11:50
Re: vbs-Script funktioniert nicht1.149effeff13.07.12 14:16
Re: vbs-Script funktioniert nicht1.176hajosch13.07.12 18:43
Re: vbs-Script funktioniert nicht1.154Franki14.07.12 02:09
Re: vbs-Script funktioniert nicht1.202hajosch14.07.12 11:18
Re: vbs-Script funktioniert nicht1.136Franki15.07.12 01:05
Re: vbs-Script funktioniert nicht1.245hajosch15.07.12 11:33
Re: vbs-Script funktioniert nicht1.144Manfred X15.07.12 11:48
Re: vbs-Script funktioniert nicht1.168hajosch15.07.12 12:48

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel