Research, development and trades concerning the powerful Proxmark3 device.
Remember; sharing is caring. Bring something back to the community.
"Learn the tools of the trade the hard way." +Fravia
You are not logged in.
Time changes and with it the technology
Proxmark3 @ discord
Users of this forum, please be aware that information stored on this site is not private.
Pages: 1
I write the code like this,when i click the button_breeak ,i can print the number of the sector.But here{item.Action &= ("hf mf nested 1 " & sector) } the sector of here cant Concatenation. I dont konw Why
Public Sub block_num()
Dim sector_num() As String
sector_num = Split(prompt.Text, vbCrLf)
Debug.Print(prompt.Text)
For z = 0 To UBound(sector_num)
InStr(1, sector_num(z), "Found void key [ffffffffffff]")
If Microsoft.VisualBasic.Left(sector_num(z), 9) = "--sector:" Then
'If Microsoft.VisualBasic.Left(sector_num(z), 14) = "[ffffffffffff]" & vbCrLf Then
sector = Strings.Mid(sector_num(z), 10, 2)
key = Strings.Mid(sector_num(z), 34, 1)
Debug.Print(sector)
'Debug.Print(key)
End If
Next z
End Sub
Case "button_break"
item.Control = New Button
item.Control.Text = item.Text
ToolTip1.SetToolTip(item.Control, item.Tooltip)
AddHandler item.Control.Click, AddressOf block_num
AddHandler item.Control.Click, AddressOf actionCommand
Call block_num()
item.Action &= ("hf mf nested 1 " & sector) & vbCrLf
item.Control.Tag = item.Action
item.Control.SetBounds(0, i * 35, 140, 20)
item.Control.AutoSize = True
Offline
Pages: 1