بسم الله الرحمن الرحيم
صار عندي مشكلة ثانية بالأداة شكلو الكتاب الي استخدمو فيه كثير اغلاط المهم انا بدي ان ارسل رسالة للخادم و لما ارسلها يستقبلها الخادم بالشكل الي رسلتها فيه يعني اذا ضغطت على ارسال بتكست توصله في مربع نص ما اعتقد انكم فهمتوني كويس بس شوفوا المثال و عدلو عليه و قولولي الاخطاء رجائا و اكون شاكر كثير للي يساعدني ^_^
السلام عليكم
- الكود صحيح في برنامج الإستقبال . لكن الكود في برنامج الإرسال فيه أخطاء بسيطه و وهذه الأسطر التي كان فيها خطأ , بعد التعديل :
كود :
Private Sub Command2_Click()
wsk.SendData "Text" + Text1.Text
End Sub
Private Sub Command3_Click()
wsk.SendData "mgbx" + Text1.Text
End Sub
Private Sub Command4_Click()
wsk.SendData "capt" + Text1.Text
End Sub
- تحياتي .
اخي في بي كود لرسالة لما توصل للمستقبل يطلعلي انو في غلط بالدالة lift ارجو انك تكون جربت البرنامج بعد التعديل
السلام عليكم
- المثال يعمل عندي جيدا , بعد التعديل البسيط الذي قلته في ردي السابق , ولاتوجد دالة Left في المثال , فقط دالة Mid , أرفقت لك المثال بعد التعديل .
- تحياتي .
اسف اخي انا كنت عامل دالة lift بعدين عدلتها عشان اجيب ال٤ حروف ااولى كنت عامل
s=lift(4,s)w
حرف الw زيادة لانو رد سريع ما في كود و شكرا على المثال