ممكن مساعدة بخصوص اداة الوينسوك

يتم ذلك عن طريق الامر SendData

مثلا لو اردت ارسال امر بفتح صفحة الانترنت سوف يتم ذلك كمايلي

Client

'HnHn :
	Dim OpenURL
		OpenURL = " "
		Winsock.SendData OpenURL

Server

الخادم رح يستقبل المسار للصفحة ويقوم بأعطاء الامر لفتحها في حدث Winsock DataArrival

ستضع التعريف الخاص بعملية فتح صفحة الويب

Private Declare Function WinExec Lib "KERNEL32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

ثم تنفيذ أو استقبال الامر

 Dim data As String
Winsock.GetData data
WinExec "Explorer.exe " & data

وهذا بشكل مبسط وسريع .. ونفس الطريقة مع اي شي تريد التحكم به .. فقط نسق عملية ارسال الاوامر مع الاكواد الصحيحة لتنفيذ ذلك

وستجد امثله حول هذا الامر من هنا ...

أو قراءة هذا الـــدرس للأخ Pharaonic_Guy وهناك مواضيع عدة في المنتدى يمكنك تصفحها B)

مشكور اخي

بس انا سمعت انه في طريقة ثانية

اني اضيف مديول و اشياء زي كده

ما طريقتها و جزاك الله خير

B) قد تكون هناك عدة طرق لا اعلمها فخفايا البرمجة كثيرة .. انت وشطارتك .. اذا فهمت الاساس .. تستطيع الابداع والتلاعب بالشفرات .. ويمكنك الذهاب لموضوع الاخ prof_ 1982 في "دليــــلك الأسرع " على هذا الرابط وهناك طريقة قام بتطويرها في هذا الرابط قد تفيدك او توحي لك بالطريقة التي تبحث عنها وبالتوفيق

السلام عليكم

طريقة الأخ هاني في الرد الأول له هي التي تستخدم في الأساس وكما ذكر ( أنت وشطارتك ) يعني مثلاً لو عايز تبعت عنوان صفحة بحيث السيرفر يفتحها أو عايز تخليه يفتح ملف معين تعمل تكويد لكل عملية مطلوبة

يعني مثلاً بدل ما تبعت فقط عنوان الصفحة في المثال السابق أبعت ثلاث حروف قبلها مثل

'HnHn :
	Dim OpenURL
		OpenURL = "xgx "
		Winsock.SendData OpenURL

ثم تقوم في السيرفر باستخلاص البيانات المرسلة وتطلع أول ثلاث حروف وتشوفهم إيه وعن طريق ال Select case تقوم بتنفيذ الأمر حسب حروف التكويد المرسلة

أرجوا أن تكون الفكرة وصلتك

في أمان الله

الأخ خبير فيجوال بيزك قال الأمر

WinExec "Explorer.exe " & data

هلWinExec أمر مرتبط بمكتبة معينه ؟ أم أداه تأخذ هذا الاسم ؟؟؟؟؟؟؟