ورشة عمل لحقن البوت

[ahmedzizoa]

بسم الله الرحمن الرحيم

ده موضوع بخصوص عمل ورشتة عمل (لصنع برنامج حقن للبوت الجديد ) والاستفادة من جيرانا فى قسم Phbot لان بروجكت هاكس هى اللى صانعة البوت ده وده
وزى ما حلوا المشكلة فى الـ Phbot يدقروا برضو يحلو المشكلة فى الاى بوت بس طبعا مش يرضوا عشان الفلوس طبعا
فنبدأ ندور احنا على الحل بدل ما نستنى حسنة منهم او من الواد اى بوت فور فان
المهم احنا حنحاول نستفاد اقصى استفادة من كده
عموما احنا حنقسم العمل لـ 3 اجزاء
1/ الداتا اللى حنقنها ودى اصعب حاجة واللى حتاخد مننا وقت كبير وربنا يسترها
2/ برنامج الحقن وده ان شاء الله حرفعه كمشروع فيجوال بيزك
3/ الاوامر البرمجية وطريقة برمجة الاكواد ودى بقى حندور مع بعض عليها

بس عاوزين متطوعين للعمل
عشان نقسم الشغل على بعض
يا ترى مين جاهز؟

[™ └ Jo MaNsOuR ┘ ™]

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

[ahmedzizoa]

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

شكلى حجاهد فى الصحراء دى لوحدى ولا ايه؟

[osama mansour]

المشاركة الأصلية كتبت بواسطة ahmedzizoa عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

شكلى حجاهد فى الصحراء دى لوحدى ولا ايه؟

انا معاااك بس قوولى بس نبدا منييين وايية الافكاار والطرق
واهم حاجة بفات البارتى تكون اول حل :D
وبخصووص الموضووع دة انا عايزك تدينى كوود لقفل لعبة سيلكرود من task manager ء( kill process silkroad ) بس يكون مجرب وشغال عشان مش لقيية عايزة ضروورى علشاان اكمل برنامج مساعد للعبة vb.net 2008

[_TheDevil_99]

بص‏ ‏انا‏ ‏ماليش‏ ‏ف‏ ‏البرمجه‏ ‏و‏ ‏الكلام‏ ‏الكبير‏ ‏ده‏ ‏^_^
بس‏ ‏هاديلك‏ ‏اسماء‏ ‏ناس‏ ‏ف‏ ‏المنتدى‏ ‏و‏ ‏انت‏ ‏اتعامل‏ ‏بقى‏ ‏
acer20006‏ ‏طبعا‏ ‏غنى‏ ‏عن‏ ‏التعريف‏ ‏هوه‏ ‏الى‏ ‏عامل‏ ‏الموضوع‏ ‏بتاع‏ ‏البوت‏ ‏فى‏ ‏قسم‏ ‏البرامج‏ ‏
gofa_25‏ ‏الراجل‏ ‏ده‏ ‏شبه‏ ‏مخلص‏ ‏بوت‏ ‏:‏)‏‏‏ ‏و‏ ‏ماشاء‏ ‏الله‏ ‏بيفهم‏ ‏كويس‏ ‏جدا‏ ‏
‏
osama mansour‏ ‏بردو‏ ‏بيفهم‏ ‏ف‏ ‏شغل‏ ‏البوت‏ ‏و‏ ‏الكلام‏ ‏ده‏ ‏
™ wHo ArE Y0u‏ ‏مش‏ ‏بيتابع‏ ‏اوى‏ ‏بس‏ ‏بيفهم‏ ‏ف‏ ‏البرامج‏ ‏بتاعت‏ ‏اللعبه‏ ‏و‏ ‏كان‏ ‏بيعمل‏ ‏برنامج‏ ‏بس‏ ‏مش‏ ‏عارف‏ ‏خلصه‏ ‏ولا‏ ‏لا‏ ‏

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

المشاركة الأصلية كتبت بواسطة Mad_General عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

اهلااا اهلااا اهلاااا بالبرمجه وسنينهااا

منورين يارجااله ياريت لو حد يتاابع واحنا ان شاء الله نعمل اجدعها بوت

بسم الله نبتدى ... دى شوية اكوااد انا عملتهاا ياريت لو حد بيفهم اووى فى البرمجه
يقولى فيها غلط او لا ولو فى غلط او تعديل يقولى هو ايه وانا خلصت كل حاجه البوت
زى الفل وجاهز ولو عايزينى ارفع الاكواد انا جاهز بس المشكله فى كام حاجه بس كدااا

