Was hab ich da falsch gemacht?

[kiba89]

Public Class Form1

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        Dim HP As Long = 2348565979
        Dim HP2 As Long = 2348565977

        If CheckBox2.Checked = True Then
            WriteInteger("S4Client", &H5372D4, HP)
        ElseIf CheckBox2.Checked = False Then
            WriteInteger("S4Client", &H5372D4, HP2)
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Dim SP As Long = 2348565979
        Dim SP2 As Long = 2348565977

        If CheckBox1.Checked = True Then
            WriteInteger("S4Client", &H492132, SP)
        ElseIf CheckBox1.Checked = False Then
            WriteInteger("S4Client", &H492132, SP)
        End If
    End Sub
End Class

[BlackAce89]

vb.net?

[kiba89]

Originally Posted by BlackAce89

vb.net?

ja ^^

[BlackAce89]

ich kenn mich damit nicht aus aber versuch es mal mit

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        Dim SP As Long = 2348565979
        Dim SP2 As Long = 2348565977
        Try
            If CheckBox1.Checked = True Then
                WriteInteger("S4Client", &H492132, SP)
            ElseIf CheckBox1.Checked = False Then
                WriteInteger("S4Client", &H492132, SP)
            End If
        Catch ex As Exception
        End Try
    End Sub
End Class

tut mir leid wenn es nicht funktioniert

[Slicktor]

[MrSn0w]

Du solltest lieber WriteLong benutzen als WriteInteger

#Edit und deakladir die Values lieber als String

[-Zonda]

 If CheckBox2.Checked = True Then
            WriteInteger("S4Client", &H5372D4, HP)
        ElseIf CheckBox2.Checked = False Then
            WriteInteger("S4Client", &H5372D4, HP2)
        End If

Das "ElseIf Checkbox2.Checked = False Then" ist irrelevant, du musst nur "Else"
schreiben das reicht aus