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

[xexe]

Вот маленький скриптик который я использую чтобы следить ремоутом за ботом.

#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]

Я использую DropBox. У меня в принципе на каждом компе последняя рабочая версия проекта. Туда же пишу в ini или txt файл и знаю чем он щас занимается

 

[xexe]

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

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

 

[Belfigor]

https://www.dropbox.com/

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

 

[xexe]

Подскажите чем можно заменить

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]

Belfigor
Штука хорошая, вот только без прав админа не поставить.
А 50% времени пишу на работе.

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

 

[Belfigor]

Подскажите чем можно заменить

Ну если ToolTip тебе не подходит, выводи всю инфу в Label в GUI

 

[Lexx98]

zlo-kazan [?]

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

Тогда уж лучше купить какой-нибудь хостинг за бакс-два в месяц. Надёжнее, имхо.

 

[zlo-kazan]

На флешке перенес dropbox с домашнего компьютера и все нормально работает. :beer: