va rog ajutatzima ...

#1
therock-cobra

Posted 22 May 2006 - 16:45

Junior Member

Grup: Members
Posts: 36
Înscris: 29.01.2006

ma poate ajuta si pe mine cineva cu niste comenzi Visual Basic 6 cu care pot sa:
deschid CD-ROM
resetez PC
inchid PC

va rog ajutati-ma !

Back to top

#2
LiT

Posted 03 June 2006 - 19:06

New Member

Grup: Members
Posts: 1
Înscris: 03.06.2006

Mai mult de atat nu am, dar poate te ajuta si asta ...

[color=#3366FF]
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 cmdOpen_Click()
  Dim Ret	As Long
  Dim RetStr As String
  Ret = MCISendString("set CDAudio door open", RetStr, 127, 0)
End Sub

Private Sub cmdClose_Click()
  Dim Ret	As Long
  Dim RetStr As String
  Ret = MCISendString("set CDAudio door closed", RetStr, 127, 0)
End Sub
[/color]

Succese.
Teo.

PS: Merge? ;-)

therock-cobra, on May 22 2006, 17:45, said:

ma poate ajuta si pe mine cineva cu niste comenzi Visual Basic 6 cu care pot sa:
deschid CD-ROM

Edited by LiT, 03 June 2006 - 19:08.

Back to top

#3
skasibo

Posted 15 June 2006 - 09:08

New Member

Grup: Members
Posts: 11
Înscris: 13.06.2006

Shut Down & Restart:
Pentru Windows XP:

Private Sub Command1_Click() 
	Shell ("shutdown.exe -s -t 0")   '=>  "Shutdown" 
End Sub 

Private Sub Command2_Click() 
	Shell ("shutdown.exe -r -t 0")   '=>  "Restart" 
End Sub

Pentru Windows 98:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 

Private Sub Command1_Click() 
	IShut = ExitWindowsEx(1, 1)	'Shutdown 
End Sub 

Private Sub Command2_Click() 
	IRes = ExitWindowsEx(2, 1)	  'Restart 
End Sub

___
mod edit: foloseste tag-urile de cod

Edited by RAZ, 15 June 2006 - 09:11.

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

va rog ajutatzima ...

#1 therock-cobra Posted 22 May 2006 - 16:45

#2 LiT Posted 03 June 2006 - 19:06

#3 skasibo Posted 15 June 2006 - 09:08

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
therock-cobra

Posted 22 May 2006 - 16:45

#2
LiT

Posted 03 June 2006 - 19:06

#3
skasibo

Posted 15 June 2006 - 09:08