RiflessiAuto .prm

In questa zona vengono raccolte le discussioni che riguardano lo sviluppo di nuovi progetti per ARM e per Re-Volt

Moderatore: Michelangelo

Rispondi
Maximvs
Messaggi: 402
Iscritto il: sab 14 giu 2008, 11:27

RiflessiAuto .prm

Messaggio da Maximvs » gio 25 lug 2013, 17:00

Allora come sto facendo da qualche giorno vi faccio una domanda, avete mai provato a togliere i riflessi dalle auto di re-Volt?? se la risposta è no vi posto subito un pezzettino di codice per poterlo fare chiaramente se volete metterò a disposizione anche gli eseguibili per chi volesse, ma per ora eccovi il codice:

Codice: Seleziona tutto

Public Class Form1
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RicercaConclusa As Boolean = False
        Dim ApriFile As New OpenFileDialog()
        ApriFile.Filter = "Mesh Re-Volt(*.prm)|*.prm"
        If ApriFile.ShowDialog() = DialogResult.Cancel Then
            MsgBox("Non hai selezionato nessun file", vbExclamation, "Messaggio")
            Exit Sub
        End If
        Dim FileArray() As Byte = My.Computer.FileSystem.ReadAllBytes(ApriFile.FileName)
        Dim Start As Integer = (BitConverter.ToInt16(FileArray, 0)) * 60 + 16
        For x = Start To FileArray.Length - 1 Step 24
            For k = 0 To 12
                If x + k > FileArray.Length - 1 Then Exit For
                FileArray(x + k) = 0
            Next k
        Next x
        My.Computer.FileSystem.WriteAllBytes(ApriFile.FileName, FileArray, False)
        MsgBox("File scritto con successo", vbInformation, "Scrittura")
    End Sub
End Class
Ultima modifica di Maximvs il gio 25 lug 2013, 17:02, modificato 2 volte in totale.

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti