منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] محتاج تعديل على برنامجى - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج تعديل على برنامجى (/showthread.php?tid=15544)



محتاج تعديل على برنامجى - ابو روضة - 21-04-16

السلام عليكم اخوتى

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

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

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

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

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

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

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

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

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

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

وجزاكم الله كل خير



RE: محتاج تعديل على برنامجى - ابو روضة - 22-04-16

مستعد لدفع 8 دولار لمن يقوم بعمل هذا الموضوع


RE: محتاج تعديل على برنامجى - الماجيك مسعد - 22-04-16

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

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


RE: محتاج تعديل على برنامجى - ابو روضة - 22-04-16

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

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

اقصد ياتى بكل الجروبات اللى انا مشترك بها



RE: محتاج تعديل على برنامجى - ابو روضة - 23-04-16

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


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



بل هكذا



واريد عمل زر ايفاق مؤقت وزر ايقاف النشر
وجزاكم الله كل خير


RE: محتاج تعديل على برنامجى - ابو روضة - 24-04-16

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