| 
                                    
                                    
                                    
                                    
                                    
                                    
                                    
                                     
                                        
                                     
                                    
                                        
                                        - 超级版主
 
                                        
                                        - 1228894
 
                                        - 27060
 
                                        - 25
 
                                        - 8236 朵
 
                                        - 36314 个
 
                                        - 4931 个
 
                                        - 421340
 
                                        - 2012-07-18
 
                                     
                                    
                                    
                                    
                                 | 
                                
                                    
                                        
                                            
                                                
                                                1#
                                                
                                            
                                        
                                        
                                            
                                                
                                                
                                                t
                                                T
                                             
                                            
                                            
                                            
                                                
                                                发表于 2022-02-24 09:46
                                            
                                                                                        
                                            | 
                                            
                                            
                                            |只看楼主
                                            
                                         
                                     
                                    
                                    
                
                
                
                
                    
                    
                    
                   
                    
                        
                        
                        功能说明1:最初除了【TeamViewer】远程软件,其他远程软件均无法做到远程时看见客户的鼠标【例:前台找图时无法看见鼠标是否移动到图片上,与客户沟通时也无法看见客户指向位置】,所以当时就做了一个显示远程客户的代码。效果如下:  代码如下:[可自行加入显示坐标、颜色等]- DimEnv 线程idv
  
- Sub OnScriptExit()
  
-     dm_ret = dm.FoobarClearText(foobar)
  
-     dm_ret = dm.FoobarClose(foobar)
  
- End Sub
  
- Event Form1.Button1.Click
  
-     线程idv = BeginThread(显示鼠标)
  
- End Event
  
- Event Form1.Button2.Click
  
-     StopThread 线程idv
  
- End Event
  
- Sub 显示鼠标()
  
-     PutAttachment "C:\大漠", "鼠标.bmp"
  
-     PutAttachment "C:\大漠", "dm.dll"
  
-     PutAttachment ".\plugin", "RegDll.dll"
  
-     Call Plugin.RegDll.Reg("C:\大漠\dm.dll")
  
-     Set dm = createobject("dm.dmsoft")
  
-     If dm.Ver() <> "3.1233" Then 
  
-         Set dm = nothing
  
-         set ws=createobject("Wscript.Shell")
  
-         ws.run "regsvr32 c:\大漠\dm.dll /s"
  
-         Set ws = nothing
  
-         Delay 1500
  
-         TracePrint "注册"
  
-     End If 
  
-     If len(dm.Ver()) = 0 Then 
  
-         MsgBox "注册未成功,请检查您的系统是否禁用了VBS脚本权限"
  
-     End If
  
-     set dm = createobject("dm.dmsoft")
  
-     dm_ret = dm.SetPath("C:\大漠")
  
-     foobar = dm.CreateFoobarCustom(hwnd,mx,my ,"鼠标.bmp","FFFFFF",0.5)'创建窗口'将图片白色区域透明化,其余颜色为灰色(无法设置颜色)
  
-     dm_ret = dm.FoobarFillRect(foobar,0,0,30,30,"FF0000")'设置颜色
  
-     延迟 = Form1.Slider1.Value
  
-     TracePrint 延迟
  
-     Do
  
-         GetCursorPos mx, my
  
-         Call Plugin.Window.Move(foobar, mx, my)
  
-         dm_ret = dm.FoobarUpdate(foobar)'刷新
  
-         Delay 1000- ( 延迟*100)
  
-     loop    
  
- End Sub
  
  复制代码 功能说明2:随着2021年各大远程软件的发展,现在主流的远程都带上了显示客户光标的功能,所以上面的代码也就无用武之地,所以就改成了准星瞄准器效果如下:  源码下载:[准星图案不喜欢,自行更换]  - zx.rar                                                                                                                                                                                                                                                         (, 下载次数:556)
    
                        
                     
                    
                    
                    
                    
                    
                    
                    
                    
                        
                        
                     
                     |