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