- 浏览: 1451493 次
- 性别:
- 来自: 苏州
文章分类
- 全部博客 (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
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
goUp = Chr(27) + "[A"
goDown = Chr(27) + "[B"
goRight = Chr(27) + "[C"
goLeft = Chr(27) + "[D"
Function ReconnectHost()
LoginHost = 0
Dim nScrH, strLine, strLeft, strRight, strKey
'连接
Dim outFlag
outFlag = 0
StermScript.Disconnect()
Do
StermScript.Reconnect()
Dim i
i = 10
While ( i <> 0)
'StermScript.Delay(100)
If StermScript.IsConnected() Then
i = 0
Else
i = i-1
End If
Wend
If Not StermScript.IsConnected() Then
StermScript.Disconnect()
Else
outFlag = 1
End if
Loop Until ( outFlag = 1 )
End Function
'##############################################################
'************************************************************
'* Function: TrimAll(strIn) *
'* Return Value: *
'* 除去字符串中所有可能的空格,tab等 *
'************************************************************
Function TrimAll(strIn)
Dim s,c, i
s = Trim(strIn) '去掉前后空格
TrimAll = ""
for i = 1 to Len(s)
c = Mid(s, i, 1)
If (Asc(c) = 9) Then
Else
TrimAll = TrimAll + c
End if
Next
End Function
'************************************************************
'* Function: ExpectCursor(ByRef str, ByVal TimeOut) *
'* Return Value: True 出现 False 未出现 *
'* 判断在一定时间内,光标所在行是否出现指定字符串 *
'************************************************************
Function ExpectCursor(ByRef str, ByVal TimeOut)
Dim starttime
starttime = Timer
While (Not InStr(STermScript.GetBuffer(STermScript.GetCursorY()), str) > 0)
STermScript.Delay (200)
If (Abs(Timer - starttime) > TimeOut) Then
ExpectCursor = False
' MsgBox (str + " not found, timeout")
Exit Function
End If
Wend
ExpectCursor = True
End Function
'************************************************************
'* Function: Expect(ByRef str, ByVal l, ByVal TimeOut) *
'* Return Value: True 出现 False 未出现 *
'* 判断在一定时间内,指定行是否出现指定字符串 *
'************************************************************
Function Expect(ByRef str, ByVal linenum, ByVal TimeOut)
Dim starttime
starttime = Timer
While (Not InStr(STermScript.GetBuffer(linenum), str) > 0)
STermScript.Delay (200)
If (Abs(Timer - starttime) > TimeOut) Then
Expect = False
' MsgBox (str + " not found, timeout")
Exit Function
End If
Wend
Expect = True
End Function
'************************************************************
'* Function: WaitUntil(ByRef str, ByVal TimeOut) *
'* Return Value: True 出现 False 未出现 *
'* 等待光标所在行是否指定字符串 *
'************************************************************
Function WaitUntil(ByRef str, ByVal TimeOut)
Dim starttime
Dim strLine
starttime = Timer
Do
If (Abs(Timer - starttime) > TimeOut) Then
WaitUntil = False
'MsgBox (str + " not found, timeout")
Exit Function
End If
StermScript.Delay(100) '每次延时0.1秒
strLine = StermScript.GetBuffer(STermScript.GetCursorY())
Loop Until (InStr(strLine, str) > 0) '等待出现的字符串
WaitUntil = True
End Function
发表评论
-
使用bat 处理文件 批量下载图片,下载文件
2018-11-17 10:42 3896Download Wscript.Arguments(0) ... -
VB6逆向工程浅析
2011-12-29 07:36 1730前言 VB的编译有两种方式,一种是P-Code ... -
VB函数——逆向分析备查
2011-12-28 21:39 1477Variant 变量的内部表示:_____________ ... -
VB程序逆向常用的函数
2011-12-28 21:38 14821) 数据类型转换: ... -
用XML创建可排序、分页的数据显示页面
2008-08-30 08:10 1392在Web开发中,我们经常 ... -
SQL注入天书 - ASP注入漏洞全接触
2008-08-28 17:39 1078随着B/S模式应用开发的发展,使用这种模式编写应用程序的程序员 ... -
一个学校的网站安全性测试
2008-08-28 17:38 1148本文作者:angel文章性质:原创发布日期:2004-04-0 ... -
改mdb为asp所带来的灾难
2008-08-28 17:36 996本文作者:SuperHei·Lilo文章性质:原创发布日期: ... -
XML实例解析
2008-08-28 17:35 1098提纲: 一:实例效果 ... -
选单连动
2008-08-28 17:34 1062动机: 现在我们做个在IE里应用XML的一个小例子:解决双下 ... -
ASP常用的代码(不断更新)
2008-08-28 17:34 12411.获得系统时间:<%=now()%>2.取得来访 ... -
动态排序
2008-08-28 17:31 1130动机: 排序功能让我们页面上的数据显的更人性化,是我们在网站 ... -
动态查询
2008-08-28 17:31 873动机: 查询功能是我们 ... -
XML卷之动态分页
2008-08-28 17:30 1196动机: 为了方便用户查看大批量数据,我们会用到动态分页,因此 ... -
对xml+xsl实现分页排序的改进,使支持对所有数据进行排序
2008-08-28 17:29 2094以往见过的利用xml+xsl来实现分页排序的基本都只能本页内排 ... -
使用XML、XSLT和XPath创建可排序、分页、重用的数据显示页
2008-08-28 17:27 1326在Web开发中,我们经常 ... -
用ASP+XML编写留言本
2008-08-28 17:16 2864一、读者指引 读者 ... -
asp查询xml的代码,实现了无刷新、模糊查询功能
2008-08-28 17:13 1160<html> <head> ... -
用Asp+XmlHttp实现RssReader功能
2008-08-28 17:12 872<style>body {margin:10px; ... -
vb+Webbrowser控件详解
2008-08-25 20:48 6820vb+Webbrowser控件详解 1、获得浏览器信息: P ...
相关推荐
Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
MFCHtml 调用脚本 MFC使用COM加载WMI服务,另类获取系统服务详细 大家都知道,现在流行的检测硬件软件视乎很神秘,我们要获得各种信息好像比较难.但大多数这种软件或多或少的使用了WMI,如果我们能熟练掌握相信你也做的...
MFCHtml 调用脚本 MFC使用COM加载WMI服务,另类获取系统服务详细 大家都知道,现在流行的检测硬件软件视乎很神秘,我们要获得各种信息好像比较难.但大多数这种软件或多或少的使用了WMI,如果我们能熟练掌握相信你也做的...
MFCHtml 调用脚本 MFC使用COM加载WMI服务,另类获取系统服务详细 大家都知道,现在流行的检测硬件软件视乎很神秘,我们要获得各种信息好像比较难.但大多数这种软件或多或少的使用了WMI,如果我们能熟练掌握相信你也做的...
MFCHtml 调用脚本 MFC使用COM加载WMI服务,另类获取系统服务详细 大家都知道,现在流行的检测硬件软件视乎很神秘,我们要获得各种信息好像比较难.但大多数这种软件或多或少的使用了WMI,如果我们能熟练掌握相信你也做的...
MFCHtml 调用脚本 MFC使用COM加载WMI服务,另类获取系统服务详细 大家都知道,现在流行的检测硬件软件视乎很神秘,我们要获得各种信息好像比较难.但大多数这种软件或多或少的使用了WMI,如果我们能熟练掌握相信你也做的...
MFCHtml 调用脚本 如题。 MFC使用COM加载WMI服务,另类获取系统服务详细 大家都知道,现在流行的检测硬件软件视乎很神秘,我们要获得各种信息好像比较难.但大多数这种软件或多或少的使用了WMI,如果我们能熟练掌握相信...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程技能的提升很有帮助。 Java聊天程序,包括服务端和...
Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...
Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...