说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何使用vb取得一个文件的控制权

HTML文档下载 WORD文档下载 PDF文档下载
VB如何使用vb取得一个文件的控制权

解答(1):

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Type OFSTRUCT
cBytes As Byte
fFixedDisk As Byte
nErrCode As Integer
Reserved1 As Integer
Reserved2 As Integer
szPathName As String * 128
End Type
Private Const OF_SHARE_DENY_READ = &H30
Dim Hfile As Long

Dim my As OFSTRUCT


Private Sub Form_Load()
'禁止其他程序读写(包括执行)文件内容
Hfile = OpenFile("d:\foxmail.exe", my, OF_SHARE_DENY_READ)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim rlt As Long
'关闭文件句柄,撤消上面的禁止功能,可别忘了这一步哦:)
rlt = CloseHandle(Hfile)

End Sub

解答(2):
open "test.dat" for binary lock read write as #1
~~~~~~~~~~~~~~~
..................
close #1
上面加~~的部分的意义:
share 其他进程可以共享读写此文件
lock read 其他进程只能读
lock write 其他进程只能写
lock read write 其他进程完全拒绝访问

移动开发者的自学宝典:十大在线编程学习网站 MIT新技术:远程触摸和操纵实物 创新人机交互 中国移动研究院业务支撑研究所所长孙少陵:大数据实时处理技术发展趋势及中国移动实践和展望 “第一届中国大数据技术创新与创业大赛”主办方发言及创新分赛颁奖 中国移动研究院业务支撑研究所所长孙少陵:大会及与会嘉宾介绍 中国工程院院士、大数据专家委员会主任李国杰:能挖掘出价值的数据就是好数据 阿里飞天平台总架构师唐洪:飞天开放平台 百度大数据首席架构师林仕鼎:新计算时代 金山发布全系列IaaS平台 Google无人驾驶汽车与机器人组合,秒杀无人机 Google欲推新Chrome应用:适用于Android、iOS平台 comScore:美国市场苹果手机独占鳌头 Android和iOS双寡头垄断 一周消息树:新技术实现远程触摸和操纵实物 创新人机交互 研发周报:帮助网站转换的六大黑色星期五规则 【开源专访】JFinal作者詹波:以极简方式实现Web项目的极速开发 2013中国智能交通与大数据技术峰会:迎接交通大数据新时代 大数据应用技术(上):加速创新,重塑世界 英特尔百度携手推出首个跨平台应用商店 12月9日:计算机软件第一夫人Grace Hopper出生 触摸屏将成笔记本标配 电脑行业或将迎来又一春 触摸4G,你必须要知道的那些事儿 TIOBE 2013年12月编程语言排行榜:Transact-SQL冲刺年度语言 敏捷开发的6个实战经验 【图文】走近华为企业业务与支撑万人技术团队的云数据中心 《习惯联盟》陈晓冬:与京东云合作让我们没有后顾之忧 流计算与批处理同现:畅享大数据时代的开源实践 挑战和机遇并存:大数据时代机器学习与可视化 【企业开源系列】收发一条Twitter推文的背后 在IE11中更快地获得您需要的内容 暴露程序员身份的8个行为 英特尔创新应用大赛大评审!创新也有中国风 那位可以给我描述一下“代表”? 请问有WINsock编程高手么,帮我看一下下面的程序 紧急招聘PB程序员(成都) 关于产品序列号的问题……想了很久了。 这里有几个问题,能者请进! 请教VC项目开发经验 如何让下载的程序变成免费的? 请问有Pdf到Text的转化的源代码么? 能否让下载的程序变成免费的? 请问怎样才能自动复制文本框中的文本到剪贴板? 是否可用简体中文的VB开发翻体中文的应用程序? 使用JavaMail转发邮件 在servlet中是不是不可以引用其它的类中的函数.(这个类不是派生于HttpServlet) 为什么买书配送的光盘文件在BCB工程中打开后不让修改(打开前已转换为存档文件了)? 请教使用OPEN CLIENT 的一个小问题 索求算法 请问能否将下载的程序变成免费的? 现在学习C#不晚吧,:P 关于VB中控制运行实例的问题 请教关于DBGRid的问题。 请问在Java下如何实现文件压缩?有没有现成的接口或者压缩算法代码?多谢 这里下载C#电子书《C#教程》(中文 希望出版社) 我如何才能删除ORACLE中建立的用户??总是提示用户不存在或SQL第归错误等等!! CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!!CSDN灌水乐园的惊世大骗局!! 如何用简体中文VB开发翻体中文软件? 高分请教!!!! 一定加分!!!1111111 在打印或打印预览前如何获取报表页数 求助.希望有人帮忙!! 我用ACTIVE REPORT出了问题....相教 请问如何获得硬盘的序列号? 请问各位,有什么好的方法来为用户分配权限,要多少分就给多少? 我有一个www.cnjava.com,有没有人愿意要这个域名? 请问Delphi中关于fropro数据库的软删除问题!急用!谢谢! 当两个表用主键关联时,删除主表的一条记录,关联表对应的记录能不能自动删除(不用代码)? 大家来谈谈各自在制作网页时的css于inc的运用吧 小弟对Java及C#的一点看法-请大家指正! 高手请进,帮我看看这是什么意思?感谢非常 基于组件的三层应用程序怎么打包?200分相赠!!! 如何执行带OUT参数的ORACLE的存储过程 有谁做过矩阵奇异值分解的程序? 讨论:爱需要表白吗? 请教各位大侠:我用TNMStrm控件发送数据时,怎样实现定时连续发送?我现在发送一次成功,紧接着第二次发送就不行了,出现蓝屏. slide中的滚动条,有NM_RELEASEDCAPTURE事件,是响应mouseup,有没有什么事件响应mousedown的? 再送50分,求大家来讨论用存储过程建datawindow时应注意的事情。 我想做一个网页,实现文本分割,发送短消息! 那为老兄知道SCO OPENSERVER下面PHP的安装方法! 在asp中可不可以不用recordset来开发? 是否有好的ASP书籍 哪里有已经破解了的BAS4.5下载? 调用::GetCurrsorPos()和窗体成员函数GetCurrsorPos()得到的位置都不对???? 急:如何用java实现报表打印,给高分 工程队修建一条水渠,第一天修了180米.第二天修了全长的4分之1,第三天修的水渠的长度为前两.工程队修建一条水渠,第一天修了180米.第二天修了全长的4分之1,第三天修的水渠的长度为前两天 数学应用题:某一工程修一条路,第一天修了全长的二十七分之五,补充上面的:第二天修了余下的十一分之三,第三天修了第二天余下的六分之五,第四天修8千米,正好修完.求这条路的总长度 某工程队修一条路,第一天修了20%,第二天修了150米,两天一共修了全长的二分之一,这条路全长多少米? 一支工程队要修一条水渠,第一天修了全长的5分之1,第二天修了全长的4分之1,第二天比第一天多修了25千米,这条水渠全长多少米?(注意单位) 工程队修一条路,3天修了全长的9分之2,多少天可以修完? 修一条公路,第一天修了全长的三分之一,第二天修了全长的二分之一,两天共修了全长的几分之几? 修一条路 第一天修了全长的2分之1 第二天修了余下的2分之1,这条路还剩几分之几没有修? 工程队修一条公路,第一天铺了全长的五分之二第二天比第一天少铺三分之一,还剩210米没铺.这条路有多长? 有一条长24千米的公路,第一天修了它的八分之一,第二天修了五分之二千米,两天共修多少千米? 一条路100米,第一天修了这条路的2分之1,第2天修的是第一天的3分之1,还剩这条路的几分之几没有修 某工程队修筑一条马路,第一天修了全长的十分之三,第二天修了全长的五分之二,还剩630米没有修,这条马路全长多少米? 修一段路,第一天修了全长的五分之二,第二天修了全长的四分之一,两天共修了260米,这段路长多少米? 一条路100米,第一天修了全长的二分之一,第二天修了全长的三分之一,还剩这条路的几分之几没修? 市工程队修一条路第一天修了全长的五分之二第二天修了全长的百分之二十五还剩154米没修这条路全长多少米 加工一批零件,王师傅加工26个,占总数的5分之1,剩下零件按7:6分给张、李两位师傅.两位师傅各加工多少(方程和假设) 一段路第一天修了二分之一,第二天修了剩下的二分之一,还剩几分之几没修? 市工程队俢一条路,第一天修了全长的五分之二,第二天修了全长的百分之二十五,还剩154m没修,这条路全长多少m 李师傅加工一批零件,已加工的与未加工的个数比是1:3,再加工400个后,已加工的占总数的2分之1.这批加工的零件有多少个? 一条路一百米,第一天修了二分之一,第二天修了余下的三分之一,还剩这条路的几分之几?只要算式! 工程队修一条路.第一天修了全长的百分之二十五,第二天与第一天所修的比是4:3,还剩500米没有修.这条路 加工一批零件,王师傅加工26个,占总数的五分之一,剩下的零件按7:6分给张,李两位师傅,两位师傅各加工多少个 一段路,第一天修了二分之一,第二天修了二分之一,还剩全长的几分之几 修路队修一条公路,第一天修了全长的四分之一还多1.2千米,第二天修了全长的五分之二少0.8千米,这时还剩6.6千米没修,这条公路全长是多少千米? 李师傅要做350个零件,前三个小时完成了总数的七分之三.照这样的速度,他完成全他完成全部零件需要多少小时? 修一条水渠,第一天修了全长的十五分之二,第二天比第一天多修了全长的20分之3,还剩几分之几没有修? 某工程队,第一天修了600米,第二天修了全长的20%,两天共修了全长的1/2.这条公路全长多少米? 李师傅4分之3小时做6个零件,照这样的速度,他工作2分之5小时,一共可以做多少个 修一条长五分之四米长的水渠,第一天修了全长的三分之一,第二天修了全长的五分之二,还剩几分之几没有修把全长看做单位一来减,还是用五分之四减 某工程队修路,第一天修了三分之一,第二天修了50米,两天共修了全长的百分之50,这条路有多长? 两位师傅共同加工一批零件,张师傅4小时加工了全部的5分之2,李师傅4小时加工了280个.这时剩下未加工一批零件个数与这批零件总数的比是1:4,这批零件共有多少个?注:算式. 修一条水渠,第一天修了全长的十五分之二,第二天修了全长的十分之一,还剩几分之几没有修? 某工程队修路,第一天修全长的百分之25,第二天修一百五十米,两天共修了全长的十分之三,这段公路长多少米求列算式详细回答,有讲解 李师傅要生产一批零件,6天生产了这批零件的十分之三,照这样的速度计算,还要多少天才能完成任务?用比例知识解体 修一条长5分之4米长的水渠,第一天修了全长的3分之1,第2天修了 全长的5分之2还剩几分之几没有修 工程队修路,第一天修了600米,第二天修了全长的20%,两天共修了全长的1/2.公路全长? 李师傅加工一批零件,如果每天做50个,要比计划晚8天完成;如果每天做60个,可早5天完成.这批零件共有多少个? 一条路100米,第一天修了这条路的12%,第二天修了余下的13%,还剩这条路的几分之几没修? 某工程队修路,第一天修了600米,第二天修了全长的20%,两天一共修了全长的二分之一.这条公路全长多少米? 李师傅计划做一批零件,如果他每小时多做10个,可提前1小时完成任务,如果他每小时多做20个,则又提前1小时完成任务,共多少 一条路长100米,第1天修了1/2,第2天修了1/3,还剩这条路的几分之几没修? 一个工程队修一条公路,第一个月修了全长的四分之一,第二个月修了全长的五分之二,第二个月比第一个月多修了12千米,这条公路全长多少千米? 李师傅加工一批零件,如果每天做50个,要比原计划晚8天完成,如果每天做60个,就可以比原计划提前5天完成.问这批零件共有多少个? 工程队修一段160米长的公路,第一天修了全长的1/5第二天修了全长的3/8,还剩全长的几分之几没有修? 一个工程队修一条公路,第一个月修了全长四分之一,第二个月修了全长的五分之二,还剩14千米这条公路全长多少千米? 加工一批零件,张师傅单独6小时完成,李师傅单独做8小时完成,李师傅的工作效率是张师傅工作效率的几分之 工程队修一条长3/4千米的道路,第一天修全长的1/4,第二天修全长的1/3,还剩全长的几分之几没有修完 1.一个工程队修一条公路,第一个月修了全长的四分之一,第二个月修了全长的五分之二,第二个月比第一个月多修十二千米.这条公路长多少千米?2.仓库里有一批货物,运出五分之三后,又运进二 李师傅的工作效率是张师傅的4分之3,加工以批零件谁用的时间短? 工程队修一条公路,第一天修了全长的3分之1,第二天修了80米,还剩86米没有修,这条公路长多少米? 某工程队三个月内修一条全长为12千米的公路,第一个月修了五又三分之一,第二个月修了剩下的五分之二,第三个月修了多少米速度速度 啊 加工同一批零件,王师傅要用10小时,李师傅要用8小时.那么李师傅的工作效率比王师傅高( ).1 20%2 25%3 120% 工程队修一条水渠,第一天修了全长的25%,第二天修了全长的30%,还剩下900米没修,这条渠全长多少米?今天就要 工程队要修一条长200米得路,修了一段后还剩63米没修.已知的米数占 条路的几分之几 修一条路,第一天修了300米,第二天修了全长的四分之一,两天共修了全长的十八分之五,这条路长多少米? 工程队修一条水渠,第一天修了全长的15%,第二天修了全长的40%,还剩下900米没修,这道水渠全长多少米 工程队修一条路已经修了5分之4千米,剩下的是已修的8分之7,这条路长多少千米? 工程队修一条路,第一天修了全长的30%,第二天修了30米,两天共修了全长的50%,这条路全长多少米? 某工程队挖一条水渠.第一天挖了全长的5分之1,第二天又挖了全长的5分之1,第三天挖了全长的6分之1.这条水渠(要算式) 应用题:工程队修一条路,已修了800米,正好占全长的9分之4.这条路全长多 工程队修一条路,第一天修的比全长的1/3少100m,第二天修了300m,两天共修了全长的40%,这条路长多少米?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn