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

69332748a

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

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

{:soso_e160:}

石中草

学习

313442275

明明是天使插件 怎么注释大漠

1357501545

这个要收藏一下

如此美丽。

..  撸主    我想说   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
   
8. 
   
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

感谢楼上完善

dancige

琨填表逡太晚册封进行

CHAIXIANG

达到达到达到达到达到达到达到达到达到达到达

guoguobao

我找了好久了，谢谢