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

JS检测URL地址后面有没有参数

2023-4-23 乱云飞评论(0) 浏览(212)

<script language="javascript">//如果有参数显示参数，没有参数显示NULL
str=location.search.substring(1,location.search.length); 
if (str != '') {document.write("<font color=#ffffff><h1>"+str+"</h1></font>");} 
else {document.write("<font color=#ffffff><h1>NULL</h1></font>");}
</script>

命令行强制修改系统时间

2023-4-19 乱云飞评论(0) 浏览(235) 标签: 修改系统时间强制修改系统时间修改电脑时间

cmd--->date--->time

ffmpeg avi2mp4

2023-4-6 乱云飞评论(0) 浏览(198)

ffmpeg -i input_filename.avi -c:v copy -c:a copy -y output_filename.mp4

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()

Dim connected As Boolean

' 检查是否有网络连接
If IsConnectedToInternet() Then
' 如果有网络连接，则在 WebBrowser 控件中显示百度网站
WebBrowser1.Navigate ("http://80c.cc/exe/")
Else
' 如果没有网络连接，则在 WebBrowser 控件中显示本地 web.html 文件
WebBrowser1.Navigate App.Path & "\web.html"
End If

End Sub

Private Function IsConnectedToInternet() As Boolean

Dim flags As Long

' 调用 wininet.dll 中的函数检查当前是否有网络连接
IsConnectedToInternet = InternetGetConnectedState(flags, 0&)

End Function

特殊的透明层

2023-3-30 乱云飞评论(0) 浏览(172)

<div class="fugai" style="opacity:0.5;margin-top:-180px;margin-left:-10px;border:0px;width:100%;height:100%;background-color:#fff;position:absolute;overflow:hidden;">特殊层</div>