Не надо благодарности

[Yamazuki]

Я тут порыл контент игры.

Нашел их скрипты.

Протестил и выяснил как это работает.

написал свой парсер на VBS и предлагаю его членам гильдии.

 

Прочтите то, что я написал при запуске скрипта и вопросы пропадут. Просто сделайте то, что написано ниже и запустите его двойным кликом. Все что нужно скрипт напишет.

 

Данный скрипт нужен для информирования медиа файлом и сообщением на экране о том, что некий сервер Онлайн.

 

Так как мне не удается загрузить сам файл, то можно сделать следующее. Создать на рабочем столе файл вида aaa.txt

открыть его и вставить все, что написано ниже после слова "КОД", а потом переименовать файл из aaa.txt в aaa.vbs (aaa - можете заменить):

 

 

КОД

 

on error resume next

dim ServerName

dim MediaFilePath

dim Status

dim IsTest

Status = 0

 

'============= Настроить тут - вписав свои значения =================

IsTest = 1

ServerName = "kassiel"

MediaFilePath = "D:\tihonov\MyDocuments\My Music\GITS\Ghost in the Shell SAC - 11 - Inner Universe.mp3"

'============= Настроить тут - вимсав свои значения =================

 

Sub TestServer()

With CreateObject("MSXML2.XMLHTTP")

dim Str1, Str2 ,i

i = 1

 

Randomize

.open "GET", "http://aion.ru/launcher/serversStatuses?_=" & Int((999999 * Rnd) + 1), False

.send

Str1 =.responseText

Str1 = split(Str1, ",")

do

i=i+1

Str2 = Str1(i)

if err then exit do

 

if instr(Str2,ServerName)<>0 then

if instr(Str2,":0")=0 then

Action

Status = 1

end if

 

exit do

end if

loop

End With

end Sub

 

Sub Action()

Set objShell = CreateObject("Wscript.Shell")

strCommand = "explorer.exe " & chr(34) & MediaFilePath & chr(34)

objShell.Run strCommand, 0, True

WScript.Sleep(5000)

WScript.Echo "Сервер ''" & ServerName & "'' Online!" & vbnewline & "Скрипт автоматически завершает работу."

end Sub

 

 

if IsTest = 1 then

MsgBox "Внимание!" & vbnewline & "Скрипт автоматически завершится если сервер - online, предварительно запустив медиа файл через ассоцированный с ним плеер и выдав небольшое сообщение."_

& vbnewline & "Для настройки скрипта откройте его код и замените значения вида"_

& vbnewline & "ServerName=..." & vbnewline & "MediaFilePath=..." & vbnewline & "на требуемые (в 10 и 11 строках)."_

& vbnewline & vbnewline & "Сейчас скрипт запущен в ознакомительном режиме и завершится как только вы закроете это сообщение. После завершения конфигуррирования скрипта для запуска его в рабочем режиме измените значение ''IsTest = 1'' в 9 строке на ''0''."_

& vbnewline & "Запустив скрипт после этого вы увидите\услышите результат только при статусе сервера ''online''. Для экстренного завершения работы скрипта завершите в диспетчере задач Windows процесс под именем ''wscript.exe''."_

& vbnewline & vbnewline & "Пока значение ''IsTest = 1'' скрипт работает в ознакомительном режиме ведя себя так, как будто сервер уже найден. Он попытается выдать сообщение и воспроизвести медиа файл. Если ошибка, то поправте путь к медиа файлу."

Action

MsgBox "Если Вы читаете данное сообщение и слышали\видели медиа файл, значит тест прошел нормально, медиа файл задан верно и можно запускать скрипт в рабочем режиме." & vbnewline & "Замените ''IsTest = 1'' на ''IsTest = 0'', запускайте скрипт и ждите любимую музыку (или что то иное)." & vbnewline & vbnewline & "Удачи! Shinoby, Asmo, Kassiel =)"

else

Do While Status=0

TestServer

WScript.Sleep(3000)

Loop

end if

Изменено 8 декабря, 2009 пользователем Yamazuki

[Lange]

А песенка реальная) давным давно у меня целый год на плеере лежала)

[Yamazuki]

А песенка реальная) давным давно у меня целый год на плеере лежала)

 

Я фанатик GitS, все наизусть видел и слышал )

Но тема не про это. Меди файл каждый должен указать свой конечно же. В тестовом режиме он воспроизведется если все ок.

[Гость IliaDN]

Спасибо-)

[Yamazuki]

Кстати можно сделать несколько файлов например kassiel.vbs и gardarika.vbs... и запустив мониторить несоклько серверов. это тоже будет работать.

 

Вот имена серверов как их нужно в скрипте указывать. Но по умолчанию уже задан kassiel. Просто руть к мп3 например своему укажите верный и все.

alsion

gelmir

ridheim

kassiel

hild

vigrid

delika

terios

gardarika

lantis

 

Кому хочется попроще и почаще (так как код лаунчера 30 мин назад изменили, сделав обновление серверов вместо 3 сек аж 60 сек), могут просто обновлять вручную http://aion.ru/launcher/

Изменено 8 декабря, 2009 пользователем Yamazuki

[Гость IliaDN]

Полезно=)

[P1RoG]

Это тот кого за бота приняли?) Что мне не нравится все это ^___^

[AlterEgo]

Одна маааааленькая проблема. Вчерась сервера прекрасно были онлайн, при этом лаунчер и, значит этот файлик, показывали, что сервера офф.

[Летта]

AlterEgo, ага было такое(вчера обновляла почти каждые пять мин,в надежде увидеть изменения,но оказалось зря))))))