翼展电脑服务中心


洛阳翼展电脑服务中心

2021-11-9 乱云飞 评论(0) 浏览(985)

洛阳翼展电脑服务中心,地址:洛阳市老城区春都路19号 电话:0379-63210060 手机/微信:13213610060。

千里眼屏幕监控系统(虚拟ONVIF摄像头)

2021-11-5 乱云飞 评论(13) 浏览(4198) 标签: 千里眼 电脑屏幕 屏幕监控 收银机监控 工控机电脑监控

商业间谍无处不在!公司内鬼若隐若现!
实时监控电脑操作!所有操作一清二楚!
所有操作有据可查!一切尽在老板掌控!

安装了千里眼屏幕监控系统的电脑,会被监控录像机,监控软件识别为监控摄像头,轻松添加到现有的监控系统中。不需要硬件编码器或物理网络摄像机。电脑画面会被录像保存在监控系统中,手机也可以随时随地查看回放,电脑上的一举一动都清清楚楚,让您轻松掌控一切。

支持ONVIF的网络硬盘录像机、软件、APP都可以使用。海康威视,宇视,大华,雄迈,乔安,TPLINK,水星,小米,华为,萤石,群晖,龙视安,云世通,汉邦高科,莱科迪,天视通,金视达。。。

https://lanzoui.com/i3Fj10c1nqpi

https://wwwez.lanzoul.com/i3Fj10c1nqpi

222.jpg

微信图片_20220907112634.jpg

111111.png

未命名-1.png

V34更新:可以播放指定视频文件(在录像机上播放广告片、电影等。。。)播放视频模式不影响电脑正常使用,正常的电脑操作不会被监控录制。

v35更新:支持多屏幕,支持USB摄像头,支持窗口模式(测试,暂时不能正确获取中文窗口)。免配置运行,无需编辑配置文件,无需修改IP直接运行即可。

VBS读取XML节点内容

2022-9-23 乱云飞 评论(0) 浏览(2)

[该内容已加密,请点击标题输入密码访问]

VBS获取本机内网IP地址并写入到剪切板

2022-9-22 乱云飞 评论(0) 浏览(3)

[该内容已加密,请点击标题输入密码访问]

VBS写入文本到剪切板

2022-9-22 乱云飞 评论(0) 浏览(2)

Dim strCopy
strCopy="翼展科技版权所有 http://80c.cc"
Call SetClipboardText(strCopy)

Sub SetClipboardText(Text)   '写入信息到剪切板
    Dim wsh
    Set wsh = CreateObject("WScript.Shell")
    wsh.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
    set wsh=Nothing
End Sub

获取计算机名

2022-9-22 乱云飞 评论(0) 浏览(2)

MsgBox Environ("computername")

----------------------------------------------------------------

Dim a As Object
Set a = CreateObject("Wscript.Network")
Print a.ComputerName
Print a.UserName
Print a.UserDomain

VB按钮快捷键

2022-9-20 乱云飞 评论(0) 浏览(2)

'VB按钮快捷键
Private Sub Form_Load()
    Command1.Caption = "我是Q的快捷键&Q"
End Sub
Private Sub Command1_Click()
 MsgBox "你按了Ait+Q"
End Sub

最小化到系统托盘图标

2022-9-20 乱云飞 评论(0) 浏览(2)

'添加一标准模块,加入以下代码:
Option Explicit
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Const MAX_TOOLTIP As Integer = 64
Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4
Const NIM_ADD = &H0
Const NIM_DELETE = &H2
Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONUP = &H202
Const WM_RBUTTONUP = &H205

Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
End Type
Private nfIconData As NOTIFYICONDATA

Public Sub TheTray(Fem As Form) '最小化到托盘
nfIconData.hwnd = Fem.hwnd
nfIconData.uID = Fem.Icon '这里确定使用哪个图标
nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
nfIconData.uCallbackMessage = WM_MOUSEMOVE
nfIconData.hIcon = Fem.Icon.Handle
nfIconData.szTip = Fem.Caption & vbNullChar '这里是将鼠标移到图标上时,将显示的文字
nfIconData.cbSize = Len(nfIconData)
Call Shell_NotifyIcon(NIM_ADD, nfIconData)
Fem.Hide
End Sub

Public Sub IconResponse(Fem As Form, X As Single)
Dim lMsg As Single
lMsg = X / Screen.TwipsPerPixelX
Select Case lMsg
Case WM_RBUTTONUP '鼠标右键按下
'此处添加弹出菜单语句
Case WM_LBUTTONUP '鼠标左键按下
Fem.WindowState = 0
Fem.Show
Call UnloadIcon
End Select
End Sub

'将图标从托盘中消除
Public Sub UnloadIcon()
Shell_NotifyIcon NIM_DELETE, nfIconData
End Sub

'--------------------------------------------------------------------------------------
'窗体调用,代码如下:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call IconResponse(Me, X)
End Sub

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Call TheTray(Me)
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call UnloadIcon
End Sub
'--------------------------------------------------------------------------------------

分享9个在桌面显示时钟、显示滚动字幕、显示LOGO的小软件。

2022-9-18 乱云飞 评论(0) 浏览(57)

微信图片_20220918142028.jpg

视频演示:https://www.bilibili.com/video/BV1LW4y1q7YE/

下载地址:https://lanzoul.com/ijCJE0bqyhih


oCAM录屏软件,简单好用,单文件版!

2022-9-10 乱云飞 评论(0) 浏览(35)

12345.jpg

https://lanzoui.com/iiTpJ0be6y2d

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog