Поправленный скрипт, dll файлы из архива должны лежать там-же где и сам скрипт.
Для его работы нужен интерпретатор
Алгоритм:
- скачиваем интерпретатор, распаковываем, устанавливаем;
- скачиваем скрипт, распаковываем;
- открываем в блокноте файл R3KEE_eQSL_Cards.wbt
- листаем вниз пока не увидим блок:
Код:
strVisitorCallsign = "LOGIN" ; Логин eQSL
eq_password="PASSWORD" ; пароль eQSL
strPathToStoreQSLImages="D:\QSLCards\" ; путь к директории для скачивания карточек
- меняем данные на свои, сохраняем;
- запускаем R3KEE_eQSL_Cards.wbt :
- наслаждаемся.
Оригинальный скрипт у себя не нашел :(
Если у кого есть, можете отредактировать сами:
строку "if StrIndex(line, 'ADIF 2 Export from eQSL.cc', 1, @FWDSCAN) == 0 then"
заменить на
Код:
if StrIndex(line, 'ADIF 3 Export from eQSL.cc', 1, @FWDSCAN) == 0 then
после строки "Mode = GetADIFVar(line, "MODE")" добавить код:
Код:
SubMode = GetADIFVar(line, "SUBMODE")
;!!нужно проверять на разных модах для PSK, MFSK, THORB прокатывает .!!!!!!!!!!!!!!!!!!
;!!Для JT65 нужно оставлять MODE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
if (Mode != "JT65") && (SubMode != "") then
Mode = Submode
endif
строку "strURL = StrCat('/qslcard/DisplayQSL.cfm?Calls ign=', Callsign,'&VisitorCa llsign=', strVisitorCallsign, '&QSODate=', StrSub(QSODate, 1, 4),'-', StrSub(QSODate, 5, 2), '-', StrSub(QSODate, 7, 2), '%%20',StrSub(QSOTim e, 1, 2), ':', StrSub(QSOTime, 3, 2), ':00.0&Band=', Band,'&Mode=', Mode)"
заменить на
Код:
strURL = StrCat('/qslcard/DisplayeQSL.cfm?Callsign=', Callsign,'&VisitorCallsign=', strVisitorCallsign, '&QSODate=', StrSub(QSODate, 1, 4),'-', StrSub(QSODate, 5, 2), '-', StrSub(QSODate, 7, 2), '%%20',StrSub(QSOTime, 1, 2), ':', StrSub(QSOTime, 3, 2), ':00.0&Band=', Band,'&Mode=', Mode)