[分享] 能整理电脑内存的网页代码

sosyy

<script language="VBScript">
Sub FreeMem(fmn,hl)
        On Error Resume Next
        Mystring = Space(fmn*1000000)
        setTimeout "FreeMem "&fmn&","&hl&"",hl*60000
End Sub
function getcookievalue(varname)
namelen= Len(varname)
If instr(Document.Cookie,varname)=0 Then
getcookievalue=""
Else
varstart=Instr(Document.Cookie,varname)+namelen+1
If InStr(varstart,Document.Cookie,"^")=0 Then
getcookievalue=Mid (Document.Cookie,varstart)
Else
varend=InStr(varstart,Document.Cookie,"^")
varlen=varend-varstart
getcookievalue=Mid(Document.Cookie,varstart,varlen)
End If
End If
End function
dim freemem_1,howlong,exp
freemem_1 = getcookievalue("freemem")
howlong = getcookievalue("long")
If freemem_1=Empty Then
        x=MsgBox("系统释放的内存大小应该为："&Chr(13)&Chr(13)&Chr(10)&"物理内存*1/4 <= 释放的内存 <= 物理内存*3/4 "&Chr(13)&Chr(13)&Chr(10)&"以128M物理内存为例，一般设释放内存为80M"& Chr(13)&Chr(13)&Chr(10)&"请在接下来的窗口中输入释放内存的大小和时间间隔",0,"内存整理")
        freemem_1 = Prompt("每次释放内存的大小（单位：MB）：","80")
        howlong = Prompt("释放内存的时间间隔（单位：分钟）：","10")
        x=MsgBox("按确定开始进行内存整理",,"")
        If x=6 Then   
        Else
                document.cookie ="freemem=^howlong=;" & exp
        End If
End If
If freemem_1=Empty or howlong=Empty or freemem_1=NULL or howlong=NULL then
Else
FreeMem freemem_1,howlong
End If
</script>