TC官方合作论坛

标题: 要的TC有个ScriptControl控件就省事多了 [打印本页]

作者: q273814 时间: 2014-8-29 12:55
标题: 要的TC有个ScriptControl控件就省事多了
不知道有木有办法

作者: rainshine 时间: 2014-8-29 17:24
我想说，怎么没有。= =我库都封装了。。。

作者: q273814 时间: 2014-8-30 11:16

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

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

作者: q273814 时间: 2014-8-30 11:18

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

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

汗，无语。

作者: rainshine 时间: 2014-8-30 12:36

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

帮我转成TC的 ...

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

作者: q273814 时间: 2014-8-30 13:12
本帖最后由 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
好吧我真是来卖萌的原来 com("ScriptControl") 这个不会报错可以的啊 = =

作者: q273814 时间: 2014-8-30 13:24

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

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

作者: rainshine 时间: 2014-8-30 16:10

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

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

作者: q273814 时间: 2014-8-30 23:04

rainshine 发表于 2014-8-30 16:10
所以自己尝试不会怀孕。天天问反而耽误时间。而且我都说了我库都封装了- - ...

= = 我所有人的裤都木脱下来过
毕竟每次写东西都穿那么多裤子肯定太麻烦
我这么纯洁滴孩子
肯定是想办法里里外外搞明白然后自己弄撒

作者: q273814 时间: 2014-8-30 23:05

q273814 发表于 2014-8-30 23:04
= = 我所有人的裤都木脱下来过
毕竟每次写东西都穿那么多裤子肯定太麻烦
我这么纯洁滴孩子

哦哦打错字了是我这么聪明滴孩子我一点也不纯洁

作者: jxtiger 时间: 2014-11-19 22:24

rainshine 发表于 2014-8-30 16:10
所以自己尝试不会怀孕。天天问反而耽误时间。而且我都说了我库都封装了- - ...

rainshine 你的库没有打包使用说明吗!?

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)