الموقع العربي الاول للعبة Silkroad Online

- قـسـم الـ IBot (https://silkroad4arab.com/vb/forumdisplay.php?f=163)

- - ورشة عمل لحقن البوت (https://silkroad4arab.com/vb/showthread.php?t=501593)

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

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

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

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

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

اقتباس:

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

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

اقتباس:

المشاركة الأصلية كتبت بواسطة ahmedzizoa (المشاركة 4706455)

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

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

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

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

اقتباس:

المشاركة الأصلية كتبت بواسطة Mad_General (المشاركة 4695973)

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

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

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

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

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

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

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

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

و‏ ‏لو‏ ‏عاوز‏ ‏توصلهم‏ ‏كلهم‏ ‏موجودين‏ ‏ف‏ ‏الموضوع‏ ‏ده‏ ‏
http://www.silkroad4arab.com/vb/showthread.php?t=439244
بالتوفيق‏ ‏‏ ‏

اقتباس:

المشاركة الأصلية كتبت بواسطة _TheDevil_99 (المشاركة 4706511)

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

اقتباس:

قرات الموضوع حتى بالامارة بص
http://www.silkroad4arab.com/vb/showthread.php?t=497325
وكمان فى واد جامد طحن اسمه codermachine
هو اللى اوحى ليا بالفكرة دى

اقتباس:

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

اقتباس:

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

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

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

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

يا جماعه 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

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

اولا ركز في الكلام في الكلام الاول تمام هوا بيقول هما حلوا المشكلة في phbot يقدروا يحلوها في ال IBot تمام تاني حاجه انا جبت الكلام ده من ProjectHax ودي الصور الخاصه بالبرنامج http://www11.0zz0.com/2013/05/10/20/213834869.png

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

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

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

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

اقتباس:

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

انا مش حنكد عليك
بس العملية صعبة فعلا
:111 (13):

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