- 浏览: 1434965 次
- 性别:
- 来自: 苏州
文章分类
- 全部博客 (564)
- 算法 (7)
- 流金岁月 (1)
- Javascript (30)
- actionscript (108)
- as3.0 game (14)
- flex (84)
- fms2 (27)
- 正则表达式 (7)
- 开源组件代码(as3.0) (1)
- Pv3d (13)
- Cairngorm (4)
- vbs (54)
- VB程序设计 (26)
- 计算机应用与维护 (4)
- 职场实用穿衣技巧 (3)
- 历史风云 (15)
- 淡泊明志,宁静致远 (12)
- 情感 (26)
- 杂谈 (41)
- 越南风 (14)
- DirectX (9)
- Dev-cpp (11)
- 回望百年 (2)
- 建站经验 (2)
- Python (24)
- 网络赚钱 (4)
- php (2)
- html (1)
- ob0短址网 (1)
- ob0.cn (1)
- wordpress (1)
- pandas logistic (1)
- haxe (1)
- opencv (1)
- 微信小程序 (3)
- vue (3)
- Flutter (1)
最新评论
-
GGGGeek:
第一个函数滚动监听不起作用,onPageScroll可以
微信小程序--搜索框滚动到顶部时悬浮 -
naomibyron:
解决办法:工具 -> 编译选项 -> 编译器 ...
dev-c++中编译含WINSOCK的代码出现错误的解决方法 -
haichuan11:
这个…… 代码不全真的是让人很憋屈的感觉啊
actionScript 3.0 图片裁剪及旋转 -
chenyw101:
老兄能留个QQ号吗?具体的我有些东西想请教下你
用VB制作网站登陆器 -
yantao1943:
貌似有点问题,只派发一次事件啊
使用ActionScript 2.0或ActionScript 3.0处理音频文件的提示点(cue
#include "lib.vbs"
Const nTimeout = 3 'in second
Const NewSucceed = 0
Const NewFaild = 1
Const LimitedNew = 2
Const IDExist = 3
Const NickLen = 38
Const IDLenMin = 2
Const IDLenMax = 12
WantedIdFile = "id_wanted.txt"
DoneIdFile = "id_done.txt"
'Information used fro registration
Const strPassWord = "!@#$%^"
Const strNickName = "GRE Word List"
Const strRealName = "我爱背单词"
Const strDepartment = "浙江大学计算机学院"
Const strAddress = "浙江大学玉泉校区30舍"
Const strGrade = "2001"
Const strPhone = "87931624"
'Option Explicit
Main
MsgBox ("Script End")
Sub Main()
'Dim bConnect, nTime, nScreenHeight, strScreenLine, nDelay
Dim fsoWanted, fsoDone, tsWanted, tsDone
Dim strLine, strID, strNick
Dim pos
Dim NewRegistResult
Set fsoWanted = CreateObject("Scripting.FileSystemObject")
Set fsoDone = CreateObject("Scripting.FileSystemObject")
Set tsWanted = fsoWanted.OpenTextFile(WantedIdFile, ForReading)
Set tsDone = fsoDone.OpenTextFile(DoneIdFile, ForAppending, True)
Do While (Not tsWanted.AtEndOfStream)
strLine = tsWanted.ReadLine
pos = InStr(strLine, " ")
strID = Left(strLine, pos-1)
strNick = Mid(strLine, pos+1, NickLen)
strID = TrimAll(strID)
If (strNick = "") Then
strNick = strNickName
End If
If (Len(strID) >= IDLenMin And Len(strID) <= IDLenMax) Then 'lenght of ID must in [2, 12]
ReconnectHost()
NewRegistResult = NewAndRegistrID(strID, strNick)
If (NewRegistResult = NewSucceed) Then
tsDone.WriteLine(strID) '记录注册成功的ID
ElseIf (NewRegistResult = IDExist) Then
tsDone.WriteLine("# "+strID+" "+strNick) '记录冲突的ID
ElseIf (NewRegistResult = NewFaild) Then
tsDone.WriteLine("@ "+strID+" "+strNick) '记录注册失败的ID
ElseIf (NewRegistResult = LimitedNew) Then
tsDone.WriteLine("$已经到达每日注册上限") '不能再注册了
STermScript.Disconnect()
Exit Do
End If
STermScript.Disconnect()
Else
tsDone.WriteLine("& "+strID+" "+strNick) '记录长度出错的ID
End If
StermScript.Delay(500) '延时
Loop
tsWanted.Close
tsDone.Close
End Sub
'************************************************************
'* Function: NewAndRegistrID(ByRef strIDWanted) *
'* Return Value: *
'* 新建一个帐号 *
'************************************************************
Function NewAndRegistrID(ByRef strIDWanted, ByRef strNick)
'Return Value:
'Const NewSucceed = 0
'Const NewFaild = 1
'Const LimitedNew = 2
'Const IDExist = 3
Dim nScrH, strLine, strLeft
'新建一个帐号
If (Not WaitUntil("请输入帐号", nTimeout)) Then
NewAndRegistrID = NewFaild
Exit Function
Else
STermScript.SendData("new" + Chr(13)) '发送new
End If
'您今天不能再申请新帐号了
If (InStr(STermScript.GetBuffer(STermScript.GetCursorY()), "不能再申请") > 0) Then
NewAndRegistrID = LimitedNew
Exit Function
End If
If (Not WaitUntil("请输入帐号名称", nTimeout)) Then
NewAndRegistrID = NewFaild
Exit Function
Else
STermScript.SendData(strIDWanted + Chr(13)) '输入要新建的ID
End If
StermScript.Delay(500) '延时,等待ID冲突判断
'此帐号已经有人使用
If (InStr(STermScript.GetBuffer(STermScript.GetCursorY()-1), "已经") > 0) Then
NewAndRegistrID = IDExist
Exit Function
End If
If (Not WaitUntil("请设定您的密码", nTimeout)) Then
NewAndRegistrID = NewFaild
Exit Function
Else
STermScript.SendData(strPassWord + Chr(13)) '输入密码
End If
If (Not WaitUntil("请再输入一次你的密码", nTimeout)) Then
NewAndRegistrID = NewFaild
Exit Function
Else
STermScript.SendData(strPassWord + Chr(13)) '再次输入密码
End If
'跳过欢迎屏幕
Do
STermScript.SendData(goDown)
'StermScript.Delay(100)
Loop Until (InStr(STermScript.GetBuffer(STermScript.GetCursorY()), "请输入您的昵称") > 0) '调到输入昵称的那行
StermScript.SendData(strNick + Chr(13)) '输入昵称
StermScript.SendData(strRealName + Chr(13)) '输入真实姓名
If (Not WaitUntil("您确定要填写注册单吗", nTimeout)) Then
NewAndRegistrID = NewFaild
Exit Function
Else
STermScript.SendData("Y" + Chr(13)) '再次输入密码
End If
StermScript.SendData(strRealName + Chr(13)) '真实姓名: 马甲
StermScript.SendData(strDepartment + Chr(13)) '学校院系: 浙江大学计算机学院
StermScript.SendData(strAddress + Chr(13)) '详细住址: 浙江大学玉泉校区30舍
StermScript.SendData(strGrade + Chr(13)) '年级(如1999): 2001
StermScript.SendData(strPhone + Chr(13)) '联络电话: 87931624
'以上资料是否正确, 按 Q 放弃注册 (Y/N/Quit)? [N]:
If (Not WaitUntil("以上资料是否正确", nTimeout)) Then
NewAndRegistrID = NewFaild
Exit Function
Else
STermScript.SendData("Y" + Chr(13)) '再次输入密码
End If
NewAndRegistrID = NewSucceed
End Function
发表评论
-
使用bat 处理文件 批量下载图片,下载文件
2018-11-17 10:42 3719Download Wscript.Arguments(0) ... -
VB6逆向工程浅析
2011-12-29 07:36 1678前言 VB的编译有两种方式,一种是P-Code ... -
VB函数——逆向分析备查
2011-12-28 21:39 1418Variant 变量的内部表示:_____________ ... -
VB程序逆向常用的函数
2011-12-28 21:38 14551) 数据类型转换: ... -
用XML创建可排序、分页的数据显示页面
2008-08-30 08:10 1365在Web开发中,我们经常 ... -
SQL注入天书 - ASP注入漏洞全接触
2008-08-28 17:39 1053随着B/S模式应用开发的发展,使用这种模式编写应用程序的程序员 ... -
一个学校的网站安全性测试
2008-08-28 17:38 1118本文作者:angel文章性质:原创发布日期:2004-04-0 ... -
改mdb为asp所带来的灾难
2008-08-28 17:36 968本文作者:SuperHei·Lilo文章性质:原创发布日期: ... -
XML实例解析
2008-08-28 17:35 1076提纲: 一:实例效果 ... -
选单连动
2008-08-28 17:34 1041动机: 现在我们做个在IE里应用XML的一个小例子:解决双下 ... -
ASP常用的代码(不断更新)
2008-08-28 17:34 12111.获得系统时间:<%=now()%>2.取得来访 ... -
动态排序
2008-08-28 17:31 1107动机: 排序功能让我们页面上的数据显的更人性化,是我们在网站 ... -
动态查询
2008-08-28 17:31 855动机: 查询功能是我们 ... -
XML卷之动态分页
2008-08-28 17:30 1166动机: 为了方便用户查看大批量数据,我们会用到动态分页,因此 ... -
对xml+xsl实现分页排序的改进,使支持对所有数据进行排序
2008-08-28 17:29 2061以往见过的利用xml+xsl来实现分页排序的基本都只能本页内排 ... -
使用XML、XSLT和XPath创建可排序、分页、重用的数据显示页
2008-08-28 17:27 1302在Web开发中,我们经常 ... -
用ASP+XML编写留言本
2008-08-28 17:16 2840一、读者指引 读者 ... -
asp查询xml的代码,实现了无刷新、模糊查询功能
2008-08-28 17:13 1130<html> <head> ... -
用Asp+XmlHttp实现RssReader功能
2008-08-28 17:12 853<style>body {margin:10px; ... -
vb+Webbrowser控件详解
2008-08-25 20:48 6792vb+Webbrowser控件详解 1、获得浏览器信息: P ...
相关推荐
(Smart Terminal)是一款针对国内BBS特点设计的能在各Windows平台下运行的专用远程登录软件(也可以作为 普通Telnet客户软件,用于任何Telnet站点的登录)。它在运行中对用户和服务器之间的信息进行了分析,知道用户在 ...
她除了具有一般Telnet工具的功能,还具有以下特点: 远程登陆工具条 对BBS的鼠标支持 浮动输入 复制粘贴屏幕文字矩形区域选择 代颜色编码复制 防止发呆功能 历史消息纪录 历史屏幕 用户自定义按键 支持socks proxy ...
sterm,telnet工具。操作简单,容易
特征不支持标签无服务器支持使用 VTE 2.90 (GTK3) 单文本文件配置颜色主题支持示例配置配置进入$HOME/.config/sterm/sterm.conf [main]WordChars=-A-Za-z0-9:./?%&#_=+@~" Themes=SolarizedDark;SolarizedLight...
Sterm操作终端。支持SSH2安全协议
适用于嵌入式开发人员和系统管理员Linux串行终端。 旨在取代minicom。
资源分类:Python库 所属语言:Python 资源全名:sterm-6.0.0a6.tar.gz 资源来源:官方 安装方法:https://lanzao.blog.csdn.net/article/details/101784059
溪流抽水机器人 ㅤㅤㅤㅤㅤㅤㅤ ㅤㅤㅤㅤㅤㅤㅤ该Bot可以从视频文件中提取音频和字幕。发送任何有效的视频文件,机器人将向您显示其中可以提取的可用流!!...TOKEN-从@BotFather获取机器人令牌APP_ID-来自my.telegram....
作为一个telnet软件,s-term除了具有一般telnet工具的功能,还专门针对上bbs站的需要,提供了一些很实用的功能,其中很多功能与cterm有得一拼。 s-term支持bbs的鼠标浏览。自动识别屏幕上的菜单,支持使用鼠标点击...
一个能在win95/98/nt平台下运行的远程登陆软件,她设置简单,使用方便,她采用多文档界面,能在一个框架中打开多个窗口,最小化时能缩小为图标,隐藏在任务栏中。如果您以前用过Netterm的话,您会发现她们其实是很...
STerm v1.0 STerm是基于JavaScript的终端Web应用程序。 这个头采用了一些非常基本的,写得不好的概念,这些概念是从流行的基于Unix的系统终端中得出的。 我在几个小时内为此编写了初始代码:P 实时示例: : 快速...
* 在安装SCATSACCESS之前,需要更改图形设置文件Sterm.ini,修改Driveside符号为RIGHT,Country符号为USA。 * 在安装完成后,需要重新启动SCATSACCESS以获取中国右行路口图。 知识点四:SCATSACCESS系统界面 * ...