TestScript/pro1.vbs

   1 '----------------------------------
   2 '  \8f\89\8aú\89»\83t\83@\83C\83\8b INI\81@\82Ì\83A\83N\83Z\83X
   3 '----------------------------------
   4 ' \8eÀ\8ds\82·\82é\82ÆINI\83t\83@\83C\83\8b\82Ì\95Û\91¶\90æ\82ð\96K\82Ë\82Ä\82«\82Ü\82·
   5 ' \8ew\92è\82·\82é\82Æ\88È\91O\82ÌINI\83t\83@\83C\83\8b\82Ì\93à\97e\82ð\89Á\8eZ\82µ\82Ü\82·\81B
   6 ' \89Á\8eZ\82³\82ê\82é\82Æ\8c\8b\89Ê\82ð\83\81\83\82\92 \82Å\8aJ\82«\82Ü\82·
   7
   8 dim obj,shl
   9 set obj = createobject("SeraphyScriptTools.privateprofile")
  10 set shl = createobject("SeraphyScriptTools.Shell")
  11 set dlg = createobject("SeraphyScriptTools.commdialog")
  12
  13 obj.profilepath = "c:\test.ini"
  14 do
  15         obj.profilepath = dlg.savefiledialog(obj.profilepath)
  16         if(len(obj.profilepath) <= 0) then exit do
  17         dim sec
  18         set sec = obj.opensection("TEST_SECTION1")
  19         sec.value("VALUE1") = sec.value("VALUE1") + 1
  20         sec.value("VALUE2") = sec.value("VALUE2") + 10
  21         set sec = obj.opensection("TEST_SECTION2")
  22         sec.value("VALUE1") = sec.value("VALUE1") + 100
  23         sec.value("VALUE2") = sec.value("VALUE2") & "ABC"
  24         dim array,mes
  25         array = sec.GetSectionNames()
  26         for each x in array
  27                 mes = mes & "," & x
  28         next
  29         msgbox mes
  30         shl.ShellExecute("notepad.exe",obj.profilepath).wait -1
  31 loop
  32
  33
  34