|
|||
|
摘要：
' 引用ieframe.dllPrivate Sub Command1_Click() Dim w Dim s As New SHDocVw.ShellWindows For Each w In s If InStr(w.LocationURL, "baidu.com") 0 Then w.Navigate ("www.google.cn") End If NextEnd Sub'百度要疯了 阅读全文
posted @ 2009-09-23 12:50 随风飘零0 阅读(207) 评论(0) 推荐(0) 编辑
摘要：
今天餐馆有两伙人打架，其他无关的人都跑掉了，只有我没有离开座位，微笑的看着他们。我觉得自己非常酷。 突然有一个人指着我说：打他们丫老大！我刚要说我不是，一个酒瓶子就把我头打开了花。然后几个人过来揣我。另一伙看他们在打不认识的人竟然也不帮忙。 我快被打半死时pol.ice来了，还把我当成主犯拉回去审讯。刚才才被家长领回家。我现在悟出了一个非常深刻的道理，就是：没实力，千万别装B! 阅读全文
posted @ 2009-09-22 09:11 随风飘零0 阅读(122) 评论(0) 推荐(0) 编辑
摘要：
相信现在绝大多数计算机上使用的是IE浏览器。如何通过编程控制IE的操作呢，本文将一步步介绍如何通过VB 调用IE的对象库来对IE进行控制。 本文使用的编程工具是VB6英文企业版，浏览器是IE5，以下的代码只能在IE4及以上版本下运行。另外为了能深 入了解程序代码，最好能安装MSDN。文中的所有对象、函数、事件在其中都可以查到。 一、如何获得Windows中所有打开的浏览器窗口 首先打开VB，建立一个新工程，点击菜单 Projects | References 项，在Available References 列表中选择 Microsoft Internet Controls项将Internet 阅读全文
posted @ 2009-09-11 00:07 随风飘零0 阅读(422) 评论(0) 推荐(0) 编辑
摘要：
一个数字图像文件包含MxN个像素的阵列，实际上就是一个MxN的矩阵，现假定每个象素有0~255个灰度值，即矩阵元素为8位的整数(矩阵可以表示为char[m][n] matrix)，要求将该图像文件保存为一个自定义格式的文件，使存储空间最小。压缩后还要能还原为原来的图像文件。输入：图像文件。 格式：二进制，设矩阵的第m行第n列元素为Num(m,n)，文件中按照Num(1,1)，Num (1,2)，……Num(m,n)的顺序连续放入m*n个二进制表示的8位整数(无任何分隔符号)。文件名格式为*.mtr例：一个如下3x3像素的数字图像：|1129255||236||323334|文件内容表示为二进制 阅读全文
posted @ 2009-09-09 18:05 随风飘零0 阅读(171) 评论(0) 推荐(0) 编辑
摘要：
一、对于input name="username" id="username_id" class="gray"获得tag的几种方法：WebBrowser1.Document.getElementsByName("username")WebBrowser1.Document.getElementById("username_id")WebBrowser1.Document.getElementsByTagName("input")(0)WebBrowser1.Document.getElementsByTagName("input")("username")WebBrowser1.Docum 阅读全文
posted @ 2009-08-19 17:56 随风飘零0 阅读(207) 评论(0) 推荐(0) 编辑
摘要：
概要： DevCon 实用工具是一种命令行实用工具，可以替代设备管理器。使用 DevCon，您可以启用、禁用、重新启动、更新、删除和查询单个设备或一组设备。DevCon 提供与开发人员有关但无法在设备管理器中看到的信息。 您可以将 DevCon 用于 Windows 2000 、Windows XP和Windows vista。不能将 Devcon 用于 Microsoft Windows 95、Windows 98、或 Windows Millennium Edition。 下载：http://download.microsoft.com/download/1/1/f/11f7dd10 阅读全文
posted @ 2009-08-19 11:45 随风飘零0 阅读(828) 评论(0) 推荐(0) 编辑
摘要：
1.例如函数main1中调用了一个下位函数fun1，则需要在源代码中的两个地方插入代码：（1）main1调用fun1的上一步插入代码isShield_ fun1 = True，表示确定屏蔽函数fun1。（2）fun1的第一步插入代码执行屏蔽，如下： If isShield_ fun1 Then '这里可以增加fun1执行的结果，例如：设置函数返回值True或者False Exit Function End If这样的目的使得当前被测试的函数变得独立，无需考虑下位函数的情况。2.在具体case中根据情况设置相关屏蔽条件True还是False，一般的做法是如果当前测试的函数含有屏蔽条件。比如上面的 阅读全文
posted @ 2009-08-19 10:01 随风飘零0 阅读(273) 评论(0) 推荐(0) 编辑
摘要：
找个国外的邮箱，看看远程桌面是否可以使用用asp做个发邮件中转工具从该文中学习下正则的方法：http://blog.csdn.net/lqnoway/archive/2009/08/11/4432530.aspx 阅读全文
posted @ 2009-08-03 16:51 随风飘零0 阅读(108) 评论(0) 推荐(0) 编辑
摘要：
Option ExplicitPrivate Declare Function EnumDisplayMonitors Lib "user32.dll" (ByVal hdc As Long, ByVal lprcClip As Long, ByVal lpfnEnum As Long, ByVal dwData As Long) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Pr 阅读全文
posted @ 2009-08-03 09:32 随风飘零0 阅读(232) 评论(0) 推荐(0) 编辑
摘要：
Public Enum wmTag wmTagA wmTagInput wmTagImage wmTagButton wmTagTextArea wmTagSelect wmTagTableEnd EnumPublic Enum wmAttribute wmAttribHref wmAttribValue wmAttribSrc wmAttribClass wmAttribName wmAttribIdEnd Enum ===========================以下为普通标签=================================aacronymaddressapplet 阅读全文
posted @ 2009-07-31 11:33 随风飘零0 阅读(266) 评论(0) 推荐(0) 编辑 |
|||
