想弄个vbs整人小程序，为什么弄好了打不开

这个问题一般是文本编码引起的。

解决办法：

下载文本编辑器比如Notepad++，对文本进行转码。

我在Windows 8上测试，转码为ANSI编码即可执行成功。

---

为什么有时候用记事本写vbs程序又可以呢？

因为Windows在生成UFT-8格式的文本文件时，自作主张在文件中加了点东西，而VBS已经很久没有更新了。所以，一不小心就出现“800A0408”错误。

这个只能让对方改变设置，由于他把安全调的比较高，qq安全中心阻止了问及爱你传送。

具体方法是：安全设置——文件接收安全——选择“低”，应用，确定，这样就好了。

红旗飘飘~~

'将下列代码保存到一个文本文档中然后将后缀名改为vbs即可执行：

Dim i, int1(3), str1(3), s

int1(0) = 22

int1(1) = 14

int1(2) = 6

int1(3) = 13

Call sortFigu(int1)'调用过程进行处理

For i = LBound(int1) To UBound(int1)

    s = s & CStr(int1(i)) & " "

Next

MsgBox s'显示int1排序后的结果

str1(0) = "d"

str1(1) = "a"

str1(2) = "j"

str1(3) = "b"

Call sorString(str1)'调用过程进行处理

s = ""

For i = LBound(str1) To UBound(str1)

    s = s & CStr(str1(i)) & " "

Next

MsgBox s'显示str1排序后的结果

Private Sub sortFigu(ByRef int1)'数字数组升序排序

    Dim i, j, temp

    For i = LBound(int1) To UBound(int1)

        For j = i To UBound(int1)

            If int1(i) > int1(j) Then

                temp = int1(i)

                int1(i) = int1(j)

                int1(j) = temp

            End If

        Next

    Next

End Sub

Private Sub sorString(ByRef str1)'字符数组降序排序

    Dim i, j,temp

    For i = LBound(str1) To UBound(str1)

        For j = i To UBound(str1)

            If str1(i) < str1(j) Then

                temp = str1(i)

                str1(i) = str1(j)

                str1(j) = temp

            End If

        Next

    Next

End Sub

'以上只是个演示，里面的两个过程你可以放到你的网页中调用

Dim objws

Set objws=WScriptCreateObject("wscriptshell")

stime=InputBox("请输入时间" & vbCr & "格式：时:分:秒" & vbCr "如：20:2:7")

Do

s=now

nowtime=Hour(s) & ":" & Minute(s) & ":" & Second(s)

If stime=nowtime Then

objwsSendKeys "a" '发送a

objwsSendKeys "b" '发送b

objwsSendKeys "c" '发送c

objwsSendKeys "d" '发送d

objwsSendKeys "e" '发送e

End If

Loop

不明白了百度hi我。

以上就是关于想弄个vbs整人小程序，为什么弄好了打不开全部的内容，包括:想弄个vbs整人小程序，为什么弄好了打不开、为什么用代码编写的VBS整人小程序不可以通过QQ传送给别人！！、用vbscript或jsscript编写小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！