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

[sarkoplata]

Originally Posted by xKraizy

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

PHP Code:

Dim process As System.Diagnostics.Process = Nothing
        Dim processStartInfo As System.Diagnostics.ProcessStartInfo
        processStartInfo = New System.Diagnostics.ProcessStartInfo()
        processStartInfo.WindowStyle = ProcessWindowStyle.Normal
        processStartInfo.FileName = pathway1.Text
        processStartInfo.Verb = "runas"
        processStartInfo.Arguments = ""
        processStartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Normal
        processStartInfo.UseShellExecute = True
        process = System.Diagnostics.Process.Start(processStartInfo) 


Pathway1.text=The place where loader is
Btw i tried arguments as /18 too but nothing changed ^^

/I made curdir& "\private_server_loader.exe" works fine.

[sarkoplata]

I'm here with very different question today.
I want to add all sro_clients to my listview with their process id's.
before I posted here , I thought a lot but no solutions.
My whole code ;

PHP Code:

 Dim label As New Label
        label.Text = "0"
        Me.Controls.Add(label)
        Lw1.Items.Clear()
        Dim orx() As Process = Process.GetProcessesByName("SRO_Client")
        For Each ox As Process In orx
            label.Text = label.Text + 1
        Next

        For Each o As Process In orx
            If o.ProcessName = "SRO_Client" Then
                Lw1.Items.Add(o.ProcessName)
                Lw1.Items(0).SubItems.Add(o.Id.ToString)
            End If
        Next 


Label.text = how many sro_clients are working atm
Lw1 = Listview
What I need to do is :
For first client ,do this ;

PHP Code:

 Lw1.Items.Add(o.ProcessName)
                Lw1.Items(0).SubItems.Add(o.Id.ToString) 


For second client ,do this ;

PHP Code:

 Lw1.Items.Add(o.ProcessName)
                Lw1.Items(1).SubItems.Add(o.Id.ToString) 


For third client ,do this ;

PHP Code:

 Lw1.Items.Add(o.ProcessName)
                Lw1.Items(2).SubItems.Add(o.Id.ToString) 


So they all will be added successfully...
Hope you solve it

[Kraizy​]

I didn't understand your whole post..did you already got it?
If not:

PHP Code:

Dim counter As Integer = 0
For Each proc As Process In Process.GetProcessesByName("SRO_Client")
     ListView1.Items.Add(proc.ProcessName).SubItems.Add(proc.Id)
     counter += 1
Next
Label1.Text = counter
//or
Label1.Text = ListView1.Items.Count 


[sarkoplata]

Originally Posted by xKraizy

I didn't understand your whole post..did you already got it?
If not:

PHP Code:

Dim counter As Integer = 0
For Each proc As Process In Process.GetProcessesByName("SRO_Client")
     ListView1.Items.Add(proc.ProcessName).SubItems.Add(proc.Id)
     counter += 1
Next
Label1.Text = counter
//or
Label1.Text = ListView1.Items.Count 


Yea already fixed it , in this way ;

PHP Code:

Dim orx()  as process = process.getprocessesbyname("sro_client")
Dim PIN(2) as string

Lw1.Items.Clear()

        Dim itm As ListViewItem
        For Each o As Process In orx
            i = i + 1
            PIN(0) = i
            PIN(1) = o.MainWindowTitle.ToString
            PIN(2) = o.Id.ToString
            itm = New ListViewItem(PIN)
            Lw1.Items.Add(itm)
        Next
        i = 0 


Now another problem ... It should work but don't know why.. Something Silly...
Here is the code for hiding a process with process id ... Works 100%
( NOTE : { Lw1.SelectedItems(0).SubItems.Item(2).Text.ToStrin g } is the PID of selected process )

PHP Code:

 Dim a As Process = Process.GetProcessById(Lw1.SelectedItems(0).SubItems.Item(2).Text.ToString)
        ShowWindow(a.MainWindowHandle, SW_HIDE) 


And here is the code for restoring it with process id .. Idk why but doesn't work :

PHP Code:

 Dim a As Process = Process.GetProcessById(Lw1.SelectedItems(0).SubItems.Item(2).Text.ToString)
        ShowWindow(a.MainWindowHandle, SW_RESTORE) 


If i do it in this way ;

PHP Code:

 Dim hwnd As IntPtr = FindWindow(Nothing,"SRO_client")
        ShowWindow(hwnd, SW_RESTORE) 


It works.. But I want to do it with PID so..


#EDIT : I saw why it doesn't restore it.When process is hidden ,

PHP Code:

Dim procList As Process = Process.GetProcessById(Lw1.SelectedItems(0).SubItems.Item(2).Text)
        Dim hwnd As Integer
        hwnd = procList.MainWindowHandle
/// Hwnd keeps returning 0 when process is hidden.. And when process is hidden , when I press refresh , On listview p.name value gives me nothing.. Any idea? 


[Kraizy​]

