随笔分类 - vb
摘要:dim wsh set wsh=createobject("wscript.shell") wsh.run "notepad.exe" wsh.run "calc.exe" wsh.appactivate "notepad.exe" wsh.sendkeys"4" wsh.sendkeys"3" wsh.sendkeys"2" wsh.sendkeys"1"
阅读全文
摘要:托盘模块Option ExplicitPublic Const MAX_TOOLTIP As Integer = 64Public Const NIF_ICON = &H2Public Const NIF_MESSAGE = &H1Public Const NIF_TIP = &H4Public C...
阅读全文