龙2009

头像

Opera 2.0
UID: 46907
帖子: 89
注册时间: 2009-05-05 14:09
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊

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

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

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

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

代码如下

那大概这样就行了吧？
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 次
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首

Opera 中文维基 / Opera 10.61 正式版 - 极速安全的浏览体验 / Opera Mini 5.1 正式版 - 为超过 3000 款手机优化

byceen

头像

Opera 7.52
UID: 7373
帖子: 1699
注册时间: 2007-11-15 21:43
地址: FJ-0595
在线状态: 线上
您的首选浏览器是: Opera
为什么选择 Opera: 不知道为什么,用起来就是爽!!
楼主真有创意,我也关注一下
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.0页首
龙2009

头像

Opera 2.0
UID: 46907
帖子: 89
注册时间: 2009-05-05 14:09
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
byceen 写道:楼主真有创意,我也关注一下

呵呵 灌水有点多,看到OP哪么强大,所以有此想法了
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首
18green

头像

Opera 8.0
UID: 36216
帖子: 2455
注册时间: 2008-12-27 12:45
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
回完贴后可以选择关闭全部标签啊
I sometimes think that never blows so red
The Rose as where some buried Caesar bled;
That every Hyacinth the Garden wears
Dropt in its Lap from some once lovely Head.
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.1页首
丹丹

头像

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

头像

Opera 5.0
UID: 44109
帖子: 435
注册时间: 2009-04-02 9:24
在线状态: 离线
您的首选浏览器是: Firefox
为什么选择 Opera: 试试
byceen 写道:楼主真有创意,我也关注一下

同关注
楼主的想法不错
Opera/10.00 (Windows NT 6.0; U; zh-cn) Presto/2.2.2页首
opera_888

头像

论坛版主
UID: 1589
帖子: 573
注册时间: 2007-09-15 19:27
地址: 江苏
在线状态: 离线
创意不错，显然要网站支持，不然用js的话可能会有副作用的。
Opera/9.62 (Windows NT 5.1; U; zh-cn) Presto/2.1.1页首
tanfeiqiang

头像

Opera 4.0
UID: 45742
帖子: 211
注册时间: 2009-04-20 21:05
在线状态: 离线
您的首选浏览器是: Opera
有想法，我也想要
Opera/10.00 (Windows NT 6.1; U; zh-cn) Presto/2.2.2页首
纯洁の小白花

头像

Opera 8.0
UID: 27201
帖子: 2755
注册时间: 2008-09-06 18:05
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 与我小白花般的纯洁气质最相衬
那要是回帖后还要继续盖楼咋办呢。。
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首
亡灵法师

头像

论坛版主
UID: 12
帖子: 2957
注册时间: 2007-07-30 21:32
地址: http://stock.ixiezi.com
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 速度够快，强大而简单的自定义。
都是让Opera给惯的啊，用js估计能行，论坛支持更好，嘿嘿。
Opera/9.63 (Windows NT 5.1; U; EDITON IBIS; zh-cn) Presto/2.1.1页首
龙2009

头像

Opera 2.0
UID: 46907
帖子: 89
注册时间: 2009-05-05 14:09
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
s2q1984 写道:那要是回帖后还要继续盖楼咋办呢。。

这个~~~~~~~~~~ 就取消按钮好了
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首
卢颖昱

头像

Opera 1.0
UID: 15871
帖子: 45
注册时间: 2008-02-12 4:49
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
回帖后按下Ctrl + W
这算不算?

额... 好像不是自动...
Opera/10.00 (Windows NT 6.1; U; zh-cn) Presto/2.2.2页首
byceen

头像

Opera 7.52
UID: 7373
帖子: 1699
注册时间: 2007-11-15 21:43
地址: FJ-0595
在线状态: 线上
您的首选浏览器是: Opera
为什么选择 Opera: 不知道为什么,用起来就是爽!!
卢颖昱 写道:回帖后按下Ctrl + W
这算不算?

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


那还不如用鼠标手势
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.0页首
龙2009

头像

Opera 2.0
UID: 46907
帖子: 89
注册时间: 2009-05-05 14:09
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
byceen 写道:
卢颖昱 写道:回帖后按下Ctrl + W
这算不算?

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


那还不如用鼠标手势


就是 不是关闭的问题 而是自动关闭的问题~
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首
18green

头像

Opera 8.0
UID: 36216
帖子: 2455
注册时间: 2008-12-27 12:45
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
哈哈，实现了，这就叫举一反三：

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

好玩吧？
I sometimes think that never blows so red
The Rose as where some buried Caesar bled;
That every Hyacinth the Garden wears
Dropt in its Lap from some once lovely Head.
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首
龙2009

头像

Opera 2.0
UID: 46907
帖子: 89
注册时间: 2009-05-05 14:09
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
18green 写道:哈哈，实现了，这就叫举一反三：

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

好玩吧？

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

要不帖子还没提交到数据库 就关闭标签了 回帖没成功啊~
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首
18green

头像

Opera 8.0
UID: 36216
帖子: 2455
注册时间: 2008-12-27 12:45
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
ctrl写成^，不知道Alt写成什么？而且^不知道是怎么敲出来的。真白啊
I sometimes think that never blows so red
The Rose as where some buried Caesar bled;
That every Hyacinth the Garden wears
Dropt in its Lap from some once lovely Head.
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首
龙2009

头像

Opera 2.0
UID: 46907
帖子: 89
注册时间: 2009-05-05 14:09
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 速度快啊
2.特殊功能键
对于需要与Shift、Ctrl、Alt三个控制键组合的按键SendKeys使用特殊字符来表示:
特殊控制键 特殊字符
Shift +
Ctrl ^
Alt %

http://k.pconline.com.cn/question/1257556.html
Opera/9.64 (Windows NT 5.1; U; Opera Now!; zh-cn) Presto/2.1.1页首
1/6000000000史上最强人类

头像

Opera 4.0
UID: 47129
帖子: 333
注册时间: 2009-05-08 3:23
在线状态: 离线
您的首选浏览器是: Opera
18green 写道:ctrl写成^，不知道Alt写成什么？而且^不知道是怎么敲出来的。真白啊

你真的有看我刚才给的链接么？
The Fighting System of the World's Undisputed King of MMA页首
18green

头像

Opera 8.0
UID: 36216
帖子: 2455
注册时间: 2008-12-27 12:45
在线状态: 离线
您的首选浏览器是: Opera
为什么选择 Opera: 喜欢
龙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毫秒的意思。
猜对了就是天才，猜错了也没有责任。
I sometimes think that never blows so red
The Rose as where some buried Caesar bled;
That every Hyacinth the Garden wears
Dropt in its Lap from some once lovely Head.
Opera/10.00 (Windows NT 5.1; U; zh-cn) Presto/2.2.2页首