2009年12月03日 星期四 上午 10:33
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Function nl()
'获取当前系统时间
curTime = Now()
Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)
'星期名
WeekName(0) = " * "
WeekName(1) = "星期日"
WeekName(2) = "星期一"
WeekName(3) = "星期二"
WeekName(4) = "星期三"
WeekName(5) = |
2009年12月03日 星期四 上午 10:32
hlxNongLiGongLi 类：
程序代码
<%
'##########################################################
'Class hlxNongLiGongLi 用于农历与公历间的相互转换
'本类可处理1950-2050年(农历)之间的公农历转换
'本类不输出错误信息，如输出结果为1900-1-1则意味发生错误。
'编写：SY
'日期：2007-12-18
'网址：http://www.oneti.cn/hlx/
'邮箱：sunyi3210@163.com
'版权：可自由传播，请保留所有 |
2009年11月20日 星期五 下午 05:02
1.document.write(""); 输出语句
2.JS中的注释为//
3.传统的HTML文档顺序是:document->html->(head,body)
4.一个浏览器窗口中的DOM顺序是:window->(navigator,screen,history,location,document)
5.得到表单中元素的名称和值:document.getElementById("表单中元素的ID号").name(或value)
6.一个小写转大写的JS: document.getElementById("output").value = document.getElementById("input").value.toUpperCase();
7.JS中的值类型:String,Number,Boole |
2009年05月17日 星期日 上午 11:58
uses ActiveX;
initialization
OleInitialize(nil);
finalization
try
OleUninitialize;
except
end;
2.EmptyParam
EmptyParam是一个公用的Variant空变量，不要对它赋值
var
t:OleVariant;
begin
webbrowser1.Navigate(edit1.text,t,t,t,t);
{这句可以写成webbrowser1.Navigate(edit1.text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);}
end;
3.命令操作
常用的命令操作用ExecWB方法即可完成
pro |
2009年05月16日 星期六 下午 04:13
看到很多关于WebBrowser控件禁止右键的提问，回复的方法很多，其中有提到使用微软提供的Webbrowser扩展COM服务器对象（WBCustomizer.dll），但是该方法在我们想使用Webbrowser编辑网页（Webbrowser1.Document.execCommand "editMode"）的时候有很多弊端，比如不能显示选中的文本等。另有些方法也就不用一一列举了。
这儿我想提到的是关于MSHTML.HTMLDocument
引用Microsoft HTML OBject Library
Rem ＃窗体代码＃
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M |
2009年05月16日 星期六 下午 04:10
能够完整记录电脑使用情况的日志文件在 Windows系统安全管理方面的作用是不可低估的。本文介绍了利用消息拦截技术制作日志文件的方法，其中的关键函数是一个未公开的 API系统调用。
一、利用钩子（Hook）拦截系统消息
日志文件对于一个大企业内部网络的维护与管理是至关重要的。另外还有许多其它场合也离不开日志的使用，例如：多人共享一台电脑，或在家庭中要记录儿童使用电脑的细节，等等。
日志程序若想完整记录电脑运行期间有哪些软件启动过、各使用了多长时间、以及使用浏览器访问互联网的情况等，必 |
2009年05月16日 星期六 下午 04:08
WebBrowser.ExecWB(1,1) 打开
WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口
WebBrowser.ExecWB(4,1) 保存网页
WebBro |
2009年05月16日 星期六 下午 04:03
一、WinSock简介
Socket（套接字）最初是由加利福尼亚大学Berkeley（伯克利）分校为UNIX操作系统开发的网络通信接口，随着UNIX的广泛使用，Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初，由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准，即Windows Socket规范，简称WinSock。
VB编写网络程序主要有两种方式：1.winsock控件 2.winsockAPI
二、WinSock控件的使用
|
2009年05月16日 星期六 下午 04:02
2009年05月16日 星期六 下午 04:00
vb6.0 中没有鼠标离开事件，经常要在几个控件上使用mouseMove事件，才能起到鼠标离开事件。 这个是从网上找来的程序。首先要求的是控件必须有hWnd属性
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim MouseOver As Boolean
'判断当前鼠标位置是否在Object1上
|
|
|
|
