- 博客(16)
- 资源 (10)
- 收藏
- 关注
原创 vb-验证码识别
Option Base 1Dim c1(63) As Integer 存放单个验证码的字模Private Sub Command1_Click() Dim b() As Byte Dim xx As Integer 验证码X坐标的起始位置 Y坐标的y1和y2是固定的 Command1.Enabled = False Label1.Caption =
2007-08-27 17:30:00 1353
转载 取得IE地址栏的地址
大家知道在 Windows 中,每个程序都是窗口的形式,不管是隐藏的还是显示的,都可以取得它们的句柄,而每一个程序中的控件又都是一个一个的子窗口,同样也可以取得它们的句柄,这样在理论坛上可以取得任意程序中任意位置的值,这里我们就以取得 IE 浏览器地址栏中的地址为例子,在下面的例子中我分别自定义的 3 个函数: 1、EnumProc `遍查主窗口 2、GetZiWin `遍查子窗口 3、GetWi
2007-08-27 16:54:00 600
转载 小偷程序原理和简单示例
(一)原理小偷程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻小偷程序,很多都是调用了sina的新闻网页,并且对其中的html进行了一些替换,同时对广告也进行了过滤。用小偷程序的优点有:无须维护网站,因为小偷程序中的数据来自其他网站,它将随着该网站的更新而更新;可以节省服务器资源,一般小偷程序就几个文件,所有网页内容都是来自其他网站。缺点有:不稳定,如果目标网站出错,程
2007-08-27 16:53:00 574
原创 sql server日期时间函数
Sql Server中的日期与时间函数 1. 当前系统日期、时间 select getdate() 2. dateadd 在向指定日期加上一段时间的基础上,返回新的 datetime 值 例如:向日期加上2天 select dateadd(day,2,200
2007-08-27 16:47:00 639
原创 asp fso 代码大全
FSO组件名称dim FSObjectFSObject="Scripting.FileSystemObject"=========================================================◆是否支持组件=========================================================Function IsObjInsta
2007-08-27 16:45:00 484
原创 十二行代码搞定自动更新
作者:DragonSchool (龙堂) 自动更新过程Sub cyUpdateMyself(ByVal sSourceFile As String)On Error GoTo ErrDim sFileName As String当前运行的是临时文件If InStr(1, App.EXEName, ".TMP") > 0 Then将临时文件复制为原文件名FileCopy IIf(right(A
2007-08-27 16:35:00 705
原创 用金山词霸的dll文件实现屏幕取词-vb
引用XdictGrb.dll,自己到词霸目录找。严重注意:要金山词霸2005的版本中的dll,2003版的我未测试成功。新建项目,在新窗体中添加3个Label,名称默认。窗体中代码如下:Option ExplicitImplements IXDictGrabSinkPrivate gp As GrabProxyPrivate Sub Form_Load()Set gp = New GrabPro
2007-08-27 16:32:00 1292
转载 新欢乐时光病毒程序源码分析
Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk Sub KJ_start() 初始化变量 KJSetDim() 初始化环境 KJCreateMilieu() 感染本地或者共享上与html所在目录 KJLikeIt() 通过vbs感染Outlook邮件模
2007-08-27 16:24:00 2436
原创 新欢乐时光病毒程序源码分析
Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk Sub KJ_start() 初始化变量 KJSetDim() 初始化环境 KJCreateMilieu() 感染本地或者共享上与html所在目录 KJLikeIt() 通过vbs感染Outlook邮件模
2007-08-27 16:20:00 705
原创 VB操作XML
网上实在是不容易找到VB操作XML的资料。以下是在开发博导时涉及到的内容。XML已经渗透到各个语言环境中,不过一通百通,XML的方法和属性在各个语言里比较通用,至于在微软。 :)以下是想删除某个子节点,及以下的内容。但是问题在于,它删除了所有子节点。似乎应该有个下标用于表示某个匹配的子节点。===================================================
2007-08-27 16:12:00 1761
转载 C语言之可变参数问题
C语言中有一种长度不确定的参数,形如:"…",它主要用在参数个数不确定的函数中,我们最容易想到的例子是printf函数。 原型: int printf( const char *format [, argument]... ); 使用例: printf("Enjoy yourself everyday!/n"); printf("The value is %
2007-08-26 16:18:00 487
转载 vb调用execl
VB中用程序处理WORD和EXCEL的问题,我把我的经验在这里描述一下,希望对大家有帮助。关于在VB中对WORD或EXCEL进行编程处理,一般可以通过录制新宏的方法获得WORD或EXCEL中的VBA代码,然后再将代码剪贴到VB程序中去,具体执行步骤用下面的EXCEL例子说明一下: 例:我们要在A1的地方输入"姓名",B1的地方输入"工资",然后A2输入张三,B2输入1000,。。。,最后在A5输入
2007-08-25 18:17:00 2199 1
转载 Windows权限
如何超越Windows2000赋予的ADMINISTRATOR权限!虽然Admin权利大,但不是最大NT的安全组件里有一个叫Local Security Authority Protected Subsystem.当我们以ADMINISTRATOR登陆时,系统根据缺省的授权,赋予ADMINISTRATOR16个授权.下面乃是详细的清单.SeChangeNotifyPrivilegeSeSecu
2007-08-25 17:32:00 1427
转载 端口复用技术与实现代码
在WINDOWS的SOCKET服务器应用的编程中,如下的语句或许比比都是: s=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP); saddr.sin_family = AF_INET; saddr.sin_addr.s_addr = htonl(INADDR_ANY); bind(s,(SOCKADDR *)&saddr,sizeof
2007-08-25 17:19:00 812
原创 VB最短路径算法
Public Function shortpath(startno As Integer, endno As Integer) As Single以开始点,结束点为参数。Dim result() As SingleDim result1 As Integer定义结果点Dim s1 As SingleDim min As SingleDim ii, i, j, aa As IntegerDim yc
2007-08-20 08:35:00 1640
原创 关于TCP/IP数据包的截取和分析
TCP/IP数据包的截取是一个简单的工作,在Windows 2000/xp下,下面方法可以完成TCP/IP数据包的截获:1、通过建立rawsocket来完成对TCP/IP数据包的截获。从Windows 2000开始,Winsock 2开始支持原始socket,可以 截获所有经过本机的TCP/IP数据包,支持拨号网络,但对本机向外发送的TCP/IP数据包截获有缺陷。可以从http://www.cod
2007-08-11 19:53:00 2710 1
INI文件加密/解密
2008-03-03
SQL Server 2005实用教程
2007-12-19
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人