[VisualBasic] Scripte, paar Fragen

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von KrustyxP, 28. April 2009 .

  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 28. April 2009
    Scripte, paar Fragen

    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) .

    [/Spoiler]
    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 
    [/Spoiler]

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

  2. Anzeige
    Dealz: stark reduzierte Angebote finden.

  3. Videos zum Thema
Die Seite wird geladen...