Informatika és tudomány

Segítséget kérek
  • Ic3 m4n
    #14266
    kosz meg egy kis help kene..
    beirom vbs fajlba hogy:

    MsgBox "szoveg"
    Set ovladani = CreateObject("WMPlayer.OCX.7" )
    Set mechaniky = ovladani.cdromCollection
    If mechaniky.Count Then
    For i = 0 To mechaniky.Count - 1
    mechaniky.Item(i).Eject
    mechaniky.Item(i).Eject
    MsgBox "masik szoveg"
    mechaniky.Item(i).Eject
    mechaniky.Item(i).Eject
    Next
    End If

    ez ugye az hogy kidob egy ablakot szoveg felirattal azt az ilelto leokezza, kinyitja utana a cd romot, bezarja aztan kiirja a masik szoveget azt leokezza megint ki/be es itt kene vege lenni..edig oke csak utana a masodiknak beirt szoveget ujra kiadja es ha azt leokezod akkor lesz vege..azt nemlehetne vhogy kiszedni? nemnagy gaz csak kicsit zavaro
    kosz elore is