Alpha 3:

Fixed Some Figures not being Recognized and Writing Wrong.
Added Trap Editor (Not complete)
Added Vehicle Editor (Not Complete)

SkyReader-GUI/DeviceManagement.vb

@@ -103,7 +103,7 @@ Partial Friend NotInheritable Class DeviceManagement
 	''' </returns>
 
 	Friend Function FindDeviceFromGuid _
-	 (ByVal myGuid As System.Guid, _
+	 (ByVal myGuid As Guid,
 	 ByRef devicePathName() As String) _
 	 As Boolean
 
@@ -114,7 +114,7 @@ Partial Friend NotInheritable Class DeviceManagement
 		Dim lastDevice As Boolean
 		Dim memberIndex As Int32
 		Dim myDeviceInterfaceData As SP_DEVICE_INTERFACE_DATA
-        Dim pdevicePathName As IntPtr
+		Dim pdevicePathName As IntPtr
 		Dim success As Boolean
 
 		Try
@@ -134,13 +134,13 @@ Partial Friend NotInheritable Class DeviceManagement
 
 			' Returns
 			' Handle to a device information set for the devices.
-            '*
+			'*
 
-            deviceInfoSet = SetupDiGetClassDevs _
-             (myGuid, _
-             IntPtr.Zero, _
-             IntPtr.Zero, _
-             DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE)
+			deviceInfoSet = SetupDiGetClassDevs _
+			 (myGuid,
+			 IntPtr.Zero,
+			 IntPtr.Zero,
+			 DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE)
 
 			deviceFound = False
 			memberIndex = 0
@@ -177,10 +177,10 @@ Partial Friend NotInheritable Class DeviceManagement
 				'***
 
 				success = SetupDiEnumDeviceInterfaces _
-				 (deviceInfoSet, _
-				 IntPtr.Zero, _
-				 myGuid, _
-				 memberIndex, _
+				 (deviceInfoSet,
+				 IntPtr.Zero,
+				 myGuid,
+				 memberIndex,
 				 myDeviceInterfaceData)
 
 				'Find out if a device information set was retrieved.
@@ -216,11 +216,11 @@ Partial Friend NotInheritable Class DeviceManagement
 					'***
 
 					SetupDiGetDeviceInterfaceDetail _
-					 (deviceInfoSet, _
-					 myDeviceInterfaceData, _
-					 IntPtr.Zero, _
-					 0, _
-					 bufferSize, _
+					 (deviceInfoSet,
+					 myDeviceInterfaceData,
+					 IntPtr.Zero,
+					 0,
+					 bufferSize,
 					 IntPtr.Zero)
 
 					'Allocate memory for the SP_DEVICE_INTERFACE_DETAIL_DATA structure using the returned buffer size.
@@ -236,11 +236,11 @@ Partial Friend NotInheritable Class DeviceManagement
 					'and the returned required buffer size.
 
 					success = SetupDiGetDeviceInterfaceDetail _
-					 (deviceInfoSet, _
-					 myDeviceInterfaceData, _
-					 detailDataBuffer, _
-					 bufferSize, _
-					 bufferSize, _
+					 (deviceInfoSet,
+					 myDeviceInterfaceData,
+					 detailDataBuffer,
+					 bufferSize,
+					 bufferSize,
 					 IntPtr.Zero)
 
 					'Skip over cbsize (4 bytes) to get the address of the devicePathName.
@@ -250,7 +250,7 @@ Partial Friend NotInheritable Class DeviceManagement
 					'Get the String containing the devicePathName.
 
 					devicePathName(memberIndex) = Marshal.PtrToStringAuto(pdevicePathName)
-					
+
 					deviceFound = True
 
 				End If

SkyReader-GUI/DeviceManagementDeclarations.vb

@@ -58,7 +58,7 @@ Partial Friend NotInheritable Class DeviceManagement
 
 	Friend Structure SP_DEVICE_INTERFACE_DATA
 		Friend cbSize As Int32
-		Friend InterfaceClassGuid As System.Guid
+		Friend InterfaceClassGuid As Guid
 		Friend Flags As Int32
 		Friend Reserved As IntPtr
 	End Structure
@@ -70,20 +70,20 @@ Partial Friend NotInheritable Class DeviceManagement
 
 	Friend Structure SP_DEVINFO_DATA
 		Friend cbSize As Int32
-		Friend ClassGuid As System.Guid
+		Friend ClassGuid As Guid
 		Friend DevInst As Int32
 		Friend Reserved As Int32
 	End Structure
 
 	<DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> Shared Function RegisterDeviceNotification _
-	 (ByVal hRecipient As IntPtr, _
-	 ByVal NotificationFilter As IntPtr, _
+	 (ByVal hRecipient As IntPtr,
+	 ByVal NotificationFilter As IntPtr,
 	 ByVal Flags As Int32) _
 	 As IntPtr
 	End Function
 
 	<DllImport("setupapi.dll", SetLastError:=True)> Shared Function SetupDiCreateDeviceInfoList _
-	 (ByRef ClassGuid As System.Guid, _
+	 (ByRef ClassGuid As Guid,
 	 ByVal hwndParent As Int32) _
 	 As Int32
 	End Function
@@ -94,18 +94,18 @@ Partial Friend NotInheritable Class DeviceManagement
 	End Function
 
 	<DllImport("setupapi.dll", SetLastError:=True)> Shared Function SetupDiEnumDeviceInterfaces _
-	 (ByVal DeviceInfoSet As IntPtr, _
-	 ByVal DeviceInfoData As IntPtr, _
-	 ByRef InterfaceClassGuid As System.Guid, _
-	 ByVal MemberIndex As Int32, _
+	 (ByVal DeviceInfoSet As IntPtr,
+	 ByVal DeviceInfoData As IntPtr,
+	 ByRef InterfaceClassGuid As Guid,
+	 ByVal MemberIndex As Int32,
 	 ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA) _
 	 As Boolean
 	End Function
 
 	<DllImport("setupapi.dll", CharSet:=CharSet.Auto, SetLastError:=True)> Shared Function SetupDiGetClassDevs _
-	  (ByRef ClassGuid As System.Guid, _
-	  ByVal Enumerator As IntPtr, _
-	  ByVal hwndParent As IntPtr, _
+	  (ByRef ClassGuid As Guid,
+	  ByVal Enumerator As IntPtr,
+	  ByVal hwndParent As IntPtr,
 	  ByVal Flags As Int32) _
 	 As IntPtr
 	End Function