乱云飞 - 翼展电脑服务中心


最小化到系统托盘图标

2022-9-20 乱云飞 评论(0) 浏览(169) 标签: VB源码 缩小到系统托盘 最小化到系统托盘 

'添加一标准模块，加入以下代码：
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) 浏览(2377) 标签: 桌面时钟 桌面logo 桌面标记

微信图片_20220918142028.jpg

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

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


不用安装监控摄像头，也能看到监控画面！

2022-9-9 乱云飞 评论(0) 浏览(195) 标签: 虚拟监控摄像头作用 ONVIF监控

有网友问虚拟监控摄像机软件的作用是什么，在此回答一下：

不用安装监控摄像头，只需在电脑上安装ONVIF虚拟监控摄像机软件，即可让监控系统显示任何你想让看到的内容！播放广告、宣传片、电脑屏幕、甚至电影电视！更多功能等待您的探索补充。。。

兼容各品牌网络硬盘录像机。

下载地址：http://80c.cc

微软原版系统下载

2022-9-8 乱云飞 评论(0) 浏览(170)

https://hellowindows.cn/

VB调用本机默认浏览器弹出网页

2022-8-30 乱云飞 评论(0) 浏览(142) 标签: 弹出网页 VB代码

Shell "Rundll32.exe url.dll, FileProtocolHandler http://80c.cc/", vbNormalFocus

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

rundll32.exe url.dll,FileProtocolHandler http://localhost:8888/screenlive

TPLINK监控摄像机RTSP取流地址

2022-8-24 乱云飞 评论(0) 浏览(196) 标签: RTSP地址 TPLINK监控摄像头 TP-LINK监控 监控取流地址

TP-LINK全系列摄像机均支持通过RTSP协议来获取视频流，取流地址格式如下（双目IPC除外）：

主码流为：rtsp://username:password@ip:port/stream1

子码流为：rtsp://username:password@ip:port/stream2

双目IPC（如TL-IPC55T2、TL-IPC44AN双目变焦版等）的取流地址如下：

通道1主码流：rtsp://username:password@ip:port/stream1&channel=1

通道1子码流：rtsp://username:password@ip:port/stream2&channel=1

通道2主码流：rtsp://username:password@ip:port/stream1&channel=2

通道2子码流：rtsp://username:password@ip:port/stream2&channel=2



图片与文字对齐方式

2022-8-24 乱云飞 评论(0) 浏览(162) 标签: 图片对齐方式 图片上对齐 图片文本对齐 居中对齐 

<!doctype html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <title>图片与文字的相对位置</title>
    <style>
        img{
            width: 160px;
            height: 126px;
            margin: 10px;
        }
    </style>
</head>
<body>
<h3>图片与文字的相对位置</h3>
<!--    absmiddle       图片中间与同一行最大元素中间对齐；
        absbottom       图片下边缘与同一行最大元素下边缘对齐；
        baseline        图片下边缘与第一行文本下边缘对齐；
        bottom          图像下边缘与第一行文本下边缘对齐；
        left            图像沿网页左边缘对齐，文字在图像向右边换行；
        middle          图像中间与第一行文本的下边缘对齐；
        notset          未设定对齐方式；
        right           图像沿网页的右边缘对齐，文字在图像左边换行；
        texttop         图片上边缘与同一行最高文本上边缘对齐；
        top             图片上边缘与同一行最高元素上边缘对齐。-->
    <!--图片中间与同一行最大元素中间对齐-->
    <img src="../image/ab1.jpg" align="absmiddle"/>
    <!--图片下边缘与同一行最大元素下边缘对齐-->
    <img src="../image/ab2.jpg" align="absbottom"/>
    <!--图片下边缘与第一行文本下边缘对齐-->
    <img src="../image/ab3.jpg" align="baseline"/>
    <!--图像下边缘与第一行文本下边缘对齐-->
    <img src="../image/ab4.jpg" align="bottom"/>
    <!--图像沿网页左边缘对齐，文字在图像向右边换行-->
    <img src="../image/ab5.jpg" align="left"/>
    <!--图像中间与第一行文本的下边缘对齐-->
    <img src="../image/ab6.jpg" align="middle"/>
    <!--未设定对齐方式-->
    <img src="../image/ab7.jpg" align="notset"/>
    <!--图像沿网页的右边缘对齐，文字在图像左边换行-->
    <img src="../image/ab8.jpg" align="right"/>
    <!--图片上边缘与同一行最高文本上边缘对齐-->
    <img src="../image/ab9.jpg" align="texttop"/>
    <!--图片上边缘与同一行最高元素上边缘对齐-->
    <img src="../image/ab10.jpg" align="top"/>
</body>
</html>

嵌入网页代码

2022-8-23 乱云飞 评论(0) 浏览(149) 

Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://localhost:8000/#exe"
End Sub

chrome/edge浏览器无插件在线播放RTSP测试

2022-8-20 乱云飞 评论(0) 浏览(171) 标签: 在线播放 RTSP chrome 浏览器 无插件

虚拟ONVIF电脑屏幕摄像头取流地址：

2022-8-4 乱云飞 评论(0) 浏览(301) 标签: 监控摄像头 取流地址 虚拟摄像头 屏幕摄像头 RTSP地址

虚拟ONVIF电脑屏幕摄像头支持的取流地址：

播放视频文件
rtsp://user:password@ip:port/filename.mp4
---------------------------------------------------
播放电脑屏幕
rtsp://user:password@ip:port/screenlive
---------------------------------------------------
rtsp://user:password@ip:port/videodevice
播放USB摄像头
---------------------------------------------------
播放电脑麦克风声音
rtsp://user:password@ip:port/audiodevice
---------------------------------------------------
播放电脑屏幕和麦克风声音
rtsp://user:password@ip:port/screenlive+audiodevice
---------------------------------------------------
播放USB摄像头和麦克风声音
rtsp://user:password@ip:port/videodevice+audiodevice
---------------------------------------------------
播放指定程序窗口（测试功能，暂不支持中文）
rtsp://user:password@ip:port/window=cmd.exe

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