|
| Autor |
Nachricht |
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Was gefundenes in Label1 anzeigen?
Verfasst am: 17.03.2008, 17:55 |
|
|
Hi Community.
Also ich Schreibe gerade einen Kleinen Xpliot Seacher.
Man gibt einfach z.B. PHPKIT ein und es sucht auf milw0rm.com/Search.php nach dem Expliot... Alles soweit gut...
Mein Prob ist jetzt wenn was gefunden wurde soll es in Label1 Stehen... Hier die Komplette Source:
| Code: | Option Explicit
Dim bLoaded As Boolean
Private Sub cmdFill_Click()
If txtExpliot.Text = "" Then
MsgBox "Bitte gib ein Suchbegriff ein.", vbInformation, ("Fehler")
Exit Sub
End If
With wbrWebBrowser
.Document.Forms(0).dong.Value = txtExpliot.Text
End With
End Sub
Private Sub cmdSend_Click()
wbrWebBrowser.Document.Forms(0).submit.Click
End Sub
Private Sub Form_Load()
wbrWebBrowser.Navigate "http://milw0rm.com/search.php"
txtExpliot.Text = "PHPKit"
End Sub
Private Sub wbrWebBrowser_StatusTextChange(ByVal Text As String)
bLoaded = True
End Sub
|
####
| Code: | Private Sub cmdSend_Click()
wbrWebBrowser.Document.Forms(0).submit.Click
End Sub |
Hier muss was getan werden.. oder? Kann mir jemand helfen?
MfG
 |
|
| |
|
 |
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 17.03.2008, 18:45 |
|
|
nimm lieber das inet control und lies den src aus
ich hab gerade geschaut und rausgefunden dass du die suche so starten kannst: | Code: | | http://milw0rm.com/search.php?dong=wasdusuchenwillst |
das ist deutlich schneller 
Wie du da dann die sachen rausuchst kann ich dir nicht sagen das geht nicht so einfach 
Aber ich schau mal...
//Edit: Also den src kannst du so auslesen:
| Code: | Dim HTML As String
Inet1.URL = "http://milw0rm.com/search.php?dong=" & txt_search
HTML = Inet1.OpenURL()
DoEvents
txt_src = HTML |
MfG Jolo[/code] |
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 17.03.2008, 20:18 |
|
|
Wie soll er es auslesen wenn was gefunden wurde?
| Code: | Dim HTML As String
Private Sub Command1_Click()
Inet1.URL = "http://milw0rm.com/search.php?dong=" & txt_search
HTML = Inet1.OpenURL()
DoEvents
txt_src = HTML
End Sub
|
MfG
|
|
| |
|
|
seraph1n_
Coder
Anmeldedatum: 06.01.2008
Beiträge: 93
Wohnort: aaaaaaaaa Level: 1337
|
Verfasst am: 17.03.2008, 20:30 |
|
|
Versuchs mal mit instr...
| the_gam3r hat Folgendes geschrieben: | | scheisse stimmt, muss noch besser vb lernen^^ |
| tr4st hat Folgendes geschrieben: | | Du solltest überhaupt mal VB lernen. |
|
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 17.03.2008, 20:36 |
|
|
So kommt immer der Laufzeitfehler 5.. 
|
|
| |
|
|
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 17.03.2008, 21:00 |
|
|
| wie so? du musst und schon den teil vom code geben damit wir sehen was du falsch machst... |
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 17.03.2008, 22:30 |
|
|
Wenn was gefunden wird kommt was total anders..
|
|
| |
|
|
Jolo_
Coder
Anmeldedatum: 20.03.2007
Beiträge: 210
|
Verfasst am: 17.03.2008, 22:59 |
|
|
omg was stellst du dir vor?! 
du musst da natürlich auch noch die ergebnisse rausfiltern... lol...
wie soll den das von allein gehen?! 
wie seraph1n schon sagte probiers mal mit Instr...
MfG Jolo |
|
| |
|
|
Lukas_
Tutorial Leser
Anmeldedatum: 06.10.2007
Beiträge: 51
|
Verfasst am: 17.03.2008, 23:01 |
|
|
| lass dir das ergebnis mal in ner TextBox anzeigen, dann siehst es ja ^^ |
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 17.03.2008, 23:17 |
|
|
Was ist denn InStr?
MFG
|
|
| |
|
|
H4CK4 K1NG0_
Poster
Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
|
Verfasst am: 19.03.2008, 14:51 |
|
|
*Push*
|
|
| |
|
|
tr4st_
« Moderator »
Anmeldedatum: 17.12.2007
Beiträge: 315
Wohnort: Private Class _ Villa()
|
|
| |
|
|
Registrieren
Login
