|
Registrieren
LoginInformationen über encoding |
|||||
|---|---|---|---|---|---|
 Erstellung einer HTPASSWD auf DES Encryption Standart |
|||||
| Verfasst am: 04.04.2012, 08:09 Aufrufe: 389 Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Function SHA1StringHash(ByVal strString As String) As String Dim SHA1 As New SHA1CryptoServiceProvider Dim Data As Byte() Dim Result As Byte() Dim Res As String = "" Dim Tmp As String = "" Data = Encoding.ASCII.GetBytes(strString) Result = ... |
|||||
| DXF-File erzeugen |
|||||
| Verfasst am: 11.08.2011, 06:45 Aufrufe: 542 hallo guido65, danke für die schnelle antwort. hatte die frage noch in einem anderen forum gepostet und konnte das problem jetzt lösen. es lag an der formatierung der textdatei, die für meine zwecke expliziet im ASCII-code ausgegeben werden musste. file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True, System.Text.Encoding.ASCII) |
|||||
| RS232 Übertragungsproblem |
|||||
| 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 |
|||||
| xml Dateien einlesen |
|||||
Verfasst am: 16.03.2011, 11:30 Aufrufe: 669  0" encoding="utf-8"?>
<CompanyTypes>
<CompanyTyp Name="Allgemeine Windowsprogramme" />
<CompanyTyp Name="Textverarbeitungsprogramme" />
<CompanyTyp Name="Internet/Webtools" />
<CompanyTyp Name="Sicherheitstools" />
<CompanyTyp Name="Runtimes" />
<CompanyTyp Name="BETA Programme" /> ... |
|||||
| UTF-8 kodierte ics Datei mit VBA erstellen |
|||||
| Verfasst am: 25.01.2011, 13:34 Aufrufe: 869 de" Print #1, "DTSTART:" & jahr & monat & tag & "T" & stunde_a & minute_a & "00" Print #1, "DTEND:" & jahr & monat & tag & "T" & stunde_e & minute_e & "00" Print #1, "LOCATION;ENCODING=QUOTED-PRINTABLE:" & veranstaltungsort Print #1, "TRANSP:OPAQUE" Prin ... |
|||||
| Formmailer |
|||||
| Verfasst am: 15.01.2011, 18:49 Aufrufe: 615 SmtpClient Dim anmeldung As New Net.NetworkCredential anmeldung.UserName = "Emailadresse@web.de" anmeldung.Password = "Passwort" With MailMessage .Subject = "Formmailer" .IsBodyHtml = False .BodyEncoding = System.Text.Encoding.Default .Body = "Betreff : " + TextBox1.Text .Pr ... |
|||||
| TCP/IP Verbindung hängt sich auf |
|||||
| Verfasst am: 09.06.2010, 20:51 Aufrufe: 971 GetStream() Dim buffsize As Integer Dim instreambuffer(10024) As Byte buffsize = client.ReceiveBufferSize stream.Read(instreambuffer, 0, buffsize) readbuffer = System.Text.Encoding.ASCII.GetString(instreambuffer) Auswertung() Next End Sub Sub Auswertung() If ... |
|||||
| Webseiten Autologin / Cookies |
|||||
| Verfasst am: 03.12.2009, 20:50 Aufrufe: 1227 ... ner() With Request .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 ... |
|||||
| Encoding in UTF-8 erzwingen |
|||||
| Verfasst am: 16.11.2009, 15:27 Aufrufe: 2711 Hallo zusammen, ich habe eine Möglichkeit gefunden das Problem mittels JAVA zu umgehen. Ich lese die Dateien jetzt mit einem FileInputReader ein, dem kann man das Encoding mitgeben. @muerzi Vielen Dank für Deine Bemühungen MfG JAP |
|||||
| Post von Bildkoordinaten |
|||||
| Verfasst am: 14.11.2009, 20:06 Aufrufe: 583 Hi Leute!Ich suche nah einer lösung, die Koordinaten eines Bildklicks zu posten!wenn ich mit TamperData nachgucke, welche ich posten muss,sind das bild.x=100bild.y=100jedoch nimmt er dies nicht an, wenn ich das mit dem WeBrowser Poste.Soweit ich weiß, Postet man wo werte zu einer Seite:Dim bytArguments As Byte() = System.Text.Encoding.ASCII.GetBytes("bild.x=123&bild.y=456")<br />WebBrows ... |
|||||
| Encoding in UTF-8 erzwingen |
|||||
| Verfasst am: 13.11.2009, 11:21 Aufrufe: 2711 |
|||||
| Account Checker, login Problem ? |
|||||
| Verfasst am: 12.11.2009, 18:17 Aufrufe: 860 ... umber_3=" & bis12 & "&randomNumber_4=" & bis16 & "&password=" & password & "&captchaID" & captchaid & "&captchaResponse=" & captcha & "&language=" & language & "&locale=" & locale & "&Submit=" & weiter Dim byteArray() As Byte = Encoding ... |
|||||
| Web.de Checker mit Cookies |
|||||
| Verfasst am: 25.10.2009, 14:31 Aufrufe: 6628 web.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() Da ... |
|||||
| Probleme mit XML |
|||||
| Verfasst am: 22.08.2009, 15:28 Aufrufe: 945 Length - 1).Lösung = TxtArray(i).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 = " " ... |
|||||
| Https Upload funktioniert nicht |
|||||
| Verfasst am: 17.07.2009, 09:24 Aufrufe: 834 xml" myWebClient.Headers.Add("Authorization", "Basic " + Convert.ToBase64String(Encoding.ASCII.GetBytes("user:pwd"))) Dim responseArray As Byte() = myWebClient.UploadFile(Adress, "POST", Path & FileName) Catch webex As WebException Di ... |
|||||
| Quelltext einer Internetseite runterladen |
|||||
| Verfasst am: 17.06.2009, 18:16 Aufrufe: 805 ReadToEnd '*<br /><br /> ' * beide Zeilen kann man auch mit folgender Zeile abkürzen, muss man testen welche schneller ist<br /><br /> Dim strSource As String = New StreamReader(Response.GetResponseStream, System.Text.Encoding.Default).ReadToEnd& ... |
|||||
| Builder in VB2008 |
|||||
| Verfasst am: 13.04.2009, 15:27 Aufrufe: 752 Von dem ganzen alten VB6 Kram mal nicht gesprochen abgesehen 
Mal ein kleines Beispiel (allerdings C#):
Anhängen der Daten:
private void button1_Click(object sender, EventArgs e)
{
string text = textBox1.Text; // Text der angehängt wird
byte[] add = new byte[text.Length];
add = System.Text.Encoding.ASCII.GetBytes(text) ... |
|||||
| httpwebrequest frage |
|||||
| Verfasst am: 19.02.2009, 21:50 Aufrufe: 1334 funpic.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.GetRe ... |
|||||
| ICQ-Nachricht verschicken |
|||||
| Verfasst am: 12.09.2008, 22:06 Aufrufe: 3876 |
|||||
| Login mit mehreren Cookies |
|||||
| Verfasst am: 24.08.2008, 11:26 Aufrufe: 1122 GetResponse, HttpWebResponse) Dim str As New StreamReader(res.GetResponseStream) Return str.ReadToEnd() End Function Private Function GetSourceCodePost(ByVal url As String, ByVal postdata As String) As String Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes(postdata) Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) req.Method = "post" re ... |
|||||
| Login mit mehreren Cookies |
|||||
| Verfasst am: 24.08.2008, 11:25 Aufrufe: 1122 GetResponse, HttpWebResponse) Dim str As New StreamReader(res.GetResponseStream) Return str.ReadToEnd() End Function Private Function GetSourceCodePost(ByVal url As String, ByVal postdata As String) As String Dim data() As Byte = System.Text.Encoding.ASCII.GetBytes(postdata) Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) req.Method = "post" ... |
|||||
| resource auf festplatte speichern |
|||||
| Verfasst am: 28.07.2008, 16:40 Aufrufe: 1043 |
|||||
| Grafik-Captcha laden? |
|||||
| Verfasst am: 22.07.2008, 12:37 Aufrufe: 1771 |
|||||
| Zeichensatzkonvertierung |
|||||
| Verfasst am: 15.07.2008, 16:49 Aufrufe: 762 Text Private Function GetSourcecode(ByVal URL As String) As String Application.DoEvents() Dim req As HttpWebRequest = CType(WebRequest.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 En ... |
|||||
| Datei verschlüsseln mit Rijndael |
|||||
| Verfasst am: 10.07.2008, 23:03 Aufrufe: 2160 ... 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 ' encoding ... |
|||||
| IRC Bot Connection?! |
|||||
| Verfasst am: 16.06.2008, 11:10 Aufrufe: 994 GetStream() 'SendMessage("PASS Passwort") 'muss nur gesendet werden wenn der Server Passwort geschützt ist SendMessage("NICK " & txtNickname.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) ... |
|||||
| Arbeiten mit der HttpWebRequest Klasse |
|||||
| Verfasst am: 08.06.2008, 15:26 Aufrufe: 4169 |
|||||
| Quellcode Refresh |
|||||
| Verfasst am: 07.06.2008, 14:25 Aufrufe: 1026 |
|||||
| Visual Styles in der IDE |
|||||
| Verfasst am: 02.05.2008, 14:54 Aufrufe: 1649 Um die Styles in der IDE zu aktivieren also eine Datei mit dem Namen VB6.exe.manifest und dem folgenden Inhalt in dem gleichen Ordner wie die VB6.exe erstellen:<?xml version="1.0" encoding="UTF-8" standalone="yes"?><br /><assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"><br /> <assemblyIdentity<br /> ... |
|||||
| Snippets Sammlung |
|||||
| Verfasst am: 08.12.2007, 21:18 Aufrufe: 2013 |
|||||
| Suche , Login Checker @ HTTP |
|||||
| Verfasst am: 08.12.2007, 19:32 Aufrufe: 964 ServicePointManager.Expect100Continue = False Dim web As New System.Net.WebClient() web.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post) Dim res As Byte() = web.UploadData(Page, "POST", d) Return System.Text.Encoding.ASCI ... |
|||||
| Suche , Login Checker @ HTTP |
|||||
| Verfasst am: 08.12.2007, 16:37 Aufrufe: 964 ServicePointManager.Expect100Continue = False Dim web As New System.Net.WebClient() web.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post) Dim res As Byte() = web.UploadData(Page, "POST", d) Return System.Text.Encoding.ASCI ... |
|||||
| Suche , Login Checker @ HTTP |
|||||
| Verfasst am: 07.12.2007, 19:32 Aufrufe: 964 ServicePointManager.Expect100Continue = False Dim web As New System.Net.WebClient() web.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post) Dim res As Byte() = web.UploadData(Page, "POST", d) Return System.Text.Encoding.ASCI ... |
|||||
| Suche , Login Checker @ HTTP |
|||||
| Verfasst am: 14.11.2007, 00:45 Aufrufe: 964 ServicePointManager.Expect100Continue = False Dim web As New System.Net.WebClient() web.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post) Dim res As Byte() = web.UploadData(Page, "POST", d) Return System.Text.Encoding.ASCI ... |
|||||
| Suche , Login Checker @ HTTP |
|||||
| Verfasst am: 12.11.2007, 15:40 Aufrufe: 964 ServicePointManager.Expect100Continue = False Dim web As New System.Net.WebClient() web.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post) Dim res As Byte() = web.UploadData(Page, "POST", d) Return System.Text.Encoding.ASCI ... |
|||||
| Suche , Login Checker @ HTTP |
|||||
| Verfasst am: 10.11.2007, 23:01 Aufrufe: 964 ServicePointManager.Expect100Continue = False Dim web As New System.Net.WebClient() web.Headers.Add("Content-Type", "application/x-www-form-urlencoded") Dim d As Byte() = System.Text.Encoding.ASCII.GetBytes(Post) Dim res As Byte() = web.UploadData(Page, "POST", d) Return System.Text.Encoding.ASCI ... |
|||||
| [geht net] Text in Datei schreiben |
|||||
| Verfasst am: 25.10.2007, 18:23 Aufrufe: 302 StreamWriter Dim neu As String = "" Dim i As Integer For i = 1 To ConfigLaenge Step 1 neu += Config(i).Replace(vbCrLf, "") & vbCrLf Next Writer = New System.IO.StreamWriter(ConfigDatei, False, System.Text.Encoding.Default) Writer.Write(neu) Writer.Close() End Function was ist hier falsch? die funktion Rea ... |
|||||
| MD5 Hash einer Datei! |
|||||
| Verfasst am: 17.09.2007, 18:27 Aufrufe: 3275 de Imports System.Security.Cryptography Imports System.Text Public Function MD5StringHash(ByVal strString As String) As String Dim MD5 As New MD5CryptoServiceProvider Dim Data As Byte() Dim Result As Byte() Dim Res As String = "" Dim Tmp As String = "" Data = Encoding.ASCII.GetBytes(strString) Result = MD5.ComputeHash(Data) For i As Integer = 0 To R ... |
|||||