用客户端vbscript实现鼠标形状变换？？？？？？？

[springRainyao]

一个vbscript函数，因为费时比较长，所以想在函数开始时把鼠标变换一种形状（如：wait)，待函数运行完后再变回来(auto/defaut).例子如下：
<script language="vbscript">
Sub aaa()
'鼠标变形状
。。。。。'长处理词句
'鼠标变形状
end sub

请赐教！

[tweit]

<style>
<!--
BODY{CURSOR: url(mouse.ani);}
-->
</style>

[springRainyao]

谢。。。
我是要在客户端vb脚本实现。。。

[xzq686]

转自：meizz(梅花雨疏影横斜）
<div id=d1>在层上面鼠标变形</div>
<input type=button value=改变鼠标形状 onclick=cc()>

<script language="Javascript">
function cc(){
document.all.d1.style.cursor="move";
}
</script>
下面有各种形状的：
auto ：标准光标
default ：标准箭头
hand ：手形光标
wait ：等待光标
text ：I形光标
vertical-text ：水平I形光标
no-drop ：不可拖动光标
not-allowed ：无效光标
help ：?帮助光标
all-scroll ：三角方向标
move ：移动标
crosshair ：十字标
e-resize
n-resize
nw-resize
w-resize
s-resize
se-resize
sw-resize

[xzq686]

鼠标在图片上变形：参考一下吧，再加上上面的那些形状
<img id=demo onmousedown=this.runtimeStyle.cursor="hand" onmouseout=this.runtimeStyle.cursor="">

[tweit]

sorry,
没搞清状况，呵呵

[springRainyao]

xzq686(瞬).....谢用js实现
但现在我的函数是调用office过程，所以用vbscript实现的
再请教vbscript实现方法
ps:style.cursor="wait"我是知道的，但vbscript的中什么object支持些方法.... ???

[jensan]

vbscript:document.body.style.cursor="wait" '等待
jsscript:this.style.cursor="auto" '标准

[jensan]

document.body。。。。结帐.谢