油漆调色配方:vbs转exe

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/02 00:32:22
想问一下,有没有 VBS 转成 exe 可执行的文件
因为我不想我的VBS 被别人看到源代码

会用VB吧?把它在VB中编译。先打开“工程”-“引用”窗口,在其中将“Microsoft Script Control 1.0”选中,然后把你的VBS代码加到CODE=后面。如以下例子:

Private Sub Command1_Click()
Dim VBS As New MSScriptControl.ScriptControl
Dim Code As String

Code = "Sub Test() " & vbCrLf & _
"a=100 & vbCrLf & "msgbox a" & vbCrLf & _
"End Sub"

VBS.Language = "VBScript"
VBS.AddCode Code
VBS.Run "Test"
End Sub