Thank you Aaron.
David,
I removed my two comments which no longer apply.
Rod, you asked a question about which version the rating applied to, and
whether we needed to track that. I just wanted to point out that anyone can
go back and change their rating later, so if a problem is fixed with a later
version, you can change your rating.
David,
I mentioned an idea for code to remind the user to give a rating and
comments after X number of uses. It's not hard at all to do, so here's one
suggestion as a code example below. In the function I try "calculating"
the .ini file name, but it would be better if it had just been a parameter
to the function:
To use it, just add the line:
Queue "rateApp", 5
To the end of your main procedure (if 5 times seems like enough experience
to you).
If you want, you could improve it by providing them a dialog with a link to
where they would go to create an App Central account.
Hth,
Chip
Function RateApp(AfterNTimesRun)
' returns true if this run of the app causes the reminder message for a
rating/comments to be displayed.
' This function should only be called once at the start of the app's
running.
Dim iniFileName
Dim iniFileObj
Dim iniKeyName, iniSectionName
Dim RunCount, i
RateApp = False
' determine the ini file and section/key to be used
' add .ini to script name
i = InStr(clientInformation.ScriptFileName, ".")
iniFileName = clientInformation.ScriptPath & "\" &
Left(clientInformation.ScriptFileName, i - 1) & ".ini"
iniKeyName = "run_count"
iniSectionName = "tracking"
Set iniFileObj = INIFile(iniFileName)
' now get the key value for the number of times this app has been run
previously
RunCount = iniFileObj.Number(iniSectionName, iniKeyName, 0)
RunCount = RunCount + 1
' save the new key value after being incremented
iniFileObj.Number(iniSectionName, iniKeyName) = RunCount
' now see if it's time to display the reminder message
If RunCount = AfterNTimesRun Then
MsgBox "Please remember to give " & clientInformation.ScriptName & " (" &
clientInformation.ScriptVersion & ") a rating and some comments." & vbCr &
"You can do this using the GW Micro App Central web page, or their AppGet
app (note that this does require you to create an account on App Central)."
& vbCr & vbCr & "This is the only time you will see this reminder message
(for this app).", vbOKOnly + vbInformation + vbMsgBoxSetForeground,
"Reminder for " & clientInformation.ScriptName
RateApp = True
End If
End Function
-----Original Message-----
From: Aaron Smith [mailto:[email protected]]
Sent: Wednesday, February 19, 2014 8:00 AM
To: [email protected]
Subject: Re: Meaningless app ratings
On 2/19/2014 7:39 AM, Chip Orange wrote:
> I had one of my own apps receive a down rating from a user who got an
error,
> because word had an error on his pc, and it caused an error on my app. He
> couldn't reproduce it, but he wrote me that he down rated the app.
Welcome to the world of product support. :)
> I've been asking GW for over a year now to allow us to remove comments,
Sorry it took over a year, but you can now do this. Under My Comments,
each comment now has a delete link.
Thanks,
Aaron
--
Aaron Smith
Web Development * App Development * Product Support Specialist
GW Micro, Inc. * 725 Airport North Office Park, Fort Wayne, IN 46825
260-489-3671 * gwmicro.com
To insure that you receive proper support, please include all past
correspondence (where applicable), and any relevant information
pertinent to your situation when submitting a problem report to the GW
Micro Technical Support Team.
