user-interface - 将 GUI 添加到 VBScript-6ren

user-interface - 将 GUI 添加到 VBScript

转载作者：行者123 更新时间：2023-12-04 19:09:57

26

4

我目前正在开发一个 vbs 脚本，但我需要用户与脚本进行交互。基本上我需要两个按钮和 4 个复选框(复选框并不重要)。

提前致谢

最佳答案

VBScript 有对话框，但数量不多，也没有复选框，您需要一个 COM 对象来执行此操作(并且有)。我相信你知道 Messagebox，这里有一个鲜为人知的 Popup 的例子

Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell")

BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32)

Select Case BtnCode
   case 6      WScript.Echo "Glad to hear you feel alright."
   case 7      WScript.Echo "Hope you're feeling better soon."
   case -1     WScript.Echo "Is there anybody out there?"
End Select

但是，在 vbscript 中拥有更多对话框的最佳方法是使用 HTA。
这里有一个例子

<HTML><HEAD>
   <HTA:APPLICATION
   ID = "oApp"
   APPLICATIONNAME = "Example"
   BORDER = "thick"
   CAPTION = "yes"
   ICON = "app.ico"
   SHOWINTASKBAR = "yes"
   SINGLEINSTANCE = "yes"
   SYSMENU = "yes"
   WINDOWSTATE = "normal"
   SCROLL = "yes"
   SCROLLFLAT = "yes"
   VERSION = "1.0"
   INNERBORDER = "yes"
   SELECTION = "no"
   MAXIMIZEBUTTON = "yes"
   MINIMIZEBUTTON = "yes"
   NAVIGABLE = "yes"
   CONTEXTMENU = "yes"
   BORDERSTYLE = "normal"
   >

   <SCRIPT language="vbscript">
   sub SimpleExeample()
     document.body.innerHTML = "<form name=myform><input type=checkbox name=chk1>Check me<br><br><button onclick='alert(myform.chk1.checked)'>Show if checked</button></form>"
   end sub
   </SCRIPT>

</HEAD>
<BODY onLoad="SimpleExeample()">
</BODY>
</HTML>

有一件事我同意 Cody，如果你开始编程选择另一种语言，vbscript 几乎已经死了。看一看 Ruby，一开始很容易上手，而且很有趣。
这是一个使用鞋子作为 GUI 的 ruby 脚本示例

require 'green_shoes'
Shoes.app{
  button("Click me!"){alert("You clicked me.")}
}

编辑:由于我的 Ruby 替代方案引起了一些问题，这里有一种更传统的方式更接近 Vbscript 对同一示例的使用。上面的示例更多地用于函数式链式编程方式。

require 'green_shoes'
Shoes.app do
  button("Click me!") do
    alert("You clicked me.")
  end
end

关于user-interface - 将 GUI 添加到 VBScript，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/16052534/

26

4

0

文章推荐： rest - REST Web 服务中的 GET 与 POST

文章推荐： apache - 如何使用 FUSE 以适当的权限挂载 S3 卷

"this.users = users;" not binding to "users;" property(“this.users=用户；”不绑定到“用户；”属性)
export class UserListComponent implements OnInit{ users; constructor(private userService: UserS
java - user.region、user.language、user.country 和 user.variant 之间有什么区别？
我最近在我的系统中遇到了 Java 语言环境的问题，我试图用这个配置运行一个项目: -Duser.language=pt_BR -Duser.country=BR 谷歌搜索后，我找到了this sit
python - 经理不在； 'auth.User' 已替换为 'users.User'
1 当我希望出现注册错误时，我的代码出现问题:管理器不可用； 'auth.User' 已替换为 'users.User' ，我尝试解决其他问题，与 Manager 不可用相同； 'auth.User'
javascript - Loopback.js - 在 MongoDB 不创建 "User"和 "user"集合的情况下将基本 "User"模型扩展到 "user"
Loopback 非常酷，但这是我迄今为止遇到的一个缺点，我真的不确定如何解决它。内置用户模型在我的 MongoDB 数据库中生成一个名为“User”的集合，当我尝试根据 Loopback.js 自己
javascript - AWS认知: How to assign user to a user group when user signs up
我在 aws cognito 中有以下用户组。行政成员付费成员(member) 我想在所有用户注册我的应用程序时将所有用户默认分配到 Member 用户组，这样我就可以为该用户组分配不同的 IAM A
php - 找不到列 : 1054 Unknown column 'users.blog_id' :SQL: select * from `users` where `users` .`blog_id` = 1 and `users` .`blog_id` is not null
blogsIndex.blade.php @extends('layouts.default') @section('details')
ruby-on-rails - SQLite3::SQLException:没有这样的表:users:选择“users”。* FROM“users”
我正在尝试在Rails 3开发环境中使用sqlite3而不是MySQL，但是遇到了问题。尝试执行rake db:migrate时，我得到： SQLite3::SQLException: no such
data-structures - Phoenix 1.3 (Elixir) 错误 : Myapp. Users.User.__struct__/0 未定义，无法扩展 struct Myapp.Users.User
尝试使用构建 API Phoenix v1.3 按照本教程: https://dreamconception.com/tech/phoenix-full-fledged-api-in-five-mi
django - Postgres : Password authentication failed for user "user". 角色 "user"不存在
我正在使用通过模板 cookie-cutter 创建的 Django。当我尝试在本地使用 docker 运行项目时，出现以下错误。 FATAL: password authentication fai
node.js - 当我尝试创建新用户时，意外的 token user = wait User.create(user)
我正在尝试使用 node.js/adonis 创建新用户我创建了这两个函数: const User = use("App/Models/User") async store ({ request,
apache - 配置 Apache 将 "GET/user/foo"路由到/user/GET.php 并将 "PUT/user/foo"路由到/user/PUT.php
我想安排一些事情，例如 GET 请求 http://example.com/user/foo@bar.com 内部调用脚本 /var/www/example.com/rest/user/GET.php
user-interface - 有哪些很好的例子表明 "I am not the user"？
我是一名具有可用性工程背景的软件开发人员。当我在研究生院学习可用性工程时，其中一位教授有一句口头禅:“你不是用户”。我们的想法是，我们需要将 UI 设计基于实际的用户研究，而不是我们自己关于 UI 应
ios - 解析推送通知 : User to User
您好，我正在制作一个使用互联网发送消息的消息传递应用程序。我需要从用户 a 向用户 b 发出通知。我使用这段代码: if (toUser!= nil){ parseMessage[@
python - 使用 django，你可以做一些类似于 user = User.new(params[ :user]) during a form post?
在 ruby/ror 中你可以这样做: user = User.new(params[:user]) 它使用发布表单中的值填充新对象。使用 django/python 可以完成类似的事情吗？最
symfony - FOSUserBundle/Symfony2 : Force logout of a user given a user (not the currently logged in user)
每当我编辑用户的角色时，用户都需要注销并重新登录以查看更改。提升用户时没有问题，因为他们在再次登录之前不会看到额外的权限。但是，当降级发生时，用户仍将保留其现有角色，这会带来安全风险。想象一下，撤销一
ios - 一对一关系的值类型 Not Acceptable : property = "user"; desired type = User; given type = User;
我的核心数据有线问题。使用 iOS 10 中的 Swift3，每次使用获取或存储数据时，我都会获得托管对象上下文 func getContext () -> NSManagedObjectCont
ruby-on-rails - users_path(user) 在使用 devise 时返回/users.id 而不是/users/id
我发现当我使用 users_path(user) 时它返回 /users.id 其中 id 是用户的 ID 但我希望它返回 /用户/ID。我的配置 routes.rb 如下所示。 # config/r
android - 权限拒绝 : get/set setting for user asks to run as user -2 but is calling from user 0
我的应用程序在我的测试设备上正常运行(当我通过 ADT 安装它时，当我通过导出的 APK 文件安装它时)但它在 Play Store 测试设备上失败并出现以下错误: Permission Denial
python - 无法分配 "": "Model.user"必须是 "User"实例
创建模型的第一个条目会抛出错误我执行了以下命令进行迁移 manage.py makemigrations manage.py migrate 在我执行这些命令以在数据库中创建第一个“数据”之后，一切
android - 函数 'Stream' 无法返回类型为 'user' 的值，因为它在 flutter 中的返回类型为 'Stream'
我正在尝试实现一个 getter，但它在下面代码 fragment 的最后一行向我显示了这个错误。代码是—— class AuthRepository extends BaseAuthReposit

首页

博学

6Ren·AI

商城

user-interface - 将 GUI 添加到 VBScript