试试:
imports agentserverobjects
imports agentobjects
module module1
sub main()
dim Srv as new agentserver()
dim SrvEx as iagentex
SrvEx=ctype(Srv,iagentex)
dim dwcharid as integer
dim dwreqid as integer
dim stragentcharacterfile as string
SrvEx.load(stragentcharacterfile,dwcharid,dwreqid)
dim characterex as iagentcharacterex
SrvEx.getcharacterex(dwcharid,characterex)
characterex.show(0,dwreqid)
characterex.play("writing",dwreqid)
console.read()
end sub
end module