#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#AdditionalJar: purejavahidapi
#AdditionalJar: jna-4.0.0
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ListView1 As ListView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
'initial HidDeviceInfo
Dim hdi As JavaObject
hdi.InitializeStatic("purejavahidapi.HidDeviceInfo")
'initial PureJavaHidApi
Dim jo As JavaObject
jo.InitializeStatic("purejavahidapi.PureJavaHidApi")
'list all usb hid
Dim lst As List
lst = jo.RunMethodJO("enumerateDevices", Null)
For i=0 To lst.Size-1
Log("*************************************")
Log("lst:" & lst.Get(i))
ListView1.Items.Add("lst:" & lst.Get(i))
'open usb hid
Dim obj As JavaObject
obj.InitializeStatic("purejavahidapi.HidDeviceInfo")
obj = lst.Get(i)
Dim getPath As String
getPath = obj.RunMethod("getPath",Null)
Log("getVendorId: " & obj.RunMethod("getVendorId",Null))
Log("getProductId: " & obj.RunMethod("getProductId",Null))
Log("getManufacturerString: " & obj.RunMethod("getManufacturerString",Null))
Log("getProductString: " & obj.RunMethod("getProductString",Null))
Log("getPath: " & getPath)
Next
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub