الـجـروب الـخـاص بـالـمـنـتـدي Silkroad4arab Facebook | Official Group

**tarek1500** · 02-12-2012, 08:17 PM

الموضوع اشتغل ولا ايه؟

**fapregas014** · 03-12-2012, 04:05 AM

موضوع رائع

**iMido** · 19-12-2012, 03:20 PM

انا بيتهيالى انك لو جبت امثله مفتوحه المصدر و حجات عملى على الكلام ده هنفهم احسن

انا شغال vb.net و #c

**iMido** · 19-12-2012, 03:35 PM

و كمان لو مفيش مانع يعنى ( انا عارف انو سؤال خارج الموضوع بس اعمل ايه مفيش خبراء كتيير)

اللودر

ازاى بيتعمل اللودر !!؟

**tarek1500** · 19-12-2012, 04:20 PM

اقتباس:

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

و كمان لو مفيش مانع يعنى ( انا عارف انو سؤال خارج الموضوع بس اعمل ايه مفيش خبراء كتيير)

اللودر

ازاى بيتعمل اللودر !!؟

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

تعامل ، بس المشكلة ان اول 3 مواضيع C/C++ وانا مليش اوي فيها ، بس البوت C#

**MohandMomo** · 19-12-2012, 04:04 PM

m3ak whtap3ak

**_TheDevil_99** · 19-12-2012, 05:30 PM

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

**ميدو جديد** · 02-01-2013, 12:43 AM

تسلم ايديك

**ahmdod2** · 04-01-2013, 10:16 PM

اولا: شكرا علي الموضوع بس برضو مش عارف اظبط packet 3013 ^^ اجيب كل حاجه اجي عند ال Items و اضيع

ثانيا: بالنسبه للناس اللي عايزه ال code في VB.NET

كود:

    Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String, ByVal direction As Byte, ByVal Enc As Boolean)
        Using buffer As New IO.MemoryStream
            Using w As New IO.BinaryWriter(buffer)
                w.Write(CUShort(0)) ' Size is 0 because it 'cannot' be known yet.
                w.Write(CUShort("&H" + OpCode)) ' Converts the string Opcode to a UInt16, reading the Opcode as a hexadecimal representation
                If Enc = True Then
                    If direction = 1 Then 'send to server
                        w.Write(CUShort(3)) ' Encryption flag phConnector
                    ElseIf direction = 2 Then 'send to client
                        w.Write(CUShort(4))
                    End If
                Else
                    If direction = 1 Then 'send to server
                        w.Write(CUShort(1)) ' Encryption flag phConnector
                    ElseIf direction = 2 Then 'send to client
                        w.Write(CUShort(2))
                    End If
                End If

                For n As Integer = 0 To sData.Length / 2 - 1 ' Each byte is two characters and starting from 0 so decreasing by 1
                    w.Write(CByte("&H" & sData.Substring(n * 2, 2))) ' Writes every byte
                Next

                w.BaseStream.Position = 0 ' Resets the position to write the size
                w.Write(CUShort(w.BaseStream.Length - 6)) ' Writes the size to the '0' placeholder
                w.Flush() ' Makes sure the data is written to the buffer
                Client.Send(buffer.ToArray) ' Sends the buffer to the Socket
            End Using
        End Using
    End Sub

او ده

كود:

    Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String)
        Using buffer As New IO.MemoryStream
            Using w As New IO.BinaryWriter(buffer)
                w.Write(CUShort(0))
                w.Write(CUShort("&H" + OpCode))
                w.Write(CUShort(1))

                For n As Integer = 0 To sData.Length / 2 - 1
                    w.Write(CByte("&H" & sData.Substring(n * 2, 2)))
                Next

                w.BaseStream.Position = 0
                w.Write(CUShort(w.BaseStream.Length - 6))
                w.Flush()
                Client.Send(buffer.ToArray)
            End Using
        End Using
    End Sub

طبعاً لازم تعَرف ال Client الأول بعدها اعمل connect ل 127.0.0.1 وبال port بتاع phconnector

يا tarek لو مش عايز ال form تعلق اعمل thread جديده

كود:

Dim Recv As Thread = New Thread(AddressOf Receiving)

وبين

كود:

Private Sub Receiving()

End sub

اكتب ال code اللي مش عايزو يعلق فيه

شكرا مره ثانيه

حولو انت ل #C بقي

y.png" border="0" alt="" title="Triggerhappy

y" class="inlineimg" />

**tarek1500** · 05-01-2013, 01:33 AM

اقتباس:

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

