怎样制作vbs程序文件
① 怎样编写VBS程序
'XorEncode {[email protected] 2008-2-22}
If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上！":WScript.Quit
Set fso=CreateObject("Scripting.FileSystemObject")
Set self=fso.OpenTextFile(WScript.ScriptFullName)
Set vbs=fso.CreateTextFile(Left(WScript.Arguments(0),Len(WScript.Arguments(0))-4)+"_new.vbs")
Do Until self.AtEndOfStream
aline=self.ReadLine
If aline="Function Decode(s,n)" Then w=true
If w Then vbs.WriteLine aline
Loop
Set src=fso.OpenTextFile(WScript.Arguments(0))
Randomize:n=Int(255*Rnd+1)
vbs.WriteLine "Execute("&"Decode("""&Encode(src.Read(fso.GetFile(WScript.Arguments(0)).Size),n)&""","&n&"))"
src.Close:vbs.Close:self.Close
Set src=Nothing:Set vbs=Nothing:Set self=Nothing:Set fso=Nothing
WScript.Echo "Successful!"
Function Encode(s,n)
For i=1 To Len(s)
Encode=Encode&" "&(Asc(Mid(s,i,1)) Xor n)
Next
End Function
Function Decode(s,n)
ns=Split(Mid(s,2,Len(s)-1))
For i=0 To UBound(ns)
Decode=Decode&Chr(CInt(ns(i)) Xor n)
Next
End Function
② vbs edit如何编写vb程序
VB、VBS代码在电脑系统自带的记事本txt写。
新建txt文档，编写代码，另保存为.vbs，编码选择ANSI、Utf-8这样不会乱码；修改后缀.txt为.vbs；"双击"执行；继续编辑vbs代码；
有两种运行方法：在windows界面下运行，也就是双击vbs文件；另一种是在命令提示符下运行，方法为：开始输入cmd回车，然后会弹出一个黑框，输入cd“你的vbs所在的地方”回车enter键，然后输入脚本的名字，就会自动执行
③ 怎么制作VBS脚本
网络一下 稻米鼠学编程 VBS篇
④ 怎么制作VBS脚本
VBS脚本是一种简单的脚本程序，它可以用来实现一下简易的功能需求，那么如何编写VBS脚本呢？下面我给大家分享一下。
工具/材料
SublimeText
首先我们打开SublimeText软件，新建一个后缀名为vbs的文件，如下图所示
然后我们在vbs文件中输入如下的代码，主要是让用户输入一些内容，然后程序返回用户输入的内容
双击运行编写的VBS脚本，如下图所示，会弹出窗口让用户输入内容
我们输入完内容以后，程序就会自动弹出新的框来展示我们输入的内容。这样一个简单的VBS脚本就制作完了，是不是很简单啊
⑤ 如何新建vbs文件
vbs是visualbasicscript的简称，是微软开发的一种脚本语言。vbs文件创建方法如下：
1、点击电脑左下角的“开始”，从所有程序中找到附件，点击附近中的“记事本”，将vbs的代码复制到记事本中，最后保存为点vbs的格式即可。
2、可直接在txt文本文档中编辑，最后保存为点vbs的格式即可。
⑥ 怎样做vbs文件
你还是初学VBS吧，建议你看看《VBScript参考》这个网上很多，这个是基础，
这里面有很多例子和理论的东西，做VBS文件，建议你找个脚本编辑器，像
notepad2,notepad++,editplus这些都比较好的，有语法高亮，可以一定程度上
帮你更好的编写脚本，不过好一楼所说，如果你不是想专程去学它的话，你直
接用记事本编辑就行了
⑦ 怎麽做"*.vbs"文件
你好啊，这个很简单的，用记事本就可以编写，步骤如下：
1：新建一个记事本，打开，然后将你的vbs脚本代码复制进去
2：另存为，在另存为的时候，文件类型，选择“所有文件”，然后再写文件名，文件名一定要有vbs脚本的后续，比如
XX.vbs
其他的不用改
3：成功了，这个就是
vbs
脚本，双击即可运行脚本了