Gateway_man

Eventuell versteht mans besser wenn ich den ganzen prozess mal reinposte: Imports System.Text Imports System Imports System.IO Imports System.Collections Public Class Form1 Dim user() As String Dim Passwort() As String Dim Userdaten As String Dim Usersatz() As String Dim lin_val() As String Dim recordsatz() As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim regreader As New StreamReader("C:\WINDOWS\system32\reg2.txt") Do While Not regreader.EndOfStream Userdaten = regreader.ReadLine user = Split(Userdaten, "~") Loop End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Eingabe1 As String Dim Eingabe2 As String Eingabe1 = TextBox1.Text Eingabe2 = TextBox2.Text Dim inputString As String = Eingabe1 & "~" & Eingabe2 & vbCrLf My.Computer.FileSystem.WriteAllText _ ("C:\WINDOWS\system32\reg2.txt", inputString, True) End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub End Class

also nochmal das Grundprinzip. Ich will ein registrierungspannel machen welches 2 Texboxen hat wo Benutzernamen und Passwort reingehören. Diese werden dann in einer Textdatei gespeichert und zwar folgendermaßen: "Username"~"Passwort" vbcrlf das Zeichen ~ dient als delimiter zum spliten. vbcrlf ist für den Zeilenumbruch da. jetzt habe ich bereits den Text Zeile für Zeile eingelesen. Das passiert so: Do While Not regreader.EndOfStream Userdaten = regreader.ReadLine Loop Und da ich das vbcrlf nutze benötige dafür keinen split. Jetzt muss ich jedoch noch Username und Passwort voneinander spliten und jedem einen eigenen string zuweisen, damit ich dies später in der If abfrage verwenden kann. Jedoch hab ich schon gesagt sobald ich Userdaten splite in user, welches mir dann den Usernamen schon einmal alleine anzeigt: user = Split(Userdaten, "~") kann ich diesen String nicht nocheinmal spliten da er schon gesplitet ist und ich somit nich an mein dazugehöriges Passwort rankomme. LadyPreis deine Beschreibung ist für mich noch nicht ganz verständlich. Trotzdem danke

Kleines Upadate die User kann ich schon trennen sieht wie folgt aus: Dim regreader As New StreamReader("C:\WINDOWS\system32\reg2.txt") Do While Not regreader.EndOfStream Userdaten = regreader.ReadLine user = Split(Userdaten, "~") Loop allerdings hab ich keine ahnung wie ich den Teil nach dem ~ Zeichen ausgelesen bekomme. Entweder er ließt mir beide strings oder nur den user String raus.

Hi, vorab es handelt sich hier um die Programmiersprache Visual Basic 2005. Ich habe folgendes vor: -Zwei Textboxen die 2 Strings in eine Textdatei anfügen. Die Strings sind nur ~ getrennt und nach jedem Stringsatz wird in der Textzeile ein Zeilenumbruch mit vbclf gemacht. Sieht folgendermaßen aus: Dim Eingabe1 As String Dim Eingabe2 As String Eingabe1 = TextBox1.Text Eingabe2 = TextBox2.Text Dim inputString As String = Eingabe1 & "~" & Eingabe2 & vbCrLf My.Computer.FileSystem.WriteAllText _ ("C:\WINDOWS\system32\reg2.txt", inputString, True) So jetzt will ich folgende Stringsatz wieder auslesen und die 2 Eingaben der Textboxen trennen. Das Problem: -einlesen der Texdatei -erstes Spliten in Stringsätze (damit ich die 2 Strings schonmal als ganzes habe) Userdaten = regreader.ReadToEnd Usersatz = Split(Userdaten, vbCrLf) So jetzt zum eigentlichen Problem: Wenn ich dann den String gesplitet habe in Userdaten, welche nochmals das ~ als Trennzeichen haben und ich diese nocheinmal spliten will sagt er mir das ich ein eindimmensionales Array nicht spliten kann. Was klar ist, jedoch fällt mir dazu jetzt keine passende lösung ein :-( Sofern mir jemand folgen konnte in meiner doch recht wirren beschreibung wäre ich über postive vorschläge sehr froh. lg simon

hat sich erledigt : If Path <> Path2 Then Try My.Computer.FileSystem.CopyDirectory(Path, Path2) Catch ex As IOException MessageBox.Show( _ "{0}: The write operation could " & _ "not be performed because the " & _ "specified part of the file is " & _ "locked.", ex.GetType().Name) End Try end if hmm jetzt bin ich noch am rätseln wie ich es machen muss damit er mir die Dateien im Verzeichnis vergleich und nur diese Kopiert die in dem andern Verzeichnis nicht vorhanden sind. Wie gesagt, wer Tipps liefern kann, würd mich wirklich freuen ;-) lg und noch nen schönen Abend. Simon

