• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----准星瞄准器----被城管追赶的第五天(15) [复制链接]

1#
功能说明1:最初除了【TeamViewer】远程软件,其他远程软件均无法做到远程时看见客户的鼠标【例:前台找图时无法看见鼠标是否移动到图片上,与客户沟通时也无法看见客户指向位置】,所以当时就做了一个显示远程客户的代码。
效果如下:

代码如下:[可自行加入显示坐标、颜色等]
  1. DimEnv 线程idv
  2. Sub OnScriptExit()
  3. dm_ret = dm.FoobarClearText(foobar)
  4. dm_ret = dm.FoobarClose(foobar)
  5. End Sub
  6. Event Form1.Button1.Click
  7. 线程idv = BeginThread(显示鼠标)
  8. End Event
  9. Event Form1.Button2.Click
  10. StopThread 线程idv
  11. End Event
  12. Sub 显示鼠标()
  13. PutAttachment "C:\大漠", "鼠标.bmp"
  14. PutAttachment "C:\大漠", "dm.dll"
  15. PutAttachment ".\plugin", "RegDll.dll"
  16. Call Plugin.RegDll.Reg("C:\大漠\dm.dll")
  17. Set dm = createobject("dm.dmsoft")
  18. If dm.Ver() <> "3.1233" Then
  19. Set dm = nothing
  20. set ws=createobject("Wscript.Shell")
  21. ws.run "regsvr32 c:\大漠\dm.dll /s"
  22. Set ws = nothing
  23. Delay 1500
  24. TracePrint "注册"
  25. End If
  26. If len(dm.Ver()) = 0 Then
  27. MsgBox "注册未成功,请检查您的系统是否禁用了VBS脚本权限"
  28. End If
  29. set dm = createobject("dm.dmsoft")
  30. dm_ret = dm.SetPath("C:\大漠")
  31. foobar = dm.CreateFoobarCustom(hwnd,mx,my ,"鼠标.bmp","FFFFFF",0.5)'创建窗口'将图片白色区域透明化,其余颜色为灰色(无法设置颜色)
  32. dm_ret = dm.FoobarFillRect(foobar,0,0,30,30,"FF0000")'设置颜色
  33. 延迟 = Form1.Slider1.Value
  34. TracePrint 延迟
  35. Do
  36. GetCursorPos mx, my
  37. Call Plugin.Window.Move(foobar, mx, my)
  38. dm_ret = dm.FoobarUpdate(foobar)'刷新
  39. Delay 1000- ( 延迟*100)
  40. loop    
  41. End Sub
复制代码
功能说明2:
随着2021年各大远程软件的发展,现在主流的远程都带上了显示客户光标的功能,所以上面的代码也就无用武之地,所以就改成了准星瞄准器
效果如下:

源码下载:[准星图案不喜欢,自行更换]
zx.rar (, 下载次数:28)

本主题由 超级版主 瑞祥幽冥狼 于 2023/7/16 16:14:25 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#


<font color="Magenta">想象</font><font color="Red">之中</font>,<font color="Lime">别人</font><font color="YellowGreen">与我</font><font color="Lime">没有</font><font color="DarkOrchid">不同</font>
3#


4#


5#

学习

6#

11111111111111

7#


8#


9#

学习了

10#

111111111111111111111111

11#


12#

学习一i下啊

13#

准星图案不喜欢,自行更换

感谢各位大神无私分享,认真学习中......
14#


15#

感谢分享

16#

6666666666666

17#

6666666666

18#

66666666666

19#

dddjjj

发新话题 回复该主题