我来教教大家怎么用VB调用天使和实例

69332748a · 发表于 2014-1-22 19:33:53

马上加入TC

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

x

本帖最后由 69332748a 于 2014-1-22 19:39 编辑

我看了看路摊关于调用天使插件的实例很少
我来教教大家怎么调用天使插件

Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long

Public Const vbKeyAlt = vbKeyMenu 'VB很像把它给漏了,自己加上吧

Public ts As Object

'********************** 以下的API与WM常量宣告是发送消息与进程操作使用到的 API

Public Function Delay(DT As Long)

Dim i%

For i = 0 To DT Step 2

DoEvents '操作权交给系统否则程序会暂时无响应

Sleep 1

Next i

End Function

Public Function 注册(ts As Object) As Object

Shell "regsvr32 TSPlug.dll /s" '注册大漠插件到系统

Delay 500

Set ts = CreateObject("ts.tssoft")

End Function
复制代码

把以上代码复制到模块中
然后再程序上加上
Private Sub Form_Load()
注册 ts
End Sub
这样就可以调用了
然后把天使插件放在与程序的文件夹中这样就可以调用了下面教教大家VB利用TC编写VB的实例

游客，如果您要查看本帖隐藏内容请回复

zwbzzj · 发表于 2017-10-19 15:46:14

好东西！！！！！！！！！！！！！！！！！！

donggua11 · 发表于 2017-6-25 21:36:48

111111

15050774105 · 发表于 2016-12-24 18:15:19

学习学习

oscar5999 · 发表于 2016-12-24 13:48:35

我找了好久了，谢谢

lanchc · 发表于 2016-12-12 15:17:45

这样就可以调用了下面教教大家VB利用TC编写VB的实例

pengtusheng · 发表于 2016-10-17 01:07:56

+++++++++++

yim5602 · 发表于 2016-10-14 13:51:03

来教教大家怎么用VB调用天

tsq520 · 发表于 2016-10-13 10:46:22

11111111111111

tengzehua · 发表于 2016-9-23 00:08:29

学习一下看看

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

[TS插件] 我来教教大家怎么用VB调用天使和实例

马上加入TC

站长推荐 /2