Visual Basic Forum

Verfasst am: 01.01.2012, 20:33 Aufrufe: 174

Ohne Admin Passwort des Streams wirst du da nicht viel ausrichten können Sad

Bin auch schon lange auf der Suche für mein Stream RAdio die aktuellen Titel anzeigen zulassen

Verfasst am: 29.08.2011, 02:22 Aufrufe: 418

Hallo, beim Speichern von Bildern direkt in meiner MySQL-DB (Feldtyp blob bzw. mediumblob) habe ich große Schwierigkeiten, denn die direkte Zuweisung per ADC.Fields("Bild") = <Bilddaten> klappt leider nicht: Genausowenig auch indirekt mit LoadPicture als Bilddatei (das ja offenbar ein Streaming durchführt, oder? Oder wozu sonst wird es gebraucht??...): ADC.Fields("Bild") = LoadPicture(D ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

Runtime.InteropServices Public Class Form1 'Variablen: Private Structure Connection Dim stream As NetworkStream Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String( ...

Verfasst am: 25.03.2011, 05:34 Aufrufe: 672

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

exe") End If End If End Sub Private Sub DownloadItem(ByVal sURL As String, _ ByVal strFile As String, ByVal strFolder As String) Dim webreq As HttpWebRequest Dim webresp As HttpWebResponse Dim bReader As BinaryReader Dim bWriter As BinaryWriter Dim stream As FileStream Dim buffer() As Byte = New ...

Verfasst am: 17.03.2011, 14:56 Aufrufe: 490

Also ich hab den Code grade nochmal 1 zu 1 wie ich ihn hier gepostet hab bei mir reinkopiert und er läuft ohne Fehler durch... Ich kann dir ja nochmal alles komplett posten, so gehts jedenfalls bei mir: Dim fs As IO.FileStream = New IO.FileStream( _ "Settings.ini", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.StreamRea ...

Verfasst am: 17.03.2011, 12:24 Aufrufe: 490

Also, was du vorhast ist garnicht so schwierig, eine Datei komplett auslesen kannst du so: 'Wir deklarieren uns erstmal ein paar Variablen Dim Setting1 As String Dim Setting2 As String Dim fs As IO.FileStream = New IO.FileStream( _ "Settings.ini", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.Strea ...

Verfasst am: 24.08.2010, 08:59 Aufrufe: 745

hey schaut ja ganz okey aus!! was aber der wahnsin wäre ... wenn man mit deinem prog den stream mitschneiden könnte

Verfasst am: 12.08.2010, 22:15 Aufrufe: 745

iSteam 1.0 BETA iSteam ist eins meiner ersten Programme. Das Programm speichert Stream Name und Stream Link in einer verschlüsselten ini Datei, des weiteren besitzt es 3 Sprachepakete, die im Ausgeführten Zustand gewechselt werden können, und ebenfalls in der ini Datei gespeichert werden, und somit beim nächsten Start automatisch ausgeführt werden. Außerdem danke ich kevin89 für seine tolle Adobe-Style v2 dl ...

Verfasst am: 16.06.2010, 12:14 Aufrufe: 629

Hallo Leute, bin neu hier und weiss nicht ob ich hier richtig bin! Also ich habe vor mit WMP ein Radio Stream Porgramm zu erstellen das hauptsächliche kann ich nur weiss ich nicht wie ich es hinbekommen kann das der auch anzeigt wer sendet was wird gesendet ! Bitte um dringende Hilfe! Danke im Vorraus! Webmasterfreaky

Verfasst am: 09.06.2010, 19:51 Aufrufe: 868

Thread Public Class Form1 Dim startkillProzess As String = "/functionkillProzess" Dim startTaskmgr As String = "/functionTaskmgr" Dim EndgetProzess As String = "/endgetprozess" Dim prozessbuffer As String Dim readbuffer As String Dim taskmgrbuffer As String Dim adresse As String Dim port As Integer = 4000 Dim stream As NetworkStre ...

Verfasst am: 20.01.2010, 17:48 Aufrufe: 2032

Verfasst am: 16.01.2010, 14:35 Aufrufe: 664

Hallo Forum, Ich bin Alex und versuche ein Programmteil hardwaremäßig vor Veränderung zu schützen! ich habe ein einigermaßen großes Problem, und finde keine Lösung dafür! Ich habe beispielsweise eine Routine wie: Publich Sub OpenMessage(byval Nachricht as String) MsgBox(Nachricht) end sub Diese Sub möchte ich als Programmteil auslagern! Nicht in einer DLL, sondern in einem ...

Verfasst am: 03.12.2009, 19:50 Aufrufe: 1139

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.ContentLength = byteArray.Length Dim Data ...

Verfasst am: 17.11.2009, 11:57 Aufrufe: 1745

... 59_9="iso-8859-9", EUC_JP="euc-jp" ' EUC_KR "euc-kr"=GB2312, "gb2312"=ISO_2022_JP "iso-2022-jp" ' ISO_2022_KR="iso-2022-kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function FileToFormat(sFilename As String, CharFormat As String) Dim F As Integer Dim sInhalt As String Dim objStream ...

Verfasst am: 17.11.2009, 11:54 Aufrufe: 2374

... 8859_9="iso-8859-9", EUC_JP="euc-jp" ' EUC_KR "euc-kr"=GB2312, "gb2312"=ISO_2022_JP "iso-2022-jp" ' ISO_2022_KR="iso-2022-kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function FileToUTF8(sFilename As String, CharFormat As String) Dim F As Integer Dim sInhalt As String Dim objStream ...

Verfasst am: 12.11.2009, 17:17 Aufrufe: 787

... d=" & password & "&captchaID" & captchaid & "&captchaResponse=" & captcha & "&language=" & language & "&locale=" & locale & "&Submit=" & weiter Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post) Request.ContentLength = byteArray.Length Dim DataStream ...

Verfasst am: 25.10.2009, 13:31 Aufrufe: 6294

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() DataStream.Write(byteArray, 0, byteArray.Length) DataStream.Close() ...

Verfasst am: 02.08.2009, 17:38 Aufrufe: 1204

zu deinem ersten punkt. wir erstellen eine txt datei : Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & "\Log.

Verfasst am: 21.07.2009, 19:56 Aufrufe: 1056

Visual Basic: das kommt aber immer noch wenn ich auf debuggen gehe und dann die aktion einleite

Verfasst am: 21.07.2009, 06:33 Aufrufe: 429

Hallo zusammen ich fange nach längerer Zeit gerade wieder das Programmieren an, und habe nun diverse Probleme. Ich hoffe (bin mir sicher) das mir hier jemand helfen kann. Ich lese über einen OpenFileDialog in eine Variable (stream) eine Datei ein. Nun muss ich in einem zweiten Formular auf die Daten der Datei (Variable) zugreifen. Leider sagt mir VisualStudio2008 immer "die Variable ist nicht definiert) ...

Verfasst am: 17.07.2009, 08:24 Aufrufe: 768

GetBytes("user:pwd"))) 'Übertragungsmethode zum Server request.Method = WebRequestMethods.Http.Put 'Festlegen der Länge des zu übertragenden Files request.ContentLength = fileLength 'Anfragen an Server um dessen Dateistream zu bekommen. Dim s As IO.Stream = request.GetRequestSt ...