بسم الله توكلنا على الله ...

FindTarget

Namespace bot
    Module mFindTarget

        Dim closestDist As Int32
        Dim objectid As Int32
        Function findTarget() As Int32

            closestDist = 20000 'reset
            objectid = -1




            Do
                For Each mob As cMob In mobList.Values
                    'If mob.mobTyp = 0 Then
                    cheackTarget(mob)
                    'End If
                Next
                Threading.Thread.Sleep(50)
            Loop Until objectid <> -1

            Return objectid

        End Function




        Function cheackTarget(ByVal mob As cMob) 'check if the target is falid

            If mob.ignore = True Then Exit Function
            If mob.alive = False Then Exit Function
            If myConfig.KillSteal = False Then
                If mob.unterAttack IsNot Nothing Then
                    If mob.unterAttack.Count <> 0 Then Exit Function
                End If
            End If

            Dim distanz As Int32 = calcDist(myChar.Movement.currentPos, mob.Movement.currentPos)
            If distanz > closestDist Then
                Exit Function
            End If

            closestDist = distanz

            objectid = mob.objectid
            If objectid = 0 Then
                MsgBox("")
            End If
        End Function

 



    End Module
End Namespace

Pickup

Namespace bot
    Module mPickup


        Function getclosest_item() As Int32
            Dim itemfound As Int32 = -1
            Dim distanz As Int32 = 30000
            Dim tempdist As Int32
            If lockItemList() = False Then
                Exit Function
            End If
            Dim _itemList As cItem() = itemList.Values.ToArray
            unlockItemList()

            For Each item As cItem In _itemList
                If item.owner = myChar._accID Then
                    tempdist = calcDist(myChar.Movement.currentPos, item.position)
                    If distanz > tempdist Then
                        distanz = tempdist
                        itemfound = item.objectid
                    End If
                End If
            Next
            Return itemfound
        End Function




        Public Sub pickItems()
            ' Dim _itemlist As Hashtable = gVar.itemlist.Clone


            Dim itemfound As Int32 = getclosest_item()

            If myConfig.itempickmobcheck <> 0 Then
                If itemfound <> -1 Then
                    Dim mobfound As Int32 = checkifmobaround(itemfound)
                    If mobfound <> -1 Then
                        Do Until mTargetMob.target(mobfound)
                            Threading.Thread.Sleep(1000)
                        Loop
                        Exit Sub
                    End If
                End If
            Else

            End If

            If itemfound = -1 Then
                Exit Sub
            Else
                pickupitem(itemfound)
            End If

            pickItems()



        End Sub

        Function checkifmobaround(ByVal itemid As Int32) As Int32
            Dim mobFound As Boolean = False
            Dim item As cItem = itemlist(itemid)

            For Each mob As cMob In moblist.Values
                If mob.alive = True Then
                    'Console.WriteLine(calcDist(mob.Movement.currentPos, item.position))
                    If calcDist(mob.Movement.currentPos, item.position) < myConfig.itempickmobcheck Then
                        Return mob.objectid
                        Exit Function
                    End If
                End If
            Next

            Return -1
        End Function

        Sub pickupitem(ByVal itemid As Int32)
            IjectPickUp(itemid)
            Do
                If itemList.ContainsKey(itemid) = False Then
                    Exit Sub
                End If
                Threading.Thread.Sleep(50)
            Loop Until myChar.castQ.skillQ(cCastQ.enumSkillQ.first).Skill.id = 0 And myChar.castQ.paddingSkills.Count = 0

        End Sub

        Sub IjectPickUp(ByVal target As Int32)
            Log_BotAction("pickup--> " & fixdata.itemDataList(itemList.Item(target).objectTypID).name)
            Dim packet As Byte() = {7, 0, &HCD, &H72, 2, 0, _
                                    1, 2, 1, _
                                    0, 0, 0, 0}
            BitConverter.GetBytes(target).CopyTo(packet, 9)
            myChar.castQ.add(&HFFFE)
            connection.sendpacket(packet)
        End Sub



    End Module
End Namespace

cConnection

