2014年11月24日 星期一

to periodically Search file in php on web pages


<   ? php
$url = 'http://www.example.com.tw/it/unnessaryfile.doc';
$array = get_headers($url);
$string = $array[0];
if(strpos($string,"200"))
  {
    echo 'url exists';
    $myfile = fopen("C:/Users/%username%/Desktop/Server_found_unnessaryfile.txt", "w") or die("Unable to open file!");
    $txt = "請檢查Server,同步到非必要檔案至網頁?????????\n";
    fwrite($myfile, $txt);
    fclose($myfile);
  }
  else
  {
    echo 'url does not exist';
  }
?  >
 上面網頁存成 URLCheck.php



存成ServerFileCheck.bat檔,讓開機時,自動呼叫執行  URLCheck.php  ,每天開機時自動檢查,是否有多餘非必要檔案(Server_found_unnessaryfile.txt)。

%comspec% /c php "E:\Apache\htdocs\URLCheck.php" 




開機啟動執行機碼,自動呼叫執行  E:\ServerFileCheck.bat
REG ADD "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /V "URLCheck_php" /t REG_SZ /F /D "E:\ServerFileCheck.bat"



Search files in VBS

Set wshNetwork = WScript.CreateObject("Wscript.Network")
'設定電腦名稱參數,供追蹤使用
strComputerName =wshNetwork.ComputerName

Set objFSO = CreateObject("Scripting.FileSystemObject")

'將問題檔案資訊及該台電腦名稱,紀錄於\\PublicFolder公用資料夾中
If objFSO.FileExists("c:\bugex1.dll") Then
   set objFile = objFSO.CreateTextFile("\\Publicfolder\" & strComputerName & "_bugex1")
   Wscript.Echo "Found Bugex1 !"
'查其他問題檔案
Elseif objFSO.FileExists("c:\bugex2.xd") then
   set objFile = objFSO.CreateTextFile("\\Publicfolder\" & strComputerName & "_bugex2")
   Wscript.Echo ""Found Bugex2 !""
else
   Wscript.Echo "Congratulation! Bugs not Found ^_^.."
End If

set wshNetwork = nothing
set strComputerName =nothing
set objFSO = nothing
set objFile = nothing
WScript.Sleep 3000
Wscript.Quit

2014年11月16日 星期日

show all characters

複製文字片段程式,看起來是空白,實際上卻可能為TAB或 換行 CRLF,要如何檢視?
可透過  (開放源碼)NOTEPAD++ 工具,
檢視  |  特殊字元 |  顯示所有字元 。

相關查詢:
show all characters spaces tabs cr lf  
NOTEPAD++  制御文字をすべて表示