递归火山软件开发平台

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 火山 源码 类库
查看: 531|回复: 2
打印 上一主题 下一主题

[视窗] 问下 这个VBA如何能在用火山执行

[复制链接]

1

主题

14

帖子

67

积分

核心用户

Rank: 9Rank: 9Rank: 9

积分
67
跳转到指定楼层
楼主
发表于 2024-4-9 11:56:01 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
常量内容是
Function Getcpuid()
Dim cpuSet,cpu
    Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Processor")
    For Each cpu In cpuSet
      getcpuid=cpu.ProcessorId
      exit for
    Next
end Function


我想在火山里执行并且返回CPUID

IP`X~(HNK~AL~GE}]]D_XFC.png (39.86 KB, 下载次数: 3)

IP`X~(HNK~AL~GE}]]D_XFC.png
回复

使用道具 举报

14

主题

71

帖子

439

积分

核心用户

Rank: 9Rank: 9Rank: 9

积分
439
沙发
发表于 2024-4-10 20:49:28 | 只看该作者
:噜阿噜 CMD不行吗
回复

使用道具 举报

13

主题

143

帖子

1311

积分

金牌会员

Rank: 6Rank: 6

积分
1311
板凳
发表于 2024-4-11 01:30:57 | 只看该作者
必须是32位程序 COM对象才能创建成功


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|递归火山软件开发平台 ( 鄂ICP备18029190号 )

GMT+8, 2024-6-15 23:46 , Processed in 0.099934 second(s), 21 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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