اولا: شكرا علي الموضوع بس برضو مش عارف اظبط packet 3013 ^^ اجيب كل حاجه اجي عند ال Items و اضيع

ثانيا: بالنسبه للناس اللي عايزه ال code في VB.NET

كود:

    Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String, ByVal direction As Byte, ByVal Enc As Boolean)
        Using buffer As New IO.MemoryStream
            Using w As New IO.BinaryWriter(buffer)
                w.Write(CUShort(0)) ' Size is 0 because it 'cannot' be known yet.
                w.Write(CUShort("&H" + OpCode)) ' Converts the string Opcode to a UInt16, reading the Opcode as a hexadecimal representation
                If Enc = True Then
                    If direction = 1 Then 'send to server
                        w.Write(CUShort(3)) ' Encryption flag phConnector
                    ElseIf direction = 2 Then 'send to client
                        w.Write(CUShort(4))
                    End If
                Else
                    If direction = 1 Then 'send to server
                        w.Write(CUShort(1)) ' Encryption flag phConnector
                    ElseIf direction = 2 Then 'send to client
                        w.Write(CUShort(2))
                    End If
                End If

                For n As Integer = 0 To sData.Length / 2 - 1 ' Each byte is two characters and starting from 0 so decreasing by 1
                    w.Write(CByte("&H" & sData.Substring(n * 2, 2))) ' Writes every byte
                Next

                w.BaseStream.Position = 0 ' Resets the position to write the size
                w.Write(CUShort(w.BaseStream.Length - 6)) ' Writes the size to the '0' placeholder
                w.Flush() ' Makes sure the data is written to the buffer
                Client.Send(buffer.ToArray) ' Sends the buffer to the Socket
            End Using
        End Using
    End Sub

او ده

كود:

    Public Sub SendPacket(ByVal OpCode As String, ByVal sData As String)
        Using buffer As New IO.MemoryStream
            Using w As New IO.BinaryWriter(buffer)
                w.Write(CUShort(0))
                w.Write(CUShort("&H" + OpCode))
                w.Write(CUShort(1))

                For n As Integer = 0 To sData.Length / 2 - 1
                    w.Write(CByte("&H" & sData.Substring(n * 2, 2)))
                Next

                w.BaseStream.Position = 0
                w.Write(CUShort(w.BaseStream.Length - 6))
                w.Flush()
                Client.Send(buffer.ToArray)
            End Using
        End Using
    End Sub

طبعاً لازم تعَرف ال Client الأول بعدها اعمل connect ل 127.0.0.1 وبال port بتاع phconnector

يا tarek لو مش عايز ال form تعلق اعمل thread جديده

كود:

Dim Recv As Thread = New Thread(AddressOf Receiving)

وبين

كود:

Private Sub Receiving()

End sub

اكتب ال code اللي مش عايزو يعلق فيه

شكرا مره ثانيه

حولو انت ل #C بقي

y.png" border="0" alt="" title="Triggerhappy

y" class="inlineimg" />

انا ظبطها تمام مش بتعلق ، انا عديت المرحلة ديه ، وصلت لمرحلة عاوز طريقة ثابتة احلل بيها اي Packet علشان في Packets غلسة زي 0x2114 بتاعة ال HackShield

**ahmdod2** · 05-01-2013, 01:49 AM

لا مقدرش افيدك في الموضوع ده انا سبت iSro من زمن

**tarek1500** · 06-01-2013, 01:38 AM

استاذ acer محتاج مساعدة ، ياريت الموضوع يكمل

**arshmieds** · 15-01-2013, 01:15 PM

بقولك ايه سؤال على السريع هو ده بوت لسيلك رود العاديه الى هى ورلد سيرفر ولا بريفت سيرفر

**tarek1500** · 15-01-2013, 01:50 PM

اقتباس:

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

بقولك ايه سؤال على السريع هو ده بوت لسيلك رود العاديه الى هى ورلد سيرفر ولا بريفت سيرفر

انهي واحد؟؟؟

**arshmieds** · 15-01-2013, 04:28 PM

اقتباس:

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

انهي واحد؟؟؟

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

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	الردود	آخر مشاركة
اسفسارات داخل الجيم : اسم الجيم + اسماء المدن + ازاى اعرف اجيب كود	Emely	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	4	03-02-2014 01:27 PM
استفسار داخل الجيم	dematreio	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	6	01-11-2013 01:41 AM
طلب من داخل الجيم	يوسف النجم	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	4	19-11-2012 05:21 PM

يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر)

	تذكرني!