Visual Basic Forum

Verfasst am: 30.01.2012, 17:53 Aufrufe: 213

aso jetzt versteh ich was du meinst... du willst dass dein link in der rtf box steht und aufrufbar ist ist mir nicht bekannt das das geht schreib den "quelltext" in eine Variable und rufe diese im webbrowsercontrol auf somit hast du den text stehen und auch deinen link Wink

Verfasst am: 12.10.2011, 13:54 Aufrufe: 567

das heist du möchtest also so eine art bruteforce für eine webseite versuchen... ich würde das aber nicht mit sendkey sondern mit webbrowser1.Document.Forms(0).User.Value = "Admin" 'statt user musst du dir den namen der textbox aus dem quelltext der seite 'und zum bestätigen webbrowser1.Document.Forms(0).submit.Click viel erfolg lg

Verfasst am: 11.07.2011, 11:34 Aufrufe: 706

Ein Eingabeformular enthält verschiedene Comboboxen, deren Werte aus einer Access Datenbank ausgelesen werden. Eine Combo zeigt Kundennamen an, die folgende Box zeigt die zu dem Kunden gehörigen Artikel an. Bei einem Kunden werden nicht alle Artikel in der Combobox angezeigt, obwohl ich im Quelltext sehen kann, dass der "fehlende" Artikel aus der Datenbank ausgelesen wird. Kann mir jemand sagen, wo bzw. ...

Verfasst am: 21.03.2011, 08:13 Aufrufe: 477

ganz einfach gehalten 'aufgerufen wird die ganz einfach mit Wait() oder Call Wait() Call Wait() 'jetzt ist hier der haltepunkt bis CPU.M(100,3) auf True Springt 'dann gehts weiter im Quelltext msgbox "CPU.M(100,3) = True", vbInformation, "MSGBOX" End Sub Private Sub Wait() 'eine Neue Prozedur do DoEvents 'dass das syst ...

Verfasst am: 25.01.2011, 11:18 Aufrufe: 816

ich kenne knuddels.de nicht aber fang einfach mal irgendwo an beim quelltext z.b. schau ihn an ob da alles drinsteht was du brauchst und arbeite dich schritt für schritt vorwärts und wenn du eine frage hast melde dich wieder

Verfasst am: 16.01.2011, 11:32 Aufrufe: 395

Hallo! Habe folgendes Problem ich will die Anmeldemaske von der Seite www.assistance-data.com/EDDS/ ausfüllen habe schon alles mögliche versucht wenn ich die Seite lokal laufen lasse also den quelltext rauskopieren in eine html datei rein dann gehts auf der original seite kann ich aber kein formular und keine felder ansprechen hat einer eine idee warum das so ist und wie ich das lösen könnte. ich h ...

Verfasst am: 29.11.2010, 10:04 Aufrufe: 610

vielleicht steht der dateiname im quelltext der seite.. dann kannst den dort auslesen und verwenden lg

Verfasst am: 14.11.2010, 09:47 Aufrufe: 453

Hallo, könnte mir jemand bitte helfen? Ich möchte gerne nicht direkt auf der eBay Seite nach Sofort-Kauf Artikel suchen, sondern diese in einem Programm VB6 realisieren. Ich suche bei eBay z.B. nach Uhren (nur Sofort-Kauf Artikel) welche z.B. nur die letzten Stunde eingestellt sind. Kann ich sowas in VB6 realisieren? Ist es besser hier mit API/eBay zu arbeiten oder den Quelltext der Homepage auslesen? ...

Verfasst am: 06.11.2010, 15:39 Aufrufe: 870

schau du lädst die komponente "Microsoft Internet Controls" danach ziehst du einfach das webbrowser steuerelement auf deine form webbrowser1.Navigate "zuDerSeite" wenn die seite fertig gelade ist kannst du das formular ausfüllen lassen dazu.. schaust du dir den Quelltext der seite an... irgendwo hast du dann mal zum beispiel "<input type="text" name="Username&q ...

Verfasst am: 30.08.2010, 12:51 Aufrufe: 336

Verfasst am: 23.08.2010, 11:30 Aufrufe: 624

quelltext auslesen und dann den dj anzeigen lassen lg

Verfasst am: 04.08.2010, 17:07 Aufrufe: 583

Hallo Leute , ich brauche ein wenig hilfe um nen quelltext auszulessen und den wert in einer ListView zu laden. Ich hab das ganze web schon durchsucht und nichts passendes gefunden Das Normale auslesen hab ich so gemacht With Form1.wbb.Document.documentElement quelltext = .outerHtml suchzeichen1 = "<span class=""""""no" > "" pos1 = InStr(quellte ...

Verfasst am: 09.06.2010, 20:51 Aufrufe: 971

Mein Problem ist, dass wenn ich einen Prozess beende oder mehrmals die Prozessliste neu lade sich die Liste nicht mehr aktualisiert sondern einfach leer bleibt. Da ich den Fehler leider nicht auf einen bestimmten Abschnitt eingrenzen kann muss ich den ganzen Quelltext geben. Ich programmiere noch nicht so lange mit Visual-Basic und würde mich deshalb auch freuen wenn ihr mir eine Rückmeldung geben könntet wie der Que ...

Verfasst am: 18.03.2010, 23:42 Aufrufe: 1318

..

Hoffe, ihr könnt damit was anfangen... Hier der Quelltext: Public Class Form1 Private Sub PictureBox1_LoadCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles PictureBox1.LoadCompleted Punktmalen() End Sub Function Punktmalen() Dim g As Graphics = PictureBox1.CreateGraphics Dim Radius = 10 Di ...

Verfasst am: 19.02.2010, 13:06 Aufrufe: 1034

Hallo, mir wird folgender Fehler (laufzeitfehler 1004 Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden) angeziegt wenn der Quelltext an der hervorgehobenen Zeile angelangt ist. Warum? Dim i_row_coc, i_column_no, i_column_coc, lfdnr_vcoc, lfdnr_coc As Integer Dim i_row_vcoc As Long i_row_coc = ActiveCell.Row i_row_vcoc = i_row_coc i_column_no = Cells.Find(What:="A", After:=A ...

Verfasst am: 27.01.2010, 11:03 Aufrufe: 951

Achja, VB6 WebBrowser1.Document.Forms(0).InvokeMember ("submit") WebBrowser1.Document.Forms("attack").InvokeMember ("submit") WebBrowser1.Document.frames(0).Document.Forms(0).submit das sind die letzten drei. ich verzweifle hier echt langsam es wäre nett wenn jemand rat wüsste. hier noch der quelltext des index <script type="text/javascript"> / ...

Verfasst am: 24.01.2010, 19:09 Aufrufe: 505

hallo... bin ziemlich frustriert, nach langem suchen im internet bekomme ich es einfach nicht hin Crying or Very sad

ich habe folgenden quelltext: Dim myPing As New Ping() Dim host_karuru As String = "10.2.0.1" Dim reply_karuru As PingReply = myPing.Send(host_karuru, timeout, buffer, pingOptions) If reply_karuru.Status = IPStatus.Success Then lbl_karuru.ForeColor = System.Drawing.Color.Green ...

Verfasst am: 23.01.2010, 12:23 Aufrufe: 2603

hi wenn du auf deinem ftp server einen textdatei hast und du siehst dir im quelltext deines browsers die textdatei an siehst du genau den inhalt der textdatei du kennst ja den pfad im netz zur datei von der seite lässt du dir den quelltext auslesen dann erspartst du dir den ftp download jap und code findest sicher einen wernn du eine minute suchst lg

Verfasst am: 22.01.2010, 07:48 Aufrufe: 2603

hi aber wenn du nur eine txt datei aufrufst kannst ja hergehen mit dem webbrowser steuerelement auf die seite navigieren und den quelltext auslesen diesen dann abspiecher bringt das gleiche ergebnis

Verfasst am: 13.11.2009, 16:44 Aufrufe: 506

php?X=HöheCount&Y=BreiteCount) For Y = 1 To 5 For X = 1 To 5 'Verarbeitung von Puffer Next Next Next Next Jetzt zu meinem Problem: Die Funktion UrlAufrufen() soll so Funktionieren: HTTP GET über Winsock senden (Kein Problem) Den Quelltext erst an Puffer weitergeben wenn die Serverantwort vollständig empfangen wurd ...

Verfasst am: 13.11.2009, 16:42 Aufrufe: 431

php?X=HöheCount&Y=BreiteCount) For Y = 1 To 5 For X = 1 To 5 'Verarbeitung von Puffer Next Next Next Next Jetzt zu meinem Problem: Die Funktion UrlAufrufen() soll so Funktionieren: HTTP GET über Winsock senden (Kein Problem) Den Quelltext erst an Puffer weitergeben wenn die Serverantwort vollständig empfangen wurd ...

Verfasst am: 12.11.2009, 18:17 Aufrufe: 860

Content-Length: 208 randomNumber_1=0261&randomNumber_2=5265&randomNumber_3=6761&randomNumber_4=2950&password=885522&captchaID=Y2xVVVJXMTY2M2loNThwa05hcjZGOTlhcU9iK1RtMmw%3D&captchaResponse=forects&language=&locale=&Submit=Weiter HTTP/1.x 200 OK Hier noch mein Quelltext, ich habe einen Webbrowser eingebaut um das Captcha zu erkennen und ein Textfeld um mir nochmal den Quell ...

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628

GetRequestStream() DataStream.Write(byteArray, 0, byteArray.Length) DataStream.Close() 'Streamreader untersucht auf "Logout Vergessen" im Quelltext Dim Response As HttpWebResponse = Request.GetResponse() DataStream = Response.GetResponseStream() Dim reader As New StreamReader(DataStream) Dim ServerResponse ...

Verfasst am: 08.07.2009, 20:38 Aufrufe: 755

ChangeIt Musst du dem Quelltext entnehmen Wink

Verfasst am: 03.07.2009, 17:45 Aufrufe: 1089

.Aber zum Glück kann man diese Funktion algemein verwenden, darum poste ich sie jetzt hier.Sie entfernt Links aus dem Quelltext. Eigentlich ziemlich einfach :pMit dieser feinen Funktion lassen sich alle möglichen Links aus dem quelltext entfernen (es steht danach nur noch die bezeichnung da)lässt sich auch auf alle möglichen Dinge abändern.Public Function LinksEntfernen(SourceCode As String, Optional Link As Stri ...

Verfasst am: 17.06.2009, 18:16 Aufrufe: 805

Beschreibung: Mit diesem Code kann man bequem ohne den Webbrowser zu benutzen den Quelltext einer Internetseite anzeigen und runterladen. Man muss nur die URL angeben. Code: Function get_pagesource(ByVal url As String) As String<br /><br /> Try<br /><br /> Dim Request ...

Verfasst am: 26.05.2009, 14:55 Aufrufe: 597

... 0598958333354131;0,300790361789668 0,000798611111138841;0,462558904285722 so: ich soll jetzt die ersten 3 Zeilen ausschneiden, so dass ich eine Array-Variable hab mit 2 Spalten. Mein Ziel ist also folgendes: array(0) = (0 0.170003607345046) array(1) = (0.00019965277778471 -0.0148032763608332) array(2) = (0.00039930555556942 0.141742055292499) usw. zu beachten ist hier auch, dass das Komma im Quelltext ...

Verfasst am: 09.05.2009, 14:16 Aufrufe: 366

hey ich komm nicht weiter und zwar suche ich nach einem code der etwas aus dem Quelltext einer Webpage ausließt und das in einem label wiedergibt. das ganze soll sich aber jede 30 Sekunden aktualisieren. Ich geb ich mal ein beispiel und zwar sprechen wir von www.technobase.fm ich möchte den Songtitel in einem label ausgeben und halt jede 30 sekunden aktualiesieren. Mfg, ped

Verfasst am: 13.04.2009, 14:41 Aufrufe: 545

Quelltext = WebBrowser1.Document.documentElement.outerHTML Probiers mal so, hab schon lange nichts mehr mit VB6 gemacht, könnte also was an der Syntax falsch sein. Einfach probieren Very Happy

Verfasst am: 13.04.2009, 14:15 Aufrufe: 545

kk ein webcontrol hab ich schon ... nur wie les ich auf der aufgeruffenden seite den quelltext im text2.textbox

Verfasst am: 13.04.2009, 14:08 Aufrufe: 545

Wenn du dich noch nicht wirklich mit Sockets etc. auskennst, kannst du auch einfach ein Webbrowsercontrol verwenden, mit dem du auf eine Seite gehtst, und dir den Quelltext aus dem Control ausliest.

Verfasst am: 13.04.2009, 01:30 Aufrufe: 545

ja, wie willst du dir auhc den php quelltext ausgeben lassen? du bekommst nur html angezeigt, wäre wohl alles etwas leicht zu kopieren, wenn du den php code sehen könntest Oo

Verfasst am: 13.04.2009, 01:04 Aufrufe: 545

Verfasst am: 12.04.2009, 21:30 Aufrufe: 545

Ich möcht wohl gerne wissen wie ich das hinbekomme das man auf "knopf"-Druck den quelltext in die Textbox2 bekomme ( der link steht immer in der Textbox1 )

Verfasst am: 04.03.2009, 16:26 Aufrufe: 874

hi probiers mit dem webbrowser element und dem da: text1.text = webbrowser1.Document.documentElement.outerHTML jetzt hast den kompletten quelltext lg

Verfasst am: 04.03.2009, 14:18 Aufrufe: 874

Ich hab den Code Dim Quelltext As String Quelltext = Inet1.OpenURL("http://6x.to/signup.php") 'der link zur seite Text1.Text = Quelltext Dim txt As String txt = Text1.Text Aber im text1 wird nicht der ganze Queltext angezeigt warum? Bei anderen Seiten wie z.B secured.in geht es mfg bomber

Verfasst am: 17.02.2009, 14:14 Aufrufe: 3131

ich weis nicht ob das so super ist beende einfach den sub wenn das texfeld leer ist oder mach eine msgbox meinen eigenen ftp server eintragen... zum einen hab ich keinen weder weis ich wo oder wie ich sowas kriege... und zum zweiten ich hab zwar vbnet und kann auch ein bisschen was vom quelltext lesen aber ich könnte nix damit schreiben da ich einfach bei .net auf dem "hello world - level" bin Wink

Verfasst am: 17.02.2009, 11:50 Aufrufe: 3131

hi ja stimmt schon dass nix dagegen spricht das ganze projekt ins netz zu stellen... aber da deine absichten sind von benutzern die passwörter auszulesen... (was ja im quelltext steht... sieht das ja jeder und benützt keiner Wink

) aber verbesserungs vorschlag... -) wenn du wirklich eine datei am desktop ablegst stelle das atribut auf versteckt... -) was du aber statt dem ftp upload machen könntest ...

Verfasst am: 13.02.2009, 21:29 Aufrufe: 1021

Öhm also den Quelltext den du gepostest hast, gibt einfach nur das Bild aus oO Ich denke mal du hast was vergessen Very Happy

vllt ieine JS sache oder so musste ma gucken Razz

Verfasst am: 11.02.2009, 20:00 Aufrufe: 848

Schon mal versucht zu Splitten? dim Speicher,cmd() as string cmd()=split (Quelltext,"<B>") speicher=cmd(1) cmd()=split(speicher,"</B>") msgbox cmd(0) ist jetzt schnell aus dem Kopf, dürfte aber Funktionieren. lg, igoe

Verfasst am: 04.02.2009, 15:53 Aufrufe: 2731

Der Quelltext der Seite ist <DIV id=c_border> <DIV id=c_pfad>Router - Einstieg in die Konfiguration</DIV> <DIV id=c_titel>Passwort Eingabe</DIV> <DIV id=c_last> <table border="0" cellpadding="0" cellspacing="2"> <tr> <td width="100"><input type="password" class="stylepwd ...

Verfasst am: 03.02.2009, 10:40 Aufrufe: 892

Den kann sich ja jeder denken. check.navigate "http://google.de", 4 Do While check.Busy = true DoEvents Loop quelltext = check.Document.documentElement.outerHTML If Instr(quelltext, "string1") then msgbox "string 1" ElseIf Instr(quelltext, "string2") then msgox "string 2" End if quelltext = "" check.navigate "http: ...

Verfasst am: 02.02.2009, 20:51 Aufrufe: 892

Wenn sie sich verändert hat, und ein bestimmter String vorhanden ist, soll sie eine Meldung ausgeben. Das Problem ist, dass es beim ersten Mal klappt, jedoch muss ich beim zweiten Mal das Programm neustarten, weil sonst sofort die gleiche Meldung kommt oder einfach gar nichts passiert. Ich leere in der Sub den String quelltext, um ihn wieder einzulesen. Vielleicht weiß ja jemand Rat? Ich bin hier am verzweifeln. ...

Verfasst am: 01.02.2009, 12:16 Aufrufe: 1436

Verfasst am: 31.01.2009, 21:10 Aufrufe: 1436

Hast du schonmal gegoogelt oder die Suchfuntion benutzt? Ich war lange nicht mehr da, aber meine hier stand ne Menge darüber Wink

Naja, prober es mal den Quelltext mit dem Inet Control runterzuladen, und dann per Split die gewünschte Variable rausplitten. lg Z1uX

Verfasst am: 31.01.2009, 20:24 Aufrufe: 1436

Verfasst am: 06.01.2009, 18:10 Aufrufe: 935

Hi ich habe 2 Probleme. 1.Ich bräuchte einen Code um eine CheckBox im Internet zu aktivieren 2.Einen Code um bei einer ComboBox eine zahl auszufählen. Das habe ich im Quelltext gefunden: ComboBox: <select name="gtag"[...

Verfasst am: 22.09.2008, 22:11 Aufrufe: 1694

Hallo.Ich würde gerne per winsock den quelltext auslesen, den mir die seite zurück gibt, wenn ich sie per winsock aufrufe!aber wie geht das bzw. was ist der parameter dafürich habe von ZiG diesen link bekommen.verstehen tue ich die source leider nichtvllt kann mir ja jemand helfen ...MfG

Verfasst am: 17.09.2008, 12:25 Aufrufe: 1224

hey leute ich will mehrere formulare der gleichen art ausfüllen lassen, aber weas genau muss ich aus dem quelltext lesen damit es geht, meiner meinung nach hier zB NAME= und dann halt uploader usw. :Visual Basic: [code][/code]Visual Basic: [code]NAME="password"[/code]Visual Basic: [code]NAME="title"[/code]Visual Basic: [code]NAME="release_title"[/code]Visual Basic: [code]NAME="release_year"[/code]Visual Basic: [code] ...

Verfasst am: 16.09.2008, 21:06 Aufrufe: 763