initial commit

FreeSCAN/API.vb

@@ -0,0 +1,40 @@
+Option Strict Off
+Option Explicit On
+Module API
+
+	'For Comm Port Auto Detection
+	'// API Declarations
+	'UPGRADE_WARNING: Structure SECURITY_ATTRIBUTES may require marshalling attributes to be passed as an argument in this Declare statement. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="C429C3A5-5D47-4CD9-8F51-74A1616405DC"'
+	Public Declare Function CreateFile Lib "kernel32"  Alias "CreateFileA"(ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Short) As Integer
+	Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Short) As Integer
+
+	'// API Structures
+	Public Structure SECURITY_ATTRIBUTES
+		Dim nLength As Integer
+		Dim lpSecurityDescriptor As Integer
+		Dim bInheritHandle As Integer
+	End Structure
+
+	'// API constants
+	Public Const FILE_SHARE_READ As Short = &H1s
+	Public Const FILE_SHARE_WRITE As Short = &H2s
+	Public Const OPEN_EXISTING As Short = 3
+	Public Const FILE_ATTRIBUTE_NORMAL As Short = &H80s
+
+	'// Return TRUE if the COM exists, FALSE if the COM does not exist
+	Public Function COMAvailable(ByRef COMNum As Short) As Boolean
+		Dim hCOM As Integer
+		Dim ret As Integer
+		Dim sec As SECURITY_ATTRIBUTES
+
+		'// try to open the COM port
+		hCOM = CreateFile("\.\COM" & COMNum & "", 0, FILE_SHARE_READ + FILE_SHARE_WRITE, sec, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
+		If hCOM = -1 Then
+			COMAvailable = False
+		Else
+			COMAvailable = True
+			'// close the COM port
+			ret = CloseHandle(hCOM)
+		End If
+	End Function
+End Module

FreeSCAN/ApplicationEvents.vb

@@ -0,0 +1,15 @@
+Namespace My
+    ' The following events are available for MyApplication:
+    ' 
+    ' Startup: Raised when the application starts, before the startup form is created.
+    ' Shutdown: Raised after all application forms are closed.  This event is not raised if the application terminates abnormally.
+    ' UnhandledException: Raised if the application encounters an unhandled exception.
+    ' StartupNextInstance: Raised when launching a single-instance application and the application is already active. 
+    ' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
+    Partial Friend Class MyApplication
+
+    End Class
+
+
+End Namespace
+

FreeSCAN/AssemblyInfo.vb

@@ -0,0 +1,33 @@
+Imports System.Reflection
+Imports System.Runtime.CompilerServices
+Imports System.Runtime.InteropServices
+
+' General Information about an assembly is controlled through the following
+' set of attributes. Change these attribute values to modify the information
+' associated with an assembly.
+
+
+' TODO: Review the values of the assembly attributes
+
+
+<Assembly: AssemblyTitle("")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("sixspotsoftware.com")> 
+<Assembly: AssemblyProduct("FreeSCAN")> 
+<Assembly: AssemblyCopyright("2009")> 
+<Assembly: AssemblyTrademark("")>
+<Assembly: AssemblyCulture("")>
+
+' Version information for an assembly consists of the following four values:
+
+'	Major version
+'	Minor Version
+'	Build Number
+'	Revision
+
+' You can specify all the values or you can default the Build and Revision Numbers
+' by using the '*' as shown below:
+
+<Assembly: AssemblyVersion("0.8.3.0")> 
+
+

FreeSCAN/Audio.vb

@@ -0,0 +1,62 @@
+
+Imports System.data
+Module Audio
+    Public Function getSoundDeviceStructure() As DataTable
+        Dim dt As New DataTable
+        dt.Columns.Add(New DataColumn("Manufacturer"))
+        dt.Columns.Add(New DataColumn("Name"))
+        dt.Columns.Add(New DataColumn("PNPDeviceID"))
+        dt.Columns.Add(New DataColumn("ProductName"))
+        Return dt
+    End Function
+    Public Sub addSoundDevice(ByRef dt As DataTable, ByVal Manufacturer As String, ByVal Name As String, ByVal PNPDeviceID As String, ByVal ProductName As String)
+        Dim dr As DataRow
+        dr = dt.NewRow
+        dr("Manufacturer") = Manufacturer
+        dr("Name") = Name
+        dr("PNPDeviceID") = PNPDeviceID
+        dr("ProductName") = ProductName
+        dt.Rows.Add(dr)
+    End Sub
+
+    Public Sub addMotherBoardDevice(ByRef dt As DataTable, ByVal DeviceID As String, ByVal PrimaryBusType As String, ByVal SecondaryBusType As String)
+        Dim dr As DataRow
+        dr = dt.NewRow
+        dr("DeviceID") = DeviceID
+        dr("PrimaryBusType") = PrimaryBusType
+        dr("SecondaryBusType") = SecondaryBusType
+        dt.Rows.Add(dr)
+    End Sub
+    Public Function getBusStructure() As DataTable
+        Dim dt As New DataTable
+        dt.Columns.Add(New DataColumn("BusType"))
+        dt.Columns.Add(New DataColumn("DeviceID"))
+        dt.Columns.Add(New DataColumn("PNPDeviceID"))
+        dt.Columns.Add(New DataColumn("SystemName"))
+        Return dt
+    End Function
+    Public Sub addBus(ByRef dt As DataTable, ByVal BusType As String, ByVal DeviceID As String, ByVal PNPDeviceID As String, ByVal SystemName As String)
+        Dim dr As DataRow
+        dr = dt.NewRow
+        dr("BusType") = BusType
+        dr("DeviceID") = DeviceID
+        dr("PNPDeviceID") = PNPDeviceID
+        dr("SystemName") = SystemName
+        dt.Rows.Add(dr)
+    End Sub
+
+    Public Sub addRow(ByRef dt As DataTable, ByVal p As String, ByVal v As String)
+        Dim dr As DataRow
+        dr = dt.NewRow
+        dr("Property") = p
+        dr("Value") = v
+        dt.Rows.Add(dr)
+    End Sub
+    Public Function getStructure() As DataTable
+        Dim dt As New DataTable
+        dt.Columns.Add(New DataColumn("Property"))
+        dt.Columns.Add(New DataColumn("Value"))
+        Return dt
+    End Function
+
+End Module

FreeSCAN/ClassDiagram1.cd

@@ -0,0 +1 @@
+

FreeSCAN/ClassDiagram2.cd

@@ -0,0 +1 @@
+

FreeSCAN/ClassDiagram3.cd

@@ -0,0 +1 @@
+

FreeSCAN/Declarations.vb

@@ -0,0 +1,4 @@
+Option Strict Off
+Option Explicit On
+Module Declarations
+End Module