TC官方合作论坛

标题: 我来教教大家怎么用VB调用天使和实例 [打印本页]
作者: 69332748a    时间: 2014-1-22 19:33
标题: 我来教教大家怎么用VB调用天使和实例
本帖最后由 69332748a 于 2014-1-22 19:39 编辑

我看了看路摊关于调用天使插件的实例很少
我来教教大家怎么调用天使插件
  1. Option Explicit
  2. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  3. Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Long
  4. Public Const vbKeyAlt = vbKeyMenu 'VB很像把它给漏了,自己加上吧
  5. Public ts As Object
  6. '********************** 以下的API与WM常量宣告 是发送消息与进程操作使用到的 API
  7. Public Function Delay(DT As Long)
  8. Dim i%
  9. For i = 0 To DT Step 2
  10. DoEvents '操作权交给系统 否则程序会暂时无响应
  11. Sleep 1
  12. Next i
  13. End Function
  14. Public Function 注册(ts As Object) As Object
  15. Shell "regsvr32 TSPlug.dll /s" '注册大漠插件到系统
  16. Delay 500
  17. Set ts = CreateObject("ts.tssoft")
  18. End Function
复制代码

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


作者: zgzjwzlx    时间: 2014-1-22 22:21
作者: 石中草    时间: 2014-1-23 06:56
学习
作者: 313442275    时间: 2014-1-23 08:02
明明是天使插件 怎么注释大漠
作者: 1357501545    时间: 2014-1-23 09:22
这个要收藏一下
作者: 如此美丽。    时间: 2014-1-23 12:48
本帖最后由 如此美丽。 于 2014-1-23 12:49 编辑

..  撸主    我想说   vb用 DoEvents 封装的  Delay  如果你卸载窗口的时候 还在延迟中的话 Unload 窗口是关不掉的  如果用 End 又会大量占用内存 ...  还有 set ts = createobject("ts.tssoft") 创建一个对象之后一定要要记得释放  set ts = nothing

撸主  我没别的意思 就是想把我知道的告诉你 并没多想什么  比如 注册  我觉得可以 完整一点   我提供我自己封的几个 相互学习

  1. Public Function 是否注册(ByVal 插件接口 As String) As Boolean
  2.     Dim tmp As Object
  3.     On Error GoTo NoFound
  4.     Set tmp = CreateObject(插件接口): 是否注册 = True: Set tmp = Nothing: Exit Function
  5. NoFound:
  6.     是否注册 = False: Set tmp = Nothing: Err.Clear
  7. End Function

  9. Public Sub 插件(ByVal 路径 As String, ByVal 注册 As Boolean)
  10. If 注册 = True Then
  11. Shell "regsvr32 " & 路径 & " /s"
  12. Else
  13. Shell "regsvr32 " & 路径 & " /u /s"
  14. End If
  15. End Sub
复制代码



作者: 69332748a    时间: 2014-1-24 11:53
感谢楼上完善
作者: dancige    时间: 2014-2-2 00:43
琨填表逡太晚册封进行
作者: CHAIXIANG    时间: 2014-2-4 14:52
达到达到达到达到达到达到达到达到达到达到达
作者: guoguobao    时间: 2014-2-6 00:33
我找了好久了，谢谢
作者: 2884628    时间: 2014-2-19 19:53
haohao
作者: lq0605    时间: 2014-2-27 17:14
作者: huilan    时间: 2014-3-11 11:28
看看不犯罪啊
作者: 潘虹宇    时间: 2014-3-18 01:05
注册码
作者: lxl12315    时间: 2014-3-19 00:32
RE: 我来教教大家怎么用VB调用天使和实例 [修改]
作者: benxin1225    时间: 2014-3-21 13:39
222222222222
作者: tomsony    时间: 2014-3-21 19:26
dfge是地方个人
作者: xebe    时间: 2014-3-22 03:11
学习看看。。。。
作者: zwtderek1986    时间: 2014-3-22 17:16
来学习学习
作者: 1374745404    时间: 2014-4-25 18:13
地对地导弹
作者: 一天分五    时间: 2014-4-27 11:20
000000000000000
作者: chinaxhb    时间: 2014-5-7 11:36
我擦,隐藏啊!
作者: 765633256    时间: 2014-5-9 15:57
sdasdas1d5as1d5a
作者: lygs2105    时间: 2014-5-12 02:27
学习学习
作者: yanzheng    时间: 2014-5-14 22:33
看看
作者: gidtjs10    时间: 2014-5-23 12:57
超赞超赞
作者: jitashaonian    时间: 2014-5-23 14:44
为什么到现在了还是喜欢用VB来写东西呢?
作者: xuehaiwuya    时间: 2014-5-25 23:30
你的支持是我前进的动力！
作者: 美珍子    时间: 2014-5-26 01:10
看看还有什么。
作者: lcy944046    时间: 2014-6-2 10:54
大大大大大大
作者: yooke    时间: 2014-6-2 12:08
为服务的粉色发软文
作者: Pullea    时间: 2014-6-9 22:18
看不太懂…
作者: snd52000    时间: 2014-7-1 21:09
大神啊！看看大神的实例
作者: 千叶de悠一    时间: 2014-7-3 17:21
看看
作者: gssyf    时间: 2014-7-5 12:57
看看
作者: 310452395    时间: 2014-7-5 15:06
来教教大家怎么用VB调用天使和实例
作者: slz336    时间: 2014-8-26 09:24
这个肯定是要支持的额
作者: a837198    时间: 2014-9-23 07:35
感谢提供,鼎力支持！！...
作者: My水乐    时间: 2014-9-27 14:46
回复
作者: 868083    时间: 2014-10-11 11:53
学习下 谢谢分享！！！1
作者: adlyx1999    时间: 2014-10-16 02:00
ddddddddddddd
作者: 473095039    时间: 2014-10-23 00:08
4464646
作者: rjsvictor    时间: 2014-10-24 14:13
支持楼主,感谢分享.回复查看！！...
作者: tanjiunnya    时间: 2014-11-8 15:54
thanks for sharing
作者: lovesai    时间: 2014-11-9 19:21
看看学习....................
作者: smallblack    时间: 2014-11-10 22:36
学习一下。。。
作者: softeverying    时间: 2014-11-27 01:02
谢谢分享。。。。。
作者: qaz2497    时间: 2014-12-12 20:52
不错看看
作者: jhp123    时间: 2015-1-28 20:20
先顶再看好习惯
作者: hackstat    时间: 2015-2-28 18:17
学习了
作者: 那片叶子    时间: 2015-3-23 11:49
11111111111111111111111111111
作者: kbd    时间: 2015-3-24 16:53
真的不错，正在找这些东西
作者: kbd    时间: 2015-3-24 16:53
真的不错，正在找这些东西
作者: kbd    时间: 2015-3-24 16:53
真的不错，正在找这些东西
作者: wdezq    时间: 2015-3-29 19:35
我找了好久了，谢谢
作者: 即可很快就    时间: 2015-4-1 17:10
774545641354444
作者: 厌离    时间: 2015-4-7 00:37
厌离
作者: micyoo    时间: 2015-4-9 19:48
asdfdfdfdfdfdfdfdfdfdfdfdfdfdfdf
作者: 46704600    时间: 2015-4-23 10:45
回复了看看
作者: xdc1987    时间: 2015-5-26 23:40
Kkkkkkkkkkkkk
作者: badboy3000    时间: 2015-6-4 16:40
调用天使插件
作者: syeleshall    时间: 2015-6-16 18:36
还有其它好点的调用方式没 这样调用
获取鼠标位置.
函数原型:
int GetCursorPos(int x,int y)
永远返回的是0,0  估计是插件本身有问题 用的4.0.19的
作者: ytzhlwyy    时间: 2015-6-24 02:11
学习
作者: fbj123    时间: 2015-7-28 11:00
开始了距离咯来看看
作者: waxinyi    时间: 2015-11-10 21:58
作者: w731my    时间: 2015-11-14 18:38
感觉和大漠使用方法一样
作者: 天龙    时间: 2015-12-1 19:35
看看学习下
作者: hauilang    时间: 2015-12-10 23:25
学习啦
作者: marathon64    时间: 2015-12-13 09:57
学习学习.......................
作者: yirongwei009    时间: 2016-4-8 19:09
看看
作者: maxiaokang1029    时间: 2016-5-28 22:14
莫亏
作者: 太丨子    时间: 2016-5-29 20:44
不错，牛B
作者: wanghuzhan    时间: 2016-7-16 17:10
0000000000000000000000
作者: tbmbx2017    时间: 2016-9-11 04:53
牛逼，我是自愧不如
作者: tengzehua    时间: 2016-9-23 00:08
学习一下看看
作者: tsq520    时间: 2016-10-13 10:46
11111111111111
作者: yim5602    时间: 2016-10-14 13:51
来教教大家怎么用VB调用天
作者: pengtusheng    时间: 2016-10-17 01:07
+++++++++++
作者: lanchc    时间: 2016-12-12 15:17
  这样就可以调用了下面教教大家VB利用TC编写VB的实例
作者: oscar5999    时间: 2016-12-24 13:48
我找了好久了，谢谢
作者: 15050774105    时间: 2016-12-24 18:15
学习学习
作者: donggua11    时间: 2017-6-25 21:36
111111
作者: zwbzzj    时间: 2017-10-19 15:46
好东西！！！！！！！！！！！！！！！！！！



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1