Tātad no sākuma ko es te vispār rakstu: Es rakstu te joku ar vbs scriptu
Kā to izmantot:
1)Uztaisīt .txt failu un atvērt to
2)Iekopēt šito tur:
3) saglabāt kā .bat failu
Ko tas darīts? Piemērak ja kādam draugam pa skaipu tādu aizsūtīttad notiks sekojošais viņam atvērsies diskzinis viņs viņu aizvērs un atkal aizvērsies ![<img class="bbc_emoticon" src="https://www.kick.lv/assets/img/emoticons/2/lough.gif" alt=":D" title=":D" />](<a href="http://www.kick.lv/forum/public/style_emoticons/" target="_blank" title="http://www.kick.lv/forum/public/style_emoticons/">http://www.kick.lv/forum/public/style_emoticons/</a><#EMO_DIR#>/biggrin.png)
un tā notiks visulaiku ja nerestartēt pc vai neizslēgt to
Uztaisīju, atvēru, nekas nenotiek..
Nekas nenotika.
Reku būs strādājošs scripts. Diezgan smieklīgi. Saglabājat viņu kā .vbs failu, nevis .bat. Varbūt .bat arī strādā, taču neesmu pārliecināts.
[spoiler]do
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
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
loop[/spoiler]
Reku būs strādājošs scripts. Diezgan smieklīgi. Saglabājat viņu kā .vbs failu, nevis .bat. Varbūt .bat arī strādā, bet neesmu pārliecināts.
[spoiler]do
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
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
loop[/spoiler]
thaanks ![<img class="bbc_emoticon" src="https://www.kick.lv/assets/img/emoticons/2/lough.gif" alt=":D" title=":D" />](<a href="http://www.kick.lv/forum/public/style_emoticons/default/biggrin.png" target="_blank" title="http://www.kick.lv/forum/public/style_emoticons/default/biggrin.png">http://www.kick.lv/forum/public…lt/biggrin.png</a>)
Ar šitiem neaizrauties, vienreiz kaut kas nopisās, nevarēju atvērt vairs diskdzini un veca datora, no viena cita scripta.