戎装公主绿化不了!请教各位大大!!!!

sunboyye

下了免安装版本后,点击绿化安装显示错误,图在附件~~~请问如何解决??

sunboyye

Sub bat
echo create_shortcut
start wscript -e:vbs "%~f0"
Exit Sub
End Sub


Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Dim WshShell,pa
Set WshShell = WScript.CreateObject("WScript.Shell")
Pa = WshShell.CurrentDirectory
set oShellLink = WshShell.CreateShortcut(strDesktop & "\国王的恩赐-戎装公主.lnk")
oShellLink.TargetPath = pa & "\开始游戏.exe"
oShellLink.WindowStyle = 2
oShellLink.IconLocation = pa & "\开始游戏.exe, 0"

oShellLink.WorkingDirectory = pa

oShellLink.Save

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.Run "kk55.bat"
objws.Run "http://kk55.net"