[WriteLog] Getscores universal uploader and Writelog

[Alfred Frugoli]

Hello everyone,

I'm trying to upgrade to the new Universal Score Uploader for Getscores, but
I'm not having much luck with the script.  I think I've got it right, but it
does not work.

Anybody have a working script for the CQWW contest they could send my way?

Or some thoughts on how to make the script work?

I've copied the script below.

Thanks.

73 de Al, KE1FO

Sub OnStartUpload()
   dim wlObject
   dim logFile
   set wlObject = Nothing
   On Error Resume Next
   Set wlObject = CreateObject("WLAPI.ScriptingBridge")
   On Error Goto 0
   if wlObject is nothing then
     Msgbox "Could not connect to WriteLog Scripting Bridge.  The WLAPI.dll
file must be installed on your system and Registered.  To Register, enter
'\Windows\system32\regsvr32 wlapi.dll' from the Run box."
     exit sub
   end if
   'VERY IMPORTANT!  Set this logFile to the WriteLog Log File you will use
during the contest.
   logFile = "C:\Documents and Settings\Administrator\My
Documents\WriteLog\contest\2009cqwwcw\ke1fo.wl"
   if not wlObject.Initialize(logFile) then
     Msgbox "Could Not initialize Writelog Automation interface to file '" &
logfile & "'.   Check filename in script."
     exit sub
   end if
   'Get the summary from Writelog
   wlObject.GetSummary

   '---- Here is the "MEAT" of this script.  Look at the Writelog
BandSummary Window to see the Format
   '---- for the Summary.  THIS SCRIPT IS SET UP FOR IARU HF.  AJUST FOR ANY
OTHER CONTEST.
   Getscores.QSOCount("160") = wlObject.SummaryValue("160","QSO")
   Getscores.QSOCount("80") = wlObject.SummaryValue("80","QSO")
   Getscores.QSOCount("40") = wlObject.SummaryValue("40","QSO")
   Getscores.QSOCount("20") = wlObject.SummaryValue("20","QSO")
   Getscores.QSOCount("15") = wlObject.SummaryValue("15","QSO")
   Getscores.QSOCount("10") = wlObject.SummaryValue("10","QSO")
   Getscores.QSOCount("ALL") = wlObject.SummaryValue("Total","QSO")
   'Getscores supports TWO multipler fields.  Mult1 will be ZN (Zone) and
Mult2 will be HQ (HQ Stna)
   Getscores.Mult1Count("160") = wlObject.SummaryValue("160","ZN")
   Getscores.Mult1Count("80") = wlObject.SummaryValue("80","ZN")
   Getscores.Mult1Count("40") = wlObject.SummaryValue("40","ZN")
   Getscores.Mult1Count("20") = wlObject.SummaryValue("20","ZN")
   Getscores.Mult1Count("15") = wlObject.SummaryValue("15","ZN")
   Getscores.Mult1Count("10") = wlObject.SummaryValue("10","ZN")
   Getscores.Mult1Count("ALL") = wlObject.SummaryValue("Total","ZN")

   Getscores.Mult2Count("160") = wlObject.SummaryValue("160","DX")
   Getscores.Mult2Count("80") = wlObject.SummaryValue("80","DX")
   Getscores.Mult2Count("40") = wlObject.SummaryValue("40","DX")
   Getscores.Mult2Count("20") = wlObject.SummaryValue("20","DX")
   Getscores.Mult2Count("15") = wlObject.SummaryValue("15","DX")
   Getscores.Mult2Count("10") = wlObject.SummaryValue("10","DX")
   Getscores.Mult2Count("ALL") = wlObject.SummaryValue("Total","DX")

   Getscores.Score = wlObject.Score

   'IF YOU ARE PARANOID and Do not want to send your breakdown, uncomment
this next line:
   'Getscores.IgnoreBreakdown = true
    GetScores.SendScore
    GetScores.LogMessage "Sending Score Complete"
End Sub

-----
Check out my Amateur Radio Contesting blog at ke1fo.wordpress.com.