Beiträge von Sen

  • HastyBar - 1.2 - Neuer Version [Freitag, 11.September 2009]

    So, da Hasty Notes fast komplett fertig ist
    und ich im Moment nicht viel zutun habe hier mein Neben-Projekt.

    Entstanden aus viel langeweile und der Faulheit jedes mal erst Google
    etc selbst zu öffnen.

    Update:
    Über die Settings.ini lässt sich jetzt die Hintergrundfarbe der Leiste ändern
    so das jeder seinen eigenen "Stil" einbauen kann. Auch einstellungen wie Position der Taskbar
    werden hier eingetragen. Unter "Funktionen" ist jetzt auch eine kleine Erklärung.

    Bei Fehlern oder Bugs bitte hier melden ;)

    Funktionen


    Befehle:
    - !google - !google Beispiel - Googlet einen Begriff
    - !icq - !icq IcqNr - Ruft ICQ Profile auf
    - !svz - !svz ID - Ruft Svz Profile auf
    - !lmgtfy - !lmgtfy Test - Startet Lmgtfy mit Text
    - !spin - !spin Username - Öffnet ein Spin Profil
    - !spieletipps - !spieletipps SpielName - Durchsucht Spieletipps nach dem Spiel
    - !twitter - !twitter Username - Ruft ein Twitter Profil auf
    - !dA - !dA Suchbegriff - Durchsucht DeviantArt
    - !ping - !ping Seite - Pingt eine Seite an
    - !gbo - !gbo zitatnr - Öffnet ein GBO Zitat
    - !dict - !dict Suchbegriff - Sucht eine Übersetzung zum Wort
    - !sysinfo - Ruft System Infos auf


    Buttons:
    - Lauter/Leiser
    - Transparents ändern
    - Eigene Dokumente
    - Favoriten
    - Arbeitsplatz
    - Browser (Standart)
    - Schließen

    Kleine Erklärung:
    [Blockierte Grafik: http://g29.img-up.net/Erklrungspv28.png]

    HastyBar

    Einmal der Source Code (der noch deutlich verbesserungswürdig ist.)

    Spoiler anzeigen
    [autoit]


    ;---------------------------------------------------------------------------—
    ; HastyBar
    ; By Sen // Christopher Klay
    ;---------------------------------------------------------------------------—
    ; Version - V 1.2
    ;---------------------------------------------------------------------------—
    ; Beschreibung:
    ; Extra Toolbar
    ;---------------------------------------------------------------------------—-
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <INet.au3>
    #include <StaticConstants.au3>
    #NoTrayIcon

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

    Opt("TrayAutoPause", 0)

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

    $BackgroundFarbe = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "HintergrundFarbe", "FFFFFF")
    $TaskbarPos = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "Taskbar(1-Unten/2-Seite(links)/3-Seite(rechts)/4-Oben)", "1")
    $TransScal = IniRead(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "1")
    $TaskbarHohe = _Taskbar("Hoch")
    $TaskbarBreite = _Taskbar("Breit")
    $Style = "0x96000000"
    $ExStyle = "0x00000088"
    $Zeit = @HOUR & ":" & @MIN & ":" & @SEC

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

    #Region GUI
    If $TaskbarPos = 1 Then
    $MainForm = GUICreate("", @DesktopWidth, 30, -1, @DesktopHeight - $TaskbarHohe - 30, $Style, $ExStyle)
    $GUIBreite = @DesktopWidth
    ElseIf $TaskbarPos = 2 Then
    $MainForm = GUICreate("", @DesktopWidth - $TaskbarBreite, 30, $TaskbarBreite, @DesktopHeight - 30, $Style, $ExStyle)
    $GUIBreite = @DesktopWidth - $TaskbarBreite
    ElseIf $TaskbarPos = 3 Then
    $MainForm = GUICreate("", @DesktopWidth - $TaskbarBreite, 30, 0, @DesktopHeight - 30, $Style, $ExStyle)
    $GUIBreite = @DesktopWidth - $TaskbarBreite
    ElseIf $TaskbarPos = 4 Then
    $MainForm = GUICreate("", @DesktopWidth, 30, -1, @DesktopHeight - 30, $Style, $ExStyle)
    $GUIBreite = @DesktopWidth
    EndIf
    $PicTop = GUICtrlCreatePic("Images/BarTop.bmp", 0, 0, $GUIBreite, 5)
    $ExitButton = GUICtrlCreatePic("Images/Exit.bmp", $GUIBreite - 25, 5, 20, 20)
    $BrowserButton = GUICtrlCreatePic("Images/Browser.bmp", $GUIBreite - 45, 5, 20, 20)
    $WorkingButton = GUICtrlCreatePic("Images/Working.bmp", $GUIBreite - 65, 5, 20, 20)
    $FavoritesButton = GUICtrlCreatePic("Images/Favorites.bmp", $GUIBreite - 85, 5, 20, 20)
    $DokumenteButton = GUICtrlCreatePic("Images/Dokumente.bmp", $GUIBreite - 105, 5, 20, 20)
    $TransButton = GUICtrlCreatePic("Images/Trans.bmp", $GUIBreite - 125, 5, 20, 20)
    $VolUpButton = GUICtrlCreatePic("Images/VolUp.bmp", $GUIBreite - 145, 5, 20, 20)
    $VolDownButton = GUICtrlCreatePic("Images/VolDown.bmp", $GUIBreite - 165, 5, 20, 20)
    $Uhrzeit = GUICtrlCreateLabel($Zeit, $GUIBreite - 225, 5, 55, 20, $SS_CENTER)
    $Input = GUICtrlCreateInput("", 5, 5, $GUIBreite - 235, 20)

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

    GUISetBkColor($BackgroundFarbe, $MainForm)
    GUICtrlSetBkColor($Uhrzeit, 0xFFFFFF)

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

    If $TransScal = 1 Then
    WinSetTrans($MainForm, "", "255")
    ElseIf $TransScal = 2 Then
    WinSetTrans($MainForm, "", "204")
    ElseIf $TransScal = 3 Then
    WinSetTrans($MainForm, "", "127")
    EndIf

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

    GUISetState(@SW_SHOW, $MainForm)
    #EndRegion GUI

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

    While 1
    $Zeit = @HOUR & ":" & @MIN & ":" & @SEC
    GUICtrlSetData($Uhrzeit, $Zeit)

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

    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $ExitButton
    Exit
    Case $VolDownButton
    Send("{VOLUME_DOWN}")
    Send("{VOLUME_DOWN}")
    Send("{VOLUME_DOWN}")
    Case $VolUpButton
    Send("{VOLUME_UP}")
    Send("{VOLUME_UP}")
    Send("{VOLUME_UP}")
    Case $WorkingButton
    ShellExecute("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
    Case $FavoritesButton
    ShellExecute(@FavoritesDir)
    Case $DokumenteButton
    ShellExecute(@MyDocumentsDir)
    Case $BrowserButton
    ShellExecute("http://")
    Case $TransButton
    If $TransScal = "1" Then
    WinSetTrans($MainForm, "", "204")
    $TransScal = "2"
    IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "2")
    ElseIf $TransScal = "2" Then
    WinSetTrans($MainForm, "", "127")
    $TransScal = "3"
    IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "3")
    ElseIf $TransScal = "3" Then
    WinSetTrans($MainForm, "", "255")
    $TransScal = "1"
    IniWrite(@ScriptDir & "/Settings.ini", "HastyBar", "Transparenz(1-100%/2-80%/3-50%)", "1")
    EndIf
    Case $Input
    CheckFunktionInput()
    EndSwitch

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

    Sleep(50)
    WEnd

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

    Func CheckFunktionInput()
    $InputText = GUICtrlRead($Input)

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

    If StringLeft($InputText, 7) = "!google" Then
    $InputText = StringReplace($InputText, "!google ", "http://www.google.de/search?q=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!icq" Then
    $InputText = StringReplace($InputText, "!icq ", "http://people.icq.com/people/about_me.php?uin=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!svz" Then
    $InputText = StringReplace($InputText, "!svz ", "http://www.schuelervz.net/Profile/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!gbo" Then
    $InputText = StringReplace($InputText, "!gbo ", "http://german-bash.org/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 4) = "!dict" Then
    $InputText = StringReplace($InputText, "!dict ", "http://www.dict.cc/?s=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 7) = "!lmgtfy" Then
    $InputText = StringReplace($InputText, "!lmgtfy ", "http://lmgtfy.com/?q=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 5) = "!spin" Then
    $InputText = StringReplace($InputText, "!spin ", "http://www.spin.de/hp/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 12) = "!spieletipps" Then
    $InputText = StringReplace($InputText, "!spieletipps ", "http://www.spieletipps.de/cheats/search_v2.php?keyword=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 8) = "!twitter" Then
    $InputText = StringReplace($InputText, "!twitter ", "http://twitter.com/")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 3) = "!dA" Then
    $InputText = StringReplace($InputText, "!dA ", "http://browse.deviantart.com/#order=9&q=")
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 5) = "!ping" Then
    $InputText = StringReplace($InputText, "!ping", "")
    $Ping = Ping($InputText)
    If $Ping = "0" Then $Ping = "Error"
    MsgBox(0, "", "Ping von " & $InputText & " = " & $Ping)
    ElseIf StringLeft($InputText, 8) = "!sysinfo" Then
    MsgBox(4096, "HastyBar - SysInfo", "Betreibssystem: " & @OSType & @CRLF & "OS-Build: " & @OSBuild & @CRLF & "Service Pack: " & @OSServicePack & @CRLF & "Computer Name: " & @ComputerName & @CRLF & "Username: " & @UserName & @CRLF & @CRLF & @CRLF & "IP-Adresse(1): " & @IPAddress1 & @CRLF & "IP-Adresse(2): " & @IPAddress2 & @CRLF & "IP-Adresse(3): " & @IPAddress3 & @CRLF & "IP-Adresse(4): " & @IPAddress4)
    ElseIf StringLeft($InputText, 4) = "www." Then
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 7) = "http://" Then
    ShellExecute($InputText)
    ElseIf StringLeft($InputText, 8) = "https://" Then
    ShellExecute($InputText)
    EndIf

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

    GUICtrlSetData($Input, "")
    EndFunc ;==>CheckFunktionInput

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

    Func _Taskbar($Art)
    Local $value = Opt("WinTitleMatchMode", 4)
    Local $Pos = WinGetPos("classname=Shell_TrayWnd")
    Opt("WinTitleMatchMode", $value)
    If $Art = "Hoch" Then
    Return $Pos[3]
    ElseIf $Art = "Breit" Then
    Return $Pos[2]
    EndIf

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

    EndFunc ;==>_Taskbar

    [/autoit]

    Und das ganze als Zip mit Images und Settings.ini:
    Download: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Monitor Überwachen

    Ich würde eher eine Art "Miniatur Board" machen.

    1. Auf den Pc's jeweils Scripte laden die alle x sec einen Screen
    machen und diese an einen Server senden oder halt über Lan etc.

    2. Auf dem Hauptrechner eine GUI die immer die aktuellen Screens
    verkleinert darstellt. Und z.b. mit farbigen "Overlays" darstellen
    ob sich etwas verändert hat. Geht wie oben gesagt über Pixelsearchsum.

  • Seltsamer Fehler aka Sen = Blind.

    Mein Kopf qualmt schon.. ich hab keine
    Ahnung wo in folgendem Script der Fehler ist:

    [autoit]


    #include <IE.au3>
    #include <Timers.au3>

    Local $log = @UserName & "log.html"
    $Inhalt = FileRead($log)

    While 1
    $Timer = TimerInit()

    If TimerDiff($Timer) > "30000" Then
    MsgBox(0, "", $Timer)
    $oIE = _IECreate('http://sen.pytalhost.de/Ghost/index.php', "", "0")
    $oForm = _IEFormGetCollection($oIE, 0)
    $oTextarea = _IEFormElementGetObjByName($oForm, "notiz")
    _IEFormElementSetValue($oTextarea, $Inhalt)
    _IEFormSubmit($oForm)
    _IEQuit($oIE)
    $Timer = _Timer_Init()
    Exit
    EndIf
    WEnd

    [/autoit]

    Bevor die Frage kommt "Wofür brauch man sowas?"
    Ich habe vor ein Tool zu schreiben das ich auf meinem 2ten Pc laufen lassen
    kann welches immer die aktuellen Prozesse anzeigt etc.

    So brauch ich nicht immer zwischen den Pc's hin&her laufen :D

  • Pixel Farbtoleranz?

    Nichts gegen dich Pee,
    aber es gibt hier so einige User die meinen sämtliche Menschen die
    PixelSearch und MouseMove/Click sind Botter.

    Threads flamen bei dennen es OFFENSICHTLICH um Botter geht,
    ist völlig in Ordnung.

    Threads flamen bei dennen jemand Pixelsearch sagt,
    ist Kindergarten.

    Soviel wollte ich nur sagen.
    Hat nichmal was mit dir zutun Pee :P

    Und sagen wollte ich eigentlich nur, das man botten nicht verhindern kann.

  • Pixel Farbtoleranz?

    Ich seh jetzt schon kommen,
    das gleich irgendein Depp den Thread schließt,
    weil ja alle Menschen die bei Google "Pixelsearch" eingeben böse Botter sind.


    PS:
    Kleine Anmerkung, ein Kumpel von mir hat auch einen Aim Bot gebastelt,
    der bei fast jedem Spiel funktioniert. Und das mit Hilfe der Shoutbox,
    soviel zu eurem "Super Anti-Botter" System.

  • Mini Au3Info

    Is doch gut geworden ^^

    Achja kleine Anmerkung zu deiner Sig
    "der Autoit taskmanager mit zusammenarbeit von raupi und ghostwitch"

    es heißt

    "der Autoit taskmanager in zusammenarbeit mit raupi und ghostwitch"

    =P

  • SuperMario Grafiken

    Okay, die Figuren sind schwer.
    Selbst für einen Pixel Artist weil sie extrem blured sind und die
    Auflösung zu klein ist. Ich setzt mich aber nachher nochmal ran und
    sprite die neu, sollte ich hinbekommen.

    Zum rest hab ich dir mal was angefügt das dir vlt hilfreich ist.
    Credits fürs Tileset gehen an WaveStorm vom RpgXp Board,
    kannst das Set aber frei benutzen.

    Anhang: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Menü Probleme

    Gut, das hat mir schon mal deutlich weitergeholfen,
    einziges Problem noch:

    Wie kann ich die Cords abfragen,
    die Maus mit MouseMove oder Fokus auf einen Button setzen..
    so das aber die Cords von den anderen Buttons weiter aktualisiert werden?

    $PosButton1 = xx (je nachdem wie ich sie später abfrage)
    $PosButton2 = xx (je nachdem wie ich sie später abfrage)
    $PosButton3 = xx (je nachdem wie ich sie später abfrage)

    Is ja einfach.
    Problem wäre halt das man zwischen ihnen "schalten" kann.
    Das ich z.b. mit der Maus automatisch bei Scriptstart über Button1 bin,
    und wenn ich auf die linke Pfeiltaste drücke die Maus auf den nächsten Button springt
    der weiter links ist (etc) o.o

  • Menü Probleme

    Die roten Punkte sind später kleine Buttons mit Bild die als "Menü" dienen sollen.
    Nur bewegen diese sich frei in der GUI.

    Ich brauch also praktisch eine Funktion die,
    die Positionen der Buttons abfragt und die Möglichkeit bietet mit
    z.b. den Pfeiltasten die Mausposition zwischen ihnen zu wechseln.

    Ich hoffe ich habs gut genug erklärt xD

  • Menü Probleme

    Ein Freund arbeitet an einem kleinen "Menü" für sein Spiel.
    Jetzt hat er das Problem das er 4 Menü Punte hat (Bilder) die sich frei durch das Fenster
    bewegen und er mit Tasten zwischen diesen wechseln will.

    [Blockierte Grafik: http://j19.img-up.net/CoRAmriq0iE.png]

    Das Problem ist nicht die Position der Bilder raus zu bekommen,
    sondern die Funktion mit der man zwischen ihnen wechseln kann.

    Jemand eine Idee wie sich das umsetzen lassen könnte?

    (Die weißen Linien die man nur schwer sieht, sind später "Leinen"
    die dafür da sind die Menüpunkte zu verbinden. Nicht wundern xD)

  • Problem mit "Lag" über IE-Read

    Ich hab bei folgendem Script das Problem,
    das ohne die Zeile

    [autoit]

    _IEAction($Browser, "refresh")

    [/autoit]


    stürtzt das Script nach einiger Zeit ab.
    Mit dieser Zeile "lagt" die Aktualisierung der Tooltip Position aber.

    Jemand eine Idee dies zu umgehen?

    [autoit]


    ;---------------------------------------------------------------------------—
    ; Tooltipp Shputbox
    ; By Sen // Christopher Klay
    ;---------------------------------------------------------------------------—
    ; Version - V 1.0
    ;---------------------------------------------------------------------------—
    ; Beschreibung:
    ; Zeigt immer den aktuellsten Shoutbox Eintrag an.
    ;---------------------------------------------------------------------------—-
    ; "Best Help ever" @ http://www.autoit.de
    ; Großes Danke an Lenny!
    ;---------------------------------------------------------------------------—-
    #include <IE.au3>
    #include <WinAPI.au3>

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

    $Browser = _IECreate("http://www.autoit.de/index.php?page=ShoutboxContent", 0, 0)

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

    While 1
    _IEAction($Browser, "refresh")
    $ReadBody = _IEBodyReadText($Browser)
    $LastPost = StringSplit($ReadBody, @CRLF, 1)

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

    $MousePos = MouseGetPos()
    ToolTip($LastPost[1], $MousePos[0] + 10, $MousePos[1] + 15)
    Sleep(50)
    WEnd

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

    _IEQuit($Browser)

    [/autoit]