Code-Bin #721 - Flash Game Trainer

Flash Game Trainer
Posted by: thenewkid49 | June 29, 2010 @ 1:09pm

VisualBasic Code

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox2.Text = "" Then
            MsgBox("Enter a valid numeral!", MsgBoxStyle.Critical, "")
        Else
            FlashGame.SetVariable("ninja.health", TextBox2.Text)
        End If
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Enter a valid numeral!", MsgBoxStyle.Critical, "")
        Else
            FlashGame.SetVariable("ninja.livesRemaining", TextBox1.Text)
        End If
    End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) = False Then
            SendKeys.Send("{BACKSPACE}")
        ElseIf TextBox1.Text.Contains("-") Then
            SendKeys.Send("{BACKSPACE}")
        End If
    End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If IsNumeric(TextBox2.Text) = False Then
            SendKeys.Send("{BACKSPACE}")
        ElseIf TextBox2.Text.Contains("-") Then
            SendKeys.Send("{BACKSPACE}")
        End If
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FlashGame.Movie = "http://www.miniclip.com/games/samurai-sam/en/samuraisam.swf?mc_gamename=Samurai+Sam&mc_hsname=1600&mc_shockwave=0&mc_scoreistime=0&mc_lowscore=0&mc_negativescore=0&mc_icon=samuraisamsmallicon.jpg&mc_players_site=1&mc_gameUrl=%2Fgames%2Fsamurai-sam%2Fen%2F&mc_sessid=cki1213ddv6d2bevsheikq0rc0&mc_v2=0"
        FlashGame.Playing = True
    End Sub
End Class

Syntax Highlighting

[Open in new window]

Author Comments

none

Rating

5.07 / 8
54 Votes