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
...全文
162 14 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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中指定名字的函数
幻想多巴胺 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类型的属性,对应的是脚本里面的一个函数

4,009

社区成员

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