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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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



بل هكذا



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على فاتورة مبيعات خالد كامل1 4 68 26-03-24, 10:49 PM
آخر رد: خالد كامل1
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل صب المجموع الكلي والمعدل والتقدير مصمم هاوي 3 131 19-03-24, 01:33 AM
آخر رد: مصمم هاوي
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  [VB.NET] محتاج كود حساب الفرق بين تاريخين بالايام moustafakamel95 3 449 29-01-24, 04:05 PM
آخر رد: مصطفى مصطفى
  ممكن تعديل في كود التفقيط للارقام melad2002 2 333 01-01-24, 08:47 PM
آخر رد: melad2002
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7

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


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