LorDong's Blog

CuteFTP是比较常用的FTP上传下载工具，合理设置好传输选项可以提高上传下载的速度。

启用CuteFTP的智能覆盖可以跳过一些不变化的内容，从而减少上传下载的理，也就提高了速度。

下图是我的设置：

Read the rest of this entry »

上篇《PHP空间远程下载代码》解决了在远程PHP空间下载软件的问题，一般来说下载完并通过http方式把已下载到服务器的文件下载到本地后就要把远程服务器上的文件删除，通常情况是通过ftp连接到服务器上去删除对应的文件，可是有时没有使用FTP的条件怎么办？

我这里写了一个删除已经下载文件的PHP代码，跟上篇的downfile.php放在服务上同一个目录下即可，临时目录还是temp。

实现代码：
<?php
// folder to save downloaded files to. must end with slash
$destination_folder = ‘temp/’;

if (isset($_POST[‘submit’]))
Read the rest of this entry »

源码：

<form method=”post”>
<input name=”url” size=”50″ />
<input name=”submit” type=”submit”  value=”Download”/>
</form>

<?php
// maximum execution time in seconds
set_time_limit (24 * 60 * 60);
if (!isset($_POST[‘submit’])) die();

// folder to save downloaded files to. must end with slash
$destination_folder = ‘temp/’;

$url = $_POST[‘url’];
$newfname = $destination_folder . basename($url);
$file = fopen ($url, “rb”);
Read the rest of this entry »

常见的配色：

上黄－下白、前蓝－后绿、左橙－右红

 材料分类：
1、PET(纸质过胶)贴纸（如R记、东贤及国丙原配的），玩久了会脱皮褪色。玩家一般是不喜欢这种贴纸的。
2、PVC贴纸，就是广告店用的那种颜色贴纸，风吹雨打也不会褪色，魔友们一般喜欢这种贴纸，至于为何那些R记、东贤品牌魔方不用这种，据说是PVC贴纸不环保的原因。

单张得转贴法：
第一步：清理魔方表面的灰尘与油污！
    我们先把透明胶或转贴纸在魔方上反复做一个动作，贴上撕下，再贴上再撕下，这样做是为了把魔方表面的脏东西去除掉，使得我们贴上去的贴纸能更牢固。
第二步：贴贴纸！
    先把单个贴纸撕下来，把撕下来的贴纸的一个小角贴在边上。然后把单个贴纸摆放好位置后贴上，再把边角料抽走。

更多内容请参考：http://bbs.ztno.com/thread-8049-1-1.html

prototype LONG User32.SendMessageTimeout(HWND,LONG,LONG,LONG,LONG,LONG,LONG); 

//The SetEnvironmentVariable function sets the contents of the specified environment variable for the current process.
//This function has no effect on the system environment variables or the environment variables of other processes.
prototype BOOL KERNEL32.SetEnvironmentVariable(BYVAL STRING,BYVAL STRING);

#define WM_SETTINGCHANGE 0x1A
#define SMTO_ABORTIFHUNG 0x2   

prototype UpdateSystemPath(BOOL);
function UpdateSystemPath(bAdd)
    NUMBER nRootKey, nResult, nvSize, nvType;
    POINTER pParam, pResult;
    LONG lResult;
    STRING szParam, szPath, szWinDir; 
begin
    Disable(LOGGING);
   
    nRootKey = HKEY_LOCAL_MACHINE;
    if RegDBSetDefaultRoot(nRootKey) = 0 then   
        nvSize = 1; 
        nvType =  REGDB_STRING;
        nResult =  RegDBGetKeyValueEx("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment", "Path", nvType, szPath, nvSize); 
       
        szWinDir = WINDIR;
        StrRemoveLastSlash(szWinDir);
        StrReplace(szPath, "%SystemRoot%", szWinDir, 0);
       
        PathSet(szPath);
        if bAdd then
            PathAdd(TARGETDIR ^ "Bin", "", FULL, AFTER); 
        else
            PathDelete(TARGETDIR ^ "Bin", FULL);
        endif;
        PathGet(szPath);         
        RegDBSetKeyValueEx("SYSTEM\\ControlSet001\\Control\\Session Manager\\Environment", "Path", REGDB_STRING, szPath, -1);
       
        szParam     = "Environment";
        pParam      = &szParam;
        pResult     = &lResult;
        SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, pParam, SMTO_ABORTIFHUNG, 100, pResult);
       
        //set environment variable for current process
        SetEnvironmentVariable("PATH",szPath);
    endif;  
    Enable(LOGGING);
end;

// @param szVersion Version to check, e.g. "v2.0", "v3.5" and so on.

function DetectDotNet(szVersion)
    NUMBER nRootKey, nResult;
    LIST lstVersions;
    BOOL bRet;
    STRING szString;
begin
    bRet = FALSE;
    nRootKey = HKEY_LOCAL_MACHINE;
    lstVersions = ListCreate(STRINGLIST);
    if (lstVersions = LIST_NULL) then
        MessageBox ("Unable to create necessary lists.", SEVERE);
        abort;
    endif;
   
    if (RegDBSetDefaultRoot(nRootKey) = 0) then
        nResult = RegDBQueryKey("SOFTWARE\\Microsoft\\NET Framework Setup\\NDP",
            REGDB_KEYS, lstVersions);
        if (nResult = 0) then
            // Get the first string in the list.
            nResult = ListGetFirstString(lstVersions, szString);
   
            // Loop while list items continue to be retrieved.
            while (nResult != END_OF_LIST)
                // Detect the current element.
                if (StrFind(szString, szVersion) = 0) then
                    bRet = TRUE;
                    nResult = END_OF_LIST;  // Force to exit
                else
                    // Get the next string in the list.
                    nResult = ListGetNextString(lstVersions, szString);
                endif;
            endwhile;
        endif;
    endif;
   
    ListDestroy(lstVersions);  

    return bRet;
end;

无人值守安装.Net Framework 3.5的批处理脚本（传入参数是dotnetfx35.exe所在的绝对目录，解决自动连网下载的问题）：

@echo off
setlocal

set INSTALLER31="%~1WindowsInstaller-KB893803-v2-x86.exe"
set DOTNETFX35="%~1dotnetfx35.exe"
set NDP35SP1="%~1NDP35SP1-KB958484-x86.exe"

echo Installing %INSTALLER31%
%INSTALLER31% /quiet /norestart /nobackup

echo Extracting %DOTNETFX35%
%DOTNETFX35% /x:%TEMP% /passive

cd /d "%TEMP%\wcu\dotNetFramework"

echo Installing dotNetFx35setup.exe
dotNetFx35setup.exe /lang:ENU /norestart /passive

echo Removing extracted files
cd /d "%TEMP%"
rd /s /q wcu

echo Installing %NDP35SP1%
%NDP35SP1% /norestart /passive

endlocal