hallo hab hier grade mal n test gemacht und zwar wollte ich pade kopieren. Die wunschverzeichnisse kann man in 2 TextBoxen reinschreiben. Wenn ich debbugen lasse und Pfade eingebe macht er dies nicht allerdings bringt er mir auch keine exeption. nicht mal in output steht was drin. ich bin verwirrt :-( ! Hatte es folgendermaßen vor: Dim Path As String Dim Path2 As String Path = TextBox1.Text Path2 = TextBox2.Text My.Computer.FileSystem.CopyDirectory(Path, Path2) Ich habe die vermutung das die TextBox den "\" nicht annimmt, da dies ja ein Systemsonderzeichen ist. Wäre schon wenn ihr was dazu sagen könntet. lg Simon

ja sry wird halt mit excel geöffnet :-( Danke für eure hilfe habs aber etz schon hinbekommen und zwar folgender maßen: Dim objReader As New StreamReader("C:\Dokumente und Einstellungen\1K46\Desktop\e_recruter\maerkte.csv", System.Text.Encoding.Default()) und dann natürlich simultan auch beim Streamwritter sonst bringt es ja nichts. Using htmlWriter As New IO.StreamWriter("C:\Dokumente und Einstellungen\1K46\Desktop\e_recruter\recruter.htm", False, System.Text.Encoding.Default()) lg Simon

Hm versteh ich jetzt nich wie dus meinst ;-) ich greif lediglich mit dem Befehl Stream Reader aus der Filesystem Klasse darauf zu, splite diese Daten dann in kopf und Fußteil und lass dann den Fußteil in meine Tabele die sich in de html Datei befindet replacen.

Das wäre dann meine Read Befehlszeile : Dim objReader As New StreamReader("C:\Dokumente und Einstellungen\1K46\Desktop\e_recruter\maerkte.csv", System.Text.Encoding.GetEncoding) Wie man sieht habe ich versucht mit System.Text.Encoding.GetEncoding versuch da was zu machen. Problem ich weiß nicht welche Parameter ich nach GetEncoding nehmen muss.

hallo, hab es jetzt geschaft das er mir die daten aus der excel Tabelle in die Html Datei schreibt und diese auch an die richtige stelle platziert. ;-) Jetzt hab ich das Problem das er bei Umlauten wie Ä, Ö und Ü einfach ein Fragezeichen einsetzt. (Sowie beim scharfen ß ) Hab mich mal n bisschen schlau gemacht und herausgefunden das Visual Basic die Zeichensätze von externen Dateien nicht automatisch ausließt. Sprich er ließt die Daten aus der Excel datei mit uni code, jedoch benötige ich den Ansi Zeichensatz. Habe darauf hin in der MSDN die declare Funktion gefunden und dachte das wäre die lösung. Falsch gedacht diese Funktion ist explizieht nur für dll's. Weiß hier jemand eventuell noch einen Lösungsweg? lg Simon

