Visual Basic Forum

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Credentials = New NetworkCredential(My.Settings.serverbenutzer, My.Settings.serverpasswort) ' UploadFile hat keinen suport für http ' proxy deaktivieren uploadRequest.Proxy = Nothing requestStream = uploadRequest.GetRequestStream() fileStream = File.Open(open, FileMode.Open) Dim buffer(1024) As Byte ...

Verfasst am: 15.03.2012, 11:15 Aufrufe: 203

... r Button klick das Popup öffnet aber die Fentergröße des Popups ist zu klein möchte das Fenster gerne an die größe das Inhaltes anpassen nur wie mache ich das ?? hier mal mein Code Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim popup As New Form Dim browser As New WebBrowser browser.Navigate("http ...

Verfasst am: 13.01.2012, 16:36 Aufrufe: 293

Ich habe eine eigene Webseite, auf der eine Werbeeinbeldung per JavaScript gemacht wird, welche dadurch nicht funktioniert (Als Werbung wird ein Layer verwendet. Nun, da der Browser später für andere zugänkch gemacht werden soll, muss er auch JavaScript unterstützen. Ich habe den Code von BinLayer.de und er sieht so aus: <script type="text/javascript" src="http://view.binlayer.com/ad-46071.js ...

Verfasst am: 02.11.2011, 21:54 Aufrufe: 453

... l debugged und dann kommt so eine Fehlermeldung im Webbrowser So schlimm ist es ja nicht, denn wenn man jetzt einfach auf "JA" klickt geht alles normal weiter kann man das noch irgendwie darein schreiben das automatisch auf "JA" geklickt wird oder kann man diesen "Skriptfehler" beheben? Hat jemand vllt. das selbe Problem und konnte es evtl. beheben? Hier ein Screenshot: http ...

Verfasst am: 11.10.2011, 12:14 Aufrufe: 567

... m Verständnis ein Ablauf: Öffne Webseite=>Springe ins erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen) Ich bin bei mir bisher nur so weit gekommen: Dim Beispiel Set Beispiel = CreateObject("WScript.Shell") Beispiel.Run "http ...

Verfasst am: 25.03.2011, 06:34 Aufrufe: 1244

Fehler gefunden ^^ Dim buffer() As Byte = New Byte(1024) {} Dim bytesRead As Integer Dim Prozent As Double Dim GesamtProzent As Double ' Fortschritt zunächst auf 0% setzen Me.ProgressBar1.Value = 0 Try ' Datei-Download via HTTP "anfordern" webreq = HttpWebRequest.Create(sURL) ...

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Click Call DownloadItem("http://****-********.

Verfasst am: 20.03.2011, 22:12 Aufrufe: 618

Hallo, mit diesem Code will ich den Status der Website anzeigen, ob sie Online oder Offline ist. Hier der Code: Try If My.Computer.Network.Ping("http://www.vb-paradise.de/index.php?page=Index", 5000) Then ToolStripStatusLabel2.Text = "Erreichbar" Else MsgBox("Der Server kann nicht erreicht werden!", MsgBoxSt ...

Verfasst am: 17.03.2011, 10:55 Aufrufe: 348

Hallo liebe Community, nachdem ich mein Problem mit den XML Datein gelöst habe, habe ich 2 weitere Fragen. Mittels eines LinkLabels lasse ich meine Homepage aufrufen. Der code dafür ist ja: Process.Start("http:Hier die Webseite") Doch wie mache ich das, wenn ich jetzt erreichen will, dass sich z.B. Outlook öffnet um z.B. ne Support mail zu versenden ? Process.Start("admin@xx ...

Verfasst am: 17.02.2011, 18:00 Aufrufe: 620

Verfasst am: 10.11.2010, 21:01 Aufrufe: 613

Wollte nochmals nachfragen, ob mir da noch jemand weiterhelfen kann, bzw. einen Tip geben kann wonach ich da suchen kann um da auch mehrere Dateien per http versenden zu können. Vielen Dank für jede Antwort

Verfasst am: 07.11.2010, 13:42 Aufrufe: 613

" & vbCrLf & "Do you want to continue?", vbExclamation + vbYesNo) <> vbYes Then Exit Sub End If End If strContentHeader = "Content-Type: text/plain" & vbCrLf 'read the whole file nFile = FreeFile Open txtFile.Text For Binary As #nFile strText = String(LOF(nFile), " ") Get #nFile, , strText Close #nFile 'http header vHead ...

Verfasst am: 18.10.2010, 16:15 Aufrufe: 337

hab's gefunden, Zeile 3 muss so aussehen: aRequest = System.Net.HttpWebRequest.Create("http://www.google.de/")

Verfasst am: 16.10.2010, 17:57 Aufrufe: 829

Hallo, ich bin grade an ein einem programm,das sich selber updaten soll...ich habe ein tutorial aus dem internet benutzt: http://www.youtube.com/watch?v=sq83yaZBNBQ habe es auch gleich versucht doch dann kamen diese 3 Fehler: "end of"-Anweisung erwartet. Der Name "request" wurde nicht deklariert. Der Typ "System.IO.screamreader" ist nicht definiert. hier der source: Publ ...

Verfasst am: 31.08.2010, 22:18 Aufrufe: 530

Ich stelle mir die Puzzle z.B. 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? ...

Verfasst am: 05.01.2010, 19:05 Aufrufe: 729

Hat sich erledigt habs rausgefunden. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click System.Diagnostics.Process.Start("http://www.website.com") End Sub

Verfasst am: 23.12.2009, 01:24 Aufrufe: 445

... If Ticks <= 20 Then 'Wenn es noch nicht 20 durchgänge waren Ticks += 1 WebBrowser1.Navigate("xxxxxxxxxxxxxxxxxxxxxxxxxxx") Else ArrayCount += 1 Timer1.Enabled = False If SeitenTicks <= Seiten Then SeitenTicks += 1 Ticks = 0 WebBrowser1.Navigate("http ...

Verfasst am: 21.12.2009, 16:04 Aufrufe: 445

" If Ticks <= 20 Then Wenn es noch nicht 20 durchgänge waren Ticks += 1 WebBrowser1.Navigate("xxxxxxxxxxxxxxxxxxxxxxxxxxx") Else Timer1.Enabled = False If SeitenTicks <= Seiten Then SeitenTicks += 1 Ticks = 0 WebBrowser1.Navigate("http://www.xxxxxxxx.xx/xxx ...

Verfasst am: 03.12.2009, 20:50 Aufrufe: 1227

Das Prog merkt sich auch gleich die Cookies, damit er, sollte ein Cookie vorhanden sein, gleich mit Cookie nach dem login weitergeleitet wird. Dim username, password As String username = "TestUser" password = "TestPW" 'Cookie Container erstellen um bei der nächsten Anfrage wieder eingelogt zu sein Dim Request As HttpWebRequest = CTy ...

Verfasst am: 19.11.2009, 18:44 Aufrufe: 3364

Hier der Source vom James Crypter von meinem Blog! Download: http://rapidshare.com/files/236529878/James_s_Crypter_2.0__FULL_SOURCE_STUBS_.rar Passwort:http://till7-voodoo.5x.to Mfg und viel Spaß, VooDoo reupp mal bitte den source der link is down

Verfasst am: 14.11.2009, 20:06 Aufrufe: 583

Encoding.ASCII.GetBytes("bild.x=123&bild.y=456") WebBrowser1.Navigate("http://bla.de/xy.php", "", bytArguments, "Content-Type: application/x-www-form-urlencoded" + Environment.NewLine)Dieser code geht jedoch nicht. dann habe ich versucht, die seite auf zu rufen und dann das RaiseEvent("onclick") zu benutzen. &n ...

Verfasst am: 13.11.2009, 16:44 Aufrufe: 506

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, 16:42 Aufrufe: 431

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: 12.11.2009, 18:17 Aufrufe: 860

Ich habe mich daran versucht auf der Seite https://customer.cc.at.paysafecard.com/psccustomer/GetPasswordPanelServlet einen Account, bzw einen Gutschein zu checken. Ich konnte dies mitlesen und versuchte es umzusetzen, aber ich bekomme mich einfach nicht eingeloggt. Content-Length: 208 randomNumber_1=0261&randomNumber_2=5265&randomNumber_3=6761&randomNumber_4=2950&password=885522&captchaID= ...

Verfasst am: 06.11.2009, 23:31 Aufrufe: 391

Verfasst am: 06.11.2009, 22:28 Aufrufe: 852

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628

Text Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Webrequest starten auf die Login Site von Web.de Dim Request As HttpWebRequest = CType(WebRequest.Create("http://web.de/?status=login-failed&mc=freemail@msg@logonfailed.hp@home@hinweis"), HttpWebRequest) Request.Method = ...

Verfasst am: 27.07.2009, 12:53 Aufrufe: 1034

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 XML-Dokumentes zur Verfügung. Die Beschreibung beinhaltet Informationen über den Hersteller, die Seriennummer, URL-Ad ...

Verfasst am: 18.07.2009, 16:35 Aufrufe: 1417

Über ein Webbrowser element rufe ich die Seite auf vorher lösche ich immer die cockies und den cache und sezte einen neuen Proxy. Nun über den Proxy lädt das Programm halt meine Seite und nach 3,5 sek kommt der Layer reingefolgen z.b von Layer ADS .de Der Code des Buttons die man klicken kann sieht wiefolgt aus: <div style="float: right;"> <a href="#" onclick="bookm ...

Verfasst am: 17.07.2009, 09:24 Aufrufe: 834

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1799

Message) End Try con.Close() End Sub Private Sub cmdInternet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdInternet.Click Call URL_Load("http://www.google.de" & txtNachname.Text) End Sub Private Sub URL_Load(ByVal sURL As String) Dim appIE As Object Dim sTxt As String appIE = CreateOb ...

Verfasst am: 03.07.2009, 17:45 Aufrufe: 1089

Nachdem ich mich gelangweilt habe, habe ich eine wundervolle Funktion mit Splits und Arrays für diesen Thread hier geschrieben:http://www.visual-basic-forum.de/viewtopic.php?t=3347dann habe ich 2 Tage gewartet, weil ich keine Zeit mehr hatte und - Schwupps! - war es geclosed...Aber zum Glück kann man diese Funktion algemein verwenden, darum poste ich sie jetzt hier.Sie entfernt Links aus dem Quelltext. Eigentlich zie ...

Verfasst am: 18.06.2009, 13:19 Aufrufe: 1223

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

Verfasst am: 18.06.2009, 12:50 Aufrufe: 662

Zur Verfügung gestellt von jojo4ever.Hier ist nicht von mir:http://rapidshare.com/files/89861436/vb6svc.zip.html

Verfasst am: 17.06.2009, 18:16 Aufrufe: 805

... t 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 As Net.Http ...

Verfasst am: 17.06.2009, 14:35 Aufrufe: 1413

Dieses Programm fügt den eingegebenen Links einen Refferer hinzu (in diesem Falle stealth.to) Public Class Form1 Dim ausgabe As String Dim reflink As String = "http://via.stealth.to/?" Private Sub Button2_Click(ByVal sender As System.Object, _ &nb ...

Verfasst am: 17.06.2009, 09:15 Aufrufe: 1840

Es darf unter Verwendung nur die Adresse alleine stehen. Wenn vorne www. oder http:// steht wird die Internetseite im Standart Browser geöffnet Wenn vorne ftp:// steht wird die Adresse mit dem Standart FTP Programm geöffnet (Benutzername und Passwort werden mit übergeben) Wenn vorne teamspeak:// steht wird Teamspeak geöffnet, Benutzername und Passwort werden mit übergeben, es wird nach dem gewünschten Nickname gefra ...

Verfasst am: 15.06.2009, 18:41 Aufrufe: 785

[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: 05.06.2009, 08:31 Aufrufe: 655

Per Doppelklick auf den Pfad öffne ich dann meinen Browser (Firefox oder IE kann gewählt werden) mit einem direktem Link zur Google-Bildersuche: Beispiel: Mit fehlt das Cover für "Job For A Cowboy - Doom Dim ShellWSH As Object Set ShellWSH = CreateObject("WScript.Shell") ShellWSH.run Browser & " http://images.google.de/images?hl=de&q=" & SearchTag & ...

Verfasst am: 30.05.2009, 23:14 Aufrufe: 482

] wb.Navigate "http://www.************.

Verfasst am: 30.05.2009, 15:39 Aufrufe: 3364

Hier der Source vom James Crypter von meinem Blog! Download: http://rapidshare.com/files/236529878/James_s_Crypter_2.0__FULL_SOURCE_STUBS_.rar Passwort:http://till7-voodoo.5x.to Mfg und viel Spaß, VooDoo

Verfasst am: 24.05.2009, 10:18 Aufrufe: 435

Hallo... wie kann ich über VB einen HTTP Header mitsniffen ober Abfragen?? Am besten über das Internet Explorer Control..

Verfasst am: 17.04.2009, 12:16 Aufrufe: 3822

Verfasst am: 06.04.2009, 13:50 Aufrufe: 580

Hier ist nicht von mir: http://rapidshare.com/files/89861436/vb6svc.zip.html

Verfasst am: 11.03.2009, 19:52 Aufrufe: 853

... Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _ lpOperation As String, ByVal lpFile As String, ByVal _ lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub google_Click() Dim Result& Result = ShellExecute(Me.hwnd, "Open", _ "http ...

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: 19.02.2009, 21:50 Aufrufe: 1334

hi, ich möchte per httpwebrequest das file "blubb.txt" uploaden, nun was mache ich falsch? Imports System.IO Imports System.Net Imports System.Text Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Send.Click Dim verz As String = System.Environment.CurrentDirectory Const fpath As String = "blubb.txt" Dim req As Htt ...

Verfasst am: 05.02.2009, 20:01 Aufrufe: 2731

.. denn dies sollte das prog automatisch machen. siehe hier: Steuermodul Public btn As Byte Private Sub vbIn_Click() btn = 1 Hide End Sub Private Sub vbOut_Click() btn = 2 Hide End Sub Private Sub vbLogout_Click() btn = 3 Hide End Sub Private Sub vbLogin_Click() wbr.Navigate "http://192.168.0.1/top_start_passwort.stm" Do While Op ...

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: 27.09.2008, 14:03 Aufrufe: 2149