+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كيفية هذا تطبيق كود على اتصال ... (/showthread.php?tid=18901)
كيفية هذا تطبيق كود على اتصال ... - 3asfa~mdmra - 21-01-17
سلام عليكم
الصلاه وسلام على سيدنا محمد اما بعد/
اريد تطبيق الكود هذا ع اتصال الكود ادناه وشكراً
فكرة تغير الايبي عند اتصال فقط
كود :
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
Dim ClientSocket As New TcpClient
Dim ServerStream As NetworkStream
Dim ServerAddress As String = "x.x.x.x" ' Set the IP address of the server
Dim PortNumber As Integer = 11000 ' Set the port number used by the server
Dim OutStream As Byte() = Encoding.ASCII.GetBytes("Message sent to the server")
Dim ReceivedData As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ClientSocket.Connect(ServerAddress, PortNumber)
Dim inStream(100000) As Byte
ServerStream = ClientSocket.GetStream()
ServerStream.Write(OutStream, 0, OutStream.Length)
ServerStream.Flush()
ServerStream.Read(inStream, 0, CInt(ClientSocket.ReceiveBufferSize))
ReceivedData = Encoding.ASCII.GetString(inStream)
HandleReceivedDate(ReceivedData)
End Sub
Private Sub HandleReceivedDate(ByVal msg As String)
End Sub
End Classكود الاتصال
كود :
x = New agsXMPP.XmppClientConnection
With x
.Server = "nimbuzz.com"
.ConnectServer = "o.nimbuzz.com"
.Open(id.Text, password.Text)
.Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
.ClientVersion = ("1.0")
.Port = "5222"
.Show = protocol.client.ShowType.NONE
AddHandler .OnClose, AddressOf dc
AddHandler .OnReadXml, AddressOf Xml1
AddHandler .OnLogin, AddressOf loged
AddHandler .OnAuthError, AddressOf wrong
End With