Fixed issue #41
This commit is contained in:
@@ -644,7 +644,7 @@ Public Class frmMain
|
||||
Dim sVersion As String = My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor
|
||||
Dim sProcessType = [Enum].GetName(GetType(System.Reflection.ProcessorArchitecture), iProcessType)
|
||||
Dim sRevision As String = My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
|
||||
Dim sConstCopyright As String = Chr(169) & App_Copyright
|
||||
Dim sConstCopyright As String = Chr(169) & mgrCommon.FormatString(App_Copyright, Now.Year.ToString)
|
||||
|
||||
mgrCommon.ShowMessage(frmMain_About, New String() {sVersion, sProcessType, sRevision, sConstCopyright}, MsgBoxStyle.Information)
|
||||
End Sub
|
||||
|
||||
@@ -21,6 +21,7 @@ Public Class mgrCommon
|
||||
Try
|
||||
Dim request As WebRequest = WebRequest.Create(URL)
|
||||
Dim response As WebResponse = request.GetResponse()
|
||||
response.Close()
|
||||
Catch ex As Exception
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Generated
+1
-1
@@ -70,7 +70,7 @@ Namespace My.Resources
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to 2015 Michael J. Seiferling.
|
||||
''' Looks up a localized string similar to [PARAM] Michael J. Seiferling.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property App_Copyright() As String
|
||||
Get
|
||||
|
||||
@@ -140,7 +140,7 @@
|
||||
<value>This will rebuild all databases and shrink them to an optimal size.[BR]This should only be used if your gbm.s3db files are becoming very large.[BR][BR]Do you wish to continue?</value>
|
||||
</data>
|
||||
<data name="App_Copyright" xml:space="preserve">
|
||||
<value>2015 Michael J. Seiferling</value>
|
||||
<value>[PARAM] Michael J. Seiferling</value>
|
||||
</data>
|
||||
<data name="frmMain_Exit" xml:space="preserve">
|
||||
<value>Are you sure you want to exit? Your games will no longer be monitored.</value>
|
||||
|
||||
Reference in New Issue
Block a user