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@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.
>
>
>
>
_______________________________________________
WriteLog mailing list
WriteLog@contesting.com
http://lists.contesting.com/mailman/listinfo/writelog
WriteLog on the web: http://www.writelog.com/
|