hereson2
- 浏览: 452078 次
- 性别:
- 来自: 广州
-
最新评论
-
lhgyy00：
很好，回去好好研究下，3Q
博客资源与博客工具大全 -
ljl.java：
♦
你会遇到几段恋情？很准的哦~ -
ljl.java：
♦
你会遇到几段恋情？很准的哦~ -
jzzwy：
你这个red5是什么版本 Iterator<IConne ...
red5获取在线用户列表 -
81365341：
看着标题“red5配置详解”点进来的，结果没看到一句和配置有关 ...
red5配置详解
文章列表
1.
Time 返回系统时钟的当前时间。
Date 返回系统时钟的当前日期。
Now 返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。
Hour(Time) 返回指定时间的小时部分（0到23）。
Minute(Time) 返回指定时间的分钟部分（0到59）。
Second(Time) 返回指定时间的秒部分（0到59）。
Day(Date) 返回月份中的日期数（1到31）。
Month(Date) 返回日期中的月份（1到12）。
Year(Date) 返回日期中的年度。
Weekday(Date) 返回日期中代表一周中的星期几。
...
- 2008-12-29 12:25
- 浏览 2268
- 评论(0)
你一定也常常因苦于无法组织自己程序中大量的picture，而头痛不已，那就让小生为各位介绍一下VB编程的好帮手--资源文件。
所谓资源文件，就是指将在程序运行时用到的资源集中在一起的一个文件。一个资源文件可以包括文字（TEXT）、位图（BITMAP）。图标（ICON）等。并且在程序中调用时不用指明路径，这就简化了程序的编写并减少了发生错误的可能。现在我就以一个小程序为例讲述资源文件的一些使用方法。
首先建立1、2、3、4四幅位图，均以.BMP格式保存在C:TEST下。然后打开记事本编写资源文件，
内容如下：
100 bitmap 1.bmp
200 bitmap 2.b ...
- 2008-12-29 12:23
- 浏览 1625
- 评论(0)
在不同的模式下实现定时关闭计算机
- 博客分类：
- VB&BBS
Option Explicit
Const SM_CLEANBOOT = 67
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long
Private Declare Function GetSystemMetrics Lib ...
- 2008-12-29 12:20
- 浏览 839
- 评论(0)
'添加 Text1 Command1 List1
'在Text1输入欲检测的 QQ 号
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTex ...
- 2008-12-29 12:19
- 浏览 1292
- 评论(0)
一 模块代码
复制内容到剪贴板
代码:
Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As ...
- 2008-12-29 12:18
- 浏览 2088
- 评论(0)
首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。
假设你的HTML页面表单代码如下：
<form method="POST" action="http://chen/dll/chat/chatmain.exe/RegUser">
<p>请填写下面表单注册（*项为必添项）</p>
<p>*姓名<input type="text" name="Name" size="20" ...
- 2008-12-29 12:06
- 浏览 1421
- 评论(0)
新建一个模块，把以下代码复制进去，然后在load中调用即可实现隐藏当前进程的目的。
Option Explicit
'-----------------------------------------------------
'模块名称：modHideProcess.bas
'
'模块功能：在 XP/2K 任务管理器的进程列表中隐藏当前进程
'
'使用方法：直接调用 HideCurrentProcess()
'
'
'
'-----------------------------------------------------
Private Const STATUS_INFO_LENGTH_ ...
- 2008-12-29 12:05
- 浏览 1223
- 评论(0)
Private Sub UserControl_Resize()
UserControl.Width = 540
UserControl.Height = 540
Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty(“ButtonText",
m_ButtonText, m_def_ButtonTe ...
- 2008-12-29 12:04
- 浏览 1174
- 评论(0)
想找个Webbrowser控件的详细使用手册，网上找了好久，都没有找到详细的，只找到了这点东西，下面把它帖出来（那位朋友有更好的使用手册或者是帮助文件，分享一下，发给我一份啊）：
下面就是找了好久从网上找到的了：
方法
说明
GoBack
相当于IE的“后退”按钮，使你在当前历史列表中后退一项
GoForward 相当于IE的“前进”按钮，使你在当前历史列表中前进一项
GoHome 相当于IE的“主页”按钮，连接用户默认的主页
GoSearch 相当于IE的“搜索”按钮，连接用户默认的搜索页面
Navigate 连接到指定的URL
Refresh 刷新当前页面 ...
- 2008-12-29 11:56
- 浏览 4760
- 评论(0)
使用vbs下载文件
iLocal=LCase(Wscript.Arguments(1))
iRemote=LCase(Wscript.Arguments(0))
Set xPost=createObject("Microsoft.XMLHTTP")
xPost.Open "GET",iRemote,0
xPost.Send()
set sGet=createObject("ADODB.Stream")
sGet.Mode=3
sGet.Type=1
sGet.Open()
sGet.Write xPost.ResponseBody
sG ...
- 2008-12-29 11:52
- 浏览 1514
- 评论(0)
函数SetLayeredWindowAttributes
使用这个函数，可以轻松的实现半透明窗体。按照微软的要求，透明窗体窗体在创建时应使用WS_EX_LAYERED参数（用CreateWindowEx），或者在创建后设置该参数（用SetWindowLong），我选用后者。全部函数、常量声明如下：
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Pri ...
- 2008-12-29 11:51
- 浏览 1656
- 评论(0)
VB无疑是最先进的编程工具之一，但在涉及windows 32位系统的核心编程方面——譬如一些高级功能的实现上，它仍然显得有些力不从心，这需要我们充分利用vb的强大的Windows API函数调用能力来弥补。以下代码将向您展示如何利用Win ...
- 2008-12-29 11:45
- 浏览 2075
- 评论(0)
// 作者:钱彦江 转自http://dev.csdn.net/article/20/20139.shtm有修改
#pragma comment(lib,"user32.lib")
#pragma comment(lib,"gdi32.lib")
#include <windows.h> //windows.h文件中包含应用程序中所需的数据类型和数据结构的定义
#include <time.h> //包含SetTimer()、KillTimer()等关于定时器的函数
#in ...
- 2008-12-29 10:01
- 浏览 931
- 评论(0)
1.新建一个模块,写入以下代码:
Option Explicit
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
...
- 2008-12-26 10:25
- 浏览 1516
- 评论(0)
XML文件如下:
<?xml version="1.0" encoding="gb2312"?>
<testlist>
<test>
<id>1</id>
<name>自由飞翔</name>
<time>2007-12-7</time>
</test>
<test>
<id>2</id>
<name>自由</name>
<time>20 ...
- 2008-12-26 10:25
- 浏览 6175
- 评论(0)