• 能实现回帖后自动关闭标签么?[解决]
    1, 2

#1 能实现回帖后自动关闭标签么?[解决]

转论坛,一般都是后台打开连接,然后看看 回帖~

每次回帖都要自己一个一个关闭,累啊...........

请问怎么做可以实现 回帖以后自动关闭标签呢?

代码如下

那大概这样就行了吧？
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WScript.Sleep 100
WshShell.SendKeys "^{enter}"
WScript.Sleep 200
WshShell.SendKeys "^w"

我瞎猜说，Sleep 200可能是延时200毫秒的意思。
猜对了就是天才，猜错了也没有责任。
最后由 龙2009 编辑于 2009-05-10 0:49，总共编辑了 2 次
龙2009

Opera 2.0
UID: 46907
帖子: 89
在线状态:离线
注册时间: 2009-05-05 14:09
发表时间: 2009-05-07 12:02
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首

点此下载 Opera Mini - 全球使用量最多的手机浏览器

#2 Re: 能实现回帖后自动关闭标签么?

楼主真有创意,我也关注一下
byceen

Opera 7.52
UID: 7373
帖子: 1606
地址: FJ-0595
在线状态:离线
注册时间: 2007-11-15 21:43
发表时间: 2009-05-07 12:11
您的首选浏览器是: Opera
为什么选择 Opera: 不知道为什么,用起来就是爽!!
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.0页首

#3 Re: 能实现回帖后自动关闭标签么?

byceen 写道:楼主真有创意,我也关注一下

呵呵 灌水有点多,看到OP哪么强大,所以有此想法了
龙2009

Opera 2.0
UID: 46907
帖子: 89
在线状态:离线
注册时间: 2009-05-05 14:09
发表时间: 2009-05-07 12:24
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首

#4 Re: 能实现回帖后自动关闭标签么?

回完贴后可以选择关闭全部标签啊
18green

Opera 7.52
UID: 36216
帖子: 1837
在线状态:离线
注册时间: 2008-12-27 12:45
发表时间: 2009-05-07 12:34
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.1页首

#5 Re: 能实现回帖后自动关闭标签么?

USER JS..............
丹丹

Opera 7.0
UID: 12765
帖子: 1341
在线状态:离线
注册时间: 2008-01-10 11:04
发表时间: 2009-05-07 12:37
　　　　 ／＼　　　　Proxomitron之应用展示
　 　　 ／　 ＼　　　PtronGUI - Proxomitron美化增强版
　 　／ ＜●＞ ＼　　sidki config 2009-02-13 beta
　／　　 V　　　＼
Opera/10.00 (Windows NT 5.1; U)页首

#6 Re: 能实现回帖后自动关闭标签么?

byceen 写道:楼主真有创意,我也关注一下

同关注
楼主的想法不错
Nova

Opera 5.0
UID: 44109
帖子: 406
在线状态:离线
注册时间: 2009-04-02 9:24
发表时间: 2009-05-07 12:50
您的首选浏览器是: Firefox
为什么选择 Opera: 试试
Opera/10.00 (Windows NT 6.0; U; zh-cn) Presto/2.2.2页首

#7 Re: 能实现回帖后自动关闭标签么?

创意不错，显然要网站支持，不然用js的话可能会有副作用的。
opera_888

头像
论坛版主
UID: 1589
帖子: 441
地址: 江苏
在线状态:离线
注册时间: 2007-09-15 19:27
发表时间: 2009-05-07 13:12
Opera/9.62 (Windows NT 5.1; U; zh-cn) Presto/2.1.1页首

#8 Re: 能实现回帖后自动关闭标签么?

有想法，我也想要
tanfeiqiang

Opera 4.0
UID: 45742
帖子: 205
在线状态:离线
注册时间: 2009-04-20 21:05
发表时间: 2009-05-07 14:02
您的首选浏览器是: Opera
Opera/10.00 (Windows NT 6.1; U; zh-cn) Presto/2.2.2页首

#9 Re: 能实现回帖后自动关闭标签么?

那要是回帖后还要继续盖楼咋办呢。。
s2q1984

头像
Opera 8.0
UID: 27201
帖子: 2664
在线状态:离线
注册时间: 2008-09-06 18:05
发表时间: 2009-05-07 14:06
您的首选浏览器是: Opera
为什么选择 Opera: 一般人儿我不告诉他~
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首

#10 Re: 能实现回帖后自动关闭标签么?

都是让Opera给惯的啊，用js估计能行，论坛支持更好，嘿嘿。
亡灵法师

头像
论坛版主
UID: 12
帖子: 2941
地址: http://stock.ixiezi.com
在线状态:离线
注册时间: 2007-07-30 21:32
发表时间: 2009-05-07 15:08
您的首选浏览器是: Opera
为什么选择 Opera: 速度够快，强大而简单的自定义。
Opera/9.63 (Windows NT 5.1; U; EDITON IBIS; zh-cn) Presto/2.1.1页首

#11 Re: 能实现回帖后自动关闭标签么?

