Question

请高手帮我写个非常简短的vbs

下面这段在按键精灵里面能直接用。但我不懂VBS。所以请高手转换下。

Dim cwm
cwm=InputBox("请输入提示号码")
yp=cwm-39761616+12345678-8
xlh=(yp+9)*2+180+12345678+yp-12212012
MessageBox "YP为"& yp& "XL为"& xlh
剪贴板 = Plugin.Sys.SetCLB(xlh)
MessageBox "已经将XL码复制到了剪贴板"

Answer 1

Dim cwm
set ws = createobject("wscript.shell")
cwm=InputBox("请输入提示号码")
yp=cwm-39761616+12345678-8
xlh=(yp+9)*2+180+12345678+yp-12212012
MsgBox "YP为"& yp& " XL为"& xlh
ws.run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& xlh &Chr(34)& ")(close)"
MsgBox "已经将XL码复制到了剪贴板"