-
匿名用户2024-01-28创建一个类模块，并使用 API 查看器程序粘贴常用的修饰定义和 API 函数，例如：
public constwm_close = h10
public const wm_quit = h12
declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long
接下来，你可以使用 findwindow 函数获取窗口句柄，然后向 mountain cherry 窗口发送 wm close 或 wm quit 消息，让窗口自行关闭
handle = findwindow("ieframe", vbnullstring)
PostMessage Handle、WM Close、0,0 或 PostMessage Handle、WM quit、0,0 是可以接受的。
点击查看详情：S公司
-
匿名用户2024-01-27没有真正关不上的窗口，更不用说道德、安全，这些东西你可能不认为是真的，只是从技术层面来说，因为每个窗口都是由操作系统生成的（换句话说，VB程序中生成的窗口并不是由VB本身生成的，而是VB“通知”操作系统生成的）， 所以操作系统始终掌握着窗口的生死大权，无论窗口如何采取规避措施，只要操作系统将你从内存中抹去，你最终只会化为灰烬。在对安全日益重视的背景下，如果程序中存在“无法关闭的窗口”，也会被360等安全软件视为流氓软件或恶作剧软件而拦截和报警。
当然，用VB中的“关不上窗户”来愚弄孩子还是很简单的：
private sub form_unload(cancel as integer)
cancel = 1
end sub
这可以阻止关闭窗口的常用方式，例如用鼠标单击 X 或按键盘上的 Alt+F4，但仍然可以通过任务管理器的“应用程序”或“进程”强制关闭。
如果添加以下段落：
然后程序窗口不会出现在任务管理器的“应用程序”中，但仍然可以通过关闭进程来关闭它。
-
匿名用户2024-01-26隐藏窗体的最大值、最小值、关闭值和其他属性，以实现您的目标。
但是，一旦显示表单，用户就可以在任务管理器中找到其进程或线程并关闭它。
程序界面如上图所示：一个标签（名称为label1），三个复选框（名称分别为check1、check2和check3，caption属性分别为red、green和blue），以及一个命令按钮（名称为command1，caption属性为end），完成程序功能的**如下： >>>More
private sub form_load()set excelapp = createobject(""创建一个 excel 对象。 >>>More
shell 函数是 VB 中的一个内部函数，负责执行一个可执行文件，如果成功则返回一个 variant（double），表示程序的进程 ID，如果不成功，则返回 0。 >>>More