洛阳翼展电脑

禁止在IFRAME子页面点击右键

2022-9-27 乱云飞 评论(0) 浏览(325) 标签: 网页代码 IFRAME页面 禁止右键

<script type="text/javascript">
//禁止在IFRAME子页面点击右键
    window.onload=function(){
        document.getElementById('QQ5082500').contentDocument.oncontextmenu = function(){ 
            return false;
        } 
    }
</script>

仅2.6MB的轻量级ONVIF摄像头搜索测试软件！

2022-9-27 乱云飞 评论(0) 浏览(344) 标签: ONVIF测试软件 ONVIF搜索软件 ONVIF转RTSP

下载地址：https://wwwez.lanzoul.com/icqkW085aopi

oCAM录屏软件，简单好用，单文件版！

2022-9-27 乱云飞 评论(0) 浏览(443) 标签: 屏幕录像 录屏软件 单文件绿色版

https://lanzoui.com/iiTpJ0be6y2d

VBS读取XML节点内容，经测试读取大文件会出错。

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

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

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

VBS写入文本到剪切板

2022-9-22 乱云飞 评论(0) 浏览(296) 标签: VB源码 VB写剪切板

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

VB源码，获取计算机名

2022-9-22 乱云飞 评论(0) 浏览(296) 标签: VB源码 获取计算机名

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

最小化到系统托盘图标

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

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

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