Public Class cConnection

    Dim _Connection As Net.Sockets.TcpClient
    Dim _ReadDataThread As Threading.Thread
    Dim _Port As Int32

    Sub New(ByVal port As Int32)
        _Port = port
    End Sub

    Function start() As String
        Try
            _ReadDataThread = New Threading.Thread(AddressOf readData)
            _Connection = New Net.Sockets.TcpClient
            _Connection.Connect("127.0.0.1", _Port)
            _ReadDataThread.Start()

        Catch ex As Exception
            Return ex.Message
        End Try
        Return "Connection: OK"
    End Function

    Sub close()
        _ReadDataThread.Abort()
        _Connection.Close()
    End Sub


    Dim packet As sPacket
    Sub readData()
        Dim bytetoread As UInt16
        Do
            Do
                bytetoread = _Connection.Available
                If bytetoread >= 6 Then
                    Dim buffer(6 - 1) As Byte
                    _Connection.Client.Receive(buffer, 6, Net.Sockets.SocketFlags.None)
                    packet = New sPacket
                    packet.len = BitConverter.ToUInt16(buffer, 0)
                    packet.opc = BitConverter.ToUInt16(buffer, 2)
                    packet.dest = BitConverter.ToUInt16(buffer, 4)
                    Exit Do
                Else
                    Threading.Thread.Sleep(10)
                End If
            Loop

            Do
                bytetoread = _Connection.Available
                If bytetoread >= packet.len Then
                    Dim buffer(packet.len - 1) As Byte
                    _Connection.Client.Receive(buffer, packet.len, Net.Sockets.SocketFlags.None)
                    packet.data = buffer
                    opcSwitch(packet)
                    Exit Do
                Else
                    Threading.Thread.Sleep(10)
                End If
                opcSwitch(packet)
            Loop

        Loop
    End Sub






    Public Sub sendpacket(ByVal data() As Byte)
        _Connection.Client.Send(data)
    End Sub









End Class

انا كل حاجه موجوده معايا بس مش عارف اذا كانت صح او غلط محتااج حد محترف اوووى
انا اخدت وقت كبيير اووووى على ماعملت كل الحاجات دى
كنت بامشى مع شروحات واحده واحده وملف ملف وبافتح سورسات كتير علشان افهم اتعملت ازاى

ياريت بس حد يوجههنى ويقولى الغلط والحاجات اللى لازم اعملها
وعلى فكره الفورمات لسا مش جاهزة يعنى اى هبل كدا وخلااص فمحدش يطلب صور دلوقتى :)

[_TheDevil_99]

نسيت‏ ‏اقولك‏ ‏
الراجل‏ ‏ده‏ ‏كمان‏ ‏دماغه‏ ‏عاليه‏ ‏اوى‏ ‏ماشاء‏ ‏الله‏ ‏عليه‏ ‏tarek1500

و‏ ‏لو‏ ‏عاوز‏ ‏توصلهم‏ ‏كلهم‏ ‏موجودين‏ ‏ف‏ ‏الموضوع‏ ‏ده‏ ‏
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
بالتوفيق‏ ‏‏ ‏

[osama mansour]

المشاركة الأصلية كتبت بواسطة _TheDevil_99 عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

نسيت‏ ‏اقولك‏ ‏
الراجل‏ ‏ده‏ ‏كمان‏ ‏دماغه‏ ‏عاليه‏ ‏اوى‏ ‏ماشاء‏ ‏الله‏ ‏عليه‏ ‏tarek1500

و‏ ‏لو‏ ‏عاوز‏ ‏توصلهم‏ ‏كلهم‏ ‏موجودين‏ ‏ف‏ ‏الموضوع‏ ‏ده‏ ‏
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
بالتوفيق‏ ‏‏ ‏

شكرا حبى على المتابعة بس الكود اللى انا عايزة مش موجوود فوق انا عايز كوود واحد بس عباارة عن سطر او اثنين ( kill process silkroad )

[ahmedzizoa]

نسيت‏ ‏اقولك‏ ‏
الراجل‏ ‏ده‏ ‏كمان‏ ‏دماغه‏ ‏عاليه‏ ‏اوى‏ ‏ماشاء‏ ‏الله‏ ‏عليه‏ ‏tarek1500

و‏ ‏لو‏ ‏عاوز‏ ‏توصلهم‏ ‏كلهم‏ ‏موجودين‏ ‏ف‏ ‏الموضوع‏ ‏ده‏ ‏
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
بالتوفيق‏ ‏‏ ‏

قرات الموضوع حتى بالامارة بص
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
وكمان فى واد جامد طحن اسمه codermachine
هو اللى اوحى ليا بالفكرة دى

شكرا حبى على المتابعة بس الكود اللى انا عايزة مش موجوود فوق انا عايز كوود واحد بس عباارة عن سطر او اثنين ( kill process silkroad )

