تقييم الموضوع :
  • 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 
بارك الله فيك اخى لكنى لست مبرمج كى افهم كل هذا بل انا احتاج لهذا البرنامج لاشياء لا يعلمها الا الله
فلو اردت المساعدة فاتمنى تكون بشكل مبسط
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 13 178 اليوم, 03:51 AM
آخر رد: ابو ليلى
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 106 22-05-17, 09:25 AM
آخر رد: hglogtd
  منع تعديل التاريخ والوقت ريم النهاري 7 149 18-05-17, 09:28 AM
آخر رد: ريم النهاري
  [مشروع] ممكن تعديل علي المشروع دموع الوطن 12 206 15-05-17, 09:29 AM
آخر رد: دموع الوطن
  [VB.NET] محتاج كود ارسال مسج للفيس بوك dubai.eig 3 107 11-05-17, 01:52 AM
آخر رد: tryold
  محتاج مساعدة في اكمال الكود bidaya 7 223 04-05-17, 05:14 PM
آخر رد: bidaya
  كيفية اضافة ملف صوتى الى برنامجى OakenShield 2 73 25-04-17, 02:33 PM
آخر رد: tarek
  محتاج كود صغير للتاكد واختبار القيمة المدخلة في ( TEXTBOX) mohammed.gadain61 8 227 25-04-17, 04:05 AM
آخر رد: عبـدالله
  مساعده فى تعديل الكود ده لو سمحتوا يا جماعه نبيل كونكت 2 143 22-04-17, 06:16 PM
آخر رد: عبـدالله
  مساعده وارجو الرد فى ربط الصلاحيات بالبرنامج تعديل الكود بس فين الخطا نبيل كونكت 8 182 20-04-17, 01:41 PM
آخر رد: أسامة السالمي

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


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