Speed-It (Firefox Quickstarter)

    Speed-IT

    Mit diesem kleinen Script könnt ihr euch Links in eine Liste hinzufügen, und diese per Klick auf einen Button im Browser öffnen.

    Man mag zwar meinen, das sei unnötig, denn es gibt ja Lesezeichen, aber mit denen komme ich nicht so gut zu Recht. Vielleicht geht es euch ja auch so, probiert es einfach mal aus.

    Update v.0.5:

    • Man kann eigene Links hinzufügen.
    • Man kann Links in neuem Tab öffnen.
    • Man kann seinen eigenen Firefox Pfad angeben.
    • Adressleiste im Firefox wird nicht mehr per MouseClick angewählt, funktioniert also bei jedem. (Getestet mit Firefox 2.0)


    Ladet euch am besten den Anhang runter, da ein kleines Bild mit dabei ist und man für Run Befehl um die 2. GUI zu öffnen, diese als .exe benötigt.


    Speed-It.au3

    Spoiler anzeigen

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=images\icon.ico
    #AutoIt3Wrapper_outfile=speedit.exe
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    #include <GUIListBox.au3>

    HotKeySet("{F9}", "_openfox")


    Dim $addwrote

    $Section = IniReadSection("links.ini", "1A")
    For $i = 1 To UBound($Section)-1
    $addwrote &= "|" & $Section[$i][1]
    Next

    Global $firepfad

    $firelist = IniRead("links.ini", "Settings", "Firefoxpfad", "Vollständiger Firefox Pfad")


    Opt("RunErrorsFatal", 0)
    Opt("GUIOnEventMode", 1)
    Opt("WinTitleMatchMode", 2)
    $Form1_1 = GUICreate("Speed-It", 313, 452, 193, 125)
    $Group1 = GUICtrlCreateGroup("Speed-It - Firefox quickstarter ", 8, 64, 300, 385, -1, $WS_EX_TRANSPARENT)
    $Label1 = GUICtrlCreateLabel("Hotkeys:", 16, 88, 54, 17)
    GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("F9 - Firefox starten.", 16, 112, 150, 17)
    $Button1 = GUICtrlCreateButton("Go! ->", 144, 144, 65, 25, 0)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $addy = GUICtrlCreateList("", 16, 144, 121, 240,$WS_BORDER+$WS_VSCROLL)
    GUICtrlSetData(-1, $addwrote)
    $Label3 = GUICtrlCreateLabel("© Nico Ell, Speed-It | v.0.5.5", 142, 431, 161, 17)
    GUICtrlSetColor(-1, 0x85878C)
    GUICtrlSetTip(-1, "© Nico Ell, Speed-It")
    $Group2 = GUICtrlCreateGroup("Einstellungen", 144, 208, 153, 217)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $tabopen = GUICtrlCreateCheckbox("Link in neuem Tab öffnen", 152, 232, 137, 17)
    $firepfad = GUICtrlCreateInput($firepfad&$firelist, 152, 256, 137, 21)
    $Button3 = GUICtrlCreateButton("Pfad speichern", 152, 280, 137, 17, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button2 = GUICtrlCreateButton("Neuer Link", 144, 176, 65, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetCursor (-1, 3)
    $Pic1 = GUICtrlCreatePic("images\head.gif", 0, 0, 305, 60, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 7)
    GUICtrlSetOnEvent($Button1, "button")
    GUICtrlSetOnEvent($Button2, "button2")
    GUICtrlSetOnEvent($Button3, "button3")
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUISetState(@SW_SHOW)


    While 1
    Sleep(1000)
    WEnd


    Func button3 ()
    IniWrite("links.ini", "Settings", "Firefoxpfad", GUICtrlRead($firepfad))
    EndFunc

    Func button()
    $index = _GUICtrlListBox_GetCurSel($addy)+1
    $address = IniRead("links.ini","1B","url" & $index,"about:blank")
    WinActivate("Mozilla")
    WinWaitActive("Mozilla")
    $tabopencheck = GUICtrlRead($tabopen)
    If $tabopencheck = $GUI_CHECKED Then
    Send("^t")
    Sleep(1500)
    Send("^l")
    Send($address)
    Send("{Enter}")
    ElseIf $tabopencheck = $GUI_UNCHECKED Then
    Send("^l")
    Sleep(10)
    Send($address)
    Send("{Enter}")
    EndIF

    EndFunc


    Func button2 ()
    Run("newlink.exe")
    EndFunc


    Func CLOSEClicked()
    Exit
    EndFunc


    Func _openfox ()
    Run($firelist)
    If @Error = 1 Then
    MsgBox(4096, "Fehler aufgetreten!", "Anscheinend haben Sie einen fehlerhaften Pfad zur firefox.exe angegeben. Stellen Sie sicher, dass ihr Pfad wie folgt aussieht: Bsp.: C:\Programme\Mozilla Firefox\firefox.exe")
    EndIf

    EndFunc

    Newlink.au3

    Spoiler anzeigen

    #include <GUIConstants.au3>


    Opt("GUIOnEventMode", 1)
    Opt("WinTitleMatchMode", 2)
    $Form1 = GUICreate("Neuer Link", 227, 160, 193, 125)
    $newlink = GUICtrlCreateGroup("Neuen Link hinzufügen", 1, 0, 225, 159)
    $linkname = GUICtrlCreateLabel("Linkname:", 8, 24, 62, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $linkname_var = GUICtrlCreateInput("Linkname (Erscheint in der Liste)", 8, 40, 169, 21)
    $linkaddy = GUICtrlCreateLabel("Vollständige Linkadresse (URL):", 8, 72, 186, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $linkaddy_var = GUICtrlCreateInput("http://", 8, 88, 169, 21)
    $button_add = GUICtrlCreateButton("Link hinzufügen", 8, 120, 129, 25, 0)
    $button_exit = GUICtrlCreateButton("Schließen", 144, 120, 73, 25, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUICtrlSetOnEvent($button_exit, "CLOSEClicked")
    GUICtrlSetOnEvent($button_add, "ButtonAdd")


    While 1
    Sleep(1000)
    WEnd

    Func ButtonAdd ()
    $inicheck1 = IniReadSection("links.ini", "1A")
    $iniurlcheck1 = IniReadSection("links.ini", "1B")


    If @error Then

    $linkname_var_read = GUICtrlRead($linkname_var)
    If $linkname_var_read = ("Linkname (Erscheint in der Liste)") Then
    MsgBox(64, "Fehler!", "Bitte geben sie einen Linknamen an!")
    Else
    $linkname_wrote = IniWrite("links.ini", "1A", "link1", $linkname_var_read)
    EndIf
    $linkaddy_var_read = GUICtrlRead($linkaddy_var)
    If $linkaddy_var_read = ("http://") Then
    MsgBox(64, "Fehler!", "Bitte geben sie die vollständige URL an!")
    Else
    $linkaddy_wrote = IniWrite("links.ini", "1B", "url1", $linkaddy_var_read)
    MsgBox("0", "Erfolg!", "Die Addresse wurde erfolgreich angelegt")
    EndIf

    Else

    For $iniurlchecked = 1 To $iniurlcheck1 [0][0]
    Next

    For $inichecked = 1 To $inicheck1 [0][0]
    Next


    $linkname_var_read = GUICtrlRead($linkname_var)
    If $linkname_var_read = ("Linkname (Erscheint in der Liste)") Then
    MsgBox(64, "Fehler!", "Bitte geben sie einen Linknamen an!")
    Else
    $linkname_wrote = IniWrite("links.ini", "1A", "link"&$inichecked, $linkname_var_read)
    EndIf
    $linkaddy_var_read = GUICtrlRead($linkaddy_var)
    If $linkaddy_var_read = ("http://") Then
    MsgBox(64, "Fehler!", "Bitte geben sie die vollständige URL an!")
    Else
    $linkaddy_wrote = IniWrite("links.ini", "1B", "url"&$iniurlchecked, $linkaddy_var_read)
    MsgBox("0", "Erfolg!", "Die Addresse wurde erfolgreich angelegt")
    EndIf
    EndIF

    EndFunc

    Func CLOSEClicked ()
    Exit
    EndFunc

    3 Mal editiert, zuletzt von Wambo (8. Juni 2008 um 16:30)

    Nice ;) Also das Programm funktioniert bei mir aber den Quellcode kann ich nich compilieren :/
    Kommt folgender Fehler:

    Würde mich mal interessieren was das bedeutet.

    Zitat von Darknoop

    Nice ;) Also das Programm funktioniert bei mir aber den Quellcode kann ich nich compilieren :/
    Kommt folgender Fehler:
    ...
    Würde mich mal interessieren was das bedeutet.

    Moin Darknoop,

    Opt("RunErrorsFatal", 0) gibt es nicht mehr -> Zeile löschen.

    #include <GUIConstants.au3> tauschen gegen

    #include-once
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>


    Gruß
    Greenhorn


    Speed It v.0.5.5:
    Bugs:
    - Es wurde ein Fehler behoben, der in manchen Fällen ein fehlerhaftes Anwählen der Addressleiste verursacht hat.

    Gefixte Speed-it.au3

    Spoiler anzeigen


    #include <GUIConstants.au3>
    #include <GUIListBox.au3>

    HotKeySet("{F9}", "_openfox")


    Dim $addwrote

    $Section = IniReadSection("links.ini", "1A")
    For $i = 1 To UBound($Section)-1
    $addwrote &= "|" & $Section[$i][1]
    Next

    Global $firepfad

    $firelist = IniRead("links.ini", "Settings", "Firefoxpfad", "Vollständiger Firefox Pfad")


    Opt("RunErrorsFatal", 0)
    Opt("GUIOnEventMode", 1)
    Opt("WinTitleMatchMode", 2)
    $Form1_1 = GUICreate("Speed-It", 313, 452, 193, 125)
    $Group1 = GUICtrlCreateGroup("Speed-It - Firefox quickstarter ", 8, 64, 300, 385, -1, $WS_EX_TRANSPARENT)
    $Label1 = GUICtrlCreateLabel("Hotkeys:", 16, 88, 54, 17)
    GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel("F9 - Firefox starten.", 16, 112, 150, 17)
    $Button1 = GUICtrlCreateButton("Go! ->", 144, 144, 65, 25, 0)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
    GUICtrlSetCursor (-1, 0)
    $addy = GUICtrlCreateList("", 16, 144, 121, 240,$WS_BORDER+$WS_VSCROLL)
    GUICtrlSetData(-1, $addwrote)
    $Label3 = GUICtrlCreateLabel("© Nico Ell, Speed-It | v.0.5.5", 142, 431, 161, 17)
    GUICtrlSetColor(-1, 0x85878C)
    GUICtrlSetTip(-1, "© Nico Ell, Speed-It")
    $Group2 = GUICtrlCreateGroup("Einstellungen", 144, 208, 153, 217)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    $tabopen = GUICtrlCreateCheckbox("Link in neuem Tab öffnen", 152, 232, 137, 17)
    $firepfad = GUICtrlCreateInput($firepfad&$firelist, 152, 256, 137, 21)
    $Button3 = GUICtrlCreateButton("Pfad speichern", 152, 280, 137, 17, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Button2 = GUICtrlCreateButton("Neuer Link", 144, 176, 65, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "MS Sans Serif")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlSetCursor (-1, 3)
    $Pic1 = GUICtrlCreatePic("images\head.gif", 0, 0, 305, 60, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetCursor (-1, 7)
    GUICtrlSetOnEvent($Button1, "button")
    GUICtrlSetOnEvent($Button2, "button2")
    GUICtrlSetOnEvent($Button3, "button3")
    GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
    GUISetState(@SW_SHOW)


    While 1
    Sleep(1000)
    WEnd


    Func button3 ()
    IniWrite("links.ini", "Settings", "Firefoxpfad", GUICtrlRead($firepfad))
    EndFunc

    Func button()
    $index = _GUICtrlListBox_GetCurSel($addy)+1
    $address = IniRead("links.ini","1B","url" & $index,"about:blank")
    WinActivate("Mozilla")
    WinWaitActive("Mozilla")
    $tabopencheck = GUICtrlRead($tabopen)
    If $tabopencheck = $GUI_CHECKED Then
    Send("^t")
    Sleep(1500)
    Send("^l")
    Send($address)
    Send("{Enter}")
    ElseIf $tabopencheck = $GUI_UNCHECKED Then
    Send("^l")
    Sleep(10)
    Send($address)
    Send("{Enter}")
    EndIF

    EndFunc


    Func button2 ()
    Run("newlink.exe")
    EndFunc


    Func CLOSEClicked()
    Exit
    EndFunc


    Func _openfox ()
    Run($firelist)
    If @Error = 1 Then
    MsgBox(4096, "Fehler aufgetreten!", "Anscheinend haben Sie einen fehlerhaften Pfad zur firefox.exe angegeben. Stellen Sie sicher, dass ihr Pfad wie folgt aussieht: Bsp.: C:\Programme\Mozilla Firefox\firefox.exe")
    EndIf

    EndFunc