社區 › 數字通訊研習區 › eqsl 自動把log點完的程式

BX2ADE 發表於 2013-11-25 14:36:24

eqsl 自動把log點完的程式

由於很多OM都是利用eqsl來記錄log,有時候累積下來很多,點掉log又很累....我是懶人....

寫了一個自動點掉log的小AP大家可自行使用

require 'rubygems'
require 'watir-classic'
#require 'watir-webdriver'

class Click_Eqsl
def qso(utc)
      browser = Watir::IE.attach(:url, /ConfirmQSO.cfm/)
      browser.text_field(:index,0).set(utc)
      browser.text_field(:index,2).set('TNK QSO, 73 DE BX2ADE')
      browser.button(:index,0).click
      sleep(1)
      browser.close
end
def swl(utc)
      browser = Watir::IE.attach(:url, /ConfirmQSO.cfm/)
      browser.text_field(:index,0).set(utc)
      browser.text_field(:index,2).set('CFM , 73 DE BX2ADE')
      browser.button(:index,0).click
      sleep(1)
      browser.close
    end
end

b=Watir::Browser.new()
b.goto 'http://eqsl.cc'

#login
b.text_field(:name,'Callsign').set('yourcallsign')
b.text_field(:name,'EnteredPassword').set('yourpasswrrd')
b.button(:name,'Login').click
sleep(5)
b.link(:text,'InBox').click
sleep(5)
b.link(:href,"http://eqsl.cc/qslcard/Inbox.cfm?Archive=0&Reject=0").click
#goto logbook
sleep(3)
b.table(:index,6).rows.each_with_index do |row,index|
if (index > 1)

   #puts row.cell(:index,2).text
   if ( !row.cell(:index,8).text.downcase.index('wkd'))
   #qso
   #puts row.cell(:index,2).text
   if (row.cells.length > 10)
      row.cell(:index,11).link.click
      utc =row.cell(:index,3).text
      sleep(2)
      Click_Eqsl.new.qso(utc)
      sleep(1)
   end
   else
    if (row.cells.length > 10)
       row.cell(:index,11).link.click
       utc =row.cell(:index,3).text
       sleep(2)
       Click_Eqsl.new.swl(utc)
       sleep(1)
    end
   end
end
end
b.close

BX2ADE 發表於 2013-11-25 14:52:31

小修正一下,多了sleep(2)

class Click_Eqsl
def qso(utc)
      sleep(2)
      browser = Watir::IE.attach(:url, /ConfirmQSO.cfm/)
      browser.text_field(:index,0).set(utc)
      browser.text_field(:index,2).set('TNK QSO, 73 DE BX2ADE')
      browser.button(:index,0).click
      sleep(2)
      browser.close
end
def swl(utc)
      sleep(2)
      browser = Watir::IE.attach(:url, /ConfirmQSO.cfm/)
      browser.text_field(:index,0).set(utc)
      browser.text_field(:index,2).set('CFM , 73 DE BX2ADE')
      browser.button(:index,0).click
      sleep(2)
      browser.close
    end
end

BX4AG 發表於 2013-11-25 17:33:30

{:5_172:}

BU2CQ 發表於 2013-11-25 21:04:33

{:5_172:}水喔!{:5_172:}

BV2BD 發表於 2013-12-6 18:25:37

請問怎麼執行呢?

BX2ADE 發表於 2013-12-7 09:29:18

DEAR OM,

它要ruby 1.9.3以及watir的lib.

網路上可以找得到,如果不好裝我可以代勞.

BX2ADE 發表於 2013-12-7 09:49:08

http://rubyinstaller.org/downloads/   
抓1.9.3 p48X版本

http://watir.com/installation/
照文件做即可

查看完整版本: eqsl 自動把log點完的程式