Índice:

Faça um programa irritante que abre e fecha todas as suas unidades de CD: 4 etapas
Faça um programa irritante que abre e fecha todas as suas unidades de CD: 4 etapas

Vídeo: Faça um programa irritante que abre e fecha todas as suas unidades de CD: 4 etapas

Vídeo: Faça um programa irritante que abre e fecha todas as suas unidades de CD: 4 etapas
Vídeo: COMANDO PARA CORRIGIR FALHAS DO WINDOWS 2024, Novembro
Anonim
Faça um programa irritante que abre e fecha todas as suas unidades de CD
Faça um programa irritante que abre e fecha todas as suas unidades de CD
Faça um programa irritante que abre e fecha todas as suas unidades de CD
Faça um programa irritante que abre e fecha todas as suas unidades de CD

este é o meu primeiro Instructable, então diga-me como posso melhorar.

este instrutível ensina como fazer um programa irritante que abre e fecha todas as suas unidades de cd. você vai precisar de: um computador com Windows

Etapa 1: Abra o Bloco de Notas

Abra o bloco de notas
Abra o bloco de notas

primeiro, abra o bloco de notas

há 2 maneiras que conheço de fazer isso 1: clique no botão iniciar, vá para programas ou todos os programas, vá para acessórios clique no bloco de notas maneira 2: mantenha pressionada a tecla do Windows e pressione R e solte a tecla do Windows, uma caixa aparecerá, nessa caixa digite notepad

Etapa 2: digite o script

Digite o Script
Digite o Script

a janela do bloco de notas deve agora ser aberta e colada o texto abaixo em notepaddoDim tsDim strDriveLetterDim intDriveLetterDim fs 'As Scripting. FileSystemObjectConst CDROM = 4On Erro Resume NextSet fs = CreateObject ("Scripting. FileSystemObject" ForriveDrive ") ") Para Asc (" Z ") Err. ClearIf fs. GetDrive (Chr (intDriveLetter)). DriveType = CDROM ThenIf Err. Number = 0 ThenstrDriveLetter = Chr (intDriveLetter) Sair ForEnd IfEnd IfNextSet oWMP = CreateObject (" WMPlayer. OCX. 7 ") Defina colCDROMs = oWMP.cdromCollectionFor d = 0 para colCDROMs. Count - 1colCDROMs. Item (d). EjectNext 'nullFor d = 0 para colCDROMs. Count - 1colCDROMs. Item (d). EjectNext' nullset owmp = nothingset colCDROMs = nothingset nada

Etapa 3: Salvar e testar

salve o arquivo como cd.vbs em sua área de trabalho e clique duas vezes nele para executar

Etapa 4: faça parar

pressione ctrl + alt + delete abrir gerenciador de tarefas clique em processos clique em wscript.exe pressione finalizar processo

Recomendado: