上传一个全API版的WINSOCK自定义控件(VB6.0)
作者:admin 日期:
这样一来,在简单应用中就不需要带个OCX啦,嘿嘿.当然,真正的WINSOCK控件里面应该是用了多线程的,这个代码只能做到"看起来像"而已,不能完全替代原控件的所有应用场合.代码里已经封装为一个自定义控件,只需要添加这几个文件到工程就OK了,接口都与WINSOCK控件差不多的.下载地址:
评论: 7 | 引用: 0 | 查看次数: 2719
这个问题我这里测试没出现,以前的讨论结果是系统的DEP功能与此有关,因为代码中使用了内嵌汇编技术
与标准WINSOCK一样,做数组控件即可!
能否提供一个实例呢 俺很菜 不知道该怎么用与标准WINSOCK一样啊,拖到窗体上,设置属性,使用...........还需要什么例子?
2012年1月日一二三四五六当前位置： >
> vb中怎么使用api或者其它办法控制窗体打开我做一个权限管理，需要在每个页面打开时查询数据进行判断
vb中怎么使用api或者其它办法控制窗体打开我做一个权限管理，需要在每个页面打开时查询数据进行判断
jtangjian & at
vb中怎么使用api或者其它办法控制窗体打开我做一个权限管理，需要在每个页面打开时查询数据进行判断，数据库中存有form名，先对打开的窗体进行隐藏，如果权限不符合时，窗体关闭，并提示没有权限，如果符合，则显示页面最好给予具体的代码例子回答的好另外加分
和是否使用API无关。程序代码里面判断即可。
jtgbkm & &
& & （0）（0）使用CBT钩子jtgtbtt & &
& & （0）（0）
本问题标题：
本问题地址：
温馨提示：本问题已经关闭，不能解答。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&&&湘教QS2-164&&增值电信业务经营许可证湘B2-vb60编程中,如何用API函数中的createfile()创建一个文件?_百度知道
vb60编程中,如何用API函数中的createfile()创建一个文件?
vb60编程中,如何用API函数中的createfile()创建一个文件?能否给出具体的代码?我要创建的是一个tex贰定弛感佾啡崇拾搐浆t文件,因为这个函数的参数太多了,看不懂?
提问者采纳
实例'This project needs a Common Dialog box, named CDBox.'
(To add the Common Dialog Box to your tools menu, go to Project-&Components (or press CTRL-T)'
and select Microsoft Common Dialog control)Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As LongEnd Type
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As IntegerEnd TypePrivate Const GENERIC_WRITE = &HPrivate Const OPEN_EXISTING = 3Private Const FILE_SHARE_READ = &H1Private Const FILE_SHARE_WRITE = &H2Private Declare Function CreateFile Lib &kernel32& Alias &CreateFileA& (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As LongPrivate Declare Function SetFileTime Lib &kernel32& (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As LongPrivate Declare Function SystemTimeToFileTime Lib &kernel32& (lpSystemTime As SYSTEMTIME, lpFileTime As FILETIME) As LongPrivate Declare Function CloseHandle Lib &kernel32& (ByVal hObject As Long) As LongPrivate Declare Function LocalFileTimeToFileTime Lib &kernel32& (lpLocalFileTime As FILETIME, lpFileTime As FILETIME) As LongPrivate Sub Form_Load()
Dim m_Date As Date, lngHandle As Long
Dim udtFileTime As FILETIME
Dim udtLocalTime As FILETIME
Dim udtSystemTime As SYSTEMTIME
m_Date = Format(Now, &DD-MM-YY&)
'Set the dialog's title
CDBox.DialogTitle = &Choose a file ...&
'Set the dialog's filter
CDBox.Filter = &All Files (*.*)|*.*&
'Show the 'Open File'-dialog
CDBox.ShowOpen
udtSystemTime.wYear = Year(m_Date)
udtSystemTime.wMonth = Month(m_Date)
udtSystemTime.wDay = Day(m_Date)
udtSystemTime.wDayOfWeek = WeekDay(m_Date) - 1
udtSystemTime.wHour = Hour(m_Date)
udtSystemTime.wSecond = Second(m_Date)
udtSystemTime.wMilliseconds = 0
' convert system time to local time
SystemTimeToFileTime udtSystemTime, udtLocalTime
' convert贰定弛感佾啡崇拾搐浆 local time to GMT
LocalFileTimeToFileTime udtLocalTime, udtFileTime
' open the file to get the filehandle
lngHandle = CreateFile(CDBox.Filename, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
' change date/time property of the file
SetFileTime lngHandle, udtFileTime, udtFileTime, udtFileTime
' close the handle
CloseHandle lngHandle
MsgBox &The date of the file '& + CDBox.Filename + &' has been changed to& + Str$(m_Date), vbInformation + vbOKOnly, App.TitleEnd Sub附:【VB声明】
Private Declare Function CreateFile Lib &kernel32& Alias &CreateFileA& (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long【别名】
CreateFileA【说明】
这是一个全功能的例程，可打开和创建文件、管道、邮槽、通信服务、设备以及控制台 【返回值】
Long，如执行成功，则返回文件句柄。INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS
或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS 【备注】
打开一个通信端口时（如COM1），无论如何都要设置成
OPEN_EXISTING
这个函数代替了lOpen 和 lCreate函数，应该是我们的首选【参数表】
lpFileName -----
String，要打开的文件的名字
dwDesiredAccess -
Long，如果为 GENERIC_READ
表示允许对设备进行读访问；如果为 GENERIC_WRITE
表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息
dwShareMode ----
Long，零表示不共享； FILE_SHARE_READ 和/或
FILE_SHARE_WRITE 表示允许对文件进行共享访问
lpSecurityAttributes -
SECURITY_ATTRIBUTES，指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话）
dwCreationDisposition -
Long，下述常数之一：
CREATE_NEW
创建文件；如文件存在则会出错
CREATE_ALWAYS
创建文件，会改写前一个文件
OPEN_EXISTING
文件必须已经存在。由设备提出要求
OPEN_ALWAYS
如文件不存在则创建它
TRUNCATE_EXISTING
讲现有文件缩短为零长度
dwFlagsAndAttributes -
Long，一个或多个下述常数
FILE_ATTRIBUTE_ARCHIVE
标记归档属性
FILE_ATTRIBUTE_COMPRESSED
将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式
FILE_ATTRIBUTE_NORMAL
FILE_ATTRIBUTE_HIDDEN
隐藏文件或目录
FILE_ATTRIBUTE_READONLY
文件为只读
FILE_ATTRIBUTE_SYSTEM
文件为系统文件
FILE_FLAG_WRITE_THROUGH
操作系统不得推迟对文件的写操作
FILE_FLAG_OVERLAPPED
允许对文件进行重叠操作
FILE_FLAG_NO_BUFFERING
禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块
FILE_FLAG_RANDOM_ACCESS
针对随机访问对文件缓冲进行优化
FILE_FLAG_SEQUENTIAL_SCAN
针对连续访问对文件缓冲进行优化
FILE_FLAG_DELETE_ON_CLOSE
关闭了上一次打开的句柄后，将文件删除。特别适合临时文件
也可在Windows NT下组合使用下述常数标记：
SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION，
SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING，
SECURITY_EFFECTIVE_ONLY
hTemplateFile --
Long，如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性
其他类似问题
api函数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁在VB中怎么调用API函数_百度知道
在VB中怎么调用API函数
楼下的，怎么我有写看不懂啊！可以讲的在具体点吗 ？举写例子啊！
api函数的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB如何用API结束一个进程，要可以看到映像名称_百度知道
VB如何用API结束一个进程，要可以看到映像名称
要用SHELL用宗API要看映像名称、用户名、CPU使用、内存使用仿WINDOWS任务管理器要映像路径拜托啦重要赏<img class="word-replace" src="/api/getdecpic?picenc=0af0帮我做更全源码再赏<img class="word-replace" src="/api/getdecpic?picenc=0af0O(∩_∩)O谢谢啦
我有更好的答案
按默认排序
用消息函数sendmessage或者用进程函数teminateprocess均结束应用程序
VB做好慢的，要是用其他语言，我倒是可以给你个例子。
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}