打印

[原创] 又是两个无聊的脚本~~~

本主题由 mwpq 于 2008-1-7 11:06 关闭

又是两个无聊的脚本~~~

我看我干脆改名叫"无聊脚本专家"算了
: ^' c' k! ^: K8 g2 m, K4 d- O" Y跟着mwpq老大到winos那里看了一下,确实不错,顺便看了两个帖子,回答了几个问题,生出了两个无聊的孩子
$ W7 }; ~, w2 K2 O8 |9 W$ N# @" O! u" |, U% R: W8 l6 V- x4 {8 F
1.) w* T. a: T5 H/ w0 ^
这个其实还有点用,就是一个死循环,每隔一段时间就执行一次程序6 Q+ n4 H- R4 x d) H! e! c
起因是一个人想要一个脚本,每隔五分钟时间就绑定一次ARP的,于是如下,还算是简单而实用,ARP处也可以换成其他程序,比如说某个气死人的东西,隔段时间就跳出来,嘿嘿,
5 w8 g5 k+ u. j y4 a! z) r1 v* g**************************************************************************************$ q I8 z$ j0 Q1 H: b7 `
var wshshell = WScript.CreateObject("WScript.Shell");- U$ P1 H9 }) _2 A
while (1) //死循环
8 B. Z/ b/ d4 U6 b, E: i{ wshshell.Run("arp -s XXXX YYYY"); ( g& \4 o7 v- _$ d1 J
F3 x+ e: X. S3 \2 f4 s$ C& ~
WScript.sleep (300000); e, L. `, r' B- J$ g) ^ N
}1 T' W6 \; i; H& j

6 O. I2 G2 a) C; S**************************************************************************************
A3 U- C$ e' c& {% v0 U% k
3 }4 ]$ X& [7 n' n" ]2.
! L/ P8 z, J3 K; F% H; z这个就实在无聊极了,; K* G1 @ v1 v: C5 u1 a$ R
提问题的人无聊:" G" _4 B, W& l! H/ q r9 T- B
引用:
有没有什么处理文件双击后会自动跳出本地连接属性界面的?可否提供一个~~~
! B; S6 E, ]% S0 g) V7 n+ m% d
因为他无聊,结果一个星期也没人理他. A& q1 n- |9 }& x

8 W* l; M `" @回答问题的我也无聊,居然回答这种问题,答案你想到了么?如下9 w7 t5 P% @3 B: p% }! J
**************************************************************************************2 f( k, g; i; C% V) U9 @8 j5 H: ?
var wshshell = WScript.CreateObject("WScript.shell");
l7 Y# F0 r" }! r5 Rwshshell.run ("control ncpa.cpl");//打开本地连接窗口( A' |( @" g6 K
wshshell.SendKeys("l");//本地连接获得焦点,我是英文版的,如果你是中文版,可能要改成B
; R- H; T" x* o# h1 Z( C1 [wshshell.SendKeys("{Enter}");//发送回车,弹出属性窗口 . o2 J8 v6 u% c3 Y4 U

- m9 K7 |: ^0 @2 P**************************************************************************************
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

哈哈,你可是真够清闲的啊。6 m0 T4 ^- M1 e% D7 o$ e

+ P6 F K: r2 S K' Z% H$ N第一个脚本会不会弹出窗口来啊?

TOP

引用:
原帖由 铁牛阳光 于 2007-11-22 09:09 发表 - Q: A: ]* v1 U, p
哈哈,你可是真够清闲的啊。
! h/ E8 ^2 P5 J
) C4 ?3 y) D* m/ z* z# R( ?第一个脚本会不会弹出窗口来啊?
9 `! X* D1 Y, a9 H# K4 Q" {1 E会有一个黑色窗口一闪而过
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

