- 超级版主
- 1228894
- 26984
- 25
- 8059 朵
- 36138 个
- 4755 个
- 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 (, 下载次数:318)
|