heh.pl
Kanał informacyjny Heh.pl


Poniedziałek 29 kwietnia 2024 r.

artykuły | abc komputera (archiwum) | forum dyskusyjne | redakcja


Temat

Programik Do Otwierania Napedu Cd


83.23.32.* napisał:
Witam
Wileka prośba, ponieważ wymieniłem w swoim laptopie napęd, który niestety nie posiadał klapki, a stara nie pasowała(przycisk i zaczepy w innym miejscu), więc musiałem ja potraktować klejem. Jedyny sposób na otwieranie CD to prawy przycisk na napędzie i wysuń, ale jest to bardzo denerwujące. Ma ktoś jakąś aplikację do otwierania CD, albo chociaż wie gdzie zassać bo ciezko takie cos w necie znaleźć. W razie czego mój mail snake777interia.pl

83.29.130.* napisał:
2 sek szukania :
http://www.google.pl/search?hl=pl&q=open%2Fclose+cd&lr=

Link na samym dole

83.23.32.* napisał:
Dzięki Adasi na Open/Close nie wpadłem icon_wink3.gif dokładnie tego szukałem bo było to kiedys zdaje się w Cd-action ale to stare dzieje i znalezienie tego na płytce graniczyło by z cudem.

83.26.85.* napisał:
Zamiast stosowac jakies programy, proponuje uzyc skryptu Visual Basic.
Utworz plik EJECT.VBS a nastepnie wklej do niego nastepujacy kod:

set shell=CreateObject("Shell.Application")
Set Naped=ScanFolder(17, "(J:)")
Naped.invokeVerb("W&ysuń")
Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
Set ScanFolder=folder.items.item(i)
exit for
End If
Next
If Not ISObject(Scanfolder) Then
Wscript.Quit
End IF
End Function

Aktualny skrypt otwiera naped J: wiec mozesz zmienic sobie litere na inna - taka jaka odpowiada twojemu napedowi. Zapisz plik i kliknij na nim dwukrotnie.

213.77.227.* napisał:
a http://www.cdrinfo.pl/software/strona.php?page=Utils-DVD-CDROM jeszcze kilka progsow.

217.96.220.* napisał:
A ja proponuje taki skrypt Visual Basic, nie trzeba podawac litery napedu

CODE
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
 colCDROMs.Item(i).Eject
Next ' cdrom
End If


212.182.63.* napisał:
To jest ten co wrzucali do stron?

217.96.220.* napisał:
sgj, tak

213.25.234.* napisał:
A ja proponuje poprostu wcisnac prawym przyciskiem myszy na ikonie cdromu i z menu wybrac wysun.

83.29.134.* napisał:


Czytanie ze zrozumieniem again... mur.gif


Podobne tematy


Działy









Copyright © 2002-2024 | Prywatność | Load: 1.07 | SQL: 1 | Uptime: 7 days, 3:43 h:m | Wszelkie uwagi prosimy zgłaszać pod adresem eddy@heh.pl