آهـلآ وـوسـهـلآ بـكـم فـي مـنـتـدى كـرـرٍوـوب بـوـوق آلحـرـرٍب تـشـرـرٍفـنـآفـي آنـظـمـآمـك للمـنـتـدى سـجـل فـي آلمـنـتـدى لكـي تـتـمـكـن مـن تـحـمـيـل آلبـرـرٍآمـج وـوتـآكـد مـن صـحـة بـيـآنـتـك فـي آلتـسـجـيـل مـثـل آمـيـلك وـوآسـمـك آلمـسـتــعــآرـر وـوسـوـوفـة تـصـلك رـرٍسـآلة عـلى آمـيـلك تـآكـد بـأنـك سـجـلت فـي آلمـنـتـدى

عمل اتصال بسيرفر النيمبوز عن طريق الفيجوال بيزك6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

عمل اتصال بسيرفر النيمبوز عن طريق الفيجوال بيزك6

مُساهمة من طرف ???? في الإثنين سبتمبر 24, 2012 6:46 pm

اسهل طريقه للتصال بسيرفر النيمبوز عن طريق الفيجوال بيزك6
تعمل بيها اتصال بسرفر النيم باز بفجوالبيزك6
بس لازم الاول يكون
عندك خلفية فى الفجول

الاول هتفتح الفجول بيزك
عادى وتختار stander
project

بعدها تحط 2 صندوق نص و
2 ليبل و2 كوماند بوتن و 1 ليست بوكس

وتخلى التكست متاع ليبل
1 = id

وتحط ادمها التكست رقم 1
الى بيكون اسمه text1

تحتها تحت اليبل 2
وتخلى التكست بتاعها = password

وتحط ادمها التكست
التانى الى بيكون ب اسم text2

والكوماند 1 تسميها login

واكوماند2 تسميها logof

وتحط اليست بوكس تحط

بعدها هتسدعى اداة
ونسوك والى مش عارف هنقولو اازاى

تتدوس فى صندوق الادوات
كليك يمين وتختار compents

هتفتحلك لستة تتدور
فيها ع الكلمة هدى

microsoft wibsock control 6.0

تعلم عليها وتضغط اوك
هتظهر عندك فى صندوق الادوات تكتين عليها استدعتها كدا خلاص

نيجى ل الاكواد

هتحط فى كوماند 1
الكودا دا
winsock1.close
Winsock1.remotehost="openfire.nimbuzz.com"
Winsock1.remoteport=5222
Winsock1.connect

وتحط فى الكوماند 2
الكود دا
winsock1.close
list1.additem "connection ended"



وتاخد الكود الى جى هدا
كوبى وتحطه

Private Sub Winsock1_Connect()
Winsock1.SendData "to='nimbuzz.com' version='1.0' xmlns:stream='http://etherx.jabber.org/streams'
xml:lang='ar' >"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim ambil As String
Winsock1.GetData ambil
ambil = Replace(ambil, """", "'")
If InStr(ambil, "xmlns='http://jabber.org/features/compress'>zlibxmlns='urn:ietfarams:xml:ns:xmpp-sasl'>PLAINDIGEST-MD5xmlns='http://jabber.org/features/iq-register'/>")
Then
Winsock1.SendData "to='nimbuzz.com'>"
& Text1.Text & "" &
Text2.Text & "ddddddddddd"
End If
DoEvents
If InStr(ambil, "id='NLgn'/>") Then
List1.AddItem "login at " & Text1.Text & "=Succsed"
End If
If InStr(ambil, "id='NLgn'>" &
Text1.Text & "" & Text2.Text
&
"dddddddddddcode='401' type='auth'>")
Then
List1.AddItem "login at " & Text1.Text & " =Faild"
End If
End Sub

واحفظ مشروعك وشغله

وافتحه وجرب حط اى ميل
مرة بباسورد صح ومرة بباسوورد غلط
هيقولك فى الصح صح والغلط
غلط

????
زائر


الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى