Visual Basic Forum

Verfasst am: 09.06.2011, 16:40 Aufrufe: 426

Hallo zusammen, das Problem ist gelöst. Ich hatte die Com in meiner Unwissenheit mit "Encoding.UTF8" initialisiert. Nachdem ich einfach mal "Encoding.Default" probiert hatte, hat auch alles wunderbar funktioniert. Gruß BerndL

Verfasst am: 16.03.2011, 11:30 Aufrufe: 669

Hallo liebe Community. Ich bin ganz blutiger Anfänger und beschäftige mich jetzt mit vb net 2010 express. Hab eine Frage zu meinem aktuellen Projekt. In die listbox 2 soll die extra angelegte AddonKategories.xml geladen werden. diese hat u.a. folgenden inhalt: <?xml version="1.0" encoding="utf-8"?> <CompanyTypes> <CompanyTyp Name="Allgemeine Windowsprog ...

Verfasst am: 25.01.2011, 13:34 Aufrufe: 870

Hallo zusammen, habe folgendes Problem. Aus Outlook exportierte ics Datei hat das Format UTF-8. Öffnet man den Termin wird alles korrekt dargestellt. Jetzt erzeuge ich aus einer Acces Datenbank via VBA ebenfalls eine ics Datei mit identischem Aufbau, bei der verschiedene Variablen durch Daten aus der Datenbank ersetzt werden. Öffne ich diese ics Termindatei zerschiesst er alle Umlaute etc. Grund: VBA exp ...

Verfasst am: 03.12.2009, 20:50 Aufrufe: 1228

Method = "POST" .ContentType = "application/x-www-form-urlencoded" End With 'Benutzername und Passwort wird abgeschickt Dim Post As String = "username=" & username & "&password=" & password & "=Login" Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) Request.ContentLen ...

Verfasst am: 17.11.2009, 12:57 Aufrufe: 1922

Hab mir da mal eine function gebastelt die eine Datei in beliebige "Formate" umwandelt Folgenden Code einfach in Modul geben, und im Programm mit "Call FileToFormat (Pfad und Name der Datei, Charset_aus_Liste) aufrufen 'Charset: ' UTF_7="utf-7", UTF_8="utf-8" ' BIG5="big5", US_ASCII "us-ascii" ' ISO_8859_1="iso-8859-1" ...

Verfasst am: 17.11.2009, 12:54 Aufrufe: 2711

Hab mir da mal eine function gebastelt die eine Datei in beliebige "Formate" umwandelt Folgenden Code einfach in Modul geben, und im Programm mit "Call FileToUTF8 (Pfad und Name der Datei, Charset_aus_Liste) aufrufen 'Charset: ' UTF_7="utf-7", UTF_8="utf-8" ' BIG5="big5", US_ASCII "us-ascii" ' ISO_8859_1="iso-8859-1", ...

Verfasst am: 13.11.2009, 20:51 Aufrufe: 2711

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2711

Verfasst am: 12.11.2009, 18:17 Aufrufe: 860

... _3=" & bis12 & "&randomNumber_4=" & bis16 & "&password=" & password & "&captchaID" & captchaid & "&captchaResponse=" & captcha & "&language=" & language & "&locale=" & locale & "&Submit=" & weiter Dim byteArray() As Byte = Encoding.UTF8 ...

Verfasst am: 06.11.2009, 22:28 Aufrufe: 852

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628

de%2Fmsg%2Ftemporaer.htm&onfail=https%3A%2F%2Ffreemail.web.de%2Fmsg%2Flogonfailed.htm&username=USERNAME&password=PASSWORD&rv_dologon=Login&uinguserid=ac14043d-24820-1256473171-1" Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) Request.ContentLength = byteArray.Length Dim DataStream As Stream = Request.GetRequestStream() DataSt ...

Verfasst am: 22.08.2009, 15:28 Aufrufe: 945

Text End If Next i End Sub ' XML-Part Sub XML_Basteln() Dim Writer As Xml.XmlTextWriter = New Xml.XmlTextWriter("C:\DeineXMLDatei.xml", System.Text.Encoding.UTF8) With Writer .Formatting = Xml.Formatting.Indented .Indentation = 4 .IndentChar = " " .WriteStartDocument() .

Verfasst am: 19.02.2009, 21:50 Aufrufe: 1334

de"), HttpWebRequest) req.Method = "POST" req.ContentType = "application/x-www-form-urlencoded" req.Timeout = 12000 Dim post As String = Path.Combine(verz, fpath) Dim byteArray() As Byte = Encoding.UTF8.GetBytes(post) req.ContentLength = byteArray.Length Dim DataStream As Stream = req.GetRequestSt ...

Verfasst am: 25.09.2008, 19:11 Aufrufe: 1694

was willst du denn mehr ?! in der box bei http-request steht doch sogar noch was( wie es ) beim winsock-connectevent gesendet wird... dann einfach das incoming per data arrival mitloggen €: naja gut vlt ist es so besser: winsock connect: ws.senddata = "GET /index.php HTTP/1.1" & vbcrlf <br /> & _ "Host: google.de" & vbcrlf <br /> & _ "User-Agent: Mozilla/5.0 (Windows; U; W ...

Verfasst am: 21.09.2008, 03:43 Aufrufe: 2871

geht bei mir iwie nicht - für rapidshare:(Public Function Current(Login As String, Password As String, WSock As Winsock)Dim Packet As String: Dim PacketLenght As Long PacketLenght = 134 + Len(Login) + Len(Password) Packet = "POST /cgi-bin/ HTTP/1.1" & vbCrLfPacket = Packet + "Host: " & WSock.RemoteHost & vbCrLfPacket = Packet + "User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.1) Gecko/2008070208 Fir ...

Verfasst am: 17.09.2008, 20:10 Aufrufe: 2149

Verfasst am: 16.09.2008, 17:59 Aufrufe: 2149

es wird gar nichts ausgegeben ...aber ich habe alles kopiert also dürfe ja nix falsch seinhier mal ein auszug aus'm Live HTTP Header, vllt findet ja jemand den fehlerhttps://ssl.rapidshare.com/cgi-bin/premiumzone.cgiPOST /cgi-bin/premiumzone.cgi HTTP/1.1Host: ssl.rapidshare.comUser-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.1) Gecko/2008070208 Firefox/3.0.1Accept: text/html,application/xhtml+xml,ap ...

Verfasst am: 16.09.2008, 17:16 Aufrufe: 2149

Verfasst am: 08.09.2008, 16:40 Aufrufe: 2871

Verfasst am: 01.09.2008, 15:23 Aufrufe: 2522

Verfasst am: 22.08.2008, 00:06 Aufrufe: 3056

Hi liebe Leutz,ich wollt mich mal mit dem Tutorial von LoneyToons beschäftigen und hab das ganze mal an eBay ausprobiert, weil ich grad den Account von meinem Dad zum testen parat hatte.Meiner Meinung nach, habe ich alles so gemacht wie im Tutorial. Doch ich bekomme, egal was ich mache immer per MsgBox ausgegeben, dass der Account nicht vorhanden ist.Ich habe mich auch vergewissert, ob die "Response von Winsock" bei ...

Verfasst am: 21.08.2008, 12:18 Aufrufe: 2005

Möglicherweise mag der Server kein UTF-8 und gibt standardmäßig nur ISO zurück

Verfasst am: 20.08.2008, 15:00 Aufrufe: 2005

Verfasst am: 16.07.2008, 18:52 Aufrufe: 762

In den Labels werden die Umlaute mit verschiedenen Charsets falsch dargestellt, ich wollte alle in UTF-8 umwandeln, da diese Kodierung richtig dargestellt wird.

Verfasst am: 15.07.2008, 16:49 Aufrufe: 762

Create(URL), _ HttpWebRequest) Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse) Dim str As New StreamReader(res.GetResponseStream, Encoding.Default) Dim enDefault As Encoding = Encoding.Default Dim enUTF8 As Encoding = Encoding.UTF8 Dim defBytes As Byte() = enDefault.GetBytes(str.ReadToEnd) Dim utfBytes As Byte() = Encoding.Convert(enDefault, en ...

Verfasst am: 10.07.2008, 23:03 Aufrufe: 2161

... _ ByVal passwordIterations As Integer, _ ByVal initVector As String, _ ByVal keySize As Integer) _ As String ' Convert strings into byte arrays. ' Let us assume that strings only contain ASCII codes. ' If strings include Unicode characters, use Unicode, UTF7, or UTF8 ...

Verfasst am: 30.06.2008, 15:00 Aufrufe: 2871

-Login über Winsock-So in diesem tutorial , welches auch mein erstes ist , zeige ich euch , wie man einen account testet, ob er valid oder invalid ist , über winsock.Als Beispiel nehme ich Youtube Was ihr braucht:-Winsock Control-Live HTTP Headershttps://addons.mozilla.org/de/firefox/addon/3829 Start:Zuerst , erstellt ihr ein neues Projekt , mit Standart-Exe.Anschliessend fügt ihr die komponente Microsoft Winsock C ...

Verfasst am: 16.06.2008, 11:10 Aufrufe: 995

Text) SendMessage("USER " & txtNickname.Text & " 0 " & txtServer.Text & ":" & txtNickname.Text) End Sub Private Sub SendMessage(ByVal Message As String) Dim buffer() As Byte buffer = System.Text.Encoding.UTF8.GetBytes(Message & vbCrLf) nStream.Write(buffer, 0, buffer.Length) End Sub Private Sub btnDisconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand ...

Verfasst am: 14.06.2008, 20:34 Aufrufe: 1677

Ich bekomme genau das hier in meiner Textbox angezeigt.Und das ist noch nicht so ganz der komplette Quellcode. :/<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"<br /><br />"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><br /><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="de" lang="de"><br />< ...

Verfasst am: 02.05.2008, 14:54 Aufrufe: 1649

Die Entwicklungsumgebung von Visual Basic 6 benutzt ja bekanntlich keine Visual Styles, also nicht die neuen Bunten runden Button von XP/ Vista. Es ist somit auch normal nicht möglich die Programme in der IDE mit den Styles zu testen. Dafür muss man normalerweise erst das Programm mit der Manifest Datei kompilieren. Da die Visual Styles aber einige Bugs haben (schwarze Ränder etc.) ist es sinnvoll wenn bereits beim e ...

Verfasst am: 20.04.2008, 15:16 Aufrufe: 1408

doch kann es bei google da schutz drin hat mach mal text1.text = quelltext dann wirst du merken in deim quelltext variabel steht dieses <html><head><meta http-equiv="content-type" content="text/html;charset=utf-8"><title>403 Forbidden</title><style><!--body {font-family: arial,sans-serif}div.nav {margin-top: 1ex}div.nav ...

Verfasst am: 06.04.2008, 12:06 Aufrufe: 396

Schau mal da http://www.vbarchiv.net/workshop/details.php?id=49 oder http://www.google.de/search?q=MySql+datenbank+in+vb6&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:de:official&client=firefox-a

Verfasst am: 05.04.2008, 12:55 Aufrufe: 290

http://www.google.de/search?q=datei+downloaden+vb6&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:de:official&client=firefox-a Oder falls es dich nicht stört, wenn dein Programm während des Downloads einfriert: http://www.devx.com/vb2themax/Tip/18669

Verfasst am: 12.02.2008, 18:14 Aufrufe: 406

Suchmaschine mit "G"? http://www.google.de/search?q=fenster+immer+im+vordergrund+vb6&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:de:official&client=firefox-a 1. Treffer: http://www.schmittis-page.de/vb/t73.htm Zum resize-Verbot: Entweder den Style der Form umstellen auf 1 oder 3, oder halt im Resize ereignis der Form das Fenster wieder auf die Ursprungskoordinaten setzen.

Verfasst am: 17.01.2008, 18:42 Aufrufe: 486

http://www.google.de/search?q=icq+client+vb&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:de:official&client=firefox-a Der siebte Eintrag. http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=11626&lngWId=-1 Wow, danke, ich werde es mal ausprobieren Very Happy

Verfasst am: 17.01.2008, 18:21 Aufrufe: 486

http://www.google.de/search?q=icq+client+vb&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:de:official&client=firefox-a Der siebte Eintrag. http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=11626&lngWId=-1

Verfasst am: 08.12.2007, 21:18 Aufrufe: 2013

das ist vielleicht noch hilfreich: XP-Style Private Declare Sub ExitProcess Lib "kernel32.dll" (ByVal uExitCode As Long) Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long Private Function AppPath(ByVal zPath As String) As String If Right$(zPath, 1) = "\" Then AppPath = zPath Else AppPath = zPath & "\" End F ...

Verfasst am: 05.09.2007, 17:30 Aufrufe: 1685

Also, das ist der Quelltext der Seite von Google: <html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"><title>Google</title><style><!-- body,td,a,p,.h{font-family:arial,sans-serif} .h{font-size:20px} .h{color:#3366cc} .q{color:#00c} .ts td{padding:0}.ts ...

Verfasst am: 01.02.2007, 02:33 Aufrufe: 534

Kann man das auch machen das man noch mit einem OptionButton zB. website oder bilder auswählen ? Private Sub Command1_Click() Dim Result& link = "http://images.google.de/imghp?ie=UTF-8&oe=UTF-8&hl=de&tab=wi&q=" link = link & Text1.Text Result = ShellExecute(Me.hwnd, "Open", _ link, "", App.Path, 1) End Sub Wenn ich es so eingebe kommt nur die g ...