Code: Select all
sub Reconnect()
var ReconnectTime,rflag
ReconnectTime='0'
rflag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rflag then
ReconnectTime=Time()
rflag=0
end if
wait(20000)
uo.Say('') ########## LOGIN
wait(3000)
uo.Say('') ############# PASSWORD
wait(3000)
uo.Say('')
wait(3000)
uo.Ldblclick(357,164)
uo.Lclick(616,459)
wait(3000)
wend
wait(3000)
if (rflag==0) and (ReconnectTime<>'0') then
uo.TextOpen()
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
rflag=1
ReconnectTime='0'
end if
until false
end sub
sub Time()
var Date,nTime,uTime,i
uTime=str(uo.Time())
nTime=''
for i=0 to Len(uTime)
nTime=uTime[Len(uTime)-i]+nTime
if (i==2) or (i==4) then
nTime=':'+nTime
end if
next
uTime=str(uo.Date())
Date=''
for i=0 to Len(uTime)
Date=uTime[Len(uTime)-i]+Date
if (i==2) or (i==4) then
Date='.'+Date
end if
next
uTime=nTime+' @ '+Date
return uTime
end sub
Ну вот впринципе, имеется такой реконнектор, и уо клиент версии 5.0.х, естественно пароли он запоминать не умеют, не знаю что такое, в превидущих версиях клиентах было всё нормально.. Скрипт хороший но имеется одно весомое НО, при реконнекте он пишет в игре мой пароль, как то мне это не очень нравится ) Было это один раз, больше я даже проверять не стал. Вопрос можно как нибудь по другому сохранение пороля сделать ? Спасибо за помощь. Есть конечно мысль что не там вводил логин и пароль в скрипте и из-за этого он его ввёл в игре, обозначил строки где вводил.