动态提供IP地址和端口号

本文介绍了动态提供IP地址和端口号的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

大家好， 您能帮助我如何在tcp客户端编程中动态给定IP地址和端口号吗(例如，对于按钮单击和表单加载，一次给定IP地址和端口号).请帮助我. [根据OP的回复编辑] 我的确切问题是我在tcp客户端编程中使用了表单加载和按钮单击事件，因为我给了ipaddress和端口号2次(即，一次用于表单加载事件，一次给按钮单击事件).但是我想给ipaddress和一次动态加载表单端口和按钮单击事件的端口号. 我的代码是

Hi all, can you help me how to give ip address and port number dynamically in tcp client programming(ie for button click and form load give ipaddress and port number one time).please help me. [edit from OP''s response] Whats my exact issue is I used Form load and button click events in tcp client programming in that i gave ipaddress and port number 2 times(ie one time for form load event and one time for button click event).But i want give ipaddress and port number dynamically for form load and button click event at one time. my code is

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim RxResponse, RxResponse1, RxResponse2, RxResponse3, RxResponse4 As String Dim TxCommand1 As String Dim Buffer1() As Byte Dim InBuff(1532) As Byte Try client.Connect(IpAddress, PortNum) Catch ex As Exception MsgBox("Connection with the server failed, and the following code was returned:" & ex.Message, 0, "connection error") Exit Sub End Try TxCommand1 = "01ff000a44200000046a0200" Buffer1 = System.Text.Encoding.Default.GetBytes(TxCommand1.ToCharArray) client.GetStream().Write(Buffer1, 0, Buffer1.Length) While Not client.GetStream().DataAvailable() Application.DoEvents() End While If client.GetStream().DataAvailable() Then client.GetStream().Read(InBuff, 0, InBuff.Length) RxResponse = System.Text.Encoding.Default.GetString(InBuff) RxResponse1 = Mid(RxResponse, 5, 8) RxResponse2 = Mid(RxResponse1, 1, 4) RxResponse3 = Mid(RxResponse1, 5, 4) RxResponse4 = RxResponse3 & RxResponse2 TextBox4.Text = CStr(ConvertHexToSingle(RxResponse4)) End If client.GetStream().Close() 'client.Close() ' End Sub End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Buffer(), Buffer1() As Byte Dim TxCommand3, TxCommand2, TxCommand4, TxCommand5 As String Dim sal, smart As Integer Dim sal1, sal2, trak2, trak1, trak3, trak4 As String Try client.Connect(IpAddress, PortNum) Catch ex As Exception MsgBox("Connection with the server failed, and the following code was returned:" & ex.Message, 0, "connection error") Exit Sub End Try Dim trak As Single sal = CInt(Val(TextBox3.Text)) sal1 = Hex$(sal) smart = Len(sal1) Select Case smart Case 1 sal2 = "000" & sal1 Case 2 sal2 = "00" & sal1 Case 3 sal2 = "0" & sal1 Case Else sal2 = sal1 End Select TxCommand2 = "03ff000a4420000004560100" TxCommand3 = TxCommand2 & sal2 Buffer = System.Text.Encoding.Default.GetBytes(TxCommand3.ToCharArray) 'Sending a read command client.GetStream().Write(Buffer, 0, Buffer.Length) 'Waiting for a response from an Ethernet adapter While Not client.GetStream().DataAvailable() Application.DoEvents() End While trak = CSng(TextBox2.Text) trak1 = ConvertSingleToHex(trak) trak2 = Mid(trak1, 1, 4) trak3 = Mid(trak1, 5, 4) trak4 = trak3 & trak2 TxCommand4 = "03ff000a4420000000000200" TxCommand5 = TxCommand4 & trak4 Buffer1 = System.Text.Encoding.Default.GetBytes(TxCommand5.ToCharArray) 'Sending a read command client.GetStream().Write(Buffer1, 0, Buffer1.Length) 'Waiting for a response from an Ethernet adapter While Not client.GetStream().DataAvailable() Application.DoEvents() End While client.GetStream().Close() client.Close() End Sub

请帮帮我................... [/edit]

please help me................... [/edit]

推荐答案

(sal) 聪明= Len(sal1) 选择 案例聪明 案例 1 sal2 = " 000" &萨尔1 案例 2 sal2 = " 00" &萨尔1 案例 3 sal2 = " 0" &萨尔1 案例 其他 sal2 = sal1 结束 选择 TxCommand2 = " 03ff000a4420000004560100" TxCommand3 = TxCommand2&萨尔2 Buffer = System.Text.Encoding.默认 .GetBytes(TxCommand3.ToCharArray) ' 发送读取命令 client.GetStream().Write(Buffer， 0 ，Buffer.Length) ' 等待来自以太网适配器的响应 同时 不是 client.GetStream().DataAvailable() Application.DoEvents() 结束 同时 trak = CSng (TextBox2.Text) trak1 = ConvertSingleToHex(trak) trak2 = Mid(trak1， 1 ， 4 ) trak3 = Mid(trak1， 5 ， 4 ) trak4 = trak3& trak2 TxCommand4 = " 03ff000a4420000000000200" TxCommand5 = TxCommand4& trak4 Buffer1 = System.Text.Encoding.默认 .GetBytes(TxCommand5.ToCharArray) ' 发送读取命令 client.GetStream().Write(Buffer1， 0 ，Buffer1.Length) ' 等待来自以太网适配器的响应 同时 不是 client.GetStream().DataAvailable() Application.DoEvents() 结束 同时 client.GetStream().Close() client.Close() 结束 子 (sal) smart = Len(sal1) Select Case smart Case 1 sal2 = "000" & sal1 Case 2 sal2 = "00" & sal1 Case 3 sal2 = "0" & sal1 Case Else sal2 = sal1 End Select TxCommand2 = "03ff000a4420000004560100" TxCommand3 = TxCommand2 & sal2 Buffer = System.Text.Encoding.Default.GetBytes(TxCommand3.ToCharArray) 'Sending a read command client.GetStream().Write(Buffer, 0, Buffer.Length) 'Waiting for a response from an Ethernet adapter While Not client.GetStream().DataAvailable() Application.DoEvents() End While trak = CSng(TextBox2.Text) trak1 = ConvertSingleToHex(trak) trak2 = Mid(trak1, 1, 4) trak3 = Mid(trak1, 5, 4) trak4 = trak3 & trak2 TxCommand4 = "03ff000a4420000000000200" TxCommand5 = TxCommand4 & trak4 Buffer1 = System.Text.Encoding.Default.GetBytes(TxCommand5.ToCharArray) 'Sending a read command client.GetStream().Write(Buffer1, 0, Buffer1.Length) 'Waiting for a response from an Ethernet adapter While Not client.GetStream().DataAvailable() Application.DoEvents() End While client.GetStream().Close() client.Close() End Sub

请帮帮我................... [/edit]

please help me................... [/edit]

在您的表单中添加两个文本框，并要求用户填写详细信息.单击按钮后，您可以阅读这些项目，将它们转换为正确的格式，然后照常进行. Add two text boxes to your form and ask the user to fill in the details. When the button is clicked you can read those items, convert them to the correct format and proceed as normal.