toxcct wrote:

but where did you find such an info ?

I found a fairly good article on it here: http://www.geekgirls.com/windowsxp_controlpanel.htm[^]

Do you mean from the command line? like this: c:\>control inetcpl.cpl

Check Here, I Think the MS Windows® Image Acquisition Automation Library v2.0, Can do what you want to do: http://www.microsoft.com/downloads/details.aspx?familyid=a332a77a-01b8-4de6-91c2-b7ea32537e29&displaylang=en[^] Another Reference: http://vbnet.mvps.org/index.html?code/imageapi/mswaidll.htm[^] Progload

I see, ok, well thanks.. It's an interesting little program anyway. If I come across a fujitsu scsi drive, in the near future I'll drop you an email on what I find out. Wish I could be of more help. It's interesting issue.. Progload

Yes, SATA as in most cases would be a better option I think. I only do Scsi, if I really need or want it "Bullet-Proof-No-Fail" Sorry I was asking about the Spectrum Speed tool..you had a link too.. I couldn't find it on google.. Progload.

Could be the Fujitsu software tools "communicate" right to the drive controller on the drive and do somthing, and not to the SCSI controller.. humm.. don't know.. but it's interesting. I did notice your software produces a different speed average each time it runs but it was mostly in the ranges I gave you. Wish I had a Fujitsu drive and time to dink around with it.. Don't think i'll be much help, Sorry. Curiosity.. where did you get the diag tool? Progload

All of my servers are in the the range > 14MBps to 34MBps (more or less with your software.), All of them are either LSI or Adaptec SCSI. But all are Maxtor Drives. (I never had any good luck with Seagate.) I don't know where your getting the 70MBps, but I didn't. Sorry, Not much help.. Progload

'Send a program change message. Change the last zero to any other number < 16 'to specify which channel to alter. Change '70' to any number between 0 and 127 'to set which patch to assign. '

'sm(&HC0 + (70 \* &H100) + 0)
'            ^            ^ 
'            |            |
'            |            +---------- Midi Channel Number (0 to 16)
'            |
'            +----------------------- Midi Patch Number (0 to 127)

sm(&HC0 + (118 * &H100) + 1) ' <<== Change Patch to 118 "GM Synth Drum" on channel 1" Or change Midi Channel to 9 (all notes in GM on channel 9 are different percussion instruments) Here is a "Patch Map" for GM Patches(subtract 1 in your code) and GM Drums( channel 9). http://jedi.ks.uiuc.edu/~johns/links/music/gm.htm[^] Example: sm(&HC0 + (0 * &H100) + 0) <== Change Patch on Channel 0 to "Grand Piano" sm(&HC0 + (118 * &H100) + 1) <== Change Patch on Channel 1 to "GM Synth Drum" sm(&H90 + ((60) * &H100) + (80 * &H10000) + 0) <== Octave 0 Middle "C" "Grand Piano" on Channel 0 sm(&H90 + ((62) * &H100) + (80 * &H10000) + 1) <== Octave 0 Middle "D" "GM Synth Drum" on Channel 1 sm(&H90 + ((38) * &H100) + (80 * &H10000) + 9) <== GM Drum kit "Acoustic Snare" Channel 9 Would play "C" (Pitch on Piano), "D"(Pitch on Synth Drum), And the Acoustic Snare. Progload -- modified at 15:50 Thursday 5th October, 2006

re infecta wrote:

is it possible to play two notes at the same time

In Sequence, Yes, just send the new message right after the first message.(just don't forget to close all the messages when your done with them.) Progoad

You can modify this vb.net code into a class, Take a look here: http://www.tomgroves.net/projects/vbmidi/[^] Notes: 'Grand Piano Midi Patch Number is 0 'Octave 4 "C" Pitch (Midi Note Number) 108, Freq = 4,186.0090448096 Hz Progload

Basically, Somethng like this..(I'm sure it can be Improved on..) but you'll get the idea...

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Open and parse the source file..
        TextBox1.Text = removeComments("c:\test.vb")
        '
        'Save your textbox to a file here..
        '
    End Sub
    '
    Private Function removeComments(ByVal strFilePath As String) As String
        Dim sread As StreamReader = New StreamReader(strFilePath)
        Dim count As Integer = 0
        While sread.Peek >= 0
            Dim s As String = sread.ReadLine
            System.Math.Min(System.Threading.Interlocked.Increment(count), count - 1)
        End While
        sread.Close()
        Dim sr As StreamReader = New StreamReader(strFilePath)
        Dim fileData As String = ""
        Dim fi As FileInfo = New FileInfo(strFilePath)
        Dim i As Integer = 0
        While i < count
            Dim str As String = sr.ReadLine
            If str.IndexOf("'") >= 0 Then
                fileData += removeSingleComment(str)
            Else
                fileData += str & vbCrLf
            End If
            System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
        End While
        Return fileData
    End Function
    '
    Private Function removeSingleComment(ByVal str As String) As String
        Dim length As Integer = str.Length - str.IndexOf("'")
        str = str.Replace(str.Substring(str.IndexOf("'"), length), "")
        Return str.Replace(" ", "")
    End Function

I think this one can do any tape drive. give it a try. It's down about the middle of the page. http://www.inostor.com/support/support_tape_utility.htm[^]

If you are realy into a bit of work, you could generate your own managed class using mgmtclassgen.exe and just add your own custom property for it. Read on... for instructions: The following command generates a managed class from Win32_PerfRawData_SMTPSVC_SMTPServer mgmtclassgen.exe Win32_PerfRawData_SMTPSVC_SMTPServer /n root\cimv2 /l VB /p c:\SMTPServer.vb The tool writes the managed class to the source file at c:\SMTPServer.vb, using the ROOT.CIMV2.Win32 namespace. Add the file to your project. Add the following to SMTPServer.vb somewhere near "Public ReadOnly Property MessageBytesTotal()" (about line # 2509 in my file.): _ Public ReadOnly Property MessageBytesTotalDescription() As String Get Return "The total number of bytes sent and received in messages." End Get End Property And/Or whatever you want the property(s) to be.. And/Or Your own overloads ect.. Have fun.. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cptools/html/cpgrfmanagementstronglytypedclassgeneratormgmtclassgenexe.asp -- modified at 1:47 Friday 15th September, 2006

http://www.codeproject.com/system/DevMgr.asp[^]

There is a sample driver called NetVMini in the XP DDK.

http://forum.sysinternals.com/forum_posts.asp?TID=5050&PN=2&TPN=2[^]

WMI... Alway's slow but.. somthing like this.. Imports System.Management Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ConfigNamespace As String = "\\.\root\cimv2" Dim query As String = "select * from Win32_Processor" Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(ConfigNamespace, query) Dim collection As ManagementObjectCollection = searcher.Get For Each item As ManagementObject In collection For Each prop As PropertyData In item.Properties Try Console.WriteLine(prop.Name + ":" + prop.Value.ToString) Catch gExVar As Exception End Try Next Next End Sub

http://www.codeproject.com/dotnet/BinaryAndHexConversions.asp[^] http://vb-helper.com/howto_net_dec_hex_oct_bin.html[^]

The 'default' desktop has No Name...and returns an empty string. See this article and the source code, there is a sample project also: http://www.vbaccelerator.com/home/vb/code/Libraries/Windows/Creating_New_Desktops/article.asp[^]

Do you mean somthing like sending a tab, instead of a carriage return? Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp If e.KeyCode = Keys.Return And btnstat = 1 Then SendKeys.Send("{TAB}") End If End Sub