arash020
یک شنبه 27 آذر 1390, 00:29 صبح
سلام
می خوام سورس زیر رو که مال vb6 هست رو به VB.net تبدیل کنم
ولی هرکاری میکنم برنامه یه جاهاییش رو اضلا قبول نمیکنه و باید کلا پاک یا غیرفعال کنم
نمیدونم چکار کنم...
لطفا منو راهنمایی کنید
برنامه دارای دوتا کنترل Wincsok هست با چند تا کنترل دیگه
سورس :
Option Explicit
' Made By Michael Ciurescu (CVMichael)
Private Const DiscoveryPort As Long = 4112 ' ports are reversed from the server
Private Const ResponsePort As Long = 4111
Private ServerIP As String
Private ServerPort As Long
Private Sub Form_Load()
SckUDP.Close
SckUDP.Protocol = sckUDPProtocol
SckUDP.RemoteHost = "255.255.255.255"
SckUDP.LocalPort = DiscoveryPort
SckUDP.RemotePort = ResponsePort
SckUDP.Bind DiscoveryPort
' Broadcast, and ask where the server is
SckUDP.SendData "CLIENT|What's your IP ?"
End Sub
Private Sub SckUDP_DataArrival(ByVal bytesTotal As Long)
Dim MSG As String
' Received message from server
SckUDP.GetData MSG, vbString
If MSG Like "SERVER|*" Then ' Received message from server
ServerIP = Split(Split(MSG, "|")(1), ",")(0)
ServerPort = Val(Split(Split(MSG, "|")(1), ",")(1))
If Len(ServerIP) > 0 And ServerPort > 0 Then
ConnectToServer
End If
End If
End Sub
Private Sub ConnectToServer()
With SckTCP
.Close
.RemoteHost = ServerIP
.RemotePort = ServerPort
.Connect
End With
End Sub
Private Sub txtSendMessage_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdSend_Click
KeyAscii = 0
End If
End Sub
Private Sub cmdSend_Click()
If Len(Me.txtSendMessage.Text) > 0 Then
SckTCP.SendData Me.txtSendMessage.Text
On Error Resume Next
lstMessages.AddItem "Client: " & Me.txtSendMessage.Text
lstMessages.TopIndex = lstMessages.ListCount
Me.txtSendMessage.Text = ""
End If
End Sub
Private Sub SckTCP_DataArrival(ByVal bytesTotal As Long)
Dim MSG As String
SckTCP.GetData MSG, vbString
lstMessages.AddItem "Server: " & MSG
On Error Resume Next
lstMessages.TopIndex = lstMessages.ListCount
End Sub
Private Sub Timer1_Timer()
Dim TmpStr As String
TmpStr = "Client - " & Choose(SckTCP.State + 1, "Closed", "Open", "Listening", "Connection pending", "Resolving host", "Host resolved", "Connecting", "Connected", "Server is disconnecting", "Error")
If Me.Caption <> TmpStr Then Me.Caption = TmpStr
End Sub
می خوام سورس زیر رو که مال vb6 هست رو به VB.net تبدیل کنم
ولی هرکاری میکنم برنامه یه جاهاییش رو اضلا قبول نمیکنه و باید کلا پاک یا غیرفعال کنم
نمیدونم چکار کنم...
لطفا منو راهنمایی کنید
برنامه دارای دوتا کنترل Wincsok هست با چند تا کنترل دیگه
سورس :
Option Explicit
' Made By Michael Ciurescu (CVMichael)
Private Const DiscoveryPort As Long = 4112 ' ports are reversed from the server
Private Const ResponsePort As Long = 4111
Private ServerIP As String
Private ServerPort As Long
Private Sub Form_Load()
SckUDP.Close
SckUDP.Protocol = sckUDPProtocol
SckUDP.RemoteHost = "255.255.255.255"
SckUDP.LocalPort = DiscoveryPort
SckUDP.RemotePort = ResponsePort
SckUDP.Bind DiscoveryPort
' Broadcast, and ask where the server is
SckUDP.SendData "CLIENT|What's your IP ?"
End Sub
Private Sub SckUDP_DataArrival(ByVal bytesTotal As Long)
Dim MSG As String
' Received message from server
SckUDP.GetData MSG, vbString
If MSG Like "SERVER|*" Then ' Received message from server
ServerIP = Split(Split(MSG, "|")(1), ",")(0)
ServerPort = Val(Split(Split(MSG, "|")(1), ",")(1))
If Len(ServerIP) > 0 And ServerPort > 0 Then
ConnectToServer
End If
End If
End Sub
Private Sub ConnectToServer()
With SckTCP
.Close
.RemoteHost = ServerIP
.RemotePort = ServerPort
.Connect
End With
End Sub
Private Sub txtSendMessage_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdSend_Click
KeyAscii = 0
End If
End Sub
Private Sub cmdSend_Click()
If Len(Me.txtSendMessage.Text) > 0 Then
SckTCP.SendData Me.txtSendMessage.Text
On Error Resume Next
lstMessages.AddItem "Client: " & Me.txtSendMessage.Text
lstMessages.TopIndex = lstMessages.ListCount
Me.txtSendMessage.Text = ""
End If
End Sub
Private Sub SckTCP_DataArrival(ByVal bytesTotal As Long)
Dim MSG As String
SckTCP.GetData MSG, vbString
lstMessages.AddItem "Server: " & MSG
On Error Resume Next
lstMessages.TopIndex = lstMessages.ListCount
End Sub
Private Sub Timer1_Timer()
Dim TmpStr As String
TmpStr = "Client - " & Choose(SckTCP.State + 1, "Closed", "Open", "Listening", "Connection pending", "Resolving host", "Host resolved", "Connecting", "Connected", "Server is disconnecting", "Error")
If Me.Caption <> TmpStr Then Me.Caption = TmpStr
End Sub