[已解决]如何用一个按钮控制光驱的开和关？

风中柳 · 发表于 2011-4-27 23:22:24

本帖最后由风中柳于 2011-4-29 15:31 编辑

点一下打开光驱再点就关闭光驱

3mile · 发表于 2011-4-27 23:35:03

#include <WinAPIEx.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>

Global $iMemo

_Main()

Func _Main()
        Local $Drive = DriveGetDrive('CDROM'), $hGUI

        ; Create GUI
        $hGUI = GUICreate("CD Tray", 400, 300)

        ; Create memo control
        $iMemo = GUICtrlCreateEdit("", 2, 2, 396, 296, $WS_VSCROLL)
        GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
        GUISetState()

        If IsArray($Drive) Then
                MemoWrite('Open...')
                _WinAPI_EjectMedia($Drive[1])
                MemoWrite('Tray is open: ' & _WinAPI_IsDoorOpen($Drive[1]))
                Sleep(1000)
                MemoWrite('Close...')
                _WinAPI_LoadMedia($Drive[1])
                MemoWrite('Tray is open: ' & _WinAPI_IsDoorOpen($Drive[1]))
        EndIf
        
        Do
        Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc   ;==>_Main

; Write message to memo
Func MemoWrite($sMessage = "")
        GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc   ;==>MemoWrite

风中柳 · 发表于 2011-4-28 09:55:53

回复 2# 3mile
请问能不能将这个功能转成一个按钮来控制呀！我不知道从何下手？谢谢！！

tryhi · 发表于 2011-4-28 13:16:28

本帖最后由 tryhi 于 2011-4-28 16:27 编辑

估计你基础教程还没看完。。。
---------------------------------------------

刚想试，才发现光驱线被我拔掉了。。。。

----------------------------------------------------------------
给你看个简单的

#include <WinAPIEx.au3>
Local $Drive = DriveGetDrive('CDROM')
_WinAPI_EjectMedia($Drive[1])
Sleep(2000)
_WinAPI_LoadMedia($Drive[1])

3mile · 发表于 2011-4-28 13:19:36

回复 4# tryhi
哈哈,同感

llwslc · 发表于 2011-4-28 14:22:32

书上的例子...而且是第一个例子...

风中柳 · 发表于 2011-4-28 18:37:49

回复 4# tryhi

多谢大家的帮忙已经基本有眉目了！

pcbar · 发表于 2011-4-28 19:39:33

这样呢
$var = DriveGetDrive("CDROM")
CDTray($var[1], "open")
Sleep(1000)
CDTray($var[1], "close")

风中柳 · 发表于 2011-4-29 09:45:57

回复 8# pcbar

怎么用一个按钮来控制开和关呢？

guang19831217 · 发表于 2011-4-29 12:24:22

大大们已经给出很简单的了，自己做个按钮应该不难吧。

风中柳 · 发表于 2011-4-29 15:30:29

已经实现了我要的效果，谢谢以上各位大大的指导！

游戏 · 发表于 2011-4-30 20:07:58

收藏学习，

6678720 · 发表于 2011-5-20 12:51:51

好用，谢谢3mile 和tryhi 分享。

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]如何用一个按钮控制光驱的开和关？

评分