P9's Blog - Part 153

29 四 08 ASP销售管理系统

运行环境: ASP/Access
后台地址gl.asp
用户名：admin 密码：admin
前台测试用户名：test1 密码：test1
二级密码：test1 点击下载

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 Cn.vc免费二级域名

申请地址：www.cn.vc

功能介绍：

可以设置自助广告，可以投放图片广告或者google，阿里妈妈等广告联盟的代码，在你的朋友或者你自己访问自己的网站前还能获得一份额外的收入。

可以自定义指向背景图片，上百种漂亮图片任意选择，如果没有你喜欢的，还可以自己制作并上传图片来作为指向的背景图片哦。

可以支持添加顶级域名进入，如果你有自己的www.***.cn 可以直接添加进来使用功能跟cn.vc提供的功能是一摸一样的.还有很多小细节的东西没来得及体验，大家如果感兴趣的话可以去看看哦。

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 IGotFree无限容量免费php空间

不限流量的免费空间，有二级域名，FTP、WEB（net2ftp）方式上传管理文件，支持PHP、CGI程序，并提供MySQL数据库，而且没有广告。空间参数请见英文说明：

? Unlimited Space
? Unlimited Bandwidth
? No Banner or Popup Ads
? 24/7 FTP Access
? PHP, MySQL, CGI Support
? Support Forum Membership
? Personal Subdomain

http://YOU.igotfree.com

申请地址：http://www.igotfree.com/

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 用VB6.0取得系统信息

假如我们想要用VB6.0 取得系统信息，可以通过VB6.0的sysinfo控件和Windows API函数来实现。

　　一、用sysinfo控件获得操作系统版本

　　要用sysinfo控件，必需在部件引用中选择Microsoft Sysinfo Control复选框。程序

　　代码如下:[code]Private Sub Command1_ Click()
　Dim MsgEnd As String
　Select Case SysInfo1.OSPlatform
　Case 0
　　MsgEnd="Unidentified"
　Case 1
　　MsgEnd="Windows 95, ver."&CStr(SysInfo1.OSVersion)
　Case 2
　　MsgEnd="Windows NT, ver."&CStr(SysInfo1.OSVersion)
　　End Select
　　MsgBox "System:" & MsgEnd
　End Select
　MsgBox "System: "& MsgEnd
End Sub[/code]

二、用Windows的Getsysteminfo函数获得CPU型号
窗体的声明代码:[code]Private Type system-info
　dwoemid As Long
　dwpagesize As Long
　ipminimumapplicationaddress As Long
　lpmaximumapplicationaddress As Long
　dwactiveprocessormask As Long
　dwnumberofprocessors As Long
　dwallocationgranularity As Long
　dwreserved As Long
End Type
Private Declare Sub GetSystemInfo Lib "kernel32"
(IpSystemInfo As system-info)[/code]
程序代码:[code]Private Sub Command2_ Click()
　Dim sys As system-info
　GetSystemInfo sys
　Pring "CPU类型:";sys.dwprocessortype
　Pring "no.processors:";sys.dwnumberofprocessors
End Sub[/code]

三、用Windows的Getdrivetype函数获得驱动器类型
窗体的声明代码:[code]Option Explicit
Const drive removable=2
Const drive fixed=3
Const drive remote = 4
Const drive cdrom=5
Const drive ramdisk=6
Private Declare Function GetDriveType Lib "kernel32"
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long[/code]
程序代码:[code]Private Sub Command3_ Click()
Dim i, drv, d$
For i=0 to 25
d$=Chr$(i+65)& ":"
drv=GetDriveType(d$)
Select Case drv
　Case drive removable
　　Print "drive" & d$ & "is removable."
　Case drive fixed
　　Print "drive" & d$ & "is fixed."
　Case drive remote
　　Print "drive" & d$ & "is remote."
　Case drivt cdrom
　　Print "drive" & d$ & "is cd-rome."
　Case drive ramdisk
　　Print "drive" & d$ & "is ramdisk."
　Case Else
　　End Select
　　Next i
End Sub[/code]
若创建一个标准工程，在窗体放置三个命令按纽:commandl, command2, command3。用鼠标点击按纽，即可实现上述功能。

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 VB编程的必备技巧四

十. 如何把数据文件输出到Text控件中？如果数据量比较大，窗体满屏也不够大，怎么解决？

有一个比较简单的方法，就是把数据放到一个文本框（Text）里，并在其中加上水平和垂直滚动条。具体实现步骤为：先在窗体（Form）里加入一个文本框，采用默认名Text1；然后，设置文本框Text1的属性：Text属性设置为空，MultiLine属性设置为True，ScrollBars属性设置为3－Both；接着添加如下VB代码：[code]Private Sub Form-Load()
Dim Handle As Integer
Dim FileName As String
On Error GoTo ErrExit
begin:
′输入要显示的数据文件的名称
FileName=InputBox＄(″Input Filename″,
″Open File″)
On Error GoTo FileErr
Handle=FreeFile
Open FileName For Input As ＃Handle
′把数据文件中的数据输出到文本框中
Text1.Text=Input＄(LOF(Handle), Handle)
Close ＃Handle
Exit Sub
FileErr:
Dim ErrNum As Integer
If Err.Number=53 Then
ErrNum=MsgBox(″File not exist″,
vbOKCancel, ″Error Information″)
If ErrNum=1 Then
GoTo begin
Else
Exit Sub
End If
End If
MsgBox Err.Description, , ″file open failed″
ErrExit:
Exit Sub
End Sub
′使文本框充满整个窗体
Private Sub Form-Resize()
Text1.Left=0
Text1.Top=0
Text1.Width=Form1.Width－100
Text1.Height=Form1.Height－400
End Sub[/code]
通过这样的处理，不仅能解决问题，而且用户还可以在文本框中对数据进行编辑。

十一.关联文件列表框、目录列表框和驱动器列表框的方法

想做一个对话窗体，包含驱动器列表框、目录列表框和文件列表框，并能实现三者的同步操作，怎么做？这都是我们在实际应用中经常会遇到的问题，在VB中解决这个问题非常简单，可以通过Path属性的改变引发Change事件来实现。例如：[code]Sub Dir1-Change()
File1.Path=Dir1.Path
End Sub[/code]
该事件过程使窗体上的目录列表框Dir1和文件列表框File1产生同步。因为目录列表框Path属性的改变将产生Change事件，所以在Dir1-Change事件过程中，把Dir1.Path赋给File1.Path，就可以产生同步效果。类似地，增加下面的事件过程，就可以使三种列表框同步操作：[code]Sub Drive1-Change()
Dir1.Path=Drive1.Drive
End Sub[/code]
该过程使驱动器列表框和目录列表框同步，前面的过程使目录列表框和文件列表框同步，从而使三种列表框同步，问题即可解决。

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 VB编程的必备技巧三

七.文本框中文本的某一特定字符或字符串同时高亮显示的方法

由于普通TextBox控件不支持不连续字符串的同时高亮显示，所以我们选择RichTextBox控件。单击工程（Project）选单项，在弹出的下拉选单中单击组件（Components）选单项，从弹出的对话框中选择Microsoft Rich Textbox Control 5.0复选框，确定加载RichTextBox控件。

新建（New）一个工程，在窗体（Form）上添加一个RichTextBox控件和两个Command（按钮）控件，都采用系统默认的Name属性值；设置RichTextBox的Text属性值为空，Command1和Command2的Caption属性值分别设为"输入文本"和"选择字符串"。最后，添加如下VB代码：
[code]Private Sub Command1-Click()
Dim str As String
Dim Text As String
str=″输入文本″
Text=InputBox(str)
RichTextBox1.Text=Text
End Sub
Private Sub Command2-Click()
Dim str As String
Dim Text As String
Dim Position As Integer
Dim Lenth As Integer
str=″输入要高亮显示的字符串″
Text=InputBox(str)
If Text 〈〉 ″″ Then
Position=InStr(RichTextBox1.Text, Text)－1
Lenth=Len(Text)
RichTextBox1.SelStart=Position
RichTextBox1.SelLength=Lenth
RichTextBox1.SelColor=RGB(255,0,0)
Do While InStr(Position＋Lenth＋
1, RichTextBox1.Text, Text) 〈〉 0
Position=InStr(Position＋Lenth＋
1, RichTextBox1.Text, Text)－1
RichTextBox1.SelStart=Position
RichTextBox1.SelLength=Lenth
RichTextBox1.SelColor=RGB(255,0,0)
Loop
End If
End Sub[/code]
按F5执行程序，单击"输入文本"按钮，在弹出的对话框中输入一些文本，确定后，刚刚输入的文本将显示在RichTextBox中；再单击"选择字符串"按钮，在弹出的对话框中输入你希望高亮显示的字符串，确定后，RichTextBox中相应的字符串将以红色高亮显示。

八.编程实现Windows 95/98操作系统热启动的方法

