ir-security
سه شنبه 26 مرداد 1395, 13:27 عصر
با سلام
این کد که گذاشتم کده ریموت کردن ای دی در نیمباز هستش ولی نمیدونم کجای کد مشکل داره که یا خطا میده یا عمل نمیکنه
خط اول میگه اگه همچین موردی رو از سرور گرفتی برو خط بعدی رو اجرا کن
خط دوم هم همینو میگه
خط سوم میگه تمام کد دریافتی رو تا حرف #k رو که گرفتی برابر با هیچ قرارش بده و برو بعدی
بعدی یه متغییر داریم به نام kick که مختصات دریافتی مربوط به خودش هستن و تو مختصاتش گفته شده هرچی دریافتی داریم تا قبل از <body/> برامون برابر با kickش کن و برو به بعدی
و در اخر یه کد کیک کردن از روم هستش که به جای اسم اون شخص از kick استفاده کردیم و متغییرمون هستش ولی من موندم و این اشکالات که نمیدونم کجای کدهاست.
لطفا یه نگاه بندازین اگر بلدین با تشکر:افسرده:
If InStr(getdata, "<message from='" & t4.Text & "@conference.nimbuzz.com/" & t5.Text & "'") <> 0 Then
If InStr(getdata, "<body>k#") <> 0 Then
getdata = Replace(getdata, "<message from='" & t4.Text & "@conference.nimbuzz.com/" & t5.Text & "'to='" & t1.Text & "@nimbuzz.com/" & t3.Text & "' type='groupchat'><body>k#", "")
kick = Split(getdata, "</body>")
ws1.SendData "<iq id='jcl_10' to='" + t4.Text + "@conference.nimbuzz.com' type='set'><query xmlns='http://jabber.org/protocol/muC#admin'><item nick=' " + kick(i) + " ' role='none'><reason>You have been kicked.</reason></item></query></iq>"
End If
End If
این کد که گذاشتم کده ریموت کردن ای دی در نیمباز هستش ولی نمیدونم کجای کد مشکل داره که یا خطا میده یا عمل نمیکنه
خط اول میگه اگه همچین موردی رو از سرور گرفتی برو خط بعدی رو اجرا کن
خط دوم هم همینو میگه
خط سوم میگه تمام کد دریافتی رو تا حرف #k رو که گرفتی برابر با هیچ قرارش بده و برو بعدی
بعدی یه متغییر داریم به نام kick که مختصات دریافتی مربوط به خودش هستن و تو مختصاتش گفته شده هرچی دریافتی داریم تا قبل از <body/> برامون برابر با kickش کن و برو به بعدی
و در اخر یه کد کیک کردن از روم هستش که به جای اسم اون شخص از kick استفاده کردیم و متغییرمون هستش ولی من موندم و این اشکالات که نمیدونم کجای کدهاست.
لطفا یه نگاه بندازین اگر بلدین با تشکر:افسرده:
If InStr(getdata, "<message from='" & t4.Text & "@conference.nimbuzz.com/" & t5.Text & "'") <> 0 Then
If InStr(getdata, "<body>k#") <> 0 Then
getdata = Replace(getdata, "<message from='" & t4.Text & "@conference.nimbuzz.com/" & t5.Text & "'to='" & t1.Text & "@nimbuzz.com/" & t3.Text & "' type='groupchat'><body>k#", "")
kick = Split(getdata, "</body>")
ws1.SendData "<iq id='jcl_10' to='" + t4.Text + "@conference.nimbuzz.com' type='set'><query xmlns='http://jabber.org/protocol/muC#admin'><item nick=' " + kick(i) + " ' role='none'><reason>You have been kicked.</reason></item></query></iq>"
End If
End If