Verfasst am: 06.07.2009, 16:37 Aufrufe: 1204

zu deinem ersten punkt. wir erstellen eine txt datei : Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & "\Log.

Verfasst am: 06.07.2009, 11:40 Aufrufe: 1204

Net.NetworkCredential("benutzername", "passwort") clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile Dim bFile() As Byte = System.IO.File.ReadAllBytes("dateipfad") Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream() clsStream.Write(bFile, 0, bFile.Length) clsStream.Close() clsStream.Dispose() Mfg Chester

Verfasst am: 27.06.2009, 14:57 Aufrufe: 576

Hallo, Ich bin ein VB6 Anfanger. Ich habe ein Program Gechrieben mit MSComm die ein RS232 stream empfangt und bearbeitet. Alles funktioniert mit ein Textbox, ABER, wenn ich versuche die String in zwei Text Boxen zu splitten aufgrund von der Anfangszeichen in der string fangen meiner Probleme an. Gibt es jemand (geduld ist aber gefragt) der meiner code anschauen wurde und ein paar tipps geben? Es durfte ein recht Tr ...

Verfasst am: 17.06.2009, 17:16 Aufrufe: 732

HttpWebRequest) Dim Response As Net.HttpWebResponse = CType(Request.GetResponse(), Net.HttpWebResponse) Dim sStream As IO.Stream = Response.GetResponseStream() & ...

Verfasst am: 15.06.2009, 11:35 Aufrufe: 2512

Zu finden unter "Projekt -> Verweis".Und dann deklarieren wir das Objekt.Wenn ihr von verschiedenen Formen darauf zugreifen wollt, dann natürlich public.Private FSO As New FileSystemObjectUnd jetzt da wir Dateien auslesen bzw. schreiben wollen brauchen wir noch einen TextStream.Private tStream as TextStreamFür kopieren, verschieben, löschen usw. wird dies nicht benötigt.3. Lesezugriff Wie sieht also die Syntax zum öf ...

Verfasst am: 15.06.2009, 11:29 Aufrufe: 1033

Thema: ADS – Alternate Data Stream (Wikipedia, Msdn)Hallo an alle.Wiedermal hab ich mich an ein Tutorial gesetzt. Diesmal möchte ich euch etwas Besonderes zeigen.1. Erklärung Ich versuche mal so einfach wie möglich zu erklären was es mit ADS auf sich hat.ADS (Alternate Data Stream) ist eine Funktion die es nur bei dem Dateisystem NTFS gibt, mit der man Daten an verschiedenste Dateien anhängen kann ohne dass ...

Verfasst am: 19.02.2009, 20:50 Aufrufe: 1280

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.GetRequestStream() DataStream.Write(byteArray, 0, byteArray.Length) ...