要利用程序实现系统的重新启动，可以在你的程序中调用API函数来实现。建一个子函数：（以VB为例）[code]Declare Function SystemParametersInfo Lib ″
user32″ Alias -
″SystemParametersInfo″ (ByVal uAction As Long,
ByVal uParam As Long,
ByVal lpvParam As Any, ByVal
fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X=SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Call DisableCtrlAltDelete(true) ′禁止热启
Call DisableCtrlAltDelete(false) ′允许热启[/code]

九.在Windows 95/ 98启动后自动启动程序的方法

我们都知道在Windows 95/98的"开始"→"程序"选单下有一"启动"选单项，当每次启动Windows 95或Windows 98时，系统都会自动启动放在"启动"选单栏里的可执行程序。

但目前有好多软件，像解霸五、ICQ，以及大部分实时侦测病毒的软件等等，安装后，并没有放在"启动"选单里，也能在启动操作系统时自动启动。怎么实现的呢？

其实只要知道Windows注册表的一些知识，这个问题就不能称之为问题了。用鼠标单击"开始"，打开开始选单，再单击"运行"，出现一对话框，然后输入"regedit"，确定后，会打开系统注册表编辑器，找到HKEY-LOCAL-MACHINE? SOFTWARE?Microsoft?Windows?CurrentVersion?Run，加入你的程序的入口，就可以了。如果不知道怎么加，就参考一下已经存在的键值。

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 Koepi's XviD Codec v1.1.3-27042008

XviD是一个开放源码的MPEG-4多媒体编码解码器，它是基于OpenDivX而编写的。XviD是由一群原OpenDivX义务开发者在OpenDivX于2001年7月停止开发后自行开发的。XviD支持多种编码模式，量化 (Quantization) 方式和范围控，运动侦测 (Motion Search) 和曲线平衡分配 (Curve)，动态关键帧距 (I-frame interval)，心理视觉亮度修正，演职员表选项，外部自定义控制，运动向量加速 (Hinted Me) 编码，画面优化解码等众多编码技术，对用户来说功能十分强大。这也是目前被Riper使用最为广泛的编码技术。

Changes in XviD 1.1.2 [27.04.2008] :

- Plugh pointed me to another bugfix that made it into CVS but wasn't backported to Xvid-1.1.3. There was an issue with motion vectors (MVs), an array was too small so a wrong MV could have been chosen in some cases. Since those MVs are costly bitrate-wise, it should have happened very seldom.

官方下载:http://www.koepi.info/Xvid-1.1.3-27042008.exe
VAQ: http://www.koepi.info/Xvid-1.1.3-VAQ-27042008.exe

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 Glassfish

GlassFish 是用于构建 Java EE 5 应用服务器的开源开发项目的名称。它基于 Sun Microsystems 提供的 Sun Java System Application Server PE 9 的源代码以及 oracle 贡献的 TopLink 持久性代码。该项目提供了开发高质量应用服务器的结构化过程，以前所未有的速度提供新的功能。这是对希望能够获得源代码并为开发 Sun 的下一代应用服务器（基于 GlassFish）作出贡献的 Java 开发者作出的回应。该项目旨在促进 Sun 和 oracle 工程师与社区之间的交流，它将使得所有开发者都能够参与到应用服务器的开发过程中来。

GlassFish 开发社区正处于起步阶段，虽然规模较小，但正在迅速发展。目前，已有超过 100 名贡献者签约。目前，参与开发该产品的 Sun 和 oracle 工程师的人数与其他应用服务器开发者社区的工程师人数相当。

可以从http://glassfish.dev.java.net访问 GlassFish 项目。

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments

29 四 08 WinMount V3.0 beta1

WinMount V3.0 beta1全新登场，采用了新内核，新界面，新格式的WinMount3.0将给你带来不一样的体验。
WinMount3.0采用的是与2.0完全不同的新内核，优化了驱动，弥补了很多2.0驱动所存在的不足，解决了在2.0内核下不能解决的问题，特别是解决了一些特殊压缩包不能mount的问题。

WinMount3.0在界面上也进行了重新设计，把2.0时的WinMount和WMBrowser整合到了一个界面中，不但能浏览压缩包里的文件，又能根据需要把它mount到虚拟磁盘中，满足不同需求。同时在界面的外观和结构上也做了修改，外观更加美观，更符合用户习惯。

WinMount V3.0 beta1推出了支持瞬时解压的压缩格式MOU。MOU是WinMount自主研发的压缩格式，与传统的压缩格式相比，有着明显的优势，那就是从此告别漫长的等待解压时间，瞬间展开，同时压缩率较高，压缩较快。将MOU格式的压缩文件Mount到虚拟盘中，仅需几秒，就可以直接使用压缩包中文件，因为直接mount到虚拟盘中，也节省了空间，同时为满足不同需求，也支持直接解压到本地文件夹。MOU格式的推出解决了解压时间时间长的问题，是真正意义上的瞬时解压。

WinMount V3.0 beta1　2008.04.28 更新

更新内容：
* 更新内核，功能更加强大，支持更加稳定；
* 推出全新压缩格式MOU，实现瞬时解压；
* WinMount与WinMount Browser界面功能整合；
* 修复一些其他的问题。

WinMount 是一种新概念的压缩解压缩工具，全新定义压缩格式MOU，真正实现瞬时解压，可将MOU格式文件mount到虚拟盘符中，直接使用，同时支持解压。支持传统压缩格式转换到MOU格式，同时兼容 ZIP RAR等压缩以及支持多种光盘映像格式的挂载功能,包括:ISO、cue/bin、ccd (CloneCD)、bwt (Blindwrite)、mds (Media Descriptor File)、cdi (Discjuggler)、 nrg (Nero)、pdi (Instant CD/DVD)、b5t (BlindWrite 5)、isz (Compressed ISO images) 等。http://cn.winmount.com/down/WinMount_setup.exe

收藏、分享这篇文章!

Filed in 老博客备份 with 0 Comments