![]() |
Anzeige:
|
|
|||||||
| XProfan Alles rund um die Programmiersprache XProfan. |
|
![]() |
|
|
LinkBack | Themen-Optionen | Ansicht |
|
|
#1 (Direktlink) |
|
Gast
Beiträge: n/a
|
Hallo,
ich bin gerade dabei, einen Browser zu programmieren (XProfan 11.2 Free). Der Browser verwendet ein TabControl, um Webseiten per Tabbed-Browsing anzuzeigen. Jetzt möchte ich die HTML-Adressen auslesen, um den Tabs noch Titel zu geben. (Eventuell Codeschnipsel posten?!) Hier der Quellcode (tut mir leid, aber ging nicht anders... Code:
DECLARE HTMLWinHandle%[], In$, SuchAdresse$, VerlaufAuswahl$, AdressBoxHandle%, OKButtonHandle%, TCHandle%, AktTab%, TabAnz%
appendmenubar 101, "<"
appendmenubar 102, ">"
appendmenubar 104, "&Suchen"
appendmenubar 109, "S&tartseite"
appendmenubar 106, "&Verlauf"
appendmenubar 105, "A&ktualisieren"
appendmenubar 108, "&Drucken"
appendmenubar 107, "Verl. &Löschen"
appendmenubar 110, "&Neue Tab"
appendmenubar 111, "Tab S&chließen"
TabAnz% = 1
AktTab% = 1
@Create("Text", %hWnd, "Seite wird geladen...", 0, 40, 10000, 10000)
AdressBoxHandle% = @Create("Edit", %hWnd, "", 0, 0, width(%hWnd) - 40, 20)
OKButtonHandle% = @Create("Button", %hWnd, "OK", (width(%hWnd) - 40), 0, 40, 20)
SetText %hWnd, "Mein Browser"
HTMLWinHandle%[1] = @Create("HTMLWin", %hWnd, "about:blank", 1, 0, 40, width(%hWnd), height(%hWnd) - 40)
@HTMLWin("GoHome", HTMLWinHandle%[AktTab%])
ClearList
TCHandle% = @Create("TabCtrl", %hWnd, "", 0, 20, %WinRight, %WinBottom - 20)
While 0 = 0
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
IF MenuItem(101)
@HTMLWin("GoBack", HTMLWinHandle%[AktTab%])
ELSEIF MenuItem(102)
@HTMLWin("GoForward", HTMLWinHandle%[AktTab%])
ELSEIF MenuItem(104)
SuchAdresse$ = @Input$("Suchbegriff:", "Suchbegriff eingeben", "")
Case SuchAdresse$ <> "": SuchAdresse$ = "http://www.google.de/#hl=de&source=hp&q=" + SuchAdresse$ + "&btnG=Google-Suche&meta=&aq=f&oq=G&fp=62877c11c6a08939"
Case SuchAdresse$ <> "": @HTMLWin("Navigate", HTMLWinHandle%[AktTab%], SuchAdresse$)
Case SuchAdresse$ <> "": AddString SuchAdresse$
ELSEIF MenuItem(105)
@HTMLWin("Refresh", HTMLWinHandle%[AktTab%])
ELSEIF MenuItem(106)
VerlaufAuswahl$ = @ListBox$("Verlauf", 6)
Case VerlaufAuswahl$ <> "": AddString VerlaufAuswahl$
Case VerlaufAuswahl$ <> "": @HTMLWin("Navigate", HTMLWinHandle%[AktTab%], VerlaufAuswahl$)
ELSEIF MenuItem(107)
ClearList
ELSEIF MenuItem(108)
ScreenCopy 0, 40 - width(%hWnd), height(%hWnd) - 40
ELSEIF MenuItem(109)
@HTMLWin("GoHome", HTMLWinHandle%[AktTab%])
ELSEIF (@GetText$(AdressBoxHandle%) <> "") AND @Clicked(OKButtonHandle%)
@HTMLWin("Navigate", HTMLWinHandle%[AktTab%], @GetText$(AdressBoxHandle%))
AddString @GetText$(AdressBoxHandle%)
SetText AdressBoxHandle%, ""
ELSEIF @TabChanged(TCHandle%)
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - 0, 0
AktTab% = @GetActiveTab(TCHandle%) + 1
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
ELSEIF MenuItem(110)
TabAnz% = TabAnz% + 1
@InsertTab(TCHandle%, TabAnz%, "")
HTMLWinHandle%[TabAnz%] = @Create("HTMLWin", %hWnd, "about:blank", 1, 0, 40, 0, 0)
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
ELSEIF MenuItem(111) AND (TabAnz% > 1)
@DestroyWindow(TCHandle%)
@DestroyWindow(HTMLWinHandle%[AktTab%])
TCHandle% = @Create("TabCtrl", %hWnd, "", 0, 20, %WinRight, %WinBottom - 20)
WhileLoop AktTab%, TabAnz% - 1
HTMLWinHandle%[&loop] = HTMLWinHandle%[&loop + 1]
EndWhile
TabAnz% = TabAnz% - 1
WhileLoop 2, TabAnz%
@InsertTab(TCHandle%, 2, "")
EndWhile
AktTab% = @GetActiveTab(TCHandle%) + 1
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
ENDIF
SetText %hWnd, "Mein Browser - Seite wird geladen..."
While @HTMLWin("GetBusy", HTMLWinHandle%[AktTab%])
Sleep 20
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
EndWhile
SetText %hWnd, "Mein Browser"
AktTab% = @GetActiveTab(TCHandle%) + 1
Waitinput
EndWhile
Einfach den Quellcode kopieren und in XProfan einfügen! Wenn jemand eine genauere Beschreibung des Browsers möchte, bitte nachfragen Geändert von Frabbing (19.03.2010 um 16:47 Uhr) Grund: Codetags gesetzt |
|
|
|
|
#2 (Direktlink) |
|
Gast
Beiträge: n/a
|
Ich sehe gerade...
In der Suchen-Funktion hat sich so ein lästiger "kleiner" Fehler versteckt... Nun ja, jetzt isser weg. Tut mir leid, dass ich den Code bei dem letzten Eintrag einfach so eigefügt hab'... Jetzt weiß ich, wie's geht! Code:
DECLARE HTMLWinHandle%[], In$, SuchAdresse$, VerlaufAuswahl$, AdressBoxHandle%, OKButtonHandle%, TCHandle%, AktTab%, TabAnz%
appendmenubar 101, "<"
appendmenubar 102, ">"
appendmenubar 104, "&Suchen"
appendmenubar 109, "S&tartseite"
appendmenubar 106, "&Verlauf"
appendmenubar 105, "A&ktualisieren"
appendmenubar 108, "&Drucken"
appendmenubar 107, "Verl. &Löschen"
appendmenubar 110, "&Neue Tab"
appendmenubar 111, "Tab S&chließen"
TabAnz% = 1
AktTab% = 1
@Create("Text", %hWnd, "Seite wird geladen...", 0, 40, 10000, 10000)
AdressBoxHandle% = @Create("Edit", %hWnd, "", 0, 0, width(%hWnd) - 40, 20)
OKButtonHandle% = @Create("Button", %hWnd, "OK", (width(%hWnd) - 40), 0, 40, 20)
SetText %hWnd, "Mein Browser"
HTMLWinHandle%[1] = @Create("HTMLWin", %hWnd, "about:blank", 1, 0, 40, width(%hWnd), height(%hWnd) - 40)
@HTMLWin("GoHome", HTMLWinHandle%[AktTab%])
ClearList
TCHandle% = @Create("TabCtrl", %hWnd, "", 0, 20, %WinRight, %WinBottom - 20)
While 0 = 0
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
IF MenuItem(101)
@HTMLWin("GoBack", HTMLWinHandle%[AktTab%])
ELSEIF MenuItem(102)
@HTMLWin("GoForward", HTMLWinHandle%[AktTab%])
ELSEIF MenuItem(104)
SuchAdresse$ = @Input$("Suchbegriff:", "Suchbegriff eingeben", "")
Case SuchAdresse$ <> "": SuchAdresse$ = "http://www.google.de/#hl=de&source=hp&q=" + SuchAdresse$ + "&btnG=Google-Suche&meta=&aq=f&oq=G&fp=62877c11c6a08939"
Case SuchAdresse$ <> "": @HTMLWin("Navigate", HTMLWinHandle%[AktTab%], SuchAdresse$)
Case SuchAdresse$ <> "": AddString SuchAdresse$
Case SuchAdresse$ = "": @HTMLWin("Refresh", HTMLWinHandle%[AktTab%])
ELSEIF MenuItem(105)
@HTMLWin("Refresh", HTMLWinHandle%[AktTab%])
ELSEIF MenuItem(106)
VerlaufAuswahl$ = @ListBox$("Verlauf", 6)
Case VerlaufAuswahl$ <> "": AddString VerlaufAuswahl$
Case VerlaufAuswahl$ <> "": @HTMLWin("Navigate", HTMLWinHandle%[AktTab%], VerlaufAuswahl$)
ELSEIF MenuItem(107)
ClearList
ELSEIF MenuItem(108)
ScreenCopy 0, 40 - width(%hWnd), height(%hWnd) - 40
ELSEIF MenuItem(109)
@HTMLWin("GoHome", HTMLWinHandle%[AktTab%])
ELSEIF (@GetText$(AdressBoxHandle%) <> "") AND @Clicked(OKButtonHandle%)
@HTMLWin("Navigate", HTMLWinHandle%[AktTab%], @GetText$(AdressBoxHandle%))
AddString @GetText$(AdressBoxHandle%)
SetText AdressBoxHandle%, ""
ELSEIF @TabChanged(TCHandle%)
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - 0, 0
AktTab% = @GetActiveTab(TCHandle%) + 1
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
ELSEIF MenuItem(110)
TabAnz% = TabAnz% + 1
@InsertTab(TCHandle%, TabAnz%, "")
HTMLWinHandle%[TabAnz%] = @Create("HTMLWin", %hWnd, "about:blank", 1, 0, 40, 0, 0)
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
ELSEIF MenuItem(111) AND (TabAnz% > 1)
@DestroyWindow(TCHandle%)
@DestroyWindow(HTMLWinHandle%[AktTab%])
TCHandle% = @Create("TabCtrl", %hWnd, "", 0, 20, %WinRight, %WinBottom - 20)
WhileLoop AktTab%, TabAnz% - 1
HTMLWinHandle%[&loop] = HTMLWinHandle%[&loop + 1]
EndWhile
TabAnz% = TabAnz% - 1
WhileLoop 2, TabAnz%
@InsertTab(TCHandle%, 2, "")
EndWhile
AktTab% = @GetActiveTab(TCHandle%) + 1
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
ENDIF
SetText %hWnd, "Mein Browser - Seite wird geladen..."
While @HTMLWin("GetBusy", HTMLWinHandle%[AktTab%])
Sleep 20
setwindowpos HTMLWinHandle%[AktTab%] = 0, 40 - width(%hWnd), ((height(%hWnd) - 40))
setwindowpos AdressBoxHandle% = 0, 0 - (width(%hWnd) - 40), 20
setwindowpos OKButtonHandle% = (width(%hWnd) - 40), 0 - 40, 20
setwindowpos TCHandle% = 0, 20 - %WinRight, (%WinBottom - 20)
EndWhile
SetText %hWnd, "Mein Browser"
AktTab% = @GetActiveTab(TCHandle%) + 1
Waitinput
EndWhile
Danke schon mal! |
|
|
|
#3 (Direktlink) |
|
Stammuser
![]() Registriert seit: 08.02.2009
Ort: Bielefeld
Alter: 53
Beiträge: 428
|
In Zeile 52 einfügen !
Code:
settext TCHandle%,GetActiveTab(TCHandle%),@GetText$(AdressBoxHandle%)
__________________
Gruss Andreas ______________________ http://www.ampsoft.eu Profan 3.3 - XProfanX2 Windows 95,98,ME,2000,XP Vista - Windows 7 32 / 64 Bit ASUS X93S - Intel Core I7 - NVIDIA GForce GT540M - 8GB Arbeitsspeicher |
|
|
|
|
|
#4 (Direktlink) | |
|
Super-Moderator
![]() Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Zitat:
Hab die Codetags in deinem ersten Posting auch gesetzt. Ah, Lösung scheint ja schon vorhanden zu sein.
__________________
Gruß, Frank ![]() Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
|
|
#5 (Direktlink) |
|
Gast
Beiträge: n/a
|
@Andreas Miethe
Nein, so habe ich das nicht gemeint, mit deiner Lösung bekomme ich ja nur das, was man in das Eingabefeld eingibt, aber wenn man auf einen Link klick ist die Adresse wieder anders und ich weiß sie nicht Deshalb muss ich ja auch das HTMLWin auslesen. |
|
|
|
|
#6 (Direktlink) |
|
Gast
Beiträge: n/a
|
Geht wahrscheinlich mit BeforeNavigate2.
Hier mal nen VB Script: Private Sub ie_BeforeNavigate2(ByVal pDisp As Object, URL, Flags, TargetFrameName, _ PostData, _ Headers, _ Cancel As Boolean) With Text1 .Text = .Text & "Url: " & URL & vbCrLf .Text = .Text & "Flags: " & Flags & vbCrLf .Text = .Text & "TFN: " & TargetFrameName & vbCrLf .Text = .Text & "PD: " & StrConv(PostData, vbUnicode) & vbCrLf .Text = .Text & "Headers: " & Headers End With End Sub Vielleicht hilfts weiter. |
|
|
|
#7 (Direktlink) |
|
Gast
Beiträge: n/a
|
Woll'n wir doch mal gucken!
![]() Falls jemand noch andere Lösungen hat, nur her damit, so ganz schlau bin ich daraus jetzt auch nicht geworden, ist aber schon mal ein Anfang! |
|
|
|
#8 (Direktlink) |
|
Gast
Beiträge: n/a
|
@Unregistriert
Irgendwie werd' ich daraus einfach nich schlau... Könntest du das mal Vielleicht in XProfan übersetzten?! oder mal erklären?! Danke schon mal! |
|
|
|
#9 (Direktlink) |
|
Super-Moderator
![]() Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Ich glaube, das kannst du so nicht verwenden. Ist wohl ein VB Event.
Ansonsten sind die Sachen aus dem VB-Sektor oft sehr hilfreich. ![]() Gibt da eine Menge Beispiele, die recht leicht nach XProfan umzusetzen sind. Aber solche eingebauten Sachen eben wohl eher nicht.
__________________
Gruß, Frank ![]() Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
|
#10 (Direktlink) |
|
Gast
Beiträge: n/a
|
Schade...
Der Browser ist aber so auch schon gut genug Nochmal danke für die Hilfe! |
|
|
|
|
#11 (Direktlink) |
|
Gast
Beiträge: n/a
|
Die Url.dll oder Urlmon.dll dürfte gehen
Ich müsste nur die entsprechende Funktion und die Parameter wissen, dann könnte ich das selbst machen. Die DLL befindet sich (zumindest in Win-7) in C:\Windows\System32. |
|
|
|
#12 (Direktlink) |
|
Super-Moderator
![]() Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Mit der Dll hab ich noch nichts gemacht. Um welche Funktion(en) würde es denn gehen?
__________________
Gruß, Frank ![]() Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
|
#13 (Direktlink) |
|
Gast
Beiträge: n/a
|
Das weiß ich auch nicht so recht, es würden einige in Frage kommen. Die Namen sagen mir nicht viel und eine Beschreibung der DLL hab' ich auch nicht gefunden...
Ist ziemlich verzwickt Sowas hat bestimmt noch keiner mit XProfan probiert... |
|
|
|
#14 (Direktlink) |
|
Super-Moderator
![]() Registriert seit: 05.02.2009
Ort: Westliches NRW
Alter: 44
Beiträge: 5.094
|
Vielleicht hilft dir das weiter? vb@rchiv · Tipps & Tricks · Alle momentan besuchten URL´s auslesen
__________________
Gruß, Frank ![]() Webpage http://frabbing.bplaced.net mit Freeware - Tools, Spiele und Grafiken. |
|
|
|
|
|
#15 (Direktlink) |
|
Gast
Beiträge: n/a
|
Nee, da wird das Adress-Edit-Feld des IEs (oder anderen Browsern) ausgelesen...
Ich hab ja nur ein HTMLWin und das Edit-Feld für die Adresse ist ja dann leider leer, bis man was eingibt. Ich möchte ja genau dieses Feld füllen Tja... (Schön, dass du so schnell gepostet hast |
|
|
![]() |
|
| Lesezeichen |
| Themen-Optionen | |
| Ansicht | |
|
|
Ähnliche Themen
|
||||
| Thema | Autor | Forum | Antworten | Letzter Beitrag |
| Mac-Adresse auslesen | SamuDeluxe | PHP/MySQL | 3 | 27.07.2006 17:30 |
| datei auslesen | zoro | Sonstige Programmiersprachen | 5 | 03.04.2006 17:07 |
| IP Auslesen! | WuestenFuX | Netzwerke | 7 | 13.12.2005 13:38 |
| MAC-Adresse eines PC in Delphi auslesen | Jordan | Sonstige Programmiersprachen | 2 | 26.11.2005 19:34 |
| MAC-Adresse in Delphi auslesen | Jordan | C/C++, Visual C++, Visual C++.NET | 1 | 10.10.2005 14:48 |