Beiträge von chip

  • mehrere Forms

    #include kannnst als Platzhalter verstehen. Der komplette Code den in der include datei hast wird sozusagen einfach die dieser Position eingefügt.

    Einfach mit #include einbinden allerdings ohne "<" und ">". Ausführlich findest du das in der Hilfe beschrieben.

    P.s. langsam interessiert mich das doch was das werden soll. Wir haben bei dir jetzt Hunde, Links zum auslesen, Suchfelder zum Eintragen und Transpartne GUIs.

  • Outlook neue Email

    Hi,

    da Outlook immer nur sehr kurz eine Meldung anzeigt wenn eine neue Email vorhanden ist, habe ich mal ein kleines Script geschrieben das das ganze dauerhaft anzeigt bis man es weg klickt.
    Ist nichts großes, einfach nur kleines Infofenster. Benötigt wird die OutlookUDF: klick mich

    Spoiler anzeigen
    [autoit]

    #include <Outlook.au3>
    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>

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

    AdlibRegister("_getemail", 300000)
    Global $gui
    $sichtbar = False
    $guiwidth = 100

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    GUIDelete($gui)
    $sichtbar = False
    EndSwitch
    WEnd

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

    Func _getemail()
    If $sichtbar = False Then
    $ol = _OutlookOpen()
    $mail = _OutlookGetMail($ol, 6, False, "", "", "", "", "", "", True)
    $gui = GUICreate("Neue Email", $guiwidth, 65 * $mail[0][1], -1, -1)
    GUISetBkColor(0xFFFF00)
    If $mail[0][1] > 0 Then
    For $i = 1 To $mail[0][1] Step 1
    If $i = 1 Then
    $top = 8
    Else
    $top = (64 * ($i - 1)) + 8
    EndIf
    $absenderwidth = _textlaenge($mail[$i][0])
    $betreffwidth = _textlaenge($mail[$i][7])

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

    If $absenderwidth > $betreffwidth Then
    $width = $absenderwidth
    Else
    $width = $betreffwidth
    EndIf

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

    If $width > $guiwidth Then
    $guiwidth = $width + 20
    EndIf

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

    WinMove("Neue Email", "", (@DesktopWidth / 2) - ($guiwidth / 2), (@DesktopHeight / 2) - ((65 * $mail[0][1]) / 2), $guiwidth)

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

    GUICtrlCreateLabel($mail[$i][0] & @CRLF & $mail[$i][7], 0, $top, $width, 50)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    Next

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

    GUISetState(@SW_SHOW)
    $sichtbar = True
    EndIf
    _OutlookClose()
    EndIf
    EndFunc ;==>_getemail

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

    Func _textlaenge($text)
    If $text = '' Then Return
    _GDIPlus_Startup()
    Local $hFormat = _GDIPlus_StringFormatCreate(0)
    Local $hFamily = _GDIPlus_FontFamilyCreate("Arial")
    Local $hFont = _GDIPlus_FontCreate($hFamily, 12, 0, 3)
    Local $tLayout = _GDIPlus_RectFCreate(15, 171, 0, 0)
    Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($gui)
    Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $text, $hFont, $tLayout, $hFormat)
    Local $iWidth = Ceiling(DllStructGetData($aInfo[0], "Width"))
    ;Local $iHeight = Ceiling(DllStructGetData($aInfo[0], "Height"))
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Return $iWidth
    EndFunc ;==>_textlaenge

    [/autoit]

  • Laptop Kühler - Welcher ist gut?

    Zitat von AntiSpeed


    Öhhm, wem soll ich den glauben chip oder Raptor-One?
    Also ich denke Raptor-One hat recht, aber kanns ja nicht sagen...

    Ich kann dir genau sagen warum es bei fast keinem Laptop etwas bringt und zwar rein wegen dem Aufbau des Gehäuses. Dadurch kühlst du nicht den Rechner sondern lediglich das Gehäuse von außen. Ist wie wenn an einem normalen Rechner einen Ventilator daneben stellst. Und vor allem kann dadurch passieren, dass die internen Temperatursensoren einen falschen Wert anzeigen, da du nichtmehr die echte Temperatur der z.B. CPU erhältst sondern die verfälschte durch das recht kalte Gehäuse. Das dadurch die „gesamte Systemtemperatur“ weniger wird ist klar, bringt dir aber nichts wenn CPU und GPU bei der gleichen Temperatur bleiben.

    Was heißt eigentlich in letzte Zeit? War am Anfang das Problem nicht und ist erst seit kurzem so?

    Vor allem wird ein Rechner durch Hitze nicht langsamer. Würde eher vermuten, dass dein Arbeitsspeicher defekt ist und nichtmehr voll nutzbar ist. Erklärt dann auch warum er während des Spielens immer langsamer wird weil ein Game nicht direkt den kompletten Arbeitsspeicher beim Starten belegt. Je nach Anforderung des Games kann es dann passieren, dass durch den defekten Ram nicht genug mehr vorhanden ist und alles ausgebremst wird.

  • Wer ist online?

    Wenn schon dabei bist, könntest ja auch noch einbauen, das bei bestimmten Personen wenn sie onlien gehen ein Ton abgespielt wird bzw. die Meldung groß auf dem Bildschirmerschein.

  • Statusbar abfragen

    Hier das ganze mal noch ohne flackernten Tooltip:

    Spoiler anzeigen
    [autoit]

    Opt("WinTitleMatchMode", 2)

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

    Dim $iActualTime = -1, $iAltTime = 11, $hTimer

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

    While 1
    $x = StatusbarGetText("Internet Explorer")
    $treffer = StringInStr($x, "http")
    If $treffer > 0 Then
    If $iActualTime <> 0 Then
    $iActualTime = 10 - Round(TimerDiff($hTimer) / 1000)
    If $iActualTime < $iAltTime Then
    $iAltTime = $iActualTime
    ToolTip($iActualTime)
    EndIf
    If $iActualTime = 0 Then
    MsgBox(0, "Link gespeichert", "Link wurde gespeichert!")
    ToolTip("")
    EndIf
    EndIf
    Else
    ToolTip("")
    $hTimer = TimerInit()
    $iActualTime = -1
    $iAltTime = 11
    EndIf
    WEnd

    [/autoit]

  • Statusbar abfragen

    Willst das so:

    [autoit]

    AutoItSetOption("WinTitleMatchMode", 2)

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

    While 1
    $x = StatusbarGetText("Internet Explorer")
    $treffer = StringInStr($x, "http")
    If $treffer > 0 Then
    MsgBox(4, "Speichern", $x)
    EndIf
    WEnd

    [/autoit]

  • Wer ist online?

    Das ist ja echtmal ein schönes Script :thumbup:

    Kleine Vorschlag noch und zwar die Möglichkeit, dass man nur bei bestimmten Personen informiert wird ob diese online bzw. offline sind.

  • Problem: Rechtevergabe in Win7

    Wie autoBert schon richtig vermutet hat wird ein Hash erzeugt und dieser in der Firewallrichtlinie gespeichert. Würde das nicht passieren, dann könnte man die Datei einfach mit einer beliebigen anderen Datei, mit gleichem Namen, ersetzen und somit wäre die Firewall nutzlos.