Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Übersetzung von VB6 in VB.NET
Autor: crash10
Datum: 16.12.07 18:17
Hi Ich hab im internet einen source code gefunden den ich benötige aber dieser ist in VB6 geschrieben, aber ich habe nur vb.net. Ich hab schon die ganze Zeit rumprobiert aber ich bekomm das nicht mit den winsock nicht hin. Bitte helft mir diesen Source Code in vb.net umzuschreiben: Option Strict Off Option Explicit On Friend Class Form1 Inherits System.Windows.Forms.Form Private Sub cmdConnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdConnect.Click If winsock1.CtlState = MSWinsockLib.StateConstants.sckConnected Then MsgBox("You are already connected to :" & txtRemoteIP.Text & ", disconnect first!!", , "Error - Manjit") Exit Sub End If winsock1.Close() winsock1.Connect(txtRemoteIP, txtRemotePort) List1.Items.Add(("Connection request sent")) End Sub Private Sub cmdDisConnect_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdDisConnect.Click winsock1.Close() winsock1.Listen() List1.Items.Add(("Disconnected")) List1.Items.Add(("Listening to port " & txtLocalPort.Text & " for new connection request")) End Sub Private Sub cmdListen_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdListen.Click winsock1.Close() winsock1.Listen() List1.Items.Add(("Listening to port " & txtLocalPort.Text & " for new connection request")) End Sub Private Sub cmdSend_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSend.Click If winsock1.CtlState <> MSWinsockLib.StateConstants.sckConnected Then MsgBox("First connect to a client", , "Error - Manjit") Exit Sub End If If txtname.Text = "" Then MsgBox("Please type a display name!!!", , "Error - Manjit") txtname.Focus() Exit Sub End If If txtDataToSend.Text = "" Then MsgBox("Can't Send a blank msg!!!", , "Error - Manjit") txtDataToSend.Focus() Exit Sub End If If winsock1.CtlState <> MSWinsockLib.StateConstants.sckConnected Then Exit Sub 'Exit from this sub if socket is not ready Dim data As String data = txtname.Text & " : " & txtDataToSend.Text winsock1.SendData(data) 'Else, send data to remote host (ClientB) List1.Items.Add((txtname.Text & " : " & txtDataToSend.Text)) txtDataToSend.Text = "" End Sub Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click About.Show() End Sub Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load winsock1.LocalPort = CInt(txtLocalPort.Text) 'Set port 1981 to winsock txtLocalIP.Text = winsock1.LocalIP 'Give your local IP (Tell to your friend this IP to chat) List1.Items.Add(("Listening to port " & txtLocalPort.Text & " for new connection request")) winsock1.Listen() End Sub Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed winsock1.Close() End Sub Private Sub winsock1_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles winsock1.DataArrival Dim strData As String winsock1.GetData(strData, Name) 'Use this function to Get data from a remote host List1.Items.Add((strData)) End Sub Private Sub winsock1_error(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_errorEvent) Handles winsock1.error winsock1.Close() End Sub Private Sub winsock1_ConnectionRequest(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles winsock1.ConnectionRequest winsock1.Close() Dim conrqst As Short conrqst = MsgBox("Someone!!! wants to chat with you!!!", 4, "Connection Request") If conrqst = 6 Then winsock1.Accept(eventArgs.IDRequest) List1.Items.Add(("Connection made")) If conrqst = 7 Then List1.Items.Add(("Connection Denied")) End If End If End Sub End Class

Übersetzung von VB6 in VB.NET	2.085	crash10	16.12.07 18:17
Re: Übersetzung von VB6 in VB.NET	651	ralf_oop	16.12.07 18:55
Re: Übersetzung von VB6 in VB.NET	637	crash10	16.12.07 19:16
Re: Übersetzung von VB6 in VB.NET	664	viperbone	16.12.07 20:11
Re: Übersetzung von VB6 in VB.NET	637	Melkor	16.12.07 20:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen