- UID
- 26871
- 帖子
- 204
- 积分
- 111
- 紫菀
- 0 朵
- 花瓣
- 6 片
- 花蕊
- 6 朵
- 野草莓
- 10 个
- 蒲公英
- 14 朵
- 社区等级
- 9 级
- 在线时间
- 30 小时
- 注册时间
- 2008-4-20
- 登录状态
-
当前离线
|
楼主
发表于 2008-10-18 19:37
| 只看该作者
老大指教下~~
不知为什么这脚本占用内存朝高
脚本如下:
VBS Dim hong lan ah al
UserVar hong=DropList{20:20|25:25|30:30|35:35|40:40|45:45|50:50|55:55|60:60|65:65|70:70|75:75|80:80|85:85}=70 补红
UserVar ah=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121} 补红键
UserVar lan=DropList{20:20|25:25|30:30|35:35|40:40|45:45|50:50|55:55|60:60|65:65|70:70|75:75|80:80}=0 补蓝
UserVar al=DropList{F1:112|F2:113|F3:114|F4:115|F5:116|F6:117|F7:118|F8:119|F9:120|F10:121|无:null}=0 补蓝键
Rem 补红
IfColor hong/100*(496-409)+409,182,3a4d47,2
KeyPress ah 1
Delay 500
EndIf
IfColor lan/100*(491-409)+409,195,19342f,2
KeyPress al 1
Delay 1000
EndIf
Goto 补红 |
|