開啟輔助訪問 按此~保存本站到桌面當捷徑
搜索

本文來自

數字通訊研習區

數字通訊研習區

訂閱|收藏

請添加對本版塊的簡短描述

精選帖子

eqsl 自動把log點完的程式

[複製鏈接]
37626 BX2ADE 發表於 2013-11-25 14:36:24

請註冊,才可使用更完善的功能唷!

您需要 登錄 才可以下載或查看,沒有帳號?註冊(人工驗證)

x
由於很多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[11..-1]
        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[11..-1]
       sleep(2)
       Click_Eqsl.new.swl(utc)
       sleep(1)
    end
   end
  end
end
b.close

HAM~就是要分享 HAMTalk Club http://www.HAMTalk.asia
 樓主| 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
HAM~就是要分享 HAMTalk Club http://www.HAMTalk.asia
BX4AG 發表於 2013-11-25 17:33:30
HAM~就是要分享 HAMTalk Club http://www.HAMTalk.asia
BU2CQ 發表於 2013-11-25 21:04:33
水喔!
HAM~就是要分享 HAMTalk Club http://www.HAMTalk.asia
BV2BD 發表於 2013-12-6 18:25:37
請問怎麼執行呢?
HAM~就是要分享 HAMTalk Club http://www.HAMTalk.asia
 樓主| BX2ADE 發表於 2013-12-7 09:29:18
DEAR OM,

它要ruby 1.9.3以及watir的lib.

網路上可以找得到,如果不好裝我可以代勞.
HAM~就是要分享 HAMTalk Club http://www.HAMTalk.asia
 樓主| BX2ADE 發表於 2013-12-7 09:49:08
http://rubyinstaller.org/downloads/   
抓1.9.3 p48X版本

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

HAM~就是要分享 HAMTalk Club http://www.HAMTalk.asia
您需要登錄後才可以回帖 登錄 | 註冊(人工驗證)

本版積分規則

快速回復 返回頂部 返回列表