بسم الله الرحمن الرحيم
السلام عليكم ورحمة لاله وبركاته
نقلا عن موضوع الاخ HnHn والمتعلق بــ ( ارسال أمر بالوينسوك لفتح صفحة انترنت ) ووجدت المشاركة كالتالي :
لارسال امر لفتح صفحة انترنت يتم كما يلي :
Client
Dim 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
المشكلة // قمت بتجربة هذا الكود لكنه يعرض لي خطأ في امر الاستقبال ولا ادري ما السبب في ذلك ،،، والامر الثاني اريد ان اغير كود الاستقبال بهذه المشاركة كما عندي بالبرنامج ليكون بالشكل التالي :
Dim data As String
Dim cmdarr() As String
Dim cmd, Msg As String
Dim k As Integer
sckServer.GetData data, vbString
cmdarr = Split(data, "#")
For k = LBound(cmdarr) To UBound(cmdarr)
cmd = Left(cmdarr(k), 2)
Msg = Mid(cmdarr(k), 3)
Select Case cmd
Case Is = "AC"
WinExec "Explorer.exe " & Msg
end select
next
بالنسبة لهذا الكود هل يوجد به خطأ في الاستقبال ارجو تصحيح الكود مع الشكر