MessageBox "欢迎使用一键网络清理v1.0测试版"
VBSCall RunApp("notepad.exe")
SayString "欢迎使用一键网络清理"
Delay 1000
KeyPress 13,1
SayString "请问是否清理IE历史记录,临时文件,以及COOKIE"
KeyPress 13,1
SayString "按任意键接着"
WaitKey 
KeyPress 13,1
SayString "是的话按enter,否的话按其他键"
WaitKey a
If a=13
    KeyPress 13,1
    SayString "请稍等"
    //一键清理网络使用痕迹
    //下面这句是清除IE历史记录
    Plugin Web.ClearHistory()
    KeyPress 13,1
    SayString "IE历史记录清理成功"
    //下面这句是删除IE临时文件
    KeyPress 13,1
    SayString "下面开始IE历史纪录清空,此过程会很长"
    Plugin Web.ClearTemp()
    KeyPress 13,1
    SayString "ie临时文件清理成功"
    //下面这句是删除IE的Cookie
    KeyPress 13,1
    SayString "下面开始IEcookie清理,此过程会很长"
    Plugin Web.ClearCookie()
    KeyPress 13,1
    SayString "ie的COOKIE清楚成功"
    KeyPress 13,1
    SayString "成功!按任意键结束"
    WaitKey 
    KeyDown 18,1
    KeyPress 115,1
    KeyUp 18,1
    KeyPress 39,1
    KeyPress 13,1
Else 
    KeyPress 13,1
    SayString "你按了其它键,终止清理,按任意键结束"
    WaitKey 
    KeyDown 18,1
    KeyPress 115,1
    KeyUp 18,1
    KeyPress 39,1
    KeyPress 13,1
EndIf