找回密码
 加入
搜索
查看: 12709|回复: 4

[系统综合] 关于Error: 变量类型必须为对象类型("Object")

  [复制链接]
发表于 2010-4-7 12:42:11 | 显示全部楼层 |阅读模式
刚才在网上搜索了下,说是因为系统被优化过的原因,所以有的电脑不能打开我的软件
请问高手们有谁知道到底是缺少了哪些文件呢?
是根据贴子http://autoitx.com/forum.php?mod ... mp;highlight=%B6%C1改写的
$objVoice = ObjCreate("SAPI.SpVoice")   
$objVoice.Voice = $objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)   
$objVoice.rate =1  ;  '速度:0-10   
$objVoice.Volume=100 ;'声音:0-100  
$objVoice.Speak('你现在使用的计算机名是'&_hhh(@ComputerName))
$objVoice.Speak('IP是'&_hhh(@IPAddress1))

Func _hhh($txt)
        Local $wn
        $b=StringLen($txt)
        For $a=1 To $b
                $wn=$wn&' '&StringMid ($txt, $a, 1)
        Next
        Return $wn
EndFunc
另外里面需要调用的微软TTS5.1语音引擎(中文)也已经安装了,可是就是读不了,软件本身并没有问题,因为在部分电脑可以测试成功。
出错截图:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2010-4-7 13:04:15 | 显示全部楼层
833行是什么
 楼主| 发表于 2010-4-7 13:48:06 | 显示全部楼层
回复 2# netegg


    $objVoice = ObjCreate("SAPI.SpVoice")
发表于 2010-4-7 15:10:21 | 显示全部楼层
不放到桌面能不能正常执行呢?
发表于 2010-4-8 15:39:54 | 显示全部楼层
$oShell = ObjCreate("SAPI.SpVoice")
if not IsObj($oShell) then
    Msgbox(0,"错误","$oShell 不是一个对象.")
else
    Msgbox(0,"成功","成功创建对象 $oShell.")
endif


把系统服务恢复为默认?试试?
要是不行,就全注册系统DLL及OCX试试?
再不行,个人认为做下系统?
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-20 20:22 , Processed in 0.083921 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表