Beiträge von chip

  • Windows-Sicherheits Fenster

    Dieses Problem wurde schon mehrmals im Forum beantwortet. Starte eine sperates Autoitscript welches nur dafür das ist die Windows-Sicherheitswarung zu schließen. Windows blockiert nämlich das Autoitscript welches das Programm gestartet hat welches wiederum die Sicherheitswarnung erzeugt.

  • Lasst uns Beten

    1.Du sollst keinen Kaffee in die Tastatur schütten.
    2.Du sollst nicht mit deinen Fettfingern auf den Bildschirm
    tatschen.
    3.Du sollst deine Festplatte regelmäßig aufräumen.
    4.Du sollst immer dein Betriebssystem herunterfahren, bevor du den
    Computer ausschaltest.
    5.Du sollst die Highscore -Liste nicht manipulieren.
    6.Du sollst nicht die Hälfte deiner Arbeitszeit Solitaire oder
    Minesweeper spielen.
    7.Du sollst nicht begehren deines Nächsten 19-Zoll-Monitor.
    8.Du sollst deine Freunde nicht mit nichtssagenden E-Mails-
    bombadieren.
    9.Du sollst keine Götter neben Bill Gates haben.
    10.Du sollst dich vor dem Apple der Versuchung hüten.

  • Auslesen aller SMART-Infos via WMI

    Scriptomatic ist in dem Fall leider unvollständig. Hier das ganze mal entsprechnenden ergänzt:

    Spoiler anzeigen
    [autoit]

    ; Generated by AutoIt Scriptomatic

    [/autoit] [autoit][/autoit] [autoit]

    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20
    $colItems = ""
    $strComputer = "localhost"

    [/autoit] [autoit][/autoit] [autoit]

    $Output = ""
    $Output = $Output & "Computer: " & $strComputer & @CRLF
    $Output = $Output & "==========================================" & @CRLF
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\WMI")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM MSStorageDriver_ATAPISmartData", "WQL", _
    $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

    [/autoit] [autoit][/autoit] [autoit]

    If IsObj($colItems) Then
    For $objItem In $colItems
    $Output = $Output & "Active: " & $objItem.Active & @CRLF
    $Output = $Output & "Checksum: " & $objItem.Checksum & @CRLF
    $Output = $Output & "ErrorLogCapability: " & $objItem.ErrorLogCapability & @CRLF
    $Output = $Output & "ExtendedPollTimeInMinutes: " & $objItem.ExtendedPollTimeInMinutes & @CRLF
    $Output = $Output & "InstanceName: " & $objItem.InstanceName & @CRLF
    $Output = $Output & "Length: " & $objItem.Length & @CRLF
    $Output = $Output & "OfflineCollectCapability: " & $objItem.OfflineCollectCapability & @CRLF
    $Output = $Output & "OfflineCollectionStatus: " & $objItem.OfflineCollectionStatus & @CRLF
    $strReserved = $objItem.Reserved(0)
    $Output = $Output & "Reserved: " & $strReserved & @CRLF
    $Output = $Output & "SelfTestStatus: " & $objItem.SelfTestStatus & @CRLF
    $Output = $Output & "ShortPollTimeInMinutes: " & $objItem.ShortPollTimeInMinutes & @CRLF
    $Output = $Output & "SmartCapability: " & $objItem.SmartCapability & @CRLF
    $Output = $Output & "TotalTime: " & $objItem.TotalTime & @CRLF
    $strVendorSpecific = $objItem.VendorSpecific(0)
    $Output = $Output & "VendorSpecific: " & $strVendorSpecific & @CRLF
    $Output = $Output & "VendorSpecific2: " & $objItem.VendorSpecific2 & @CRLF
    $Output = $Output & "VendorSpecific3: " & $objItem.VendorSpecific3 & @CRLF
    $strVendorSpecific4 = $objItem.VendorSpecific4(0)
    $Output = $Output & "VendorSpecific4: " & $strVendorSpecific4 & @CRLF

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    If MsgBox(1, "WMI Output", $Output) = 2 Then ExitLoop
    $Output = ""
    Next
    Else
    MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_AccountSID")
    EndIf

    [/autoit]

  • Lasst uns Beten

    Vater Microsoft, der Du bist auf der Festplatte. Geheiligt sei Dein Windows, Dein Update komme, Dein Bugfix geschehe wie in Windows also auch in Office. User täglich MSN gib uns heute und vergib uns unsere Raupkopie, so wie wir vergeben unsrer Telekom. Und führe uns nicht zu IBM, sondern erlöse uns von OS2. Denn Dein ist das DOS und das Windows und NT in Ewigkeit. ENTER.

  • Wird in der SB zu lax mit dem Jugendschutz umgegangen?

    Zwar habe ich besagte Witze noch nie in der SB gesehen, allerdings wäre es mit neu das solche von der BPJM als jugendgefährdend eingestuft sind. Sprich eine jugendgefährdung liegt hier nicht vor und damit ist das Thema im Grunde auch gegessen ;).

    Da die SB wie das Forum als solches ein digitales Medium ist greift hier:

    Zitat

    Als jugendgefährdend gelten gemäß § 18 Abs. 1 JuSchG Medien, die geeignet sind, die Entwicklung von Kindern oder Jugendlichen oder ihre Erziehung zu einer eigenverantwortlichen und gemeinschaftlichen Persönlichkeit zu gefährden. Dazu zählen vor allem unsittliche, verrohend wirkende, zu Gewalttätigkeit, Verbrechen oder Rassenhass anreizende Medien sowie Medien,
    in denen
    1. Gewalthandlungen, insbesondere Mord- und Metzelszenen selbstzweckhaft und detailliert dargestellt werden oder
    2. Selbstjustiz als einzig bewährtes Mittel zur Durchsetzung der vermeintlichen Gerechtigkeit nahe gelegt wird.
    Eine schwere Jugendgefährdung besteht darüber hinaus u. a. bei volksverhetzenden, gewaltverherrlichenden, pornografischen kriegsverherrlichenden oder gewaltbeherrschten Medieninhalten (§ 15 Abs. 2 JuSchG).


    Und unter anderem die Punkte:

    Zitat

    Unterabschnitt 2
    Telemedien

    § 16
    Sonderregelung für Telemedien

    Regelungen zu Telemedien, die in die Liste jugendgefährdender Medien nach § 18 aufgenommen sind, bleiben Landesrecht vorbehalten.

    Zitat

    (6) Telemedien sind in die Liste aufzunehmen, wenn die zentrale Aufsichtsstelle der Länder für den Jugendmedienschutz die Aufnahme in die Liste beantragt hat; es sei denn, der Antrag ist offensichtlich unbegründet oder im Hinblick auf die Spruchpraxis der Bundesprüfstelle für jugendgefährdende Medien unvertretbar.

    Sprich so lange nicht Berlin einen Antrag stellt das die SB von autoit.de wegen jugendgefährdung auf die Liste der jugendgefährdenten Medien gesetzt wird, muss und braucht man hier garnix ändern.

  • Gewünschte Passagen aus Text-File löschen

    Hier auf die Schnelle gemacht.

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <String.au3>
    $file = FileOpen("file.txt", 0)
    $inhalt = FileRead($file)

    [/autoit] [autoit][/autoit] [autoit]

    Dim $aunahmearray[2] = ["Name_Absatz1", "Name_Absatz3"]

    [/autoit] [autoit][/autoit] [autoit]

    $array = StringSplit($inhalt, "/begin xyz", 3)

    [/autoit] [autoit][/autoit] [autoit]

    Dim $final

    [/autoit] [autoit][/autoit] [autoit]

    For $element In $array
    $check = 0
    If StringInStr($element, "/end xyz") Then
    For $element2 In $aunahmearray
    If StringInStr($element, $element2, 3) Then
    $check = 1
    ExitLoop
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    If $check = 0 Then
    $final = $final & "/begin xyz" & @CRLF & $element
    Else
    $split = StringSplit($element, "/end xyz", 3)
    $final = $final & $split[1]
    EndIf
    Else
    $final = $final & $element
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    FileWrite("final.txt", $final)

    [/autoit]