تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية هذا تطبيق كود على اتصال ...
#1
سلام عليكم
الصلاه وسلام على سيدنا محمد اما بعد/
اريد تطبيق الكود هذا ع اتصال الكود ادناه وشكراً
فكرة تغير الايبي عند اتصال فقط

كود :
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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية الربط مع جوجل ايرث khaled12345 3 1,171 28-08-20, 06:14 PM
آخر رد: ahnouche sofiane
  كيفية الزيادة التلقائية لرصيد الإجازات في قاعدة البيانات الوايلي 3 1,404 28-08-20, 03:09 PM
آخر رد: Sholh
  كيفية عرض بيانات الغرفة من قاعدة البيانات إلى واجهة المستخدم sherf 0 171 16-08-20, 06:01 AM
آخر رد: sherf
  اتصال بقاعدة البيانات عمور2016 15 1,046 12-07-20, 04:46 AM
آخر رد: ابراهيم ايبو
  كيفية تحكم في TextBox cordava 6 378 07-07-20, 07:15 PM
آخر رد: cordava
  [سؤال] كيفية تحميل ادوات الديف اكسبريس ؟ منه 6 519 10-06-20, 06:00 AM
آخر رد: khodor1985
  هل يمكن تحويل تطبيق من لغة الفيجوال بيسك إلى الأندرويد Hazem1 5 514 06-06-20, 11:57 PM
آخر رد: WaeLx
  [سؤال] كيفية عمل ارشيف للملفات المحفوظة عاصم النجار 4 394 03-06-20, 08:11 PM
آخر رد: kiki
  مساعدة في تطبيق هذا الدرس لتحديث اداة WebBrowser ahmedhhh2 6 1,116 02-06-20, 11:30 AM
آخر رد: ahmedhhh2
  [سؤال] كيفية عمل بتون أو بيكتشر بيضاوي أو دائرية منه 1 251 31-05-20, 06:46 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم