要的TC有个ScriptControl控件就省事多了

q273814 · 发表于 2014-8-29 12:55:08

您需要登录才可以下载或查看，没有帐号？立即注册

x

不知道有木有办法

rainshine · 发表于 2014-8-29 17:24:39

我想说，怎么没有。= =我库都封装了。。。

q273814 · 发表于 2014-8-30 11:16:47

rainshine 发表于 2014-8-29 17:24
我想说，怎么没有。= =我库都封装了。。。

几个月不发帖子发个帖子卖个萌而已
不过 = = 肿么弄的这个东东貌似不错
尼玛以后再有别语言的神马vbs 神马js
那都不用到处找看得懂的API了 = =

q273814 · 发表于 2014-8-30 11:18:54

rainshine 发表于 2014-8-29 17:24
我想说，怎么没有。= =我库都封装了。。。

给我个例子 , 下面这个delphi函数引用的一句vbs 获取当前系统占用CPU百分比

function getcpupencent: Integer;
var
vScriptControl: OleVariant;
begin
try
vScriptControl := CreateOleObject('ScriptControl');
vScriptControl.Language := 'VBScript';
vScriptControl.ExecuteStatement('pencent = GetObject("winmgmts:\\.\root\cimv2:win32_processor=''cpu0''").LoadPercentage');
Result := vScriptControl.Eval('pencent')
except
Result := -1;
end;
end;

复制代码

帮我转成TC的

rainshine · 发表于 2014-8-30 12:36:13

q273814 发表于 2014-8-30 11:16
几个月不发帖子发个帖子卖个萌而已
不过 = = 肿么弄的这个东东貌似不错
尼玛以后再有别语言的神马vbs ...

汗，无语。

rainshine · 发表于 2014-8-30 12:36:33

q273814 发表于 2014-8-30 11:18
给我个例子 , 下面这个delphi函数引用的一句vbs 获取当前系统占用CPU百分比

帮我转成TC的 ...

代码你都有了难道还还不成tc/?

q273814 · 发表于 2014-8-30 13:12:57

本帖最后由 q273814 于 2014-8-30 13:14 编辑

rainshine 发表于 2014-8-30 12:36
代码你都有了难道还还不成tc/?

= = TC 怎么createobject 我对win api不熟悉

TC 给我的感觉就是很多高级功能都只能dllcall了 = =
大神美女珊姐给个例子嘛

q273814 · 发表于 2014-8-30 13:24:07

好吧我真是来卖萌的原来 com("ScriptControl") 这个不会报错可以的啊 = =

q273814 · 发表于 2014-8-30 13:24:26

rainshine 发表于 2014-8-30 12:36
代码你都有了难道还还不成tc/?

好吧我真是来卖萌的原来 com("ScriptControl") 这个不会报错可以的啊 = =

rainshine · 发表于 2014-8-30 16:10:04

q273814 发表于 2014-8-30 13:24
好吧我真是来卖萌的原来 com("ScriptControl") 这个不会报错可以的啊 = =

所以自己尝试不会怀孕。天天问反而耽误时间。而且我都说了我库都封装了- -

帐号		自动登录	找回密码
密码			立即注册

[已解决] 要的TC有个ScriptControl控件就省事多了