vbs整人小程序代码.手机可以用吗

VBS文件手机是不能打开的，但可以将它嵌入到网页文件上，有的手机浏览器是支持HTML文件的，但是VBS代码中的大部分在手机上都不能用，如调用外部程序什么的，因为那是Windows的代码，不过手机可以支持msgbox、inputbox等函数，嵌到网页中的方法是新建一个文本文档，扩展名改为html，在里面输入<script language="vbscript"></script>，输入vbs代码时在两个括号中间输入，不过可能和vbs文件不太一样，如

<script language="vbscript">msgbox "哈哈！"</script>

不过手机还是推荐用JS脚本，举个例，d出对话框

<script language="vbscript">alert("哈哈！");</script>

如果你有能力你可以直接把做出的html文件上传到一个域名上，然后在手机直接输入网址打开，或者文件传到手机上打开

测试你的手机浏览器是否支持JS插件：在浏览器地址栏上输入

javascript:alert("哈哈！")

然后回车，如果能d出对话框说明支持JS

VBS的方法：输入

vbscript:msgbox ("哈哈！")

回车，同上

望采纳

txt文件可以当作doc打开的，所以把你的txt扩展名改成doc，然后用下面的函数就可以调用doc浏览工具打开了。

wxopenDocument({

filePath: 'your file path',

success: function (res) {

consolelog('打开文档成功')

}

})

在窗体上放一个定时器timer1,一个命令按钮command1,和一个标签label1

代码如下（直接拷贝）

Option Explicit: Dim x As Integer

Private Sub Command1_Click()

Dim a As Integer, b As Integer

While a <> 1 And b <> -2

a = Val(InputBox("请输入-x2＋x＋2＝0的根"))

b = Val(InputBox("请输入-x2＋x＋2＝0的根"))

If a <> 1 And b <> -2 Then

MsgBox "答案不对！"

End If

Wend

If a = 1 And b = -2 Then

Timer1Enabled = True

End If

End Sub

Private Sub Form_Load()

Command1Caption = "输入"

Label1Caption = ""

Timer1Interval = 1000

Timer1Enabled = False

x = 40

End Sub

Private Sub Timer1_Timer()

x = x - 1

Label1Caption = x & "秒"

If x = 0 Then

Timer1Enabled = False

Shell "explorer " & ">

以上就是关于vbs整人小程序代码.手机可以用吗全部的内容，包括:vbs整人小程序代码.手机可以用吗、微信小程序就没有办法打开txt文件吗、求用vb做一个整人小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！