Danke gute Idee und wie zu erwarten war wurde die Englische Version installiert :-( !Werd ich nochma mitm chef reden müssen. Danke

ja ich dachte auch das die englisch version installiert ist. Aber laut meines chefs sollte das die Deutsche Version sein. Er meinte ich müsst nur in den Einstellungen auf Deutsch umstellen, was wie gesagt recht wenig brachte. Ja ich wollte bei der Supportanfrage ja nur fragen warum dieses nicht geht(da es ja in den einstellungen sogar drin steht) und ob es nicht so etwas wie einen language patch gibt.

also unverschämter gehts wohl kaum. ich war jetzt auf der microsoft support seite und wollte fragen warum es nicht geht dann kommt folgendes: Verwenden Sie das einfache Online-Formular, um Ihre Supportanfrage an einen qualifizierten Supportmitarbeiter zu versenden. Anschließend erhalten Sie einen Anruf von uns. Sie können diese Option auch mit folgenden Verträgen verwenden (falls vorhanden): Software Assurance-Vereinbarung Professional-Vertrag TechNet-Abo MSDN-Abo Expression-Abo BizSpark-Abo Microsoft Partner Program (MSPP) Verfügbarkeit: Geschäftszeiten Montag – Freitag-- 8 – 18 Uhr. Kosten: 299,00 € zzgl. MwSt. pro Supportanfrage (Informationen zur MwSt. finden Sie hier) Antwort innerhalb von: abhängig vom Schweregrad Gemäß der EU MwSt-Richtlinie für elektronische Waren und Dienstleistungen (2002/38/EG) wird seit dem 1. Juli 2003 eine MwSt. auf alle Supportdienstleistungen erhoben. Kunden, die sich außerhalb des EU MwSt-Systems befinden, sind von dieser MwSt. nicht betroffen. In bestimmten Fällen fallen lokale Steuern an. Weitere Informationen finden Sie unter: http://support.microsoft.com/termsandconditions Sie erhalten 2 Supportanfragen für dieses Produkt. (Außerdem erhalten Sie kostenlosen Installationssupport per Telefon.) ----------------------------------------------------- Wie hab ich das zu verstehen ich soll für eine Supportanfrage 300 Euro löhnen? Gehts noch? Eine frechheit.

Hallo ich in visual studio 2005 als sprache "same language as Operating system" gewählt da mein OS ja deutsch ist. Jedoch übernimmt er mir das nicht. Er sagt die änderung erfordert einen Neustart von VS aber dannach gehts a net wirklich. Woran könnte das liegen?

bin jetzt fast fertig weiß nur nich wie ich die replace funktion in visual Basic so nutze wie es in dem power basic scirpt benutzt wurde und msdn ist nich gerade hilfreich. Es handelt sich um folgende codebereich (die Zeile die ich unterstrichen habe wird mir als syntax fehler gewertet) : For curLine = 2 To lines sLine = PARSE$(sTemp, vbCRLF, curLine) ''' datenzeile auslesen sNew = sFlds ''' Arbeitsstring mit HTML FeldIDs For i = 1 To fldCount [U] REPLACE "--"+flsLst(i)+"--" WITH PARSE$(sLine, ";", i) IN sNew[/U] Next i sOut = sOut + sNew Next wäre wie immer unendlich dankbar ;-) lg simon

