批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[转贴] 用VBS脚本自己动手做备忘录

前天早上的时候,手机突然响了起来,拿起来一看原来是以前设置的备忘-->提醒我两天后有分报告要交。。。然后又突然想到自己用vbs+html也可以做个自己的备忘录...
现在这个程序已经写好了,现在来和大家一起分享...

这个程序一共有4个文件edit.vbs,main.vbs,setup.vbs和main.hta

edit.vbs的源代码如下:
  1. Sub edit_file(filename,file_doc)
  2. Dim FSO,file
  3. Set FSO = CreateObject("SCripting.FileSystemObject")
  4. Set file=FSO.CreateTextFile("C:\我的备忘录\data\" & FormatDateTime(filename,2) & ".txt",1,False)
  5. file.Write file_doc
  6. file.Close
  7. Set file = Nothing
  8. Set FSO = Nothing
  9. End Sub
复制代码


main.vbs的源代码如下:
  1. Dim FSO,Folder,File,str,file1
  2. Set FSO = CreateObject("Scripting.FileSystemObject")
  3. Set Folder=FSO.GetFolder("C:\我的备忘录\data")
  4. For Each File In Folder.Files
  5. If Date() & ".txt" = File.Name Then
  6.   Set file1=FSO.OpenTextFile(File.Path,1,true)
  7.   str=file1.readall()
  8.   MsgBox str,vbOKOnly,Date() & " 的备忘"
  9.   file1.Close
  10.   Set file1=Nothing
  11. End If
  12. Next
  13. Set Folder=Nothing
  14. Set FSO=Nothing
复制代码


setup.vbs的源代码如下:
  1. On Error Resume Next
  2. Dim FSO,WshShell
  3. Set FSO=CreateObject("Scripting.FIleSystemObject")
  4. FSO.CreateFolder("C:\我的备忘录")
  5. FSO.CreateFolder("C:\我的备忘录\Data")
  6. FSO.CopyFile "main.vbs","C:\我的备忘录\"
  7. FSO.CopyFile "main.hta","C:\我的备忘录\"
  8. FSO.CopyFile "edit.vbs","C:\我的备忘录\"
  9. Set WshShell = CreateObject("WScript.Shell")
  10. WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\备忘录","C:\我的备忘录\main.vbs"
  11. Set FSO = Nothing
  12. Set WSHSHELL=CreateObject("WSCript.SHELL")
  13. strDesktop = WshShell.SpecialFolders("Desktop")
  14. Set SC = wshshell.CreateShortcut(strDesktop & "\备忘录.lnk")
  15. SC.TargetPath="C:\我的备忘录\main.hta"
  16. SC.IconLocation="%SystemRoot%\system32\SHELL32.dll,41"
  17. SC.Description = "By 小朋友※乞丐"
  18. SC.Hotkey = "CTRL+SHIFT+F"
  19. SC.save
  20. If MsgBox("By 小朋友※乞丐" & vbNewLine & "QQ:229774166" & vbNewLine & vbNewLine & "是否访问其个人博客?",1,"安装完毕") = vbOK Then
  21. CreateObject("WSCript.SHELL").Run("http://hangzhou492.blog.51cto.com")
  22. End If
复制代码
main.hta的源代码如下:
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  2. <HTML>
  3. <HEAD>
  4. <TITLE> New Document </TITLE>
  5. <hta:application sysmenu=no maximizebutton=no icon=%systemroot%\system32\cmd.exe>
  6. </HEAD>
  7. <SCRIPT LANGUAGE="vbscript" src="edit.vbs"></SCRIPT>
  8. <script language="vbscript">
  9. </script>
  10. <BODY onload="VBSCRIPT:bt.value=date()">
  11. <H2><CENTER><B>写备忘</B></CENTER></H2>
  12. <CENTER><TABLE>
  13. <TR>
  14.     <TD><input id=bt type=text size=40></TD>
  15. </TR>
  16. <TR>
  17.     <TD><textarea id=zw cols=40 rows=20></textarea></TD>
  18. </TR>
  19. </TABLE></CENTER>
  20. </BODY>
  21. <center>
  22. <input type=button value="保存" edit_file(bt.value,zw.value)">
  23. <input type=button value="关闭" onclick="VBScript:self.close">
  24. </center>
  25. </HTML>
复制代码

我已经上传了源代码,安装的时候只要直接运行setup.vbs就可以了,安装的时候程序会在C盘下建立一个文件夹,同时在桌面上创建快捷方式,还有就是杀毒软件可能会报告,应为里面涉及到了添加注册表启动项的代码...

http://hangzhou492.blog.51cto.com/67690/39915

求附件

TOP

返回列表