Что нового

Узнаём статус бота ремоутом

xexe

Новичок
Сообщения
11
Репутация
2
Вот маленький скриптик который я использую чтобы следить ремоутом за ботом.

Код:
#include <Date.au3>
#Include <Misc.au3>
#include <IE.au3>
#Include <FTPEx.au3>

HotKeySet("{ESC}", "Terminate")

Global $BytesTotal = 0
$status1 = "" ;shows bots actions
$status2 = "" ;shows eve status
$Status3 = ""
$status4 = "" ;show align try
$status5 = "" ;show killing try
$L1 = ""
$L2 = ""
$High1 = ""
$High2 = ""
$High3 = ""
$High4 = ""
$High5 = ""
$High6 = ""
$Distination = "Status.ini"
$FTP = "ftp://*******/Status.ini"
$BotN = 1

Func Terminate()
	FileDelete($Distination)
	Exit 0
EndFunc

Func FTP()
	InetGet($FTP, $Distination, 1, 1)
	Do
		Sleep(500)
	Until InetGetSize($FTP, 2)
	InetClose($FTP)
EndFunc

While 1
	FTP()
	ReadIni()
	ToolTip($status1 & @CRLF & $status2 & @CRLF & $status3 & @CRLF & $status4 & @CRLF & $status5 & @CRLF & "Shield:"&  @CRLF & $L1 & @CRLF & $L2 & @CRLF & "Module Status:" & @CRLF & $High1 &  @CRLF & $High2 &  @CRLF & $High3 &  @CRLF & $High4 &  @CRLF & $High5 &  @CRLF & $High6, 1050, 1, "Ai " & $BotN & " Status")
	Sleep(500)
WEnd

Func ReadIni()
	$status1 = IniRead($Distination, "Bot"&$BotN, "Status1", "Не найден") ;Что делает бот
	$status2 = IniRead($Distination, "Bot"&$BotN, "Status2", "Не найден") ;Статус евы
	$status3 = IniRead($Distination, "Bot"&$BotN, "Status3", "Не найден") ;Время
	$status4 = IniRead($Distination, "Bot"&$BotN, "Status4", "Не найден") ;Попытка приблежения
	$status5 = IniRead($Distination, "Bot"&$BotN, "Status5", "Не найден") ;Попутка убить
	$L1 = IniRead($Distination, "Bot"&$BotN, "Shield Status", "Не найден") ;статус щита
	$L2 = IniRead($Distination, "Bot"&$BotN, "Status", "Не найден") ;статус хз
	$High1 = IniRead($Distination, "Bot"&$BotN, "Status High 1", "Не найден") ;статус хай слота1
	$High2 = IniRead($Distination, "Bot"&$BotN, "Status High 2", "Не найден") ;статус хай слота2
	$High3 = IniRead($Distination, "Bot"&$BotN, "Status High 3", "Не найден") ;статус хай слота3
	$High4 = IniRead($Distination, "Bot"&$BotN, "Status High 4", "Не найден") ;статус хай слота4
	$High5 = IniRead($Distination, "Bot"&$BotN, "Status High 5", "Не найден") ;статус хай слота5
	$High6 = IniRead($Distination, "Bot"&$BotN, "Status High 6", "Не найден") ;статус хай слота6
EndFunc


А ниже скриптик использует сам бот:
Код:
Func WriteIni()
	IniWrite($Distination, "Bot"&$BotN, "Status1", $status) ;Что делает бот
	IniWrite($Distination, "Bot"&$BotN, "Status2", $status2) ;Статус евы
	IniWrite($Distination, "Bot"&$BotN, "Status3", $status3) ;Время
	IniWrite($Distination, "Bot"&$BotN, "Status4", $status4) ;Попытка приблежения
	IniWrite($Distination, "Bot"&$BotN, "Status5", $status5) ;Попутка убить
	IniWrite($Distination, "Bot"&$BotN, "Shield Status", $L1) ;статус щита
	IniWrite($Distination, "Bot"&$BotN, "Status", $L2) ;статус хз
	IniWrite($Distination, "Bot"&$BotN, "Status High 1", $High1) ;статус хай слота1
	IniWrite($Distination, "Bot"&$BotN, "Status High 2", $High2) ;статус хай слота2
	IniWrite($Distination, "Bot"&$BotN, "Status High 3", $High3) ;статус хай слота3
	IniWrite($Distination, "Bot"&$BotN, "Status High 4", $High4) ;статус хай слота4
	IniWrite($Distination, "Bot"&$BotN, "Status High 5", $High5) ;статус хай слота5
	IniWrite($Distination, "Bot"&$BotN, "Status High 6", $High6) ;статус хай слота6
EndFunc


Выслушаю предложения по оптимизации ;)
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
Я использую DropBox. У меня в принципе на каждом компе последняя рабочая версия проекта. Туда же пишу в ini или txt файл и знаю чем он щас занимается :smile:
 
Автор
X

xexe

Новичок
Сообщения
11
Репутация
2
Автор: Belfigor
Я использую DropBox. У меня в принципе на каждом компе последняя рабочая версия проекта. Туда же пишу в ini или txt файл и знаю чем он щас занимается :smile:

поподробнее можно?
Спс заранее :smile:
 

Belfigor

Модератор
Локальный модератор
Сообщения
3,608
Репутация
941
https://www.dropbox.com/

2гб бесплатной шары, хватает для хранения AutoIt проектов. Ставишь дроп бокс на скольких угодно машинах, авторизуешься и в случае модификации информации на одной из них, эти же изменения вступают в силу и на остальных. Грубо говоря сидел, писал бота дома, вышел из дома, включил ноут, а там в дроп боксе уже последняя версия того что ты дописал дома.
 
Автор
X

xexe

Новичок
Сообщения
11
Репутация
2
Подскажите чем можно заменить
Код:
ToolTip($status1 & @CRLF & $status2 & @CRLF & $status3 & @CRLF & $status4 & @CRLF & $status5 & @CRLF & "Shield:"&  @CRLF & $L1 & @CRLF & $L2 & @CRLF & "Module Status:" & @CRLF & $High1 &  @CRLF & $High2 &  @CRLF & $High3 &  @CRLF & $High4 &  @CRLF & $High5 &  @CRLF & $High6, 1050, 1, "Ai " & $BotN & " Status")

И если можно примерчик приведите... спс.
 

zlo-kazan

Скриптер
Сообщения
374
Репутация
100
Belfigor
Штука хорошая, вот только без прав админа не поставить. :smile:
А 50% времени пишу на работе.

Хм... надо заморочиться и сделать тоже самое только на autoit. Останется только выбрать сервер куда заливать. :smile: narod/ucoz... и т.д. :smile:
 

Lexx98

Продвинутый
Сообщения
272
Репутация
73
zlo-kazan [?]
Хм... надо заморочиться и сделать тоже самое только на autoit. Останется только выбрать сервер куда заливать. narod/ucoz... и т.д.
Тогда уж лучше купить какой-нибудь хостинг за бакс-два в месяц. Надёжнее, имхо.
 

zlo-kazan

Скриптер
Сообщения
374
Репутация
100
На флешке перенес dropbox с домашнего компьютера и все нормально работает. :beer:
 
Верх