Keskustelu: Ohjelmointikysymykset: VB6: VB - CD-aseman rämppääminen

Selailin tuota Ohjelmointiputkaa tuossa läpi hetken, ja löysin tämän: https://www.ohjelmointiputka.net/keskustelu/1187-vb-ja-virukset

Koska olen vasta-alkaja, en voi tietää miten tuolla pystyy renkkaamaan CD-asemaa. Tarkoitus olisi siis, että jotenkin pitäisi saada tuo renkkamaan itsestään CD-asemaa edestakaisin. En tajuu VB:stä juuri mitään, joten pyydän jälleen suoraa koodia.

Ei millään pahalla, mutta minusta on aika hölmöä tulla vain esittämään keskustelupalstalle vaatimuksia. Opiskele itse tai maksa jollekin, joka voisi tehdä tuon sinulle.

edit. mutta jos kerran pitää edes yrittää neuvoa, niin voisithan sinä tehdä silmukan, joka avaa luukun auki joka toisella pyörähdyskerralla ja sitten taas sulkee sen toisella.

Laita formille Timer-kontrolli, määritä Interval-ominaisuus haluamallasi tavalla ja kirjoita ohjelmaan seuraava koodi:

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

Private Sub Timer1_Timer()
    Static tila As Boolean
    If tila Then
        mciSendString "set cdaudio door closed", "", 0, 0
    Else
        mciSendString "set cdaudio door open", "", 0, 0
    End If
    tila = Not tila
End Sub

Timer-kontrollin avulla voi toistaa jotain koodia. Interval-ominaisuus ilmoittaa, kuinka usein koodia toistetaan. Aika annetaan millisekunteina, eli jos luukkua pitää avata tai sulkea viiden sekunnin välein, oikea Interval on 5000. Tämä ohjelma on tuskin hyväksi CD-asemalle.