Skip to content

feat(xKore): add windows check and look for process key #4216

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
alisonrag merged 1 commit into from
Jul 11, 2026
Merged

feat(xKore): add windows check and look for process key #4216

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions control/config.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -28,6 +28,7 @@ XKore_dll NetRedirect.dll
XKore_injectDLL 1
XKore_autoAttachIfOneExe 1
XKore_silent 1
XKore_lookForProcess 1
XKore_bypassBotDetection 0
XKore_exeName ragexe.exe

Expand Down
21 changes: 16 additions & 5 deletions src/Network/XKore.pm
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -19,20 +19,29 @@ use base qw(Exporter);
use Exporter;
use IO::Socket::INET;
use Time::HiRes qw(time usleep);
use Win32;
use Exception::Class ('Network::XKore::CannotStart');

use Modules 'register';
use Globals;
use Log qw(message error debug);
use Utils::Win32;
use Network;
use Network::Send ();
use Utils qw(dataWaiting timeOut);
use Translation;
use Misc qw(chatLog);
use Network::MessageTokenizer;

use constant IS_WINDOWS => ($^O eq 'MSWin32');

BEGIN {
if (IS_WINDOWS) {
require Win32;
Win32->import();
require Utils::Win32;
Utils::Win32->import();
}
}

my $currentClientKey = 0;

##
Expand All @@ -42,19 +51,21 @@ my $currentClientKey = 0;
sub new {
my $class = shift;
my $port = $config{XKore_port} || 2350;
my $addr = $config{XKore_listenIp} || 'localhost';
my $self = bless {}, $class;

undef $@;
$self->{server} = new IO::Socket::INET->new(
Listen => 5,
LocalAddr => 'localhost',
LocalAddr => $addr,
LocalPort => $port,
Proto => 'tcp');
if (!$self->{server}) {
Network::XKore::CannotStart->throw(error => TF("Unable to start the X-Kore server.\n" .
"Make sure no other servers are running on port %s.\n", $port));
}

message TF("Listening on %s:%s\n", $addr, $port), "startup";
$self->{incomingPackets} = "";
$self->{serverPackets} = "";
$self->{clientPackets} = "";
Expand Down Expand Up @@ -257,12 +268,12 @@ sub checkConnection {
my $pid;
# Wait until the RO client has started

my $loop = 1;
my $loop = $config{XKore_lookForProcess} ? 1 : 0;
my @list;

message TF("Please start the Ragnarok Online client (%s)\n", $config{XKore_exeName}), "startup";
Plugins::callHook('XKore_start');
while ($loop) {
while ($loop && IS_WINDOWS) {
undef @list;
my @z = Utils::Win32::listProcesses();

Expand Down
Loading