1

手短に言うと、私は世界中の誰とでも興味を持ってプレイできるシンプルなゲームに取り組んでいます。このゲームを作成しているので、Web サイトに ping を送信するゲーム用のシンプルなランチャーに取り組むことにしました。バージョン、ゲームが既にインストールされている保存されたテキストファイルでそのバージョンをチェックし、バージョンの違いかどうかを確認します。バージョンの違いの場合、ランチャーはゲームをダウンロードします。その人がまだゲームをインストールしていない場合は、ゲームをダウンロードします。

なぜ私がここに投稿しているのかという問題のために、AppDataディレクトリからコンピューターに既に保存されているテキストファイルを取得して、ランチャーで読み取り、それをWebサイトのバージョンとの比較として使用しようとしています。これは私が起動時に持っているものです:

起動時:

Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim wc As New Net.WebClient

Text = wc.DownloadString("https://dl.dropboxusercontent.com/u/47132467/version.txt")

If My.Computer.FileSystem.FileExists("C:\Program Files\SC\SC.exe") Then
    StartBtn.Enabled = True
    StartBtn.Visible = True
Else
    StartBtn.Enabled = False
    StartBtn.Visible = False
End If

If My.Computer.FileSystem.FileExists("C:\Program Files\SC\Readme.txt") Then
    ReadMeBtn.Visible = True
Else
    ReadMeBtn.Visible = False
End If
End Sub

要するに、コンピューター自体からテキスト ファイルを作成して AppData の下に保存するEnviron("AppData") & "\SC\version.txt"方法を見つけようとしています。オンラインのテキストファイルと一緒に。上級者に感謝します！しばらくの間、これを理解しようとして私の脳がderpモードになっている人を混乱させたらごめんなさい。

4

2 に答える 2

1

読み取りと書き込みの 2 つの関数を次に示します。

Public Function GetFileContents(ByVal FullPath As String, _
   Optional ByRef ErrInfo As String = "") As String

    Dim strContents As String
    Dim objReader As StreamReader
    Try

        objReader = New StreamReader(FullPath)
        strContents = objReader.ReadToEnd()
        objReader.Close()
        Return strContents
    Catch Ex As Exception
        ErrInfo = Ex.Message
    End Try
End Function

Public Function SaveTextToFile(ByVal strData As String, _
 ByVal FullPath As String, _
   Optional ByVal ErrInfo As String = "") As Boolean

    Dim Contents As String
    Dim bAns As Boolean = False
    Dim objReader As StreamWriter
    Try

        objReader = New StreamWriter(FullPath)
        objReader.Write(strData)
        objReader.Close()
        bAns = True
    Catch Ex As Exception
        ErrInfo = Ex.Message

    End Try
    Return bAns
End Function

電話：

Dim File_Path as string = Environ("AppData") & "\SC\version.txt"
Dim versionStr as String = GetFileContents("File_Path")
Label1.text = versionStr
Label1.text.refresh ''// Sometimes this may be required depending on what you are doing!
于 2013-04-12T04:41:11.407 に答える