تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] محتاج تعديل على برنامجى
#1
السلام عليكم اخوتى

صراحة انا لا افهم كثيرا فى البرمجة لكنى صارعت بعض الشيئ

لمحاولة عمل برنامج للنشر التلقائى على الفيس بوك بعد مشاهدة

عدّة دروس وتوصلت لنتيجة بعض الشيئ مُرضية.

لكن ينقصها اشياء على سبيل المثال:-

1 حينما اشغل البرنامج يأتى بجروبات كثيرة .

2 الجروبات لا تأتى بأسمائها بل تأتى على صورة روابط.

واشياء اخرى اكيد من له خبرة فى هذا المجال سيعى ما اقول.

وللعلم انا مهتم بالكتابة والتأليف ولى عدّة كتب بفضل المولى " عز وجل "

بمعنى أدق فأنا لا اريد هذا البرنامج للمتاجرة به اطلاقا بل للدعوة الى الله.

فأتمنى اذا كان هناك شخص يريد المساعدة يقول لى ارسل لى السورس

وجزاكم الله كل خير
الرد }}}}
تم الشكر بواسطة:
#2
مستعد لدفع 8 دولار لمن يقوم بعمل هذا الموضوع
الرد }}}}
تم الشكر بواسطة:
#3
حينما اشغل البرنامج يأتى بجروبات كثيرة .

يعنى ايه يأتى بجروبات كثيرة؟؟؟؟؟؟؟
الرد }}}}
تم الشكر بواسطة:
#4
(22-04-16, 06:59 PM)الماجيك مسعد كتب : حينما اشغل البرنامج يأتى بجروبات كثيرة .

يعنى ايه يأتى بجروبات كثيرة؟؟؟؟؟؟؟

اقصد ياتى بكل الجروبات اللى انا مشترك بها
الرد }}}}
تم الشكر بواسطة:
#5
يا خونا انا ناقصنى حاجة واحدة فى البرنامج ازاى اخلى الجروبات تظهر بالاسماء ليس الروابط هكذا


ما احتاجه هو ازاى اجلب الجروبات بالاسماء ليس الروابط يعنى ليس هكذا



بل هكذا



واريد عمل زر ايفاق مؤقت وزر ايقاف النشر
وجزاكم الله كل خير
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم أخي العزيز ورحمة الله وبركته
جرب هذا الكود وأفدنا بالنتيجة يرحمكم الله
PHP كود :
Private Function GetPrimaryGroupName(ByVal SearcherObject As DirectorySearcherByVal User As SearchResult) As String
    
Try
        
Using Domain As DirectoryEntry ActiveDirectory.Domain.GetCurrentDomain.GetDirectoryEntry
            Dim GroupSID 
As New Security.Principal.SecurityIdentifier(New Security.Principal.SecurityIdentifier(DirectCast(Domain.Properties("objectSid").ValueByte()), 0).ToString "-" CStr(User.Properties("primaryGroupID")(0)))
            
Dim GroupSIDString As New System.Text.StringBuilder
            Dim GroupSIDBytes
(GroupSID.BinaryLength – 1) As Byte
            GroupSID
.GetBinaryForm(GroupSIDBytes0)
            For 
As Integer 0 To GroupSIDBytes.Length – 1
                GroupSIDString
.Append("\" & Hex(GroupSIDBytes(i)).PadLeft(2, "0"c))
            Next
            SearcherObject.Filter = "
(objectSid=" & GroupSIDString.ToString & ")"
            Dim GroupSearchResult As SearchResult = SearcherObject.FindOne
            If Not GroupSearchResult Is Nothing Then
                Return GetGroupNameFromPath(GroupSearchResult.Path)
            Else
                Throw New ApplicationException("
Failed to locate primary group – no results returned for the LDAP query " & SearcherObject.Filter)
            End If
        End Using
    Catch ex As Exception
        Throw New ApplicationException("
Error getting primary group" & ex.Message.Trim)
    End Try
End Function
Private Function GetGroupNameFromPath(ByVal Path As String) As String
    Dim GroupName As String = Path.Replace("
LDAP://", String.Empty).Remove(0, 3)
    
Dim SeparatorIndex As Integer 0
    
For As Integer 0 To GroupName.Length – 1
        
If GroupName(i) = ","c AndAlso Not GroupName(i – 1) = "\"c Then
            SeparatorIndex = i
            Exit For
        End If
    Next
    GroupName = GroupName.Remove(SeparatorIndex)
    Return GroupName.Replace("
\,", ",").Replace("\\", "\").Replace("\+", "+").Replace("\""", """").Replace("\<", "<").Replace("\>", ">").Replace("\;", ";")
End Function 
الرد }}}}
تم الشكر بواسطة: ابو روضة , hassan , hassan
#7
(24-04-16, 12:44 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركته
جرب هذا الكود وأفدنا بالنتيجة يرحمكم الله
PHP كود :
Private Function GetPrimaryGroupName(ByVal SearcherObject As DirectorySearcherByVal User As SearchResult) As String
    Try
        Using Domain 
As DirectoryEntry ActiveDirectory.Domain.GetCurrentDomain.GetDirectoryEntry
            Dim GroupSID 
As New Security.Principal.SecurityIdentifier(New Security.Principal.SecurityIdentifier(DirectCast(Domain.Properties("objectSid").ValueByte()), 0).ToString "-" CStr(User.Properties("primaryGroupID")(0)))
 
           Dim GroupSIDString As New System.Text.StringBuilder
            Dim GroupSIDBytes
(GroupSID.BinaryLength – 1) As Byte
            GroupSID
.GetBinaryForm(GroupSIDBytes0)
 
           For i As Integer 0 To GroupSIDBytes.Length – 1
                GroupSIDString
.Append("\" & Hex(GroupSIDBytes(i)).PadLeft(2, "0"c))
            Next
            SearcherObject.Filter = "
(objectSid=" & GroupSIDString.ToString & ")"
            Dim GroupSearchResult As SearchResult = SearcherObject.FindOne
            If Not GroupSearchResult Is Nothing Then
                Return GetGroupNameFromPath(GroupSearchResult.Path)
            Else
                Throw New ApplicationException("
Failed to locate primary group – no results returned for the LDAP query " & SearcherObject.Filter)
            End If
        End Using
    Catch ex As Exception
        Throw New ApplicationException("
Error getting primary group" & ex.Message.Trim)
    End Try
End Function
Private Function GetGroupNameFromPath(ByVal Path As String) As String
    Dim GroupName As String = Path.Replace("
LDAP://", String.Empty).Remove(0, 3)
 
   Dim SeparatorIndex As Integer 0
    For i 
As Integer 0 To GroupName.Length – 1
        If GroupName
(i) = ","c AndAlso Not GroupName(i – 1) = "\"c Then
            SeparatorIndex = i
            Exit For
        End If
    Next
    GroupName = GroupName.Remove(SeparatorIndex)
    Return GroupName.Replace("
\,", ",").Replace("\\", "\").Replace("\+", "+").Replace("\""", """").Replace("\<", "<").Replace("\>", ">").Replace("\;", ";")
End Function 
بارك الله فيك اخى لكنى لست مبرمج كى افهم كل هذا بل انا احتاج لهذا البرنامج لاشياء لا يعلمها الا الله
فلو اردت المساعدة فاتمنى تكون بشكل مبسط
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب تعديل كود لاظهار الصور من السكانر f-www 8 1,035 22-02-17, 07:25 PM
آخر رد: عدنان الشمري
Question [سؤال] محتاج طريقة لعرض الأسماء المكررة في الداتا بيز refaat130 3 101 06-02-17, 07:50 PM
آخر رد: sendbad100
  [VB.NET] تعديل ع كود اتصال 3asfa~mdmra 0 47 06-02-17, 06:51 PM
آخر رد: 3asfa~mdmra
Photo [VB.NET] مساعده في تعديل كود التنبيه قبل انتهاء التاريخ بفتره زمنيه.. Marwan9990 11 220 02-02-17, 06:12 PM
آخر رد: Marwan9990
  [سؤال] تعديل عدة سجلات ابو يوسف النواوي 2 8 163 30-01-17, 03:19 AM
آخر رد: ابو ليلى
  محتاج كود لمعرفه المواقع التى تم فتحها sasa-rosia 4 160 28-01-17, 02:09 AM
آخر رد: sasa-rosia
  [VB.NET] تعديل بيسط على الكود ليصيح جاهزآ 3asfa~mdmra 0 79 27-01-17, 06:01 PM
آخر رد: 3asfa~mdmra
  محتاج كود النسخ والاستبدال eng.mustafa 1 92 24-01-17, 03:41 AM
آخر رد: eng.mustafa
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 122 22-01-17, 01:39 PM
آخر رد: thevirus
  [سؤال] مشكلة لنت فروم ورك مع برنامجى Mohamed371 2 134 21-01-17, 07:31 PM
آخر رد: Mohamed371

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


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