Proxmark3 community

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.

Announcement

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.

#1 2018-09-04 08:01:55

zyw
Contributor
Registered: 2018-09-02
Posts: 6

Problem about PM3 GUI

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

Board footer

Powered by FluxBB