Creato da developer.web il 14/03/2014
Web Developer
|
Chi puņ scrivere sul blog
Solo l'autore puņ pubblicare messaggi in questo Blog e tutti gli utenti registrati possono pubblicare commenti.
Area personale
- Login
Menu
I miei link preferiti
Cerca in questo Blog
Tag
« Beyond Good & Evil - Aku... | VBScript Cercare stringa... » |
Post n°9 pubblicato il 05 Dicembre 2014 da developer.web
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim sFso = CreateObject("Scripting.FileSystemObject") For i As Integer = 0 To 4 If sFso.FileExists("slot" & i & ".sav") Then Me.Controls("Button" & i).Enabled = True Else Me.Controls("Button" & i).Enabled = False End If Next sFso = Nothing End Sub Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click, Button1.Click, Button2.Click, Button3.Click, Button4.Click Dim savegame As String = sender.Text Dim alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" Dim myFile As IO.FileStream Dim cod As String = "" myFile = New IO.FileStream(savegame, IO.FileMode.Open, IO.FileAccess.Read) For k As Integer = 0 To 3 myFile.Seek(11608 + (k * 4), 0) cod &= Mid(alphabet, myFile.ReadByte, 1) Next myFile = Nothing mdiskCode.Text = cod mdiskCode.Visible = True Akuda.Visible = True End Sub End Class |
La URL per il Trackback di questo messaggio è:
https://blog.libero.it/developerweb/trackback.php?msg=13039749
I blog che hanno inviato un Trackback a questo messaggio:
https://blog.libero.it/developerweb/trackback.php?msg=13039749
I blog che hanno inviato un Trackback a questo messaggio:
Nessun trackback
Commenti al Post:
Beyond Good & Evil - Akuda Bar Box Code for Mdisk13 (VB.net)
Nessun commento