[WriteLog] Getscores universal uploader and Writelog

[Alfred Frugoli]

I was not very specific in my initial post.  The score is uploading OK, but
I'm not seeing anything but zero's in the breakdown.

Thanks.

73 de Al, KE1FO

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


On Thu, Nov 26, 2009 at 11:22 PM, Alfred Frugoli <ke1fo at arrl.net> wrote:

> 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.
>
>
>
>