I think you can't find the handle if you already hid it..
And I can't understand all your text^^
Here a little example maybe it will help you..

Edit: Well, tried to hide 2-3 process and after that there are problems with restoring them again (just works if you hide one process, show it again, and hide the next one)..will try to find a solution to hide all and show them again..

[sarkoplata]

Thank you for your source but I already know them and applied in my tool,
So you think getting handle of an hidden process is impossible :/
Maybe before hiding them we can keep their handles? Is it works ?

BTW : What about the client name ? When I hide and refresh it , Can't see the client name anymore :/
EDIT : Yep Worked. Saved their handles before , and if it's 0 , it won't refresh it. One more success^^

[sarkoplata]

Me again
In the time past , I made many little tools.
Now I want to make a server-stat-shower.
It will show:
Current Players:
Max Players:
Server Name:
-
How to do that? (I guess system.net.sockets for it , but how :P )

[Kraizy​]

You need to analyse the Loginpacket (A101). I saved some packets some weeks ago, there was also the A101 one, here my result:

01							NameServer Start
01							Nameserver ID						
10-00							NameServer Name Length (16)
53-52-4F-5F-43-68-69-6E-61-5F-54-65-73-74-49-6E		NameServer Name (SRO_China_TestIn)
00							NameServer End
01							GameServer Start
01-00							GameServer ID
0A-00							GameServer Name Length (10)
5A-53-5A-43-28-46-69-72-65-29				Gameserver Name (ZSZC(Fire))
53-02							Current User (595)
D0-07							Max User (2000)
01							don't know
01							Status (00=Check, 01=Online)
00							GameServer End

To convert it u can use the BitConverter..little example:

MsgBox(BitConverter.ToInt16(New Byte() {&HD0, &H7}, 0))
//Result: 2000 (MaxUser)

Also take a look at

[sarkoplata]

Originally Posted by xKraizy

You need to analyse the Loginpacket (A101). I saved some packets some weeks ago, there was also the A101 one, here my result:

01							NameServer Start
01							Nameserver ID						
10-00							NameServer Name Length (16)
53-52-4F-5F-43-68-69-6E-61-5F-54-65-73-74-49-6E		NameServer Name (SRO_China_TestIn)
00							NameServer End
01							GameServer Start
01-00							GameServer ID
0A-00							GameServer Name Length (10)
5A-53-5A-43-28-46-69-72-65-29				Gameserver Name (ZSZC(Fire))
53-02							Current User (595)
D0-07							Max User (2000)
01							don't know
01							Status (00=Check, 01=Online)
00							GameServer End

To convert it u can use the BitConverter..little example:

MsgBox(BitConverter.ToInt16(New Byte() {&HD0, &H7}, 0))
//Result: 2000 (MaxUser)

Also take a look at

Thanks but this net.sockets makes me crazy. It wouldnt take me more than 5minutes with winsock..
Converted from C# .. lastest codes:

PHP Code:

//Sucessfully connecting loginserver..
  Dim IP As IPAddress = IPAddress.Parse("31.192.104.161")
        Dim Porta As Integer = 15779
        Dim IPEP As IPEndPoint = New IPEndPoint(IP, Porta)
        Socket.Connect(IPEP)

// This is ok ... but how do i use this func? how can i  call this method when recevied a packet?
    Friend Sub Received(ByVal buffer As Byte(), ByVal size As Integer)
        Dim sData As String = BitConverter.ToString(buffer)
        sData = sData.Replace("-", "")

        //OpCode 
        Dim OpCode As String = sData.Substring(4, 4)
        OpCode = OpCode.Substring(2, 2) & OpCode.Substring(0, 2)

        //Data
        Dim PacketData As String = sData.Substring(12, size)

        //Security
        Dim Security As String = sData.Substring(8, 2)

        If Security = "01" Then
            Security = "C->J"
        Else
            Security = "J->C"
        End If

        Dim PacketInfo As String = String.Format("[{0}]({1}){2}", Security, OpCode, PacketData)

        MsgBox(PacketInfo)
        end sub

//Not sure what this is for O_O
Public Shared Sub OnDataReceived(ByVal asyn As IAsyncResult)
        Try
            Dim SockId As SocketPacket = DirectCast(asyn.AsyncState, SocketPacket)
            Dim size As Integer = SockId.winSock2.EndReceive(asyn)

            Form1.Received(SockId.dataBuffer, size)


        Catch ode As ObjectDisposedException
            MessageBox.Show(ode.Message)
        Catch se As SocketException
            MessageBox.Show(se.Message)
        End Try
    End Sub

//Easiest part. But still don't know how to read data which came from socket
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SockP As New SocketPacket()

        Socket.BeginReceive(SockP.dataBuffer, 0, SockP.dataBuffer.Length, SocketFlags.None, pfnCallBack, SockP)

    End Sub 


This thing , obviously killed my mind. Waiting for your helps , but please this time , a lil bit with more examples thanks again