PersonalCorpus 版 (精华区)

寄信人: allen (Passive)
标  题: ft 掉了一次
发信站: 哈工大紫丁香 (2003年06月25日01:59:25 星期三)
来  源: 218.9.97.25 

num = InputBox("Num:")
For i=1 to num
STermScript.SendData(chr(3)+"asc"+chr(13)+"s"+chr(13)+chr(13)+"sasc"+
                     chr(13)+"$dy"+chr(13))
STermScript.SendData ("stest"+chr(13))
next

原理就是：转贴一篇文章到某个版，转贴不长文章数，然后去那个版把转贴的文章删掉
          删文章减文章数，如此往复，就清零了。

这个程序默认的版面是test和asciiart, 你可以在test随便发个帖子，然后把光标停在
帖子前面，然后运行这个script，就开始自动往asciiart转帖子，然后过去删除，再回来
转贴，再跑去删除，往复。。。。。

用法：存成一个.vbs的文件，名字随便，比如cleanme.vbs
      sterm菜单里script->run

--
  那是一个充满幻想的梦境，
      梦虽然很长，不变的是梦的结局——醒来。 

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 218.9.97.25]