تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الخطء في هذا الكود
#1
كود :
Dim lstscy As Integer

Private Sub Form_Load()
Winsock(0).LocalPort = 51234
Winsock(0).Close
Winsock(0).Listen
End Sub

Private Sub Winsock_Close(Index As Integer)
Winsock(Index).Close
Unload Winsock(Index)
End Sub
Private Sub Winsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
lstscy = lstscy + 1
Load Winsock(lstscy)
Winsock(lstscy).Accept requestID
End Sub
Private Sub Winsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim fnlarr() As String
Winsock(Index).GetData txtdt, 8, bytesTotal
resid = Val(Mid(txtdt, 6, 3))
abdata = LoadResData(resid, "CUSTOM")
If resid = 110 Then
frsarr = Split(txtdt, "HTTP")

txtsend = StrConv(abdata, vbUnicode)
hdtxt = "HTTP/1.1 200 OK" + LTrim(Str(Len(txtsend))) + vbNewLine + "Content-Type: " + "text/html" + vbNewLine
Winsock(Index).SendData hdtxt + vbNewLine
Winsock(Index).SendData txtsend

Else
hdtxt = "HTTP/1.1 200 OK" + vbNewLine + "Content-Length: " + LTrim(Str(UBound(abdata) + 1)) + vbNewLine + "Content-Type: " + "text/plain" + vbNewLine
Winsock(Index).SendData hdtxt + vbNewLine
Winsock(Index).SendData abdata
End If
End Sub
Private Function Hex2String(nStr As String) As String
For i = 1 To Len(nStr) / 2
Hex2String = Hex2String + Chr(Val("&H" + Mid(nStr, i * 2 - 1, 2)))
Next
End Function
Private Sub main()

   Dim rc As Long

 
   If PortInUse(51234) = True Then
       MsgBox "Application is already running", vbCritical, "Error"
       Exit Sub
   ElseIf PortInUse(41586) = True Then
       MsgBox "Application is already running", vbCritical, "Error"
       Exit Sub
   ElseIf PortInUse(41587) = True Then
       MsgBox "Application is already running", vbCritical, "Error"
       Exit Sub
   Else
       frm.Show
       '
   End If
   'End If

End Sub
Private Function PortInUse(ByVal PortNumber As Long) As Boolean
Dim oSocket As Object
Dim bAns As Boolean

On Error Resume Next
Set oSocket = CreateObject("MSWinsock.Winsock.1")
   
   If Err.Number > 0 Then
       Err.Raise 30000, , "Could not create winsock object"
       Exit Function
   End If
Err.Clear
oSocket.LocalPort = PortNumber
oSocket.Listen
bAns = Err.Number = 10048
oSocket.Close
Set oSocket = Nothing
PortInUse = bAns
End Function
وهذه هيا صور الخطأ


الملفات المرفقة صورة/صور
       
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
اين انتم يا اهل ايها العباقرة لقد كرهت من طرح الاسئلة لا تبخلوعلينا جزاكم الله خيرا اين انتم
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#3
أهلا أخي الكريم , أرجوا المعذرة منك أخي الكريم للتأخر في الرد وذلك بسبب الإنشغال , بالنسبة للخطأ الذي يظهر لك في مثالك الرسالة تقول لك لم يتم العثور على السورس الذي رقم صفر والذي تريد تحميله أو إستخراجه من ملف السورس .
الرد
تم الشكر بواسطة: sendbad100 , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [كود] كود لتأجيل تنفيذ الكود بدون Timer! Omar 6.0 1 891 19-08-20, 09:39 PM
آخر رد: Gfftfdeuoig c
  سوال اخوانى الاحباب ارجو المساعدة فى هذا الكود mhareek 1 167 07-08-20, 01:36 AM
آخر رد: mhareek
  سؤال حول كيفية تصغيرحجم الخط ليناسب حجم التكست بوكس عن طريق الكود haider kh 6 379 04-07-20, 05:00 PM
آخر رد: haider kh
  السّلام عليكم و رحمة الله و بركاته ارجو المساعدة فى هذا الكود mhareek 3 290 27-06-20, 01:55 PM
آخر رد: mhareek
Question كيف افتح كومبوس عن طريق الكود؟؟ Microformt 2 261 06-04-20, 07:08 PM
آخر رد: Microformt
  اختصار الكود بحلقة for next hannileo 4 513 21-10-19, 11:33 AM
آخر رد: hannileo
  استكمالا لاستفسارى السابق :ما الخطأ فى هذا الكود؟ عند تغيير اسم الجدول؟ مبرمج مصرى 2 419 21-10-19, 11:00 AM
آخر رد: مبرمج مصرى
Star ممكن مساعدتي في هذا الكود MicroDoha 3 432 16-10-19, 03:38 PM
آخر رد: MicroDoha
  طلب التوضيح على هذا الكود (HKEY_CURRENT_USER). MicroDoha 2 363 06-09-19, 06:20 PM
آخر رد: MicroDoha
  ما هو الكود الذي يحول انجليزي عربي princeofislam 8 3,252 31-07-19, 04:19 AM
آخر رد: princeofislam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم