Visual Basic Forum

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

was muss man schreiben,dass das prog den Quelltext einer Seite nach einem Link, der zb mit "http://beispielseite.de/img.php?" oder so anfängt, dursucht und dann anklickt?
Will nicht extra nen neuen Thread auf machen,wie bekomm ich das Captcha von Funpic in einen webbrowser rein

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Das auslesen der Links ist sehr leicht.
http://www.vbarchiv.net/archiv/tipp_details.php3?pid=428
http://www.vbarchiv.net/archiv/tipp_details.php?pid=1033

Öffnen kannst du sie ja einfach per Webbrowser1.Navigate(Link).
Bei dem Captcha kann ich dir nicht helfen.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Das funzt irgednwie nicht bei,zeigt immer das hier an:

[code]Private Sub Command1_Click()
Dim i As Long
Dim sLink As String

' alle URLs ermitteln und in die ListBox übertragen
List1.Clear
With WebBrowser1.Document.All
For i = 0 To .Tags("A").Length
sLink = Trim$.Tags("A")(i).href
If sLink <> "" And LCase$(Left$(sLink, 7)) <> "mailto:" Then
List1.AddItem sLink
End If
Next i
End With
End Sub[/code]

Bei Trim$ kommt dann "Argument ist nicht opnional"

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Die Zeile muß auch so aussehen:
[code]
sLink = Trim$(.Tags("A")(i).href)
[/code]

Das heißt es fehlen dir zwei Klammern.
Bei dem Tipp haben sie die Klammer vergessen zu schließen.

Ansonsten funktioniert der source sehr gut. Ich nutze den ebenfalls.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Ich sehe zwar das die Urls angezeigt werden aber gleich danach kommt
bei dem Code den du mir gegeben hast "Objektvariable oder Withvariable nicht festgelegt
Geht das auch das eine Url heraus gesucht wird die mit bestimmten Buchstaben anfängt?

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Könntest du das Problem genauer beschreiben?
Siehst du die Links in der Listbox?

Und ja man kann auch nur Links raussuchen, die mit bestimmten Buchstaben anfangen.

