dos команда..

Автор

Съобщение

anonymous
Сря, 26.09.07, 10:58

А ето какво намерих със използването на VBScript
CD.bat
----------------------------------------------------------------------------------------
CDR.EXE - Open/Close CD Drive(s)
редактиран от anonymous на 26.09.07 12:29
Отговор За печат
anonymous
Сря, 26.09.07, 19:49

ok.Ще ти кача един скрипт. ОБАЧЕ ГО ОТВОРИ С IE!!!
http://citylife-game.hit.bg/CD.vbs
Отговор За печат
dhtj
Съб, 24.01.09, 19:57

поздрав
XopenX.vbs
редактиран от dhtj на 24.01.09 20:02
редактиран от dhtj на 24.01.09 20:04
редактиран от dhtj на 24.01.09 20:06
Отговор За печат
anonymous
Съб, 24.01.09, 20:45
RE: dos команда..

Цитат на dhtj от Събота, 24.01.2009 19:57
” поздрав
XopenX.vbs „
Работи !
Сега ще издам как се спира!
Ако някой не знае!
Когато се нагледате на сеир като мене натискате ctrl + alt + del и отивате на табчето Процеси, там търсите процеса WScript.exe и му давате Kill (край на процеса>да) и сте готови!

Едит: Със здраве и успех да прекарате някой ваш съфорумник или скайп абонат!
редактиран от anonymous на 24.01.09 20:46
Отговор За печат
dhtj
Съб, 24.01.09, 20:53
RE: RE: dos команда..

Цитат на anonymous от Събота, 24.01.2009 20:45
” Работи !
Сега ще издам как се спира!
Ако някой не знае!
Когато се нагледате на сеир като мене натискате ctrl + alt + del и отивате на табчето Процеси, там търсите процеса WScript.exe и му давате Kill (край на процеса>да) и сте готови!

Едит: Със здраве и успех да прекарате някой ваш съфорумник или скайп абонат! „
а това дали ще можеш да го спреш а
1.exe.lnk
Отговор За печат
anonymous
Съб, 24.01.09, 21:36
RE: dos команда..

Цитат на dhtj от Събота, 24.01.2009 19:57
” поздрав
XopenX.vbs „
Това като цъкна на него, що излиза:
msgbox ("Ще ти отворя CD-то")
Set oWMP = CreateObject("WMPlayer.OCX.7")
do
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End if
loop
и нищо не става?
Отговор За печат
anonymous
Съб, 24.01.09, 21:41
RE: RE: dos команда..

Цитат на anonymous от Събота, 24.01.2009 21:36
” Това като цъкна на него, що излиза:
msgbox ("Ще ти отворя CD-то")
Set oWMP = CreateObject("WMPlayer.OCX.7")
do
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End if
loop
и нищо не става? „
Няма и да стане, понеже трябва да си направиш един нов текстов документ(не на уърд, а нотепад) и псосто да поставиш този код там!
След това записваш с разширение .VBS от менюто Файл и после на Запис като... и пишеш някакво име точка VBS и готово!
Предполагам знаеш как се дава разширение на файл > Ти си!
Отговор За печат
anonymous
Съб, 24.01.09, 21:51
RE: RE: dos команда..

Цитат на anonymous от Събота, 24.01.2009 21:36
” Това като цъкна на него, що излиза:
msgbox ("Ще ти отворя CD-то")
Set oWMP = CreateObject("WMPlayer.OCX.7")
do
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End if
loop
и нищо не става? „
Десен бутон върху файла... Properties...Wscript.JPG търсиш WScript.exe във C:\WINDOWS\system32..
Отговор За печат
galkamalka
Съб, 24.01.09, 21:52
RE: RE: RE: dos команда..

Цитат на anonymous от Събота, 24.01.2009 21:41
” Няма и да стане, понеже трябва да си направиш един нов текстов документ(не на уърд, а нотепад) и псосто да поставиш този код там!
След това записваш с разширение .VBS от менюто Файл и после на Запис като... и пишеш някакво име точка VBS и готово!
Предполагам знаеш как се дава разширение на файл > Ти си! „
А за още по-лесно new.bat ще създаде .vbs файл в директорията, в която си го активирал. След това просто му даваш с десен клик edit и поставяш това на Дани или това:
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
    On Error Resume Next
    Set fs = CreateObject("Scripting.FileSystemObject")
    strDriveLetter = ""
    For intDriveLetter = Asc("A") To Asc("Z")
        Err.Clear
        If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
            If Err.Number = 0 Then
                strDriveLetter = Chr(intDriveLetter)
                Exit For
            End If
        End If
    Next
MSGBOX "YOUR CD IS: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetter
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
     For d = 0 to colCDROMs.Count - 1
           colCDROMs.Item(d).Eject
Next 'null
'A1= msgbox ("Press key To Close Cd" & vbcrlf &_
' " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
' For d = 0 to colCDROMs.Count 1
' colCDROMs.Item(0).Eject
'Next 'null
set owmp = nothing
set colCDROMs = nothing
wscript.quit
Много моля някой може ли да ми обясни защо не ми отваря никакви бат файлове
.vbs стават но не и бат файловете-просто префърча cmd прозореца и нищо. Пиша дори и глупости в батовете с надеждата да ме удари грешка но нищо.
редактиран от galkamalka на 24.01.09 21:55
Отговор За печат
anonymous
Съб, 24.01.09, 21:54

Бре, бре - като имаш две устройства става като терминатор 3 -жжжжжжт, бжжжжжт, бжжжжт, джжжт.
Отговор За печат
anonymous
Съб, 24.01.09, 21:59

За спиране... Kil.bat
Отговор За печат
anonymous
Съб, 24.01.09, 22:06
RE: dos команда..

Цитат на anonymous от Събота, 24.01.2009 21:59
” За спиране... Kil.bat „
А кво ще кажеш да изтрия WScript.exe? Какви ще са последствията за компа?
Отговор За печат
anonymous
Съб, 24.01.09, 22:28
RE: RE: dos команда..

Цитат на anonymous от Събота, 24.01.2009 22:06
” А кво ще кажеш да изтрия WScript.exe? Какви ще са последствията за компа? „
Никакви ако не ползваш VBScript...
Отговор За печат
anonymous
Нед, 25.01.09, 11:04

И този тук това разправя
Отговор За печат