Board logo

标题: [转贴] 用VBS脚本自己动手做备忘录 [打印本页]
作者: VBScript    时间: 2012-4-26 20:32     标题: 用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
作者: lky216    时间: 2012-6-25 14:54

求附件



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2