How to send a packet taken from WPE PRO with Winsock control vb2010

[Kraizy​]

Originally Posted by sarkoplata

I have to read what's in the inventory.

Well, I also came to that point..will try to find something helpful because I am interested in that too

[sarkoplata]

Originally Posted by Fisticuff

Well, I also came to that point..will try to find something helpful because I am interested in that too

Btw , your code isn't working ; I also tried this way.

  Dim sroHandle As Process = Process.GetCurrentProcess
        For Each sroHandle In Process.GetProcesses
            If sroHandle.MainWindowTitle = "SRO_Client" Then
                If currMP < 2000 Then 'Val(TextBox5.Text) / 100 * maxMP 
                    SendMessage(sroHandle, WM_CHAR, Asc("9"), 0)
                    Exit For
                End If
            End If
        Next

This didn't work as well. 0 errors , but no repot. Nothing happens.
Well lastly , If i found something about Read Inventory , I'll tell you.Now I am checking an old clientless source, which includes lots of Char packet handles.

[sarkoplata]

Back again :P
I've made an auto party tool which can create parties successfully.
But there is a problem that i couldn't make auto-accept party.
I wanna make , when the opcode "70D6" (I cant remember exactly) comes ,
I should send accept packet.
But how.

[Kraizy​]

Use your socket and receive packets with Socket.BeginReceive(...). You need to do your own little PacketAnalyzer, found one here (C# sourcecode but it's not hard to convert it to VB.NET, it took me ~10 minutes):
Find the Sub Received(buffer As Byte()) there you can use the Select Case-Methode to do something on incoming packets, simple example:

PHP Code:

Select Case rp.OpCode
   Case "A102"    //Server login answer
         Select Case rp.PacketData 
            Case "0201" //If you receive the packet (A102) 0201 you will get the ingame message that your login data is wrong
               //Wrong login
            Case "0205"
               //Server is full
            End Select
   Case "70D6"
         //Do something when you receive the 70D6 opcode
End Select 


[sarkoplata]

Originally Posted by Fisticuff

Use your socket and receive packets with Socket.BeginReceive(...). You need to do your own little PacketAnalyzer, found one here (C# sourcecode but it's not hard to convert it to VB.NET, it took me ~10 minutes):
Find the Sub Received(buffer As Byte()) there you can use the Select Case-Methode to do something on incoming packets, simple example:

PHP Code:

Select Case rp.OpCode
   Case "A102"    //Server login answer
         Select Case rp.PacketData 
            Case "0201" //If you receive the packet (A102) 0201 you will get the ingame message that your login data is wrong
               //Wrong login
            Case "0205"
               //Server is full
            End Select
   Case "70D6"
         //Do something when you receive the 70D6 opcode
End Select 


Can you give me any example about socket.beginrecv ?

[sarkoplata]

Well , I thought something.
Lets think opcode for "somebody tries to join party" is 706D ,
I did this via winsock control ;

PHP Code:

//AxWinsock1_DataArrival
Dim dataz as object
 AxWinsock1.GetData(dataz, vbString, e.bytesTotal)
 ListBox1.Items.Add(StringToHex(dataz))
//Timer1_Tick
 If ListBox1.Items.Contains("6D70") Then
 SendPacket("704F", "04", False)
 End If 


I check my listbox , it contains 6D70 but dunno why doesn't send packet when its true.

[sarkoplata]

bump

[sarkoplata]

bump..

[Kraizy​]

Did you try to place a breakpoint on the line "If ListBox1.Items..." to see if it gets called?

[sarkoplata]

Originally Posted by xKraizy

Did you try to place a breakpoint on the line "If ListBox1.Items..." to see if it gets called?

I created a function.. this one helped...

PHP Code:

Public Function listboxcontain() As Boolean
        For Each itm As String In ListBox1.Items
            If itm.Contains("6D70") Then
                Return True
            End If
        Next
        Return False
    End Function 


I'm still working on hell reading packets... I can get them , see them , but can't analyze.. Btw i am searching for pt accept packet when someone comes to pt , i tested but still didn't understand.. But I found creating party packet , if it helps you :

PHP Code:

Dim fdata As String = "00000000000000000" & Pttypebutton & minLVHex & maxLVHEX & Strlen & "00" & hexpttitle
        SendPacket("7069", fdata, False) 


pt type button ( exp share etc ) -> 400 500 600 or 700
MinLvhex & maxlvhex level ranges in hex
strlen of pt title ,
hexpttitle pt title in hex
I know you may know theese already .. but , I always want help from you.. I don't help any .. I want to help too..

[Kraizy​]

I already gave you this link:
It's a C# packet analyzer, convert it to VB.NET with: and you will be able to receive the packets, list them in a listbox and do something when they receive (look for the "Received"-Sub).

BTW: Are you able to send packets? Because of: "SendPacket("7069", fdata, False)" what is the "False"-Parameter? Can I see your SendPacket-Sub? I posted my Sub on (I think) the second site of this thread and there are only two parameters (OpCode, Data)

[sarkoplata]

Originally Posted by xKraizy

I already gave you this link:
It's a C# packet analyzer, convert it to VB.NET with: and you will be able to receive the packets, list them in a listbox and do something when they receive (look for the "Received"-Sub).

BTW: Are you able to send packets? Because of: "SendPacket("7069", fdata, False)" what is the "False"-Parameter? Can I see your SendPacket-Sub? I posted my Sub on (I think) the second site of this thread and there are only two parameters (OpCode, Data)

Ah yes.You posted sub for sending packets , I added an boolean to it. What I changed is ;

PHP Code:

Sub SendPacket(ByVal OpCode As String, ByVal sData As String, ByVal Enc As Boolean)
 If Enc = True Then
                    w.Write(CUShort(3))
                Else
                    w.Write(CUShort(1))
                End If 


It's about security byte , It's 0300 If it's an encrypted packet ( e.g. potion packets) It's 0100 if it's a normal packet.
BTW : I can send like this too;
srosocket.send(data)
I'll check packet analysator.
BTW : That site is really bad for converting , ok it's beginreceive but , how to elect them?

[sarkoplata]

still fail.

[sarkoplata]

I have a different question now.
I added openfiledialog and a Process.start to open the loader from my app,
it opens the loader successfully but when i press "Launch" from loader , nothing happens.
When i open loader normally , it opens the game.
btw , i tried running it as administrator

[Kraizy​]

Would be nice if we could see the code you are using...