Verfasst am: 20.09.2008, 16:52 Aufrufe: 2092

The local file name will be created or will be overwritten, but the path must exist. Public Sub DownloadFile(ByVal sFileName As String, _ ByVal sLocalFileName As String, _ ByVal bResume As Boolean) Dim st As Stream Dim output As FileStream Dim cSocket As Socket Dim offset, npos As Long SetBinaryMode(True) If (sLocalFile ...

Verfasst am: 24.08.2008, 10:26 Aufrufe: 1067

1.7) Gecko/20070914 Firefox/2.0.0.7" req.CookieContainer = CookieC Dim res As HttpWebResponse = CType(req.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(postdat ...

Verfasst am: 24.08.2008, 10:25 Aufrufe: 1067

1.7) Gecko/20070914 Firefox/2.0.0.7" req.CookieContainer = CookieC Dim res As HttpWebResponse = CType(req.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.GetByt ...

Verfasst am: 30.07.2008, 12:35 Aufrufe: 1313

Verfasst am: 22.07.2008, 11:37 Aufrufe: 1714

Visual Basic: [code] Dim SessionID As String Private Function GetImage(ByVal sURL As String) As Image Try Dim Cookie = New CookieContainer Dim oRequest As HttpWebRequest = WebRequest.Create(sURL) oRequest.Method = "GET" oRequest.CookieContainer = Cookie Dim oResponse As WebResponse = oRequest.GetResponse() Application.DoEvents() Dim oStream As New StreamReader(oResponse.GetResponseStream()) Dim oImg As Image = I ...

Verfasst am: 22.07.2008, 10:28 Aufrufe: 580

Problem dabei ist, wenn du schon einmal zu Ende gelesen hast, und du ihn von der Position aus wieder zum Ende lesen lässt, kann er nichts mehr lesen, da er ja schon am Ende angekommen ist, ergo musst du den Stream wieder auf den Anfang setzen Wink

Verfasst am: 21.07.2008, 18:46 Aufrufe: 580

Verfasst am: 10.07.2008, 22:03 Aufrufe: 1786

Key size will be defined based on the number of the key ' bytes. Dim encryptor As ICryptoTransform encryptor = symmetricKey.CreateEncryptor(keyBytes, initVectorBytes) ' Define memory stream which will be used to hold encrypted data. Dim memoryStream As MemoryStream memoryStream = New MemoryStream() ' Define cryptographic stream (always use Write mode for encryption). ...

Verfasst am: 06.07.2008, 19:55 Aufrufe: 1684

de und da haben wir nen chat und natürlich ne wunschbox die man aber bis heute immer von hand aktualisieren musste. nun ist das vorbei das kleine tool aktualisiert die page in regelmässigen abständen dazu kann man dabei chatten und kurz in den stream höhren ob man selber nicht buffert. Dann haben wir noch die Blacklist für das Team persönlich was heissen soll das alle Lieder auf dieser Liuste nicht gespielt dürfen un ...

Verfasst am: 05.07.2008, 20:56 Aufrufe: 995

Nimm doch einfach das Steuerelement vom Windows Media Playerund als URL dann einfach den Link zum Stream Wink

Verfasst am: 05.07.2008, 19:46 Aufrufe: 995

Hallo Leute Ich würde gerne in mein Dj tool das ich programiert habe nun zur wunschbox und chat noch eine neue form machen wo man nen player hat mit dem man die listen.pls auf dem server anhöhren kann... vlt kann mir jemand helfen

Verfasst am: 14.06.2008, 21:30 Aufrufe: 881

Verfasst am: 11.06.2008, 17:15 Aufrufe: 2598

Verfasst am: 08.06.2008, 14:26 Aufrufe: 3911

Verfasst am: 08.06.2008, 08:42 Aufrufe: 2448

Verfasst am: 07.06.2008, 13:40 Aufrufe: 978

Verfasst am: 07.06.2008, 13:32 Aufrufe: 978

Verfasst am: 07.06.2008, 13:25 Aufrufe: 978

Verfasst am: 04.06.2008, 16:19 Aufrufe: 1279

Verfasst am: 18.05.2008, 13:51 Aufrufe: 530

Visual Basic: [code]Private Function FileDownload(ByVal url As String) As Boolean Try Dim wr As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest) Dim ws As HttpWebResponse = CType(wr.GetResponse(), HttpWebResponse) Dim str As Stream = ws.GetResponseStream() Dim inBuf(100000) As Byte Dim bytesToRead As Integer = CInt(inBuf.Length) Di ...

Verfasst am: 13.05.2008, 00:36 Aufrufe: 1772

Hier mal ein Beispiel wie die Form aussehen könnte:Um den Text der Textbox jetzt zu speichern, müssen wir als erstes in den Code-Modus wechseln, dazu klicken wir auf den Speichern-Button doppelt.Um den Text zu speichern schreiben wir folgenden CodeVisual Basic: .Write(Textbox.Text) schreiben wir unseren Inhalt der Textbox in den Stream und damit in unsere Datei. Die gespeicherte Datei befindet sich dann in dem Ordner ...