s2q1984 写道:那要是回帖后还要继续盖楼咋办呢。。

这个~~~~~~~~~~ 就取消按钮好了
龙2009

Opera 2.0
UID: 46907
帖子: 89
在线状态:离线
注册时间: 2009-05-05 14:09
发表时间: 2009-05-07 16:33
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首

#12 Re: 能实现回帖后自动关闭标签么?

回帖后按下Ctrl + W
这算不算?

额... 好像不是自动...
卢颖昱

头像
Opera 1.0
UID: 15871
帖子: 40
在线状态:离线
注册时间: 2008-02-12 4:49
发表时间: 2009-05-07 17:47
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
Opera/10.00 (Windows NT 6.1; U; zh-cn) Presto/2.2.2页首

#13 Re: 能实现回帖后自动关闭标签么?

卢颖昱 写道:回帖后按下Ctrl + W
这算不算?

额... 好像不是自动...


那还不如用鼠标手势
byceen

Opera 7.52
UID: 7373
帖子: 1606
地址: FJ-0595
在线状态:离线
注册时间: 2007-11-15 21:43
发表时间: 2009-05-07 18:17
您的首选浏览器是: Opera
为什么选择 Opera: 不知道为什么,用起来就是爽!!
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.0页首

#14 Re: 能实现回帖后自动关闭标签么?

byceen 写道:
卢颖昱 写道:回帖后按下Ctrl + W
这算不算?

额... 好像不是自动...


那还不如用鼠标手势


就是 不是关闭的问题 而是自动关闭的问题~
龙2009

Opera 2.0
UID: 46907
帖子: 89
在线状态:离线
注册时间: 2009-05-05 14:09
发表时间: 2009-05-09 10:23
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首

#15 Re: 能实现回帖后自动关闭标签么?

哈哈，实现了，这就叫举一反三：

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WScript.Sleep 100
WshShell.SendKeys "^{enter}"
WshShell.SendKeys "^w"

好玩吧？
18green

Opera 7.52
UID: 36216
帖子: 1837
在线状态:离线
注册时间: 2008-12-27 12:45
发表时间: 2009-05-09 15:23
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首

#16 Re: 能实现回帖后自动关闭标签么?

18green 写道:哈哈，实现了，这就叫举一反三：

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WScript.Sleep 100
WshShell.SendKeys "^{enter}"
WshShell.SendKeys "^w"

好玩吧？

哈哈 厉害.. 但是要加个限制才可以做到 回帖成功后关闭.

要不帖子还没提交到数据库 就关闭标签了 回帖没成功啊~
龙2009

Opera 2.0
UID: 46907
帖子: 89
在线状态:离线
注册时间: 2009-05-05 14:09
发表时间: 2009-05-09 15:37
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首

#17 Re: 能实现回帖后自动关闭标签么?

ctrl写成^，不知道Alt写成什么？而且^不知道是怎么敲出来的。真白啊
18green

Opera 7.52
UID: 36216
帖子: 1837
在线状态:离线
注册时间: 2008-12-27 12:45
发表时间: 2009-05-09 15:43
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首

#18 Re: 能实现回帖后自动关闭标签么?

2.特殊功能键
对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:
特殊控制键 特殊字符
Shift +
Ctrl ^
Alt %

http://k.pconline.com.cn/question/1257556.html
龙2009

Opera 2.0
UID: 46907
帖子: 89
在线状态:离线
注册时间: 2009-05-05 14:09
发表时间: 2009-05-09 15:46
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首

#19 Re: 能实现回帖后自动关闭标签么?

18green 写道:ctrl写成^，不知道Alt写成什么？而且^不知道是怎么敲出来的。真白啊

你真的有看我刚才给的链接么？
1/6000000000史上最强人类

头像
Opera 4.0
UID: 47129
帖子: 332
在线状态:离线
注册时间: 2009-05-08 3:23
发表时间: 2009-05-09 15:46
您的首选浏览器是: Opera
The Fighting System of the World's Undisputed King of MMA页首

#20 Re: 能实现回帖后自动关闭标签么?

龙2009 写道:
18green 写道:哈哈，实现了，这就叫举一反三：

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WScript.Sleep 100
WshShell.SendKeys "^{enter}"
WshShell.SendKeys "^w"

好玩吧？

哈哈 厉害.. 但是要加个限制才可以做到 回帖成功后关闭.

要不帖子还没提交到数据库 就关闭标签了 回帖没成功啊~

那大概这样就行了吧？
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "^v"
WScript.Sleep 100
WshShell.SendKeys "^{enter}"
WScript.Sleep 200
WshShell.SendKeys "^w"

我瞎猜说，Sleep 200可能是延时200毫秒的意思。
猜对了就是天才，猜错了也没有责任。
18green

Opera 7.52
UID: 36216
帖子: 1837
在线状态:离线
注册时间: 2008-12-27 12:45
发表时间: 2009-05-09 15:46
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首
Opera 全球官网 Opera 官方中文论坛 译言 － 发现，翻译，阅读中文之外的互联网精华 趣生活 玩有品