Function或者sub过程如何赋值给一个对象呢

[covsno]

jscript是这样的
function myaaaaasd(num,str)
{
Mobile.Call(str);
}
Mobile.Append=myaaaaasd;


VBS的这样就报错
Function myaaaaasd(num,str)
Mobile.Call(str)
End Function
Set Mobile.Append = myaaaaasd

[covsno]

Mobile是一个activex对象,Append 是它的一个Dispatch类型的属性,对应的是脚本里面的一个函数

[covsno]

如果改写Mobile的Append ,让它对应一个类的话,那又不知道怎么调用类里面的函数.

Mobile是atl写的一个activex

[covsno]

改写 Mobile的Append算了,直接传类对象进去算了GetIDsOfNames吧

[孟子E章]

vbs只能是作为Mobile这个class的方法来处理吧

[碧海情天-赵亮]

看楼主的分数，真让人担心呢。
连字串型参数的传递也给你写了，行吧

<script language="vbscript">
Function myaaaaasd(a,b,str)
  msgbox(a+b&"---"+str)
End Function
dim Append
Append = "myaaaaasd(1,2,""abc"")"
eval(Append)
</script>

[碧海情天-赵亮]

这样一个风和日丽，不冷不热的好周末，都跑去HAPPY去了，就剩我在这里当牛做马啊……
唉，静静地，听到自己心碎的声音——哗啦，好大声——谁家花盆打了？——这是绕梁两日之后、周一来这里的人们说的。

[碧海情天-赵亮]

[code=HTML]<script language="vbscript">
Function myaaaaasd(a,b)
msgbox(a+b)
End Function
dim Append
Append = "myaaaaasd(1,2)"
eval(Append)
</script>code]

[碧海情天-赵亮]

我没你那个控件，原理如此，你自己改一下

<script language="vbscript">
Function myaaaaasd(a,b)
  msgbox(a+b)
End Function
dim Append
Append = "myaaaaasd(1,2)"
eval(Append)
</script>

[WOLFOX1]

。。。。。。。。。。。。。。。。。

[幻想多巴胺]

[covsno]

Class MyClass

Public Function myFunction(num,str) 
Mobile.Call(str)
End Function 

End Class 

Mobile.Append =new MyClass


active中使用GetIDsOfNames来调用MyClass中指定名字的函数

[碧海情天-赵亮]

这都多久了，还没结帖？？？？

我已经开始记录一个CSDN黑名单了，里面全是象楼主这样有正确答案也不结帖的。

现在楼主也进我的黑名单了。

其余的兄弟，有感兴趣的，也可以跟我要这份名单，或者大家交流一下，共同防范被这样的人骗了执情。

[covsno]

卡
马上结贴

不过你的答案的意思 莫非要拼凑字符串?

[covsno]

最后采用的 还是使用class然后GetIDsOfNames来处理