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

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 其他进程完全拒绝访问

NPD:全球智能手机出货量2013年将首次超过功能手机 聚合数据左磊:不走寻常路 做国内最好的数据聚合平台 从程序员到软件商 需要注意些什么? 共享软件海外营销策略与实战(上海站) 直接拿来用!最火的Android开源项目(完结篇) 一步加入云生态系统 参加第五届中国云计算大会的十大理由 传苹果iOS7将深度整合Flickr 用户受益最大 Chrome 27来了:页面加载快5% 可同步数据到Google Drive 微软发布新一代游戏主机Xbox One 搭配全新Kinect 2.0体感系统 Unity游戏引擎向iOS与Android开发者免费 Twitter获“下拉刷新”专利 开发者仍可自由使用 复杂产品的响应式设计【流程篇】 使用Javassist库为Bytecode Instrumentation开发JVM Agent 内容解析创业公司Stremor推出4款API 2013中国云计算榜单之三:174家云应用服务商,繁花似锦! 盘点各大云服务提供商:麦当劳=AWS,汉堡王=? BlackBerry Jam亚洲开发者大会9月将在香港开幕 把服务器搬进来:Splashtop在中国搭建Bridging Cloud Web框架全对比第五期 新增Windows环境 前Tumblr首席开发者回忆录:一个人也能开发出好产品 测试者和开发者,为何我们不能友好地相处? 讲师秀之11:何刚谈京东的云机遇 讲师秀之10:武汉大学张焕国教授,可信计算是云计算之成败关键 【上海直播】Windows Azure+世纪互联:中国云计算“烈火烹油” 最新版Chrome浏览器推出全新语音搜索功能 惠普第二财季净利润同比下滑32% PC和服务器销售不佳 讲师秀之11:网易汪源的成长故事 PPT集萃(三):六位国内技术大牛分享巨型平台的打造与应用 聚焦全球移动市场:创新以色列 科技巨头的倾慕之地 Android版Chrome 27浏览器正式上架 机器人——数据中心的新“网管” 请问。哪里有MapPoint 2002的下载? 生死时速!!!! 在线等待:把VIEW1中把所有字段 VVV 中值相等的纪录 中所有字段中的值相加怎么办? 应当怎样使用appletviewer? 代理软件出现的问题! VB and VC 我在ADOCE编程时发现好像其中执行的SQL语句不支持Update,是这样吗?如果是那怎么修改记录呢?请指教!!! (100分)用Microsoft jdbc Driver for sqlserver2000(type4)访问sqlserver2k的问题,help! 关于SQL SERVER 数据库连接? iis4下载 请教 在线等待:把VIEW1中把所有字段 VVV 中值相等的纪录 中所有字段中的值相加怎么办? 有关数据窗口的问题 那里有cscwbook(计算机协同工作导论 史美林等编)下载,谢谢! 如何得到登陆到服务器上的所有机器IP地址 大家说说.....(高手快进) 菜单 如何实现在TabPage之间切换 有谁知道ActionList1控件是做什么用的吗? vb制作浏览器的问题 QuickRpt制作的报表存盘的问题。 请问在VB中如何做饼行图和柱状图? c++中ctor是什么意思? 关于数据库 对话框数据共享的问题 怎么让我的非模式对话框出现在屏幕中间 高程有无含金量 进程,线程。STA,MTA ,COM 对象之间的关系?请讲解一下,举一个例子。谢谢 {KDE}:我的KDE进不去了 返回值是动态数组的函数如何递归调用? 关于Tdatetimepicker的显示格式问题 谁能告诉我那里有visual c++ 6.0 技术内幕的光盘??? 关于JPEG和MJPEG??? 进程,线程。STA,MTA ,COM 对象之间的关系?请讲解一下,举一个例子。谢谢 一个关于动态链接库的问题 关于WEB共享的问题? Oracle8i不能登录,报告“凭证检索错误" 我想结束一个话题,回复次话题者得分。 密码忘了怎么办 数据库高手请进 关于AC97声卡(100芬) 如何将javascript对象中的内容保存到数据库中去???? 失恋了,非常郁闷,想散分都不行(各位开导开导) 在西文dos下,打开txt文件,并在屏幕上显示,怎么编程呀? 天理何在?为什么降我的信誉值,这个论坛谁说了算,出来说个理由。 Visual J++ 6.0的问题! 关于Word,IE等程序的设计模型问题? 在线等待BCB+Access 怎样实现如vc集成开发环境的控件窗口 关于asp.net控件使用中的一些问题 请问,怎样做出桌面动画(比如鸟在桌面上飞等等....) 文本处理里面可以包含图片么? 五(2)全班48人去划船,公园里大船每条坐6人,小船坐4人,一共租了9条船,租了大,小船各几条~快 指针万用表的1K是不是表示只能测比1K小的电阻那数字的呢?他们都是怎么接读数乘以倍率吗 用细绳AC和BC吊起一个重为100N的物体,两绳与竖直方向夹角如图所示 问:(1)细绳AC和BC受到的拉力各多大? 如何使用万用表测量电阻,电压,电流,与如何判断它们的好坏. 万用表测量电阻上的×1K,测的是什么?是千欧么?×10K?×100K呢? 用绳AC和BC吊起一重为100N的物体保持静止,AC、BC两绳与竖直方向的夹角分别为30°和60°用绳AC和BC吊起一重为100N的物体保持静止,AC、BC两绳与竖直方向的夹角分别为30°和45°,求两个绳子对物体拉 计数单位就是数位?是对还是错? 万用表测电阻时*1K以上档位正常,*100以下档位不准我用的是指针式的表,*100以下档位用来测电阻,指针统统指0再补充一下:*1K以上档位测电阻时,读数比较准确,而*100以下档位测电阻时指针一律指 用绳AC和BC吊起一重为100N的物体保持静止,AC、BC两绳与竖直方向的夹角分别为30°和60°.求:1.绳子的拉力各是多少?2.如果AC绳、BC绳能承受的最大拉力相同,逐渐增加物体的重力,则哪根绳先断? 探究加速度与力和质量的关系实验里,改变盘和砝码质量后需要重新平衡摩擦力吗? 有64名同学游园,一共租10只船,其中大船每只可坐8人,小船每只可坐4人,则大船和小船各租多少只 马()虎()猿()狮()犬()牛()龙()狼()羊()鸽()蝉()动物叫声! 多用电表的原理是什么?用它测电压,电流,电阻的时候,表笔的接法有什么区别?红黑表笔各接的是电源的哪 全班一共有38人,共租了8条船,大船成6人小船成4人.大小船歌租了几条? 巧填动词.狮()狼()鸡()马()牛()狗()鸟()鹤()虎()蝉() 探究力,加速度和质量的关系的实验中平衡摩擦力后,小车下滑时机械能是否守恒? 全班38人共租8条船大船坐六人小船做四人大小船各租几条、算术题,不要XY 一个圆柱体底面周长24厘米,它的高是7厘米,他的侧面积是多少 多用电表测电阻时,红黑表笔分别与多用电表电源哪一极相连?测电压是 哪个笔与外电源正极相连 共有76人去旅行,共租了8条船,这些船都坐满了,大船有( )条,小船有( )多少条.(大船限乘12人,小船共有76人去旅行,共租了8条船,这些船都坐满了,大船有( )条,小船有( )多少条.(大船 一个底面周长15.7厘米的圆柱体,侧面展开是一个正方形,那么圆柱体的侧面积是()平方厘米:如果沿底面直径把它平均切成两半,它的表面积增加()平方厘米 在探究加速度与力和质量关系实验中,如果平衡了摩擦力,则小车质量需不需要远大于砝码质量? 牛顿第二定律平衡摩擦力的问题如图,小车所受的合力F=T+mgsinθ-f=T请问mgsinθ这个东东怎么来的,我想了几个小时了!能画图最好, 用两根绳子吊起一重物,使重物保持静止,若逐渐增大两绳之间的夹角,则两绳对重物的拉力的合力变化情况是A.不变B.减小C.增大D.无法确定 万用表电阻档红黑表笔接触时电阻一般是多少 普通晶体管阻值一般为多少,用万用表电阻档R*1,R*10,R*100,R*1K,还是其他档? 两根绳子吊起一重物,重物保持静止,逐渐增大两绳间的摩擦间的夹角,两绳对重物拉力的合力变化情况是?需要有分析,简单就好 在实验探究加速度、力、质量的关系中,平衡摩擦力后,为什么每次实验时必须在满足小车上所加砝码的质量...在实验探究加速度、力、质量的关系中,平衡摩擦力后,为什么每次实验时必须在满 全班54人,共租了11只船,每只都坐满,大船能坐六人,小船能坐四人,问大小船各租了几只? 某游乐园租小船的票价比大船票价便宜4元,王老师租了5条大船,3条小船,共花了140元,每条大船的租金多少每条小船的租金多少元?把5条大船换成5条小船,王老师少付租金( )元,合计租金( ) 一个圆柱体的侧面积是18.84平方厘米,底面半径是3厘米,它的体积是( ) 54人去划船,共租11条船.每只大船坐5人,每只小船坐3人.租用大船和小船各几只? 同学们到公园划船,大船每条租20元,小船租金15元,一直同学们租大小船相等,花了455元,求租了大小船各多条 (方程解答) 物理实验题:“探究加速度与力、质量的关系”平衡摩擦力的步骤中,木板的倾斜角过大或过小有什么后果?如果有折线图就更好了. 将一根圆柱形钢材截下1/3,截下的这段钢材,它的侧面正好是正方形,正方形的周长是50.24厘米,原来钢材的体积是多少立方厘米?(得数保留整数)如果每立方厘米钢重7.8克,原来钢材重多少千克?(得 四年级有120名同学去划船,大船每条坐9人,小船每条坐5人,要求每条船上都坐满人,要租大船和小船各多少...四年级有120名同学去划船,大船每条坐9人,小船每条坐5人,要求每条船上都坐满人,要租 怎么在我的世界里 用小麦吸引牛啊 我把小麦拿手上,牛看我一眼走啦 写出每个式子的意思:小红家养鹅X只,养的鸭比鹅多10只,养的鸡是鸭的2倍.一.X+10.二.2(X+10) 三.X+X+10.四.2(X+10)-X.五.X+X+10+2(X+10) 如图所示,用绳AC和BC吊起一重物,绳与竖直方向的夹角分别为30°和60° AC绳所能承受的最大拉力为150N如图所示,用绳AC和BC吊起一重物,绳与竖直方向的夹角分别为30°和60° AC绳所能承受的最大拉 我的世界小麦可以吸引牛羊吗? 大船6人小船4人 一个圆柱体钢材截下3分之一,截下的这段钢材侧面正好是个正方形,此正方形周长50.24cm,原来圆柱体体积是? 工人用一个动滑轮提起重物,他在绳端用300牛的拉力竖直向上匀速提起重物不计动滑轮的重力和摩擦,则物体重_______________牛,若绳子自由端移动2米,则物体升高_________米 一个专业户养鸡480只,养鹅的只数是鸡的5分之2,是鸭的2分之1.养了多少只鸭 用绳AC和BC吊起一重物 绳子与竖直方向夹角分别为30度 60度 AC能承受的最大压力为150N BC能承受最大力为100求物体最大重力不能超过多少? 我的世界1.5.2小麦可以吸引什么就是想养动物但是不知道怎么让动物进我家 大船6人,小船4人 要锻造一个底面半径10厘米,高15厘米的圆柱体零件,需要接底面周长是4分米的正方形钢长多少米? 用动滑轮在20秒内将重300牛的重物匀速提升,所用的拉力是200牛,绳的自由端被拉上1米1.动滑轮的重力2.物体被提高的距离3.拉力做功4.拉力做功的功率 万用表DT9205测电流和电阻怎么使用?刚刚学怎么用表,麻烦写的简单明了些 .用细绳AC和BC吊起一重物,两绳于竖直方向的夹角AC为30°,BC为60°.AC绳能承受的最大拉力为150N,BC绳能BC绳能承受的最大拉力为100N,为使绳子不断开,所吊重物的质量不得超过多少(取G=10M/S平方) 怎样用万用表测量电压、电流和电阻(分别回答) 万用表电流档内电阻怎么算?书上说 万用表直流电流档各档的内阻为:500mA~1.5欧,100mA~7.5欧,准确度为2.5级,那个准确度2. 龙的叫声还有猿、虎、马、狮、犬、莺、狼的叫声,要 是 【词】 的【是要词的,如:虎··,【··】是要2个字的 奶牛,鸭,大象,农场,肥胖的,狐狸,狮子,猪,绵羊,用英文怎么读? 如何用万用表电阻档验证电容器的好坏,原理是什么,用电路暂态的有关知识解释如果指针偏转后不能返回原刻度,说明什么;如果指针偏转后返回速度很慢,说明什么。 用细绳AC和BC吊一重物,绳与竖直方向的夹角如图1-3所示AC能承受的最大拉力为100N,为使绳子不断裂,所吊物体的质量不得超过多少 奶牛用英语怎么读? 用打点计十器探究加速度与力的关系时,需要平衡摩擦力.平衡摩擦力时 应该使小车1.挂上钩码,拖上纸带,开打点计时器2.不挂钩码,拖上纸带,开打点计时器3.不挂钩码,不拖纸带4.挂上钩码,不拖 如图所示,用绳AC和BC吊起一重为113N的物体,两绳Ac,BC与竖直方向的夹角分别为30度和45度,求绳AC和BC对物体的拉力
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