Dim objKernal As Object
Dim objBuddyManager As Object
Dim objBuddy As Object Set objApi = CreateObject("RTXClient.RTXAPI")
Set objKernal = objApi.GetObject("KernalRoot")
Set objBuddyManager = objKernal.RTXBuddyManager
Set objBuddy = objBuddyManager.Buddy(txtUin.Text)
依然是COM
Dim objBuddyManager As Object
Dim objBuddy As Object Set objApi = CreateObject("RTXClient.RTXAPI")
Set objKernal = objApi.GetObject("KernalRoot")
Set objBuddyManager = objKernal.RTXBuddyManager
Set objBuddy = objBuddyManager.Buddy(txtUin.Text)
依然是COM
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货