[Code] VB-Scripte, wie öffenen

KrustyxP · 28. April 2009

VB-Scripte, wie öffenen

Hi,
ich muss bald in der Schule etwas zu VB-Scripte vorstellen.

Ich mache am Anfang eine kleine Einführung und dann ein paar kleine Beispiele der VB-Scripte anhand von html.

Nun hab ich mir auch noch welche für Windows geholt, z.B. eines welches die Zeit angibt wielange der Recher schon an ist (Dateiname.vbs) .

Code:

 ' --- Prüfen, wie lange der PC läuft ---
Function check_uptime()

 Set OS_Set = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")

 for each System in OS_Set
 os_uptime = System.LastBootUptime
 next


 jahr = Mid(os_uptime, 1, 4)

 monat = Mid(os_uptime, 5, 2)

 tag = Mid(os_uptime, 7, 2)

 stunde = Mid(os_uptime, 9, 2)

 minut= Mid(os_uptime, 11, 2)


 ' Datum erstellen
 mydate = CDate(tag & "/" & monat & "/" & jahr & " " & stunde & ":" & minut)

 dif3 = Now() - mydate

 ' Länger als 180 Minuten
 If dif3 > 0.18 then
 check_uptime = false
 Else
 check_uptime = true
 End if

End Function

Jedenfals wollte ich nur mal fragen wie man jetzt die Teile "ausführt". Per Doppelklick geht das net.
Wär cool wenn mir jemand helfen könnte.

Anzeige

Murdoc · 28. April 2009

AW: VB-Scripte, wie öffenen

die funktion alleine reicht ja nich, du musst die funktion auch noch ausführen:

Code:

if check_uptime() = false then
 msgbox "false"
else
 msgbox "true"
end if

MasterJulian · 28. April 2009

AW: VB-Scripte, wie öffenen

Naja du musst die Funktion schon auffrufen (am ende einfügen):

Code:

If check_uptime() Then
MsgBox "Länger als 180 Min online",0,"Uptime"
Else
MsgBox "Noch keine 180 Min online",0,"Uptime"
End If

ps: ist ungeprüft

Nützliche Suchen

[Code] VB-Scripte, wie öffenen

Videos zum Themenbereich