دورة شرح طريقة عمل البوت داخل الجيم وتكوين الباكتس

[GhaiBoba]

معاك و هتابع

[_HitIer_]

تم وضع الموضوع فـ ارشيف البرامج المميزه

[Ultra Games]

ياكبير انتو تنشتونى ولا ايه

[osama mansour]

مااااااااااااتحااااولش بعد فشلى

[gofa_25]

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

2: منا عملها زى ما انت بتقول بس عوزها صور كده زى البوت ازاى؟

1:اخليها ProgressBar والونها ازاى؟

انا عوز زى ibot

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

انا عامل بوت زى ال ibot بالظبط بالظبط بس لسو مشغلتش الأوبشن اللى فيه عشان مش فاضى ورايا مشروع فى الكلية
ممكن ابقى ابعتلك الكود نفسه بس انا لسة مفرمت الجهاز ومش عندى الكود دلوقتى
أول ما انزل حاجتى تانى هبعتلك الكود
أو ممكن تدور عليه ع النت

[درش درش]

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

[elshaib]

thx bro

[Cursed_Devil]

مجهود خرافى

[elshaib]

niceee

[TiesTo22]

متى سيتم أكمال الدورة؟!

[tarek1500]

محدش يعرف كود لودر مش محتاج Update كل شوية زي edxloader او بدور علي ايه في ال SRO_Client.exe علشان اعمل MultiClient و افتح علي IP تاني ، و عاوز حد يفيدني في ال Hackshield Packet (0x2114)

[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

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

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

[xX_&_HOTA_&_Xx]

حرام عليك حطمتنى انا مش فاهم اى حاجه من الارقام دى

المهم انو فيه بوت نلعب بيه

صحيح هيا مش بالتعليم ولا الكليات دانا طلعت تيييييييييييييييت

[_HitIer_]

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

[acer20006]

برجاء غلق الموضوع
اسف ياجماعة انا مش هقدر اكمل الموضوع
ارجوا ان الجزء الموجود فى اول الموضوع يفيد اللى هيقراءة