sofern es euch hilft die ganze sache besser zu verstehen, habe ich hier das selbe Programm, nur geschrieben in power Basic, wo ich die syntax nicht verstehe :-D und dieses soll jetzt in visual Basic neu geschrieben erstellt werden. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' file csv2html.bas ' funktion csv daten in html Tabelle einlesen und html file erstellen ' inputs html template ( recruter.htm ) ' csv Data file ( maerkte.csv ) ' outputs html mit Tabelle ( personal.htm ) ' error/log file ( csv2html.log ) #DIM ALL #COMPILE EXE #REGISTER NONE #OPTION VERSION4 #INCLUDE "win32api.inc" '' Konstanten $fnTemplate = "recruter.htm" $fnCsvData = "maerkte.csv" $fnHTMLout = "personal.htm" $fnError = "csv2html.log" $TagStart = "<!start line>" $TagEnd = "<!end line>" FUNCTION FileExists(BYVAL filename AS STRING) AS LONG ON ERROR RESUME NEXT FUNCTION = (DIR$(filename) > "") END FUNCTION FUNCTION logfile ( BYVAL sMsg AS STRING ) AS LONG LOCAL hFile AS LONG ON ERROR GOTO logfile_err hFile = FREEFILE OPEN $fnError FOR APPEND AS hfile PRINT #hfile, sMsg & $CRLF CLOSE #hfile FUNCTION = %true EXIT FUNCTION logfile_err: CLOSE hfile END FUNCTION FUNCTION readTemplate() AS STRING LOCAL hFile AS LONG LOCAL sTemp AS STRING IF ISFALSE FileExists( $fnTemplate ) THEN logfile( "Folgende Datei fehlt: " & $fnTemplate ) EXIT FUNCTION END IF hFile = FREEFILE OPEN $fnTemplate FOR BINARY AS #hFile GET$ #hFile , LOF(#hFile), sTemp 'copy file into string CLOSE #hFile '''' steuer tags vorhanden ? IF INSTR( sTemp, $TagStart ) = 0 THEN logfile( "Der Steuer Tag " & $TagStart & " fehlt in der Datei : " & $fnTemplate ) EXIT FUNCTION END IF IF INSTR( sTemp, $TagEnd ) = 0 THEN logfile( "Der Steuer Tag " & $TagEnd & " fehlt in der Datei : " & $fnTemplate ) EXIT FUNCTION END IF FUNCTION = sTemp END FUNCTION FUNCTION readCSV() AS STRING LOCAL hFile AS LONG LOCAL sTemp AS STRING IF ISFALSE FileExists( $fnCsvData ) THEN logfile( "Folgende Datei fehlt: " & $fnCsvData ) EXIT FUNCTION END IF hFile = FREEFILE OPEN $fnCsvData FOR BINARY AS #hFile GET$ #hFile , LOF(#hFile), sTemp 'copy file into string CLOSE #hFile '''' feld definitionen vorhanden ? IF PARSECOUNT(sTemp, ";") = 0 THEN logfile( "Die Datei : " & $fnCsvData & " hat das falsche Format." ) EXIT FUNCTION END IF FUNCTION = sTemp END FUNCTION SUB splitTemplate( sTemp AS STRING, sKopf AS STRING, sFuss AS STRING, sFlds AS STRING ) LOCAL iStart AS INTEGER LOCAL iLength AS INTEGER sKopf = EXTRACT$(sTemp, $TagStart) sFuss = REMAIN$(sTemp, $TagEnd) iStart = LEN(sKopf)+ LEN($TagStart)+1 iLength = LEN(sTemp)-iStart-LEN(sFuss)-LEN($TagEnd) sFlds = LCASE$( MID$(sTemp,iStart,iLength) ) ''' für feldnamen array END SUB FUNCTION WINMAIN ( BYVAL hInstance AS DWORD, BYVAL hPrevInst AS DWORD, _ BYVAL lpszCmdLine AS ASCIIZ PTR, BYVAL nCmdShow AS LONG ) AS LONG LOCAL i AS INTEGER LOCAL lines AS INTEGER LOCAL curLine AS INTEGER LOCAL fldCount AS INTEGER LOCAL hFile AS LONG LOCAL sTemp AS STRING LOCAL sKopf AS STRING LOCAL sFuss AS STRING LOCAL sFlds AS STRING LOCAL sNew AS STRING LOCAL sOut AS STRING LOCAL sLine AS STRING sTemp = readTemplate() ''' Quelldaten lesen & validieren IF LEN(sTemp) = 0 THEN EXIT FUNCTION splitTemplate sTemp, sKopf, sFuss, sFlds sTemp = readCSV() IF LEN(sTemp) = 0 THEN EXIT FUNCTION lines = PARSECOUNT(sTemp, $CRLF) ''' zeilen der csv Datei zählen sLine = PARSE$(sTemp, $CRLF,1) ''' Kopfzeile auslesen fldCount = PARSECOUNT(sLine, ";") ''' Felder der Kopfzeile zählen DIM flsLst(fldCount) AS LOCAL STRING ''' array mit feldnamen füllen FOR i = 1 TO fldCount flsLst(i) = LCASE$(PARSE$(sLine, ";", i)) ''' lcase wegen lcase(sFlds) NEXT i FOR curLine = 2 TO lines sLine = PARSE$(sTemp, $CRLF,curLine) ''' datenzeile auslesen sNew = sFlds ''' Arbeitsstring mit HTML FeldIDs FOR i = 1 TO fldCount REPLACE "--"+flsLst(i)+"--" WITH PARSE$(sLine, ";", i) IN sNew NEXT i sOut = sOut + sNew NEXT hFile = FREEFILE ''' zieldaten speichern OPEN $fnHTMLout FOR OUTPUT AS #hFile PRINT #hFile , sKopf + sOut + sFuss CLOSE #hFile logfile( "Datei " & $fnHTMLout & " neu am: " & _ TIME$ & DATE$ & " Records: " + STR$(lines) ) END FUNCTION

ja eine html datei die die daten der csv hat. ja die html ist tabellarisch und ich will ein script schreiben sodass wenn ich die csv verändere nur die exe starte und es wird automatisch aktuallisisert. Ich benutze wie oben im thread name schon genannt visual Basic 2005. lg simon

hallo leute hab sitz hier gerade voll auf der Leitung. habe eine csv datei in der Datenabgespeichert sind die mit einem semikolon getrennt sind. Das einlesen klappt schon allerdings funktioniert das schreiben in die Html nicht ganz so wie es soll. habe in der Html einen eintrag getätigt (<!start line>) damit ich unter vb diesen als Delimiter benutzten kann, sodass das Programm weiß wo es die Daten einfügen soll. Desweiteren gibts es in der Html 5 Spalten die wie folgt heißen: -Markt -PLZ -Ort -Strasse -Telefon So jetzt poste ich nochmal schnell den quelltext : Imports System Imports System.IO Imports System.Collections Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sLine As String = "" Dim objReader As New StreamReader("****Pfad der eingelesenen csv Datei****") Dim Kopf As String Dim file As System.IO.StreamWriter Dim start As String start = "<!start line>" Kopf = objReader.ReadLine sLine = objReader.ReadToEnd() Dim lines() As String Dim fields() As String Dim htmlParts() As String Dim i As Double fields = Split(Kopf, ";") lines = Split(sLine, vbCrLf) For i = 0 To UBound(fields) ListBox1.Items.Add(Trim(fields(i))) Next objReader.Close() TextBox1.Text = sLine Dim startline As String file = My.Computer.FileSystem.OpenTextFileWriter("****Pfad****", True) startline = objReader.ReadLine htmlParts = Split(startline, start) For i = 0 To UBound(htmlParts) file.WriteLine(htmlParts(i) + "------") Next file.Close() End Sub Ich weiß isn bisschen undurchsichtig da man die beiden Dateien jetzt nich kennt aber würd mich trotzdem um jeden produktiven Gedanken freuen. Ich denke ich muss alle 5 spalten spliten aber irgendwie hab ich jetzt grad keinen klaren Kopf mehr. (is ja doch schon n bisschen spät) Mfg Simon

omg stimmt vedammt da hatte ich wohl wieder tomaten auf den Augen. Danke euch ;-)

hm ein syntax fehler in der For schleife ist es nicht, denn würde er mir ja gleich bemengeln, also kann es ja nur ein logischer Fehler sein, der während der Laufzeit auftritt.Aber irgendwie kann ich diesen fehler nicht nachvollziehn :-(

Tut mir leid, dachte die Fehler wären für euch schon ausschlagebend, die Zeile um die es sich handelt scheint diese zu sein. Da es ein Laufzeitfehler ist, wird mir im codefenster nicht angezeigt welche Zeile, jedoch steht in dem Fehler, das dieser wohl bei Zeile 99 sei. Nun dies wäre dann die betreffende: networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize)) Mfg Simon PS: Ich machs mal einfacher und Poste den ganzen Server code rein :-D Imports System.Net.Sockets Imports System.Text Module Module1 Dim clientsList As New Hashtable Sub Main() Dim serverSocket As New TcpListener(8888) Dim clientSocket As TcpClient Dim infiniteCounter As Integer Dim counter As Integer serverSocket.Start() msg("Chat Server Started ....") counter = 0 infiniteCounter = 0 For infiniteCounter = 1 To 2 infiniteCounter = 1 counter += 1 clientSocket = serverSocket.AcceptTcpClient() Dim bytesFrom(10024) As Byte Dim dataFromClient As String Dim networkStream As NetworkStream = _ clientSocket.GetStream() networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize)) dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom) dataFromClient = _ dataFromClient.Substring(0, dataFromClient.IndexOf("$")) clientsList(dataFromClient) = clientSocket broadcast(dataFromClient + " Joined ", dataFromClient, False) msg(dataFromClient + " Joined chat room ") Dim client As New handleClinet client.startClient(clientSocket, dataFromClient, clientsList) Next clientSocket.Close() serverSocket.Stop() msg("exit") Console.ReadLine() End Sub Sub msg(ByVal mesg As String) mesg.Trim() Console.WriteLine(" >> " + mesg) End Sub Private Sub broadcast(ByVal msg As String, _ ByVal uName As String, ByVal flag As Boolean) Dim Item As DictionaryEntry For Each Item In clientsList Dim broadcastSocket As TcpClient broadcastSocket = CType(Item.Value, TcpClient) Dim broadcastStream As NetworkStream = _ broadcastSocket.GetStream() Dim broadcastBytes As [Byte]() If flag = True Then broadcastBytes = Encoding.ASCII.GetBytes(uName + " says : " + msg) Else broadcastBytes = Encoding.ASCII.GetBytes(msg) End If broadcastStream.Write(broadcastBytes, 0, broadcastBytes.Length) broadcastStream.Flush() Next End Sub Public Class handleClinet Dim clientSocket As TcpClient Dim clNo As String Dim clientsList As Hashtable Public Sub startClient(ByVal inClientSocket As TcpClient, _ ByVal clineNo As String, ByVal cList As Hashtable) Me.clientSocket = inClientSocket Me.clNo = clineNo Me.clientsList = cList Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat) ctThread.Start() End Sub Private Sub doChat() Dim infiniteCounter As Integer Dim requestCount As Integer Dim bytesFrom(10024) As Byte Dim dataFromClient As String Dim sendBytes As [Byte]() Dim serverResponse As String Dim rCount As String requestCount = 0 For infiniteCounter = 1 To 2 infiniteCounter = 1 Try requestCount = requestCount + 1 Dim networkStream As NetworkStream = _ clientSocket.GetStream() networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize)) dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom) dataFromClient = _ dataFromClient.Substring(0, dataFromClient.IndexOf("$")) msg("From client - " + clNo + " : " + dataFromClient) rCount = Convert.ToString(requestCount) broadcast(dataFromClient, clNo, True) Catch ex As Exception MsgBox(ex.ToString) End Try Next End Sub End Class End Module

was so ja nicht stimmt der client beendet und aus irgeneinem grund zwingt er damit den host sich zu schließen. Waum?!?!?!??!

sry bin jetzt noch nicht so fit und die Fehlermeldungen sagen mir jetzt auch nicht so viel, sofern ihr was wisst bitte sagen ;-) Anfangs dachte ich das der Puffer überfüllt ist und habe ihn beim schließen der anwendung gelöscht allerdings wars das dann doch nicht :-( würde mich auf baldige antwort freuen. Simon

ne das mit den sockets hat sich schon erledigt :-D hab jetzt ein server progamm und ein client programm. wenn ich es lokal teste zeigt er mir das server Programm zwar an das zwei leute angemeldet sind, jedoch kann man die nachrichten nicht lesen!!! evtl könnt ihr den fehler erkennen der sicher in der client syntax ist. Imports System.Net.Sockets Imports System.Text Public Class Form1 Dim SUser As String Dim Passwort As Integer Dim clientSocket As New System.Net.Sockets.TcpClient() Dim serverStream As NetworkStream Dim readData As String Dim infiniteCounter As Integer Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click Close() End Sub Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmdEnter.Enabled = False lstAusgabe.Enabled = False lstAusgabe2.Enabled = False txtEingabe.Enabled = False ProgrammToolStripMenuItem.Enabled = False EinstellungenToolStripMenuItem.Enabled = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click SUser = "Simon" Passwort = 280490 Try If TextBox1.Text = SUser And TextBox2.Text = Passwort And CheckBox1.Checked = True Then Panel1.Visible = False cmdEnter.Enabled = True lstAusgabe.Enabled = True lstAusgabe2.Enabled = True txtEingabe.Enabled = True ProgrammToolStripMenuItem.Enabled = True EinstellungenToolStripMenuItem.Enabled = True lstAusgabe.Items.Add(SUser) Catch MessageBox.Show("Please check all your entries again") End Try Try readData = "Conected to Chat Server ..." clientSocket.Connect("127.0.0.1", 8888) 'Label1.Text = "Client Socket Program - Server Connected ..." serverStream = clientSocket.GetStream() Dim outStream As Byte() = _ System.Text.Encoding.ASCII.GetBytes(TextBox1.Text + "$") serverStream.Write(outStream, 0, outStream.Length) serverStream.Flush() Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf getMessage) ctThread.Start() Catch MessageBox.Show("Can not connect to the server") End Try End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MessageBox.Show("If you try to blame someone your computer will be shutdown :-D") End Sub Private Sub txtEingabe_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtEingabe.TextChanged End Sub Private Sub lstAusgabe2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstAusgabe2.SelectedIndexChanged End Sub Private Sub cmdEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnter.Click If txtEingabe.Text = "" Then MessageBox.Show("you can not send a emty Message") If txtEingabe.Text <> "" Then lstAusgabe2.Items.Add(SUser & ":" & txtEingabe.Text) txtEingabe.Text = "" Dim outStream As Byte() = _ System.Text.Encoding.ASCII.GetBytes(TextBox2.Text + "$") serverStream.Write(outStream, 0, outStream.Length) serverStream.Flush() End Sub Private Sub lstAusgabe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstAusgabe.SelectedIndexChanged End Sub Private Sub ProgrammToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgrammToolStripMenuItem.Click End Sub Private Sub SprachenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SprachenToolStripMenuItem.Click End Sub Private Sub DeutschToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeutschToolStripMenuItem.Click End Sub Private Sub EnglischToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnglischToolStripMenuItem.Click End Sub Private Sub EinstellungenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EinstellungenToolStripMenuItem.Click End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Timer1.Enabled = True Label3.Text = DateTime.Now End Sub Private Sub getMessage() For infiniteCounter = 1 To 2 infiniteCounter = 1 serverStream = clientSocket.GetStream() Dim buffSize As Integer Dim inStream(10024) As Byte buffSize = clientSocket.ReceiveBufferSize serverStream.Read(inStream, 0, buffSize) Dim returndata As String = _ System.Text.Encoding.ASCII.GetString(inStream) readData = "" + returndata Next End Sub Private Sub msg() If Me.InvokeRequired Then Me.Invoke(New MethodInvoker(AddressOf msg)) Else lstAusgabe2.Text = lstAusgabe2.Text + Environment.NewLine + " >> " + readData End If End Sub End Class Muss ich für die textBox n Timer benutzen welche diese ständig aktuallisiert? mfg Simon

hallo Leute, vorab ich nutze visual studio 2005 (IDE) und die Programmiersprache Visual Basic! ich wollte einen Messanger für eine bestimmte Zielgruppe basteln. (Sprich auch eigenes Layout etc.) vorab gibt es kostenlose icr channels auf die man mit seinem eigenen Programm zugreifen kann und mit seinem koppeln kann?? Jetzt sitz ich hier voll auf dem schlauch hab eigentlich alles soweit fertig (bis auf den schwierigsten Teil) , nur weiß ich jetzt nicht wie ich eine Internetverbindung etapliere! Gibts dazu irgendwo ne Anleitung? Ich selbst habe eine solche noch nicht gefunden. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmdEnter.Enabled = False lstAusgabe.Enabled = False lstAusgabe2.Enabled = False txtEingabe.Enabled = False ProgrammToolStripMenuItem.Enabled = False EinstellungenToolStripMenuItem.Enabled = False End Sub Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try If TextBox1.Text = SUser And TextBox2.Text = Passwort And CheckBox1.Checked = True Then Panel1.Visible = False cmdEnter.Enabled = True lstAusgabe.Enabled = True lstAusgabe2.Enabled = True txtEingabe.Enabled = True ProgrammToolStripMenuItem.Enabled = True EinstellungenToolStripMenuItem.Enabled = True lstAusgabe.Items.Add(SUser) Catch MessageBox.Show("Please check all your entries again") End Try Private Sub cmdEnter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnter.Click lstAusgabe2.Items.Add(SUser & ":" & txtEingabe.Text) End Sub lg Simon