引用:
原帖由 北羊 于 2007-11-22 02:05 发表 & l) E. P. g8 m! E6 O2 @) ~- P# B
我看我干脆改名叫"无聊脚本专家"算了 4 \. h3 r7 y" _, V/ | S$ H# N
跟着mwpq老大到winos那里看了一下,确实不错,顺便看了两个帖子,回答了几个问题,生出了两个无聊的孩子
. a2 P J5 n8 m' l$ U3 f @; J; H3 \, o9 t/ y
1.
0 V5 }, F2 \4 R这个其实还有点用,就是一个死循环,每隔一段时间就执行一次 ...
8 K9 f+ Z- H x, K( J! C" s
e$ E; X) y6 h3 v/ [9 m
北羊老大.我在尝试第二个代码时,反弹出一个语句未结束的错误 . G# l. u. {" f# `. h, b$ i# M
错误在第一行,第53个字符.VISTA......- s# X1 [, \0 g7 F3 s; z

9 J# q) A5 c8 o& u# O6 {% p[ 本帖最后由 kenknigh 于 2007-11-22 21:05 编辑 ]
附件: 您所在的用户组无法下载或查看附件
是日已过,命亦随减。如少水鱼,斯有何乐? 大众当勤精进,如救头燃。但念无常,慎勿放逸

                      

TOP

var wshshell = WScript.CreateObject("WScript.shell");3 w% C0 P$ [$ L$ @
wshshell.run("control ncpa.cpl");
" t3 `# e3 f! _/ [* |* I2 Gwshshell.SendKeys("B");
2 d/ w1 W" p _$ f, r" b5 g- qwshshell.SendKeys("{Enter}");
是日已过,命亦随减。如少水鱼,斯有何乐? 大众当勤精进,如救头燃。但念无常,慎勿放逸

                      

TOP

附件: 您所在的用户组无法下载或查看附件
是日已过,命亦随减。如少水鱼,斯有何乐? 大众当勤精进,如救头燃。但念无常,慎勿放逸

                      

TOP

不好意思,我没说清楚,这个不是VBS脚本,应该是另存为JS文件的
我说了我不想哭,可是你为什么老下雨~~~

TOP

引用:
原帖由 lgaint 于 2007-11-22 23:50 发表 ) N" \5 L B: O; X3 R/ o
不好意思,我没说清楚,这个不是VBS脚本,应该是另存为JS文件的
; D( t" f7 O. a' g5 m$ [存为JS文件打开连接后不能自动的选择焦点.8 {4 i8 `! Z- P+ Q" C) l

3 g+ i/ V- U1 u Q' [( ^" J我还被一个事物困扰着,双击JS文件中,有一个RAR文件也被自动打开了.这也许是不能自动把本地连接定义为焦点的原因
是日已过,命亦随减。如少水鱼,斯有何乐? 大众当勤精进,如救头燃。但念无常,慎勿放逸

                      

TOP

引用:
原帖由 kenknigh 于 2007-11-23 08:36 发表
: u% Y- h9 ?7 f o7 |; f: Z! l! j+ t1 S8 u' Q/ A6 U
存为JS文件打开连接后不能自动的选择焦点.
- V0 |: f0 D6 @3 u% _, v, J% m3 h" `; d7 Q" W1 M9 j2 N0 @
我还被一个事物困扰着,双击JS文件中,有一个RAR文件也被自动打开了.这也许是不能自动把本地连接定义为焦点的原因
3 [; J+ E4 r8 ^: g# y

3 p- I$ F: Z, `5 B, ]. {- t) J" ^嗯,你说的情况我试了一下,确实有这个问题,焦点混乱是这个东西没法解决的8 v+ h$ H* r9 z

1 w1 ]/ x) a. ]9 B( o6 }, I如果你的是中文版,发送L键并不能让连接获取焦点,要改成这样$ |9 m8 M; n* k

1 t( L' K- i; m( ^! w0 k& J6 F9 _/ R7 o8 F0 M9 D8 l3 O E
var wshshell = WScript.CreateObject("WScript.shell");
. B" Z. d. [# b; h- D1 nwshshell.run ("control ncpa.cpl");//打开本地连接窗口
" C! I/ Q1 @* u' c9 A( L8 U6 V9 |wshshell.SendKeys("{ }");//本地连接获得焦点8 l5 @$ W C6 H# P4 N) ^
wshshell.SendKeys("{Enter}");//发送回车,弹出属性窗口% T$ f ]6 S2 b. w$ Z) ^4 T: M( U
: R8 ?5 ~* O7 e3 a8 Q% u% q
就是把第三行发送的L键改成空格键~~~~~
6 Q+ H* U4 j; S* p& j如果你在后面再加一个) `8 Z8 q* ~9 U5 I4 |
wshshell.SendKeys("{Enter}");//猜一下会出现什么?
3 N5 L, W0 g( e- P+ L7 o: o8 d4 n" q+ N, A; W
PS:我一直以为发送空格键用的是{SPACE},没想到居然是直接输入空格
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

为避免出现混乱,最好把这小东西放在根目录或者一个单独的文件夹中
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

偶发现,打开的窗口越多就越易发生焦点乱窜的问题~~~~~~
) P4 _+ | A1 f* b' g4 W所以,如果要执行这个脚本,最好关闭所有打开的窗口
: B0 V& `+ {% V3 C这样,似乎比打开本地连接更麻烦吧?: L8 R. Y" S. z& B! O# K/ {
呵呵,都说这是个无聊的脚本了~~~~
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

经过我深入研究,细致钻研,刻苦研发,潜入探究,终于发现了~~~牛吹完了,继续正经的
0 W& w" `1 N, \2 z
' J- \6 N0 B5 \8 @
: K& e( d& R- A: T多次试探后,发现了焦点混乱的原因: d( ~$ M3 w2 H6 M' I% ?# ]

8 b+ S1 A4 j9 B* H; I2 P先不说,把下面的文字复制后另存为JS文件,双击,您发现了什么
L- }3 d3 R- [+ L
( r& B" ~- X, I! }- H# cvar wshshell = WScript.CreateObject("WScript.shell");
% W, v: C- A1 m! |6 @9 Uwshshell.run ("control ncpa.cpl");2 f Z% @& W' g l
WScript.Sleep(500);4 b' m9 R3 X: v7 M. {: y
wshshell.SendKeys("{ }");
) V& [$ }$ Y* \2 ZWScript.Sleep(500);) X+ {3 p% V8 \ v# i/ ?
wshshell.SendKeys("{Enter}");
, z: d/ R Z* l. EWScript.Sleep(500);
8 N( i* X, E8 n: E2 O- M' F4 bwshshell.SendKeys("%P");. K* b: M- a" @
WScript.Sleep(500);% N3 j A2 H5 c
wshshell.SendKeys("{down}");& T' v/ R+ [& V' W$ I' o
WScript.Sleep(500); _& i8 D0 Q, A; w# q
wshshell.SendKeys("{down}");
* n/ _9 H6 _7 |2 d8 D, t. X9 uWScript.Sleep(500);: u8 X A9 E7 j
wshshell.SendKeys("{down}");
- J! w" O. a' ?# z1 ^WScript.Sleep(500);
/ O5 X# v. {- c6 |* iwshshell.SendKeys("%R");5 R$ E0 [% W- _% b o$ H
( r) B* A( h+ D7 w
没有焦点混乱了吧?8 @+ \0 K# a; f2 R; T
这~~都是WScript.Sleep(500);的功劳~~~~~~汗一个,有点像做广告呀 1 _& n1 z/ S0 i9 i/ q( Q

$ z4 M0 U" q( u# @" O0 F再说回前面,焦点混乱的原因是:
3 V5 [7 x* `: A" F4 p2 Q; e7 Z0 x: \! n4 L$ ^# m
当windows打开一个新窗口,会根据被窗体(一般程序里是这样称呼的)的自身设置,将焦点给予其某一键或者某一位置2 B$ p( T' y4 p0 \# A Y: \, A* x

# s" P0 j- t7 h0 U但当被窗口被打开,而windows暂时又没有完成该窗体本身的设置时,这时焦点在哪儿呢?对了,就是在窗体打开前焦点所在的地方,于是~~~~焦点混乱鸟
$ h. W- y/ j3 a6 S, l2 j: u" M* r' @% A- N, h
所以,我们给它在各行键发送的命令间,加入一个WScript.Sleep(500);等待半秒钟
! t0 |" v" |5 U5 }4 a/ I4 W, j7 Y+ a
焦点不混乱鸟~~~~~~& x* X7 g& u4 Q/ j) a
! c9 |/ N5 @0 L! K& w" j5 X1 O
& j5 j* a* d& {* b$ P6 Z$ ~
如果你有心,试试看,也许你能用无聊的东西编出不无聊的脚本来哦
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

无意中发现

引用:
原帖由 铁牛阳光 于 2007-11-22 09:09 发表 4 b/ ?! J' n4 Y. G9 f
哈哈,你可是真够清闲的啊。4 D" z! |1 _% \8 ^4 s/ O! y
1 X. P) L/ ~4 X; R$ o
第一个脚本会不会弹出窗口来啊?
! M$ B% j. U/ V, |4 [) \8 b0 P: n
用下面两行代码可以让BAT文件执行时无声无息的
5 F/ M! U% U ?7 w+ ?! M1 w0 Y7 |2 S6 [2 G4 _0 Q
var objShell=WScript.CreateObject("wscript.shell");, K. Q s1 q, h) ^9 B
objShell.Run("cmd.exe /C XXX.BAT",0,true);
考完试鸟,心力憔悴呀~~~~接下来,准备补考

TOP

呵呵厉害 哦

TOP

``

谢谢

TOP

我也想要一个,这个是别人的

TOP

我的QQ是564636953 谢谢你哦!undefined undefined undefined undefined undefined

TOP

哈哈哈哈。。。楼主好有意思

TOP

引用:
原帖由 lilu 于 2007-12-1 01:18 发表
9 N0 K8 i1 ^% h/ C, X# j" m我也想要一个,这个是别人的
( |# a; Y8 f+ |& I1 K- Q( p5 L- Q- ]+ A/ l& U/ N2 }) _
你想要什么?
我说了我不想哭,可是你为什么老下雨~~~

TOP

这里人才真多啊

TOP

本功能由奇虎搜索实现

相关主题

标题 作者 最后发表
[站外] 自动生成SQL2005数据字典的脚本   [转帖] 涂文瀚 2008-09-02
[站外] 荥阳 中国诗歌文化节开场脚本   [转帖] 佛陀老邱 2008-09-02
[站外] user generator里的迭代设置会加在脚本   [转帖] white 2008-09-02
点击阅读更多关于的相关帖子  更多相关主题