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


VB按钮快捷键

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

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

最小化到系统托盘图标

2022-9-20 乱云飞 评论(0) 浏览(257) 标签: 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) 浏览(2533) 标签: 桌面时钟 桌面logo 桌面标记

微信图片_20220918142028.jpg

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

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


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

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

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

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

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

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

微软原版系统下载

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

https://hellowindows.cn/

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

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

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

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

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

图片与文字对齐方式

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

<!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) 浏览(220) 

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) 浏览(247) 标签: 在线播放 RTSP chrome 浏览器 无插件

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

2022-8-4 乱云飞 评论(0) 浏览(385) 标签: 监控摄像头 取流地址 虚拟摄像头 屏幕摄像头 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