#Region  Project Attributes
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName:
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
	#FullScreen: False
	#IncludeTitle: True
#End Region
Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
    Dim radiobutton1 As RadioButton
    Dim radiobutton2 As RadioButton
    Dim radiobutton3 As RadioButton
    Dim radiobutton4 As RadioButton
    Dim radiobutton5 As RadioButton
    Dim radiobutton6 As RadioButton
    Dim radiobutton7 As RadioButton
    Dim radiobutton8 As RadioButton



End Sub

Sub Activity_Create(FirstTime As Boolean)
	If File.exists ("/dev", "/hidg0") =  False Then
		  Msgbox("it seems that your device does not have a custom kernel with HID support.", "")
		    Activity.finish
Else
    		Activity.LoadLayout("menu")
End If
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("menu")

End Sub

Sub Button1_Click

    If radiobutton1.Checked Then
    Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	Dim Result As Int
	Dim Ph As Phone
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/ && bash droidducky.sh mimikhatz.dd " & CRLF & "exit") 'Any commands via crlf, and exit at end
		Else
    End If
    If radiobutton2.Checked  Then
         Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/" & CRLF & "bash droidducky.sh mimikhatz.dd" & CRLF & "exit") 'Any commands via crlf, and exit at end
	 Else
    End If
	If radiobutton3.Checked  Then
        Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/" & CRLF & "bash droidducky.sh mimikhatz.dd" & CRLF & "exit") 'Any commands via crlf, and exit at end

		 Else
    End If
	If radiobutton4.Checked  Then
      Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/" & CRLF & "bash droidducky.sh mimikhatz.dd" & CRLF & "exit") 'Any commands via crlf, and exit at end
	   Else
    End If
	If radiobutton5.Checked   Then
         Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/" & CRLF & "bash droidducky.sh mimikhatz.dd" & CRLF & "exit") 'Any commands via crlf, and exit at end
		 Else
    End If
	If radiobutton6.Checked   Then
         Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/" & CRLF & "bash droidducky.sh mimikhatz.dd" & CRLF & "exit") 'Any commands via crlf, and exit at end
		 Else
    End If
	If radiobutton7.Checked   Then
        Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/" & CRLF & "bash droidducky.sh mimikhatz.dd" & CRLF & "exit") 'Any commands via crlf, and exit at end
		 Else
    End If
	If radiobutton8.Checked   Then
        Dim Command, Runner As String
	Dim StdOut, StdErr As StringBuilder
	StdOut.Initialize
	StdErr.Initialize
	Runner = File.Combine(File.DirInternalCache, "runner")
	Command = File.Combine(File.DirInternalCache, "command")
	File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
	File.WriteString(File.DirInternalCache, "command", "cd /data/local/tmp/" & CRLF & "bash droidducky.sh mimikhatz.dd" & CRLF & "exit") 'Any commands via crlf, and exit at end
		Else
		End If

End Sub




Sub Activity_Resume

	End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub