AutoIt - Browser + Extras

[.Moskito]

püüüüüssh :>

[MrSm!th]

wenn niemand antwortet, dann lass es doch gut sein, es wird schon nicht in den tiefen des forums versinken.

[lolkop]

Originally Posted by .Moskito

In diesem TuT zeige ich euch, wie ihr
euch ganz leicht einen Internet-Browser Scriptet

das ganze sollte vielleicht eher umformuliert werden zu wie man eine eigene oberfläche für den internetexplorer erstellt...

sry aber das musste jetzt mal sein :P

naja aber mal zum script an sich...
verstehe nicht so ganz warum du sachen wie:

$GUI_radio_google = GUICtrlCreateRadio("Google", 1056, 72, 113, 17) 
GUICtrlSetFont(-1, 10, 400, 0, "@Arial Unicode MS") 
$GUI_radio_youtube = GUICtrlCreateRadio("YouTube", 1056, 96, 113, 17) 
GUICtrlSetFont(-1, 10, 400, 0, "@Arial Unicode MS") 
$GUI_radio_amazon = GUICtrlCreateRadio("Amazon", 1056, 120, 113, 17) 
GUICtrlSetFont(-1, 10, 400, 0, "@Arial Unicode MS") 
$GUI_radio_wikipedia = GUICtrlCreateRadio("Wikipedia", 1056, 144, 113, 17) 
GUICtrlSetFont(-1, 10, 400, 0, "@Arial Unicode MS") 
$GUI_radio_ebay = GUICtrlCreateRadio("Ebay", 1056, 168, 113, 17) 
GUICtrlSetFont(-1, 10, 400, 0, "@Arial Unicode MS") 
$GUI_radio_yahoo = GUICtrlCreateRadio("Yahoo", 1056, 192, 113, 17) 
GUICtrlSetFont(-1, 10, 400, 0, "@Arial Unicode MS") 
$GUI_radio_forestle = GUICtrlCreateRadio("Forestle", 1056, 216, 113, 17) 
GUICtrlSetFont(-1, 10, 400, 0, "@Arial Unicode MS")

nicht in einer schleife realisierst.
auch das event handling wäre bei weitem einfacher, wenn du das mit einer schleife abarbeiten würdest.

[sava]

Hi und Hallo

erstmal sehr Nett gemacht

Hast du bereits eine Lösung gefunden sodass die größen auch im Vollbild funktionieren?

Ich habe bereits ein paar Bugs entfernt und eine bessere Lesezeichen funktion eingebaut werde die mal in nächster Zeit hochladen vielleicht gefällt dir das ja =)

Bis dann

[.Moskito]

@lolkop,
klar ginge es, ich finde jedoch so ist es viel leichter zu verstehen für Neulinge..

Originally Posted by sava

Hi und Hallo

erstmal sehr Nett gemacht

Hast du bereits eine Lösung gefunden sodass die größen auch im Vollbild funktionieren?

Ich habe bereits ein paar Bugs entfernt und eine bessere Lesezeichen funktion eingebaut werde die mal in nächster Zeit hochladen vielleicht gefällt dir das ja =)

Bis dann

Immer her damit

[sava]

Heyho,

war etwas beschäftigt mit anderem Zeugs

Das wäre eigentlich so en einfaches auslesen aus ner Ini Datei, die beinhaltet halt die Anzahl der Favoriten, Namen und Link zu jedem.
Jedoch legt das hier auch MenuItems an.

$favs_anzahl = IniRead("data/favs.ini", "fav_anzahl", "anzahl", "0")

Dim $FavNameArray[$favs_anzahl]
Dim $FavGUILink[$favs_anzahl]

For $i = 1 to $favs_anzahl
	$FavNameArray[$i-1] = IniRead("data/favs.ini", "fav_name", $i, "ERROR")
	$FavGUILink[$i-1]	= IniRead("data/favs.ini", "fav_link", $i, "ERROR")
Next
	For $z = 1 to $favs_anzahl
		$FavNameArray[$z-1] = GUICtrlCreateMenuItem($FavNameArray[$z-1], $GUI_menu_lesezeichen)		
		GUICtrlSetOnEvent($FavNameArray[$z-1], "favoriten_button")
	Next

Das wäre die fav.ini

[fav_name]
1=Google
2=Googlemail
3=Facebook
4=Wer-Kennt-Wen
[fav_link]
1=http://www.google.de
2=http://www.googlemail.com
3=http://www.facebook.com
4=http://www.wer-kennt-wen.de
[fav_anzahl]
anzahl=4

//EDIT

Hab vergessen zu sagen wie man des aufruft

Ich mache das mit GUISetOnEvent

Func favoriten_button()
	_IENavigate($oIE[$iAktiverTab], $FavGUILink[@GUI_CtrlId - 35])
EndFunc

Dass man auch Favoriten per Button einfügen kann, mache ich bald, hab mirs grad etwas zerschossen

Mfg

[lolkop]

und warum baust du die ini nicht so auf?

[favorites]
Google=http://www.google.de
Googlemail=http://www.googlemail.com
Facebook=http://www.facebook.com
Wer-Kennt-Wen=http://www.wer-kennt-wen.de

wäre doch wohl deutlich einfacher...

[sava]

Originally Posted by lolkop

und warum baust du die ini nicht so auf?

[favorites]
Google=http://www.google.de
Googlemail=http://www.googlemail.com
Facebook=http://www.facebook.com
Wer-Kennt-Wen=http://www.wer-kennt-wen.de

wäre doch wohl deutlich einfacher...

Wenn du meinst du bekommst das so hin, dann zeig uns das doch bitte mal sow

[lolkop]

Originally Posted by sava

Wenn du meinst du bekommst das so hin, dann zeig uns das doch bitte mal sow

hä?
einfach in der ini so speichern (meinetwegn auch toolintern per button) und per IniReadSection('filename','favorites') das ganze in ein array lesen, und im gui darstellen.

Edit:
vielleicht noch ein kleiner tip an den thread ersteller.

da du ja wie schon angesprochen über die relative anordnung deiner elemente im gui gedacht hast, hier mal ein kleines beispiel (an einem deiner codeschnippsel gezeigt)

#include <IE.au3>
Dim $old_adress
$ie_fenster = _IECreateEmbedded()

$gui = GUICreate("Browser", 600, 480, -1, -1, 0x12470000)
$pos = WinGetPos($gui)
$ie = GUICtrlCreateobj($ie_fenster, 0, 40, $pos[2]-16, $pos[3]-77)
$adress = GUICtrlCreateInput('', 8, 8, $pos[2]-107, 21)
$search = GUICtrlCreateButton("Suchen", $pos[2]-99, 6, 75, 25)

_IENavigate($ie_fenster,"http://www.google.de")

While 1
	Switch GUIGetMsg()
		Case -3
			Exit
		Case -12, -8, -7, -6, -5
			$pos = WinGetPos($gui)
			GUICtrlSetPos($ie, 0, 40, $pos[2]-16, $pos[3]-77)
			GUICtrlSetPos($adress, 8, 8, $pos[2]-107, 21)
			GUICtrlSetPos($search, $pos[2]-99, 6, 75, 25)
		Case $search, $adress
			_IENavigate($ie_fenster, GUICtrlRead($adress))
		Case Else
			$current_adress = _IEPropertyGet($ie_fenster, "locationurl")
			If $current_adress<>$old_adress Then
				GUICtrlSetData($adress, $current_adress)
				$old_adress = $current_adress
			EndIf
	EndSwitch
WEnd

habe mal gleich noch mit eingebaut, dass in der adressleiste wirklich immer die aktuelle url steht. finde das ist auch ein absolutes must have in einem browser.

[BlueSkyler]

Wegen sehr vieler Arbeit haste dir ein Thanks verdient.
Aber dann mach es doch lieber mit VB geht viel schneller und viiiieeel leichter.

[Pukamon]

Nice TuT, werds gleich mal ausprobieren.

Thanks haste dir verdient

[.EzEL™]

Danke für deine TuT, also echt.

[.Moskito]

Originally Posted by BlueSkyler

Wegen sehr vieler Arbeit haste dir ein Thanks verdient.
Aber dann mach es doch lieber mit VB geht viel schneller und viiiieeel leichter.

Gut, dass ich keine Ahnung von vb hab

[1337Standard]

sehr gute arbeit,wie immer (y)

[.Moskito]

#up