تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
الرسائل العائدة من النظام" الويندوز "
#1
السلام عليكم ورحمة الله وبركاته
لدى تطبيق يقوم بعمل join to domain
كيف ان احصل على نتيجة التطبيق
اى هل تم ام ان هناك مشكله وما هى المشكله ( الرسائل الخاصة بالويندوز)
الرد }}}
تم الشكر بواسطة:
#2
هل تقصد ال event viewer
الرد }}}
تم الشكر بواسطة:
#3
جرب مايلي محتمل تنفع:

Public Class Test
Public Shared Function IsInDomain() As Boolean
Dim status As Win32.NetJoinStatus = Win32.NetJoinStatus.NetSetupUnknownStatus
Dim pDomain As IntPtr = IntPtr.Zero
Dim result As Integer = Win32.NetGetJoinInformation(Nothing, pDomain, status)
If pDomain <> IntPtr.Zero Then
NetApiBufferFree(pDomain)
End If
If result = Win32.ErrorSuccess Then
If status = Win32.NetJoinStatus.NetSetupDomainName Then
Return True
Else
Return False
End If
Else
Throw New Exception("Domain Info Get Failed")
End If
End Function
End Class
Friend Class Win32
Public Const ErrorSuccess As Integer = 0

<DllImport("Netapi32.dll", CharSet := CharSet.Unicode, SetLastError := True)> _
Public Shared Function NetGetJoinInformation(server As String, domain As IntPtr, status As NetJoinStatus) As Integer
End Function

<DllImport("Netapi32.dll")> _
Public Shared Function NetApiBufferFree(Buffer As IntPtr) As Integer
End Function

Public Enum NetJoinStatus
NetSetupUnknownStatus = 0
NetSetupUnjoined
NetSetupWorkgroupName
NetSetupDomainName
End Enum

End Class
الرد }}}
تم الشكر بواسطة:
#4
amgadtamer كتب :هل تقصد ال event viewer

شئ من هذا القبيل
عموما اقصد اذا لديك تطبيق يخاطب الويندوز فانت تريد ان تتاكد بانه تم تنفيذ طلبك او لم ينفذ معا بيان السبب
العائد من الويندوز بعدم التنفيذ ايا كان
علما باننى حاولت استخدم
Catch ex As Exception
( MessageBox.Show("An error occured: " + ex.Message)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جعل النظام يعمل بجميع مقاسات الشاشه Owz 7 528 08-08-23, 07:36 PM
آخر رد: Owz
  كيف اقوم بالضغط على ذر الويندوز بالكيبورد هل من حل moh61 0 217 01-08-23, 09:45 PM
آخر رد: moh61
  [VB.NET] مشكلة عدم الوصول Registry النظام MOHAMMED ALZWI 2 419 15-06-23, 09:01 PM
آخر رد: MOHAMMED ALZWI
  [VB.NET] مشكلة في الوصول لــ Registry النظام MOHAMMED ALZWI 1 300 26-03-23, 12:26 PM
آخر رد: sanyor77
  مشكلة في تحزيم النظام mohamedassim 1 646 21-08-22, 09:21 AM
آخر رد: Taha Okla
  [سؤال] جلب اللغات المتواجدة علي الويندوز حسن الجلب 3 647 18-08-22, 04:02 PM
آخر رد: asmarsou
  [VB.NET] إرسال الرسائل عبر مودام إسبي من فيجوال دوت نات chebat 1 1,060 22-12-21, 09:21 PM
آخر رد: عدنان الشمري
Thumbs Up [سؤال] كيف يمكنني جعل مشرع الفيجوال بيزك يظهر عند تشغيل الويندوز,مع الشكرا عبدالله سعد سلطان 2 1,163 17-11-21, 06:55 AM
آخر رد: ابو روضة
  [سؤال] كيفية معرفه مسار الويندوز أو بمعني آخر ازاي اعرف البارتيشن ال نازل عليه الويندوز حسن الجلب 1 955 16-10-21, 09:59 PM
آخر رد: Mohamad Anan
  [سؤال] طريطة عمل برنامج تغير اسم قرص النظام Kareem2021 1 1,090 19-06-21, 01:56 PM
آخر رد: aldery

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


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