Автоматический логин

[rsd]

скрипт, кстати, мой, а не инваниуса.
и он один из первых, что я написал. и почти его не юзал, т.к. вскоре завязал с ботированием.
поэтому до работоспособного состояния ему конечно далековато/

 

[Krickt]

Как это нет, проверка то как раз есть, она же в скрипте присутствует.

И где же?
При дисконекте(именно когда в игре сообщение о потере связи) Engine.Status запросто может быть lsOnline.

 

[CMAK]

Например на еглобале окно может дисконектнуться, но ты этого даже не заметишь, пока не переключишься на это окно и не ткнешь мышкой в "пол" , только тогда настроенное событие начинает извещать что мы вылетели.
Т.е адрик не может улавливать дисконнект(именно когда в игре сообщение о потере связи) ?

 

[rsd]

конечно не будет, если не включать голову.
что можно сходу придумать : в отдельном потоке проверять, двигался чар или нет в последние 10сек, если нет - то попробовать двинуться, не двинулся - аборт, перезапуск.
аналогично с зависоном на логине.
можно много чего навыдумывать, не полагаясь на isonline

 

[Krickt]

@rsd, поддерживаю, тоже самое уже говорил.

 

[Denis63RUS]

Сможет кто помочь с проблемкой? Хотел переделать чуток скрипт, смысл его в том, что при дисконекте приостанавливаются все потоки кроме того где осуществляется проверка на дисконект, а после конекта возобнавляем работу потоков. Но скрипт при дисконекте почему то весь встаёт на паузу после выполнения процедуры "Script.Suspend;" и разумеется ничего не происходит(

procedure Relogin;
const
	VK_BACK: cardinal = $8;//BackSpace
	VK_TAB: cardinal = $9; //Tab
	VK_RETURN: cardinal = $D;//Ener
begin
	while true do 	//бесконечный цикл
	begin
		if engine.status<>lsonline then// its when user not online
		begin
			Script.Suspend;		//приостанавливаем все потоки кроме текущего
			Engine.FaceControl(0,false);
			delay(1000);
			engine.useKey(VK_RETURN); //подтверждаем сообщение о дисконекте/дропа с сервера
			delay(290000+random(50)); //пауза перед вводом логина и пароля
			engine.useKey(VK_TAB); //перемещаемся на поле ввода пароля
			delay(2000);
			engine.enterText('123456');	//вводим пароль
			delay(2000);
			engine.useKey(VK_RETURN);	//нажимаем энтр
			delay(6000);
			engine.useKey(VK_RETURN);	//нажимаем энтр на выборе сервера
			delay(6000);
			engine.useKey(VK_RETURN);	//нажимаем энтр на выборе персонажа
			delay(6000);
			Engine.FaceControl(0,true);	//включаем бот
			delay(6000);
			Script.Resume;
			Engine.LoadConfig('конфиг.xml');
			delay(60000);
		end;
		delay(1000);
	end;
end;

begin
	Script.NewThread(@Relogin);
	Script.NewThread(@MainScrip);
end.

 

[danil123]

Толку от этих скриптов если почти все нормальные серверы работают на смартгварде...

 

[sent1k]

У кого ошибка на стадии
while Delay(3000) do begin

прописать так:

while 30=30 do begin

все станет работать

 

[Horhy]

работает ли скрипт после авторестарта сервера?

 

[F1ghter.]

Ребята как решить проблему с вводом лог\пас в чат , после автологина ?)

 

[dell]

Можно ли кликнуть правой кнопкой мыши? из факов что нагуглил не выходит ничего, не хочет функцию принимать

 

[Roya2]

Авто-логин с использованием hex-кодов еще актуален? Если да то скажите что нужно вписывать здесь: а именно в (mouse_event) или нужно вписать значения в (SetCursorPos)?

procedure mouseClick(x, y, _delay : integer);
begin
SetCursorPos(x, y);
mouse_event($2, 0, 0, 0, 0);
delay(_delay);
mouse_event($4, 0, 0, 0, 0);
end;
Если этот метод более не актуален, есть ли другие фри скрипты (рабочие) на авто-логин?!