فاهم قصدك
وكمان عملت الامر عن طريق الدوس
(تخطى السيلك رود اللى شغالة حاليا وكمان كان فيه شوية اعدادت لازم اظبطها من الكنترول بانل)
ولا الهوى
فشل فشل زريع

هقؤلك احنا عندنا في كونكر ال anti-bot زي ال hack sheild
فكرة الحماية دي بتبقي عبارة عن check بيعمله الجي ام علي حجات معينة وفي نفس الوقت بيبعت بكت للكلينت لو رد عليها غلط بيعمله دي سي ولو رد عليها صح بيكمل عادي من غير دي سي طبعا لو عرفت البكت اللي الكلينت بيرد بيها يبقي كدة تكودها في البوت وكل ما السيرفر يطلبها تبعتهاله

لان البوت بديهيا مش متكود فيه اي بكت جديدة نزلت وهو بيبعت بكتات معروفة زي اتاك شات خلافه غير كدة بيخرف

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

[ahmedzizoa]

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

[lomaloma200]

يا جماعه ProjectHax بالفعل عملوا برنامج لحقن IBoT تمام

How To Add Accounts
Code:

1)type your username & password
2)select server
3)type the character name
4)select login server
5)check the options you want
6)click add/edit
7)if you have more account repeat the same process start at (1) again, if you have no more accounts go to (8)
8)press save to save all the accounts
9)go to the setting tab
10)choose the options you want
11)if phBAM is not in the same folder as phBot the click locate phBot
12)press save to save the config
13)go back to the main tab(iSro)
14)click run and enjoy

After you run the bots(managing the bots)
All the things are self explainatory
Others:
Code:

1)single clicking on a running bot will show you the player statistics window(going to any other tab will hide the window)
2)hide unlisted bot, will hide bots not ran with the manager(hide all 1st as hide unlist may cause double entire)
3)refresh, will show you there status i.e(connected & disconnected or Terminated)

Features:
Code:


-Open, Hides & Start The Bot
-IRC Remote Control
--After Starting IRC Type help to get a list of commands
-Will Show You HP/MP/SP/Gold/Death Count/Loop Count/EXP
-Has a Taxi System(Will Integrate it more,After few updates)
-Restart Bot Every 30mins,1h or 2 Hours

Updates:
Code:


Update v1.4a:
-Fixed Saving Error

Update v1.4:
-Updated it to phBAM Standards
-Will Require you to add All Your Accounts again.


Update v1.3:
-Fixed some Broken Handles(buttons weren't working)
-Updated offsets

Update v1.2:
--added more buttons moved things
--Taxi Timer is all in one page now
-Fixed Kill All Crash Problem

Update v1.0:
-Initial Version
-Same as pBAM from the start until v4.5

[_TheDevil_99]

انت‏ ‏جبت‏ ‏الكلام‏ ‏ده‏ ‏منين‏ ‏؟
انا‏ ‏ملاحظ‏ ‏انه‏ ‏بيتكلم‏ ‏عن‏ ‏الphbot‏ ‏و‏ ‏ماجبش‏ ‏سيره‏ ‏الibot خالص‏ ‏!!!

[lomaloma200]

اولا ركز في الكلام في الكلام الاول تمام هوا بيقول هما حلوا المشكلة في phbot يقدروا يحلوها في ال IBot تمام تاني حاجه انا جبت الكلام ده من ProjectHax ودي الصور الخاصه بالبرنامج

[ahmedzizoa]

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


يعنى من الاخر هما بيسلتموا منا الافكار والاستنتاجات والتجارب
ويحقنوها فى البوت بتاعهم اللى بفلوس

من الاخر الكلام اللى فوق ده هرى مش منه فايدة بالنسبة لينا الا انه بيدينا الطريق
وانا شخصيا ممكن استفاد من حاجة زى دى
وزى ما قولت لك
اهم حاجة الباكيتس الجديدة
ودى عاوزة تعب كتير
ووقت كتير
ده لو حنفرز ملفات الابديت ملف ملف
زى ما SBot بيعملوا بالضبط

[AnA OmAr]

بوص يا بوب انا اهم حاجه عندي ان بالكتير علي رمضان افتح 8 اكونتات

[ahmedzizoa]

بوص يا بوب انا اهم حاجه عندي ان بالكتير علي رمضان افتح 8 اكونتات

انا مش حنكد عليك
بس العملية صعبة فعلا


ولكن يبقى الامل موجود