一般
デバイス マネージャにリストされているすべての機器を有効にします。
EnableAllDevices(); |
Dim oDevice CreatePrim "Cone", "MeshSurface" SetValue "PlayControl.Out", 500 ' Enable the Device manager If Not Application.Devices.Enable Then Application.Devices.Enable = True End If ' Add the Mouse Driver if it is not there. set oDevice = Application.Devices.Item("Mouse") If TypeName (oDevice) = "Nothing" Then set oDevice = Application.Devices.AddDevice( "Mouse" ) End If EnableAllDevices logmessage oDevice & " is active " & oDevice.Enable |