vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Erstellen von dynamischen Kontextmen?s - wann immer Sie sie brauchen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Jobs Suche, Gesuche
VB6 -> vb.net 
Autor: Frank
Datum: 10.06.14 15:30

Hallo,

ich suche einen Programmierer der mir folgende Zeilen von VB6 nach vb.net schreibt.
Winsock OCX unter VB6 wurde verwendet.

Public iMerlinServerPort As Integer
Public sMerlinServerName As String
 
 
 
Private Sub Form_Load()
iMerlinServerPort = "6687"
sMerlinServerName = "Localhost"
 
Winsock.LocalPort = 6687
Winsock.Listen
End Sub
 
 
 
Private Sub Winsock_Close()
Winsock.Close
Do
    DoEvents
Loop Until Winsock.State = sckClosed
Winsock.Listen
lbl_status.Caption = "Warte auf eine Verbindung"
End Sub
 
 
 
Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)
If Winsock.State <> sckClosed Then Winsock.Close
Winsock.Accept requestID
lbl_status.Caption = "Eine Verbindung wurde hergestellt"
End Sub
 
 
 
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
    Dim EmpfangeneDaten As String
    Winsock.GetData EmpfangeneDaten
    txtDaten.Text = EmpfangeneDaten
 
    Dim Datei As String
    Dim Datum As String
    Dim Zeit As String
    Dim Speicherung As String
    Datum = Date
    Zeit = Time
    Datum = Replace(Datum, ".", "-")
    Zeit = Replace(Zeit, ":", "-")
    Datei = Datum & "-" & Zeit & ".xml"
 
    'Pfad
    Speicherung = App.Path & "\CRS\" & Datei
 
    'Speichern
    Open Speicherung For Output As #1
    Print #1, txtDaten.Text;
    Close #1
 
    'Rückantwort senden
    Winsock.SendData txtAntwort.Text ' muss <STATUS TEXT="OK"></STATUS> antworten
End Sub
 
 
 
Private Sub Winsock_SendComplete()
Call Winsock_Close
End Sub
Wer hätte hier zeit und was würde mich das Kosten?
Vielen Dank
Ronald

Frank

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VB6 -> vb.net3.480Frank10.06.14 15:30
Re: VB6 -> vb.net1.560Cheffboss19.07.14 11:01

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel