本帖最后由 pcl_test 于 2016-6-24 13:22 编辑
- 'win7x64,强制在32位环境运行脚本
- Set oWS = CreateObject("WScript.Shell")
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- s = oWS.ExpandEnvironmentStrings("%windir%\SysWOW64\WScript.exe")
- If oFSO.FileExists(s) = True And LCase(WScript.FullName) <> LCase(s) Then
- oWS.Run s & " """ & WScript.ScriptFullName & """"
- WScript.Quit()
- End If
-
- Function timestamp()
- Dim js:Set js = CreateObject("ScriptControl")
- js.language = "JScript.encode"
- 'timestamp = js.EVAL("#@~^FAAAAA==c +A,fmY+*R7CV!+60v#igYAAA==^#~@ ") '这个可以显示
- timestamp = js.EVAL("msgbox (new Date()).valueOf();")
- End Function
-
- msgbox timestamp()
复制代码 msgbox在Java里不好执行啊 |