|
| Autor |
Nachricht |
Epiphone_
Newbie
Anmeldedatum: 13.02.2008
Beiträge: 10
|
Problem mit Formular Ausfüllen und Co.
Verfasst am: 15.03.2008, 21:40 |
|
|
Hi, also ich habe ein Problem, und zwar:
Ich möchte ein programm schreiben das wo in einem label ein teil von einer Homepage angezeigt wird (shoutbox) und wo man dann in eine txtbox die message eingeben kann und wenn man auf send klickt dann der text gesendet wird!
Bin noch bisschen ein Anfänger! plz help me! |
|
| |
|
 |
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 15.03.2008, 22:02 |
|
|
Zuerst platzierst du ein Webbrowser Objekt auf deiner Form. Dann öffnest du deine Seite und öffnest mit einem Rechtsklick das Firefox Kontextmenü. Du wählst Seiteninformatioenen anzeigen und öffnest den Tab Formulare. Unten kannst du nun die Feldnamen ablesen. Die, die du benötigst, merkst du dir.
Nun zum Code. Du navigierst zuerst mit deinem Browser (in VB) auf die Seite.
| Code: | Dim sURL As String
sURL = "http://www.google.de"
WebBrowser1.Navigate sURL |
Dann kannst du das gewünschte Textfeld ausfüllen. In unserem Beispiel heißt das Textfeld q.
| Code: | | WebBrowser1.Document.Forms(0).Elements("q").Value = "vb6" |
Um einen Button klicken zu können, brauchen wir ebenfalls seinen Namen. Wenn der Button btnG heißt, dann sieht der Code so aus:
| Code: |
WebBrowser1.Document.Forms(0).btnG.Click |
Zwischen den einzelnen Events musst du warten, bis die Seite fertig geladen ist. Das machst du mit diesem Code.
| Code: | Do Until WebBrowser1.Busy = False
DoEvents
Loop |
Deine fertige Sub, die bei Google nach vb6 sucht, sieht also so aus.
| Code: | Dim sURL As String
sURL = "http://www.google.de"
WebBrowser1.Navigate sURL
Do Until WebBrowser1.Busy = False
DoEvents
Loop
WebBrowser1.Document.Forms(0).q.Value = "vb6"
Do Until WebBrowser1.Busy = False
DoEvents
Loop
WebBrowser1.Document.Forms(0).btnG.Click |
Ich hoffe, du kannst dieses Prinzip nun umsetzen.
c0re |
|
| |
|
|
Epiphone_
Newbie
Anmeldedatum: 13.02.2008
Beiträge: 10
|
Verfasst am: 15.03.2008, 22:53 |
|
|
soweit müsste es eig. umsetzbar sein, nur wie kann ich dan den bereich was ich mir rausgesucht habe, in dem webbrowser ojekt anzeigen lassen?
THX |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 15.03.2008, 23:00 |
|
|
Ach so, ich dachte du möchtest das ganze versteckt senden.
Automatisch die Scrollbars zu bewegen ist warscheinlich das Komplizierteste.
 |
|
| |
|
|
Epiphone_
Newbie
Anmeldedatum: 13.02.2008
Beiträge: 10
|
Verfasst am: 15.03.2008, 23:32 |
|
|
die shout box befindet sich ganz oben auf der HP also muss nichts gescrollt werden!
Man soll das programm starten und im webbroswer objekt soll die shoutbox erscheinen, ob nun firefox auch startet is egal. (wenns ginge wäre es besser dass kein ff startet) |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 16.03.2008, 09:15 |
|
|
Nein Firefox startet nicht, warum auch. Ziehe einfach das Webbrowser Objekt in die richtige Größe, sodass man nurnoch die Shoutbox sieht. Ich werd mal ein Videotutorial machen.
|
|
| |
|
|
snoerkl_
Newbie
Anmeldedatum: 05.03.2008
Beiträge: 8
|
Verfasst am: 16.03.2008, 11:53 |
|
|
| c0re hat Folgendes geschrieben: |
Deine fertige Sub, die bei Google nach vb6 sucht, sieht also so aus.
| Code: | Dim sURL As String
sURL = "http://www.google.de"
WebBrowser1.Navigate sURL
Do Until WebBrowser1.Busy = False
DoEvents
Loop
WebBrowser1.Document.Forms(0).q.Value = "vb6"
Do Until WebBrowser1.Busy = False
DoEvents
Loop
WebBrowser1.Document.Forms(0).btnG.Click |
Ich hoffe, du kannst dieses Prinzip nun umsetzen.
c0re |
Sry, ich weiß das das das falsche Forum ist, aber könntest Du mir eventuell eine PM schicken, wie man das ganze in VB.net macht? Da gibt es nämlich webbrowser1.busy oder Forms(0).q.Value nicht =(
Wäre sehr dankbar,
snoerkl |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 16.03.2008, 12:16 |
|
|
Ich weiß nicht wie man das mit VB.Net macht, tut mir Leid. Stell die Frage am Besten in der entsprechenden Sektion, da wird dir am schnellsten geholfen.
|
|
| |
|
|
snoerkl_
Newbie
Anmeldedatum: 05.03.2008
Beiträge: 8
|
Verfasst am: 16.03.2008, 12:23 |
|
|
ok, danke =) - habs aber glaube ich gerade selbst rausgefunden, ist fast das selbe, nur das man statt forms(0).Elements("q") nur getElementsByID("q")
schreibt und statt .value = "vb6" .setattribute("value","vb6") 
vielen dank trotzdem, bald hab ich einen eigenen web.de mailgen programmiert hehe^^ |
|
| |
|
|
Epiphone_
Newbie
Anmeldedatum: 13.02.2008
Beiträge: 10
|
Verfasst am: 16.03.2008, 13:35 |
|
|
ja ein video tutorial wäre natürlich sehr nice!
danke dafür! |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 16.03.2008, 14:29 |
|
|
Das mit Scrollen bekomme ich leider nicht hin. :S
Wenn du zu dem Rest noch ein V-Tut brauchst, mach ich noch eins.
|
|
| |
|
|
Epiphone_
Newbie
Anmeldedatum: 13.02.2008
Beiträge: 10
|
Verfasst am: 16.03.2008, 14:45 |
|
|
Also ich habs jetzt hinbekommen!
Zwar nicht mit den scrollen, aber ich hab da ganz nen simplen trick genommen!
Ich hab einfach das webbroswer objekt so weit nach oben geschoben, dass es bei der form oben rausstand, ist jetz bisschen blöd erklärt, aber ich hoffe ihr wisst was ich meine!
Nur möchte ich nur noch nen Flooder einbauen, jedoch funkt das nicht mit der sendkeys anweißung, kA!
Klappt das sonst noch i-wie?
thx |
|
| |
|
|
c0re_
« Moderator »
Anmeldedatum: 29.11.2007
Beiträge: 425
|
Verfasst am: 16.03.2008, 15:16 |
|
|
Einen Flooder für eine Shoutbox? Benutze das Prinzip, das ich dir weiter oben beschrieben hab.
|
|
| |
|
|
Registrieren
Login