z.B. so bei der If Abfrage:
[code]
If sLink <> "" And LCase$(Left$(sLink, 7)) <> "mailto:" Then
if (Mid$(sLink, 1, 1) = "a" then
List1.AddItem sLink
End if
End If
[/code]
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Ja ich sehe die Urls in der Listbox,nur gleich danach kommt diese Fehlermeldung
bei dem Code

[code]sLink = Trim$(.Tags("A")(i).href)[/code]

den du mir gegeben hast "Laufzeitfehler 91 Objektvariable oder Withvariable nicht festgelegt "

Und bei dem Code

[code]If sLink <> "" And LCase$(Left$(sLink, 7)) <> "mailto:" Then
If (Mid$(sLink, 1, 1) = "a" Then
List1.AddItem sLink
End If
End If[/code]

komt Syntax Fehler

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Kannst du dich vielleicht auch selbst bisschen bemühen?
Fehlt nur eine Klammer bei der If Abfrage. Hättest auch selber finden können.

Probiers mal so:
[code]
Private Sub Command1_Click()
On Error Resume Next
Dim i As Long
Dim sLink As String

' alle URLs ermitteln und In die ListBox übertragen
List1.Clear
With WebBrowser1.Document.All
For i = 0 To .Tags("A").Length
sLink = Trim$(.Tags("A")(i).href)
If sLink <> "" And LCase$(Left$(sLink, 7)) <> "mailto:" Then
If (Mid$(sLink, 1, 1)) = "a" Then
List1.AddItem sLink
End If
End If
Next i
End With
End Sub
[/code]
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Meinst du ich hab nicht schon alles probiert?Ich hab jetzt einfach den Code von dir Kopiert und funzt schon wieder net ich bin am verzweifeln...

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Probier nochmal den source. Hab noch was editiert.

Edit//
Hab jetzt mal getestet und er funktioniert bei mir so.

Mir ist aber noch was eingefallen. Die If Abfrage, wo der erste Buchstabe überprüft wird ist Blödsinn, da ja ein Link vorher noch http://www. stehen hat.
Hier ne verbesserte Version:

[code]
If (Mid$(sLink, InStr(1, sLink, ".") +1, 1)) = "a" Then
List1.AddItem sLink
End If
[/code]

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

LOL das gibts doch nicht,jetzt kommt zwar keine Fehlermeldung aber auch keine Urls

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Ist doch auch ganz klar wenn es keine Url's mit dem Anfangsbuchstaben "a" gibt. -.-
Bisschen mitdenken mußt du schon. Du wolltest ja so eine Funktion.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Jo hat habs hinbekommen hat nicht am a gelegen.
Was muss ich ein geben das es die link der Bilder an zeigt
hab schon irgendwie sowas probiert mit statt dem "href" "img src",hin zu schreiben "img src" ist schon bei html der befehl für so Bilder oder?

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Probiers mal nur mit "src".
Hab aber keine Ahnung ob das überhaupt so funktionieren kann.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Hab ich schon probiert oder kann es sein das es länger dauert weil es so viele imgs sind,nicht oder? Gibts sonst noch eine lösung wie er nach dem link vom Funpic Captcha suchen kann ich weis dass er so los geht
http://www.funpic.de/imgcode.php/?mode=confirm&id=
aber er müsste halt die zahlen noch mit suchen hinter dem "=".gibts da noch eine möglichkeit?hab schon alles probiert

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Noe geht nicht, du musst das Captcha aus dem Bild auslesen. Ne andere Option hast du nicht, da das kein Link ist.

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Ja das weis ich ja,ich weis nur nicht wie ich das Captcha in meinen Gen reinbringe das man ihn abtippen kann?Kannst du mir sagen wie?

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

du hast den doch im webbrowser, kannst ja versuchen das bild in eine picbox zu laden.

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Ich weis ja eben nicht wie das geht?

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

meinst du ich? probier halt mal rum.
kannst ja auch googlen so nach, visual basic web browser picture und gucken ob du was findest wo man ein bestimmtes bild aus dem webbrowser teil abspeichern kann oder direkt in eine picbox laden kann.
den link aus dem quelltext auslesen zb und dann seperat runterladen, oder so.
da gibts ja mehrere moeglichkeiten ^^

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Hab schon alles probiert kannst du mir das vl erklären? Question

413X_ · « Moderator » Anmeldedatum: 16.12.2006 Beiträge: 266

Ich weiss es ja selber nicht ^^ Wie gesagt, schau dir die Moeglichkeiten an die ich dir oben gepostet hab. Es gibt sicher noch andere Optionen.

http://www.413x.dl.am

Tod den 1337-Scriptkiddies xD

TheCoder_ · Verfasst am: 07.08.2007, 20:18

Vielleicht hilft dir das hier als kleine Anregung:
http://www.vbarchiv.net/archiv/tipp_746.html
Ich denk das ist ein guter anfang. daraus sollte es dir gelingen alles weitere zu coden. Viel spaß

EDIT:// einfach den Html-Quelltext nehmen (google weiß wie) danach nach ka was du gesagt hast suchen. das was halt typisch is für das bild ich glaub http://www.funpic.de/imgcode.php?mode=confirm&id=
und von da bis zum ende gehen. Das ende ist daran erkennbar das keine zahl mehr kommt. Das was id ist sind nur zahlen. du gehst also von ende http://www.funpic.de/imgcode.php?mode=confirm&id=
bis zum nächsten zeichen das keine id ist. und dann kannst du das anwenden was oben in dem link steht um das in eine Picture/imagebox zu laden. Oder du machst direkt .navigate dahin

MaDetho_ · Tutorial Leser Anmeldedatum: 27.07.2007 Beiträge: 51

also ich habs geschaft das problem ist Internet Explorer zeigt keine Funpic captcha an zb den : http://www.funpic.de/imgcode.php?mode=confirm&id=57195bbe269f2b63b4df519272ceb3a0
also wird das ganz wohl gar nichts bringen ^_^

august_ · Poster Anmeldedatum: 04.08.2007 Beiträge: 181

Hab da irgendwie nigs brauchbares gefunden? Crying or Very sad

Ich wills ja in ne PictureBox oder so was machen

Sry hab davor noch nicht refreshed jetzt is dein Post noch nicht dagestanden^^