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

covsno 2010-07-02 12:08:28
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
...全文
56 点赞 收藏 14
写回复
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
covsno 2010-07-20
最后采用的 还是使用class然后GetIDsOfNames来处理
回复
covsno 2010-07-20

马上结贴

不过你的答案的意思 莫非要拼凑字符串?
回复
这都多久了,还没结帖????

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

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

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

Class MyClass

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

End Class


Mobile.Append =new MyClass


active中使用GetIDsOfNames来调用MyClass中指定名字的函数
回复
hongfu951 2010-07-05
回复
WOLFOX1 2010-07-03
。。。。。。。。。。。。。。。。。
回复
我没你那个控件,原理如此,你自己改一下
<script language="vbscript">
Function myaaaaasd(a,b)
msgbox(a+b)
End Function
dim Append
Append = "myaaaaasd(1,2)"
eval(Append)
</script>

回复
[code=HTML]<script language="vbscript">
Function myaaaaasd(a,b)
msgbox(a+b)
End Function
dim Append
Append = "myaaaaasd(1,2)"
eval(Append)
</script>code]
回复
这样一个风和日丽,不冷不热的好周末,都跑去HAPPY去了,就剩我在这里当牛做马啊……
唉,静静地,听到自己心碎的声音——哗啦,好大声——谁家花盆打了?——这是绕梁两日之后、周一来这里的人们说的。
回复
看楼主的分数,真让人担心呢。
连字串型参数的传递也给你写了,行吧
<script language="vbscript">
Function myaaaaasd(a,b,str)
msgbox(a+b&"---"+str)
End Function
dim Append
Append = "myaaaaasd(1,2,""abc"")"
eval(Append)
</script>
回复
孟子E章 2010-07-02
vbs只能是作为Mobile这个class的方法来处理吧
回复
covsno 2010-07-02

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

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

Mobile是atl写的一个activex
回复
covsno 2010-07-02
Mobile是一个activex对象,Append 是它的一个Dispatch类型的属性,对应的是脚本里面的一个函数
回复
发动态
发帖子
vbScript
创建于2007-09-28

3998

社区成员

它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
申请成为版主
社区公告
暂无公告