编程开发Blog

易语言_互联网浏览器1.取网页文档对象

Thu, 20 Feb 2025 15:01:18 +0800

.版本 2
.支持库 WebBrowser2
.支持库 spec
.支持库 iext

.子程序 子程序2
.局部变量 局对象_document, 对象
.局部变量 局对象_parentWindow, 对象, , , parentWindow:前窗口的父窗口
.局部变量 局_JavaScript_, 文本型
.局部变量 局_document_cookie, 文本型
.局部变量 局_url, 文本型

互联网浏览器1.取网页文档对象 (局对象_document)
.如果真 (局对象_document.取错误 () ≠ “”)
    局对象_document.清除 ()
    调试输出 (“局对象_document ”, 局对象_document.取错误 ())
    状态条1.置文本 (0, 局对象_document.取错误 ())
    互联网浏览器1.刷新 ()
    返回 ()
.如果真结束
局_url ＝ 局对象_document.读文本属性 (“url”, )
局_document_cookie ＝ 局对象_document.读文本属性 (“cookie”, )
调试输出 (局_url, 局_document_cookie)
局对象_parentWindow ＝ 局对象_document.读对象型属性 (“parentWindow”, )

php列出目录下所有文件

Sun, 01 Apr 2018 20:24:59 +0800

<?php
   $num=0;    //用来记录目录下的文件个数
   $dirname='./'; //要遍历的目录名字
   $dir_handle=opendir($dirname);

   echo '<table border="1" align="center" width="960px" cellspacing="0" cellpadding="0">';
   echo '<caption><h2>目录'.$dirname.'的内容</h2></caption>';
   echo '<tr align="left" bgcolor="#cccccc">';
   echo '<th>序号</th><th>名称</th><th>大小</th><th>类型</th><th>修改时间</th></tr>';
   while($file=readdir($dir_handle))
   {
        if($file!="."&&$file!="..")
        {
            $dirFile=$dirname."/".$file;
            if($num++%2==0)    //隔行换色
                $bgcolor="#ffffff";
            else 
                $bgcolor="#cccccc";
            echo '<tr bgcolor='.$bgcolor.'>';
            echo '<td>'.$num.'</td>';//序号
            echo '<td><a href="'.$file.'" target="_blank">'.$file.'</a></td>'; //名称 链接
            echo '<td>'.filesize($dirFile).'</td>';//大小
            echo '<td>'.filetype($dirFile).'</td>';//类型
            echo '<td>'.date("Y/n/t",filemtime($dirFile)).'</td>';//修改时间
            echo '</tr>';
        }
   }
   echo '</table>';
   closedir($dir_handle);
   echo '在<b>'.$dirname.'</b>目录下的子目录和文件共有<b>'.$num.'</b>个';
?>

易语言_取自身文件md5值

Sun, 01 Apr 2018 20:23:48 +0800

.版本 2
.支持库 spec
.支持库 dp1

.子程序 _按钮1_被单击
.局部变量 字节集, 字节集

字节集 ＝ 读入文件 (取执行文件名 ())
调试输出 (取数据摘要 (字节集))
信息框 (取数据摘要 (字节集), 0, , )

无痕浏览小号窗口_360隐身浏览窗口_2345浏览器创建快捷方式

Sun, 01 Apr 2018 20:06:58 +0800

首先浏览器需要支持无痕浏览、隐身模式、隐私窗口功能。

如:

—incognito

-private

在桌面创建快捷方式(空格)后加参数

2345浏览器：

"C:\Program Files (x86)\2345Soft\2345Explorer\2345Explorer.exe" --incognito

360Chrome急速浏览器：

“C:\Users\Administrator\AppData\Local\360Chrome\Chrome\Application\360chrome.exe” --incognito

火狐浏览器：

"C:\Program Files\Mozilla Firefox\firefox.exe" -private

QQ浏览器：

"C:\Program Files (x86)\Tencent\QQBrowser\qqbrowser.exe" -sc=desktopshortcut -fixlaunch=0 --incognito

后面还可以加入自己需要打开的网站：

"C:\Program Files (x86)\2345Soft\2345Explorer\2345Explorer.exe" --shortcut=quicklaunch --incognito https://luoliang.com.cn/?23

"C:\Program Files (x86)\2345Soft\2345Explorer\2345Explorer.exe" --shortcut=desktop --incognito https://luoliang.com.cn/?23

C:\Users\Administrator\AppData\Local\360Chrome\Chrome\Application\360chrome.exe --incognito https://luoliang.com.cn/?23

"C:\Program Files (x86)\Tencent\QQBrowser\qqbrowser.exe" -sc=desktopshortcut -fixlaunch=0 --incognito https://luoliang.com.cn/?23

"C:\Program Files\Mozilla Firefox\firefox.exe" -private https://luoliang.com.cn/?23

PHP上传文件自定义重命名

Sun, 01 Apr 2018 20:05:41 +0800

<!DOCTYPE html> 
<html> 
<head> 
<meta charset="utf-8" /> 
<title>上传v0.1 - 紫游</title>
</head> 
<body align = "center"> 
上传默认2M (100M=104857600) <br /> 
根据大小命名+原始名称，覆盖文件。<br /> 
类型"jpg","png","ico","bmp","gif","psd",<br /> 
"tif","tga","txt","zip","rar","7z","gz",<br /> 
"mp3","wav","m4a","mp4","3gp"<br /> 
<br /> 
<form enctype="multipart/form-data" method="post">
<label for="file">请选择上传的文件</label><br /> 
<input type="file" name="file" size="40" />
<input type="submit" name="submit" value="确定" />
</form><br />
</body>
<?php
//例子说明：
//该例子只是简单演示了文件上传的流程，请勿直接用于实际项目
//该例子中缺少对用户权限的检查
//如果上传后的文件没有做重命名，则需要做文件重名时的逻辑处理
//写入数据表文件信息由于涉及到数据库操作，暂略。写入数据表的信息应该包括文件上传的时间，上传的用户ID以及存储的位置，以便清理上传无效的文件以及文件过期管理等
//无提交校验，要防止远程提交，可以在表单生成页面产生一个会话ID，然后在upload.php页面做校验以防止远程提交
//配置php.ini文件(以20M以下大小的文件为例） 
//查找以下选项并修改-> 
//file_uploads = On ;
//打开文件上传选项 
//upload_max_filesize = 20M ;
//上传文件上限 
//如果要上传比较大的文件，必须把服务器缓存上限调大，把脚本最大执行时间变长 
//post_max_size = 20M ;post上限 
//max_execution_time = 1800 ; 脚本最大执行时间 
//max_input_time = 1800 ; 脚本请求解析的最大时间
//memory_limit = 128M ;(128MB)内存上限
//
//'访问者端口:'.0.0.0.0:00000
$VisitorPort = $_SERVER['REMOTE_ADDR'].':'.$_SERVER['REMOTE_PORT'];
echo $VisitorPort.'</br>';

//127.0.0.1:2016/u/uploads
$addrPorturl = 'http://'.$_SERVER['SERVER_NAME'].':2016'.$_SERVER['SCRIPT_NAME'];
$urllujingaddrPorturl = pathinfo($addrPorturl,PATHINFO_DIRNAME);

//只取路径 http://127.0.0.1//u/uploads
$urllujing = 'http://'.$_SERVER['SERVER_NAME'].$_SERVER["REQUEST_URI"]; 
//$urllujing1 =  dirname($urllujing);
$urllujingDIRNAME = pathinfo($urllujing,PATHINFO_DIRNAME);
$urllujingBASENAME = pathinfo($urllujing,PATHINFO_BASENAME);
$urllujingEXTENSION = pathinfo($urllujing,PATHINFO_EXTENSION);
$urllujingFILENAME = pathinfo($urllujing,PATHINFO_FILENAME);
//echo '路径:'.$urllujingDIRNAME.'<br />';
//echo '文件名:'.$urllujingBASENAME.'<br />';
//echo '后缀:'.$urllujingEXTENSION.'<br />';
//echo '名称:'.$urllujingFILENAME.'<br />';

//取服务器IP端口 127.0.0.1:80
$SERVERIPport = $_SERVER["SERVER_ADDR"].':'.$_SERVER["SERVER_PORT"]; 

//文件存储路径
$file_path="upload/";
//664权限为文件属主和属组用户可读和写，其他用户只读。
if(is_dir($file_path)!=TRUE) mkdir($file_path,0664) ;
//定义允许上传的文件扩展名
$ext_arr = array("jpg","png","ico","bmp","gif","psd","tif","tga","txt","zip","rar","7z","gz","mp3","wav","m4a","mp4","3gp","e");

if (empty($_FILES) === false) {
    //判断检查
    if($_FILES['file']['size'] > 2097152){
        exit("对不起，您上传的照片超过了2M=2097152");
    }
    if($_FILES["file"]["error"] > 0){
        exit("错误：".$_FILES["file"]["error"]);
        //值：0; 没有错误发生，文件上传成功。   
        //值：1; 上传的文件超过了 php.ini 中 upload_max_filesize 选项限制的值。   
        //值：2; 上传文件的大小超过了 HTML 表单中 MAX_FILE_SIZE 选项指定的值。   
        //值：3; 文件只有部分被上传。   
        //值：4; 没有文件被上传。
    }
    //检测是否包含字符串同时替换多个关键词 
    $neirong = $_FILES["file"]["name"]; 
    $nrchazhao = array('?','？','#','@','<','=','>','&','^',' (','）',' ','-','__','——');  //数组 被替换的 ,'《','》'
    $nrtihuan = array('_','_','_','_','_','_','_','_','_','(',')','_','_','_','_');  //数组  替换后的
    $nrjieguo = str_replace($nrchazhao,$nrtihuan,$neirong,$ii);    //字符串 替换后的名称
    //---结束检测是否包含字符串同时替换多个关键词 

    //上传的文件名名称
    $FILESname = $nrjieguo;
    //文件字节大小
    $FILESsize = $_FILES['file']['size'];

//echo "名称: " . $_FILES["file"]["name"] . "<br />";
//echo "类型: " . $_FILES["file"]["type"] . "<br />";
//echo "大小: " . ($_FILES["file"]["size"] / 1024) . " Kb<br />";
//echo "临时名称: " . $_FILES["file"]["tmp_name"]."<br /> ";

    //获得文件扩展名
    $temp_arr = explode(".", $FILESname);
    $file_ext = array_pop($temp_arr);
    $file_ext = trim($file_ext);
    $file_ext = strtolower($file_ext);
//echo $FILESsize."<br /> ";
//echo $file_ext."<br /> ";
    //检查扩展名
    if (in_array($file_ext, $ext_arr) === false) {
        exit("上传的文件类型不支持。");
    }

    //1.以时间戳重命名文件
    $new_name = time().".".$file_ext;
    //2.根据文件字节大小加名称
    $size_name = $FILESsize."_".$FILESname;

    //将命名文件移动到存储目录下
    //move_uploaded_file($_FILES["file"]["tmp_name"],"$file_path" . $new_name);
    move_uploaded_file($_FILES["file"]["tmp_name"],"$file_path" . $size_name);
    //向数据表写入文件存储信息以便管理

    echo "\n文件上传成功！","<br /> \n";
    //完整路径
    $Geaddress = $urllujingaddrPorturl.'/'.$file_path.$size_name;
    echo 'URL:<a href="'.$Geaddress.'" target="_blank">'.$Geaddress.'</a><br />';  
    exit;
} else {
    echo "上传文件不正确，请检查。";
}

?>

php替换字符串中的字符str_replace()

Sun, 01 Apr 2018 20:04:48 +0800

<?php
//例子说明：

//检测是否包含字符串同时替换多个关键词 
$neirong = 'php是世界上最好的语言，这是梗？'; 
$nrchazhao = array('这','是','梗','？');  //数组 被替换的
$nrtihuan = array('正','确','！','！');  //数组  替换后的
$nrjieguo = str_replace($nrchazhao,$nrtihuan,$neirong,$ii);    //字符串 替换后的名称
echo $nrjieguo;//结果
//---结束检测是否包含字符串同时替换多个关键词 
?>

让typecho的首页只显示摘要和文章的数量

Sun, 01 Apr 2018 20:01:11 +0800

登录到后台-控制台-外观-编辑当前外观：
编辑文件 archive.php
编辑文件 index.php

1、修改这两处分别找到:

/* 默认显示的是全文 */
<?php $this->content('- 阅读剩余部分 -'); ?>

2、替换成(概要取300字)：

/* 自定义输出，如 300个字符 */
<?php $this->excerpt(300,'- 阅读剩余部分 -'); ?>

修改typecho首页显示文章的数量:
编辑文件 functions.php
在末尾添加:

/* 自定义首页文章分布数量，如 10 */
function themeInit($archive) {
if ($archive->is('index')) {
$archive->parameter->pageSize = 10;
}
}

在线扫描文件引擎(20180306网络收集)

Tue, 06 Mar 2018 22:36:00 +0800

在线扫描文件引擎(20180306网络收集)
一、可疑文件扫描：
1.VirSCAN(不支持https)
http://virscan.org/
2.VirusTotal
https://www.virustotal.com/
3.Jotti's malware scan
https://virusscan.jotti.org/
4.AVG在线分析
https://secure.avg.com/submit-sample
5.Metascan在线分析
https://metadefender.opswat.com/#!/
6.百度移动安全实验室(限安卓，不支持https)
http://scan.safe.baidu.com/html/scan.html
7.Avira可疑文件扫描
https://analysis.avira.com/en/submit
8.ThreatExpert在线分析(不支持https)
http://www.threatexpert.com/submit.aspx
9.哈勃、
https://habo.qq.com/
10.Dr.Web(点右边女性头像)
https://vms.drweb.com/online/?lng=en
11.FortiGuar
https://fortiguard.com/faq/onlinescanner
12.F-PROT Antivirus(居然还能FTP上传)
https://kb.cyren.com/av-support/?/Knowledgebase/Article/View/197/0/submit-files-for-analysis
13.IObit Cloud
https://cloud.iobit.com/

二、可疑网站在线扫描：

1.Dr.Web online scan(不支持https)
http://online.us.drweb.com/?url=1
2.还是Dr.Web(跟上面扫描文件的网址一样的)
https://vms.drweb.com/online/?lng=en
3.Norton Safeweb
https://safeweb.norton.com/
4.360网站安全检测(还是用http吧)
http://webscan.360.cn/
5.Avira可疑网址扫描
https://analysis.avira.com/en/submit-urls

bat文件权限everyone操作

Sun, 25 Feb 2018 15:15:47 +0800

@echo off
color 9f
title 文件权限操作选择
mode con cols=36 lines=10
if exist "%windir%\System32\choice.exe" goto a
cls
:c
echo      [1]添加everyone权限
echo      [2]解除everyone权限
echo      [3]退出
echo.
set /p d=请输入:
if %d%==1 goto 2
if %d%==2 goto 1
if %d%==x exit
clsnul&cls&goto c
:a
echo      [1]添加everyone权限
echo      [2]解除everyone权限
echo      [3]退出
echo.
choice /c 123 /m 请选择
if errorlevel 1 if not errorlevel 2 goto 2
if errorlevel 2 if not errorlevel 3 goto 1
if errorlevel 3 exit
clsnul&cls&goto a
:2
cls
title 添加权限
echo (可拖放文件或文件夹)
set /p p=输入：
echo Y|cacls %p% /T /C /p everyone:n>nul 2>nul
exit
:1
cls
title 解除权限
echo (可拖放文件或文件夹)
set /p p=输入：
echo Y|cacls %p% /T /C /P everyone:f>nul 2>nul
exit

优化清理逍遥模拟器log日志

Sun, 25 Feb 2018 14:55:33 +0800

清理删除本目录下所有log日志信息。

@ECHO OFF&PUSHD %~DP0 &TITLE 优化
::设置变量或路径
set num=0
set Mpath="%~dp0"
set MemuHypervPath="%USERPROFILE%\.MemuHyperv\"
set MEmuPath="D:\Program Files\Microvirt\MEmu\MemuHyperv VMs\"
::goto LogAll
::删除计次%num%
:Delnum0010
set /a num+=1
::删除log.带数字。
del /s /q /f %MemuHypervPath%MEmuSVC.log.%num% 2>nul
del /s /q /f %MEmupath%MEmu.log.%num% 2>nul
::如果.10那么下跳。
if "%num%"=="10"  goto LogDel&&echo.完成%num%啦！
goto Delnum0010
::删除指定路径下Log以及prev配置。
:LogDel
del /s /q /f %MemuHypervPath%*.xml-prev 2>nul
del /s /q /f %MemuHypervPath%*.log 2>nul
del /s /q /f %MEmupath%*.log 2>nul
del /s /q /f %MEmupath%*.memu-prev 2>nul
::结束进程，删除本路径下所有log。
:LogAll
taskkill /f /im *Update.exe >NUL 2>NUL
::del /s /q /f %Mpath%*.cfg 2>nul
del /s /q /f %Mpath%*.log 2>nul
::ping -n 3 10>nul 2>nul
exit