allowkeys(true) ' 允許使用ctrl+del+alt鍵
復制以下代碼到程序中的某個模塊:
private const spi_screensaverrunning = 97&
private declare function systemparametersinfo lib "user32" alias "systemparametersinfoa" (byval uaction as long, byval uparam as long, lpvparam as any, byval fuwinini as long) as long
public sub allowkeys(bparam as boolean)
dim lretval as long, bold as boolean
lretval = systemparametersinfo(spi_screensaverrunning, bparam, bold, 0&)
end sub
試試這段代碼看行不行。
這個沒什麽好解釋的,就是調用systemparametersinfo這個api
歡迎訪問我的論壇:)
期待您的支持:)