複製代碼 代碼如下:Function fDecode(sStringToDecode) 'This function will decode a Base64 encoded string and returns the decoded string. 'This becomes usefull when attempting to hide passwords from prying eyes. Const CharList =
將下面的內容儲存為sqlreboot.bat,然後添加到計劃任務裡,就可以實現一段時間後重啟sqlserver伺服器了,防止sqlserver經常佔用記憶體過高,導致網頁無法開啟資料。 複製代碼 代碼如下:net stop sqlserveragent net stop mssqlserver echo.wscript.sleep(50000)>s.vbs cscript //nologo s.vbs del s.vbs net start mssqlserver net
Dim xStatus,tStatus,vServer,vHeader,vRsBody GetError=InputBox("請輸入網站,例如:http://www.hackerxfiles.com/files/list.asp?id=415","請輸入網址","http://www.hackerxfiles.com/files/list.asp?id=415") If GetError = "" Then MsgBox("輸入錯誤,程式結束!") WScript.Quit End If
複製代碼 代碼如下:'code BY 傷腦筋 www.ntbak.cn www.jb51.net'copy to filename.vbs dim num,var,fso,wsh,pathname num = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,"+_ "V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,"+_ "F7,F8,F9,F10,F11,F12" var = Split(num,
這個組件在xp、2003上預設都可以用的,調用後可以聽到電腦上一個國外老男人在說話。好比這樣一句代碼:●CreateObject("SAPI.SpVoice").Speak "I LOVE YOU"●,儲存成vbs尾碼後雙擊就會聽到英語的我愛你了。但隨之而來我們講到另一個問題,不儲存成vbs或vbe尾碼如何運行vbs代碼。 一、用mshta來運行vbs hta這種類型的檔案運行後也是系統許可權,其調用宿主就是mshta.exe。我們在cmd下運行這樣一行代碼:●mshta
// 排序:向上移動 function Up() ...{ var sel=document.getElementById("selectCheck"); //擷取select var nIndex = sel.selectedIndex; //需要進行操作的select 項的索引 var nLen = sel.length; //select 總共項目數 if ((nLen<
壓縮: Function fZip(sSourceFolder,sTargetZIPFile) 'This function will add all of the files in a source folder to a ZIP file 'using Windows' native folder ZIP capability. Dim oShellApp, oFSO, iErr, sErrSource, sErrDescription Set oShellApp =