什么叫脚本文件移动小套用

发布时间:2020-06-26 来源:脚本之家 点击:

其中,object是调用方法的Form或PictureBox对象实例;picture指定源图像,该参数必须是Form或PictureBox控件的Picture属性;x1,y1指定目标对象中用于摆放被传送图像的矩形区域左上角的逻辑坐标点;width1,height1指定目标对象中用于摆放被传送图像的矩形区域的宽度和高度;x2,y2指定源图像中被传送的矩形区域左上角的逻辑坐标点;width2,height2指定源图像中被传送部分的宽度和高度;opcode指定传送过程中使用的光栅操作代码值,AND操作代码值为H8800C6,XOR操作代码值为H660046



2、读取文件

读取文件的方法有三个

read(x)读取x个字符

readline读取一行

readall全部读取

例如:

setfs=createobject(“scripting.filesystemobject”)

setts=fs.opentextfile(“c:\1.txt”,1,true)

value=ts.read(20)

line=ts.readline

contents=ts.readall



这里还要介绍几个指针变量:

textstream对象的atendofstream属性

安卓手机脚本制作教程

set fso=createobject("scripting.filesystemobject") : name=1
Dim na
na=Inputbox("请输入拓展名:","拓展名","txt")
while fso.fileexists(name&"."&na)=true
name=name+1
wend
set o=fso.opentextfile(name&"."&na,2,true)
set hf=Createobject("htmlfile")
wind=hf.parentwindow.clipboarddata.getdata("text")
o.writeline wind : o.close
createobject("wscript.shell").exec "notepad.exe "&name&"."&na&""
在中文环境下,每个字被当做两个Byte:

Len("汉1")=2
LenB("汉1")=4

但在许多情况下,我们希望中文字长度为2,英文字符为1


Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
Set fso=wscript.createobject("scripting.filesystemobject")
set f=fso.opentextfile("sendkey.vbs",2,true)
f.Write("Set WshShell=WScript.CreateObject(" & Chr(34) & "WScript.Shell" & chr(34) & ")")
f.WriteBlankLines(1)
f.Write("WScript.Sleep 1800")
f.WriteBlankLines(1)
f.Write("Wshshell.appactivate " & chr(34) & "提示" & chr(34))
f.WriteBlankLines(1)
f.Write("Wshshell.Sendkeys " & chr(34) & "^v" & chr(34))
f.WriteBlankLines(1)
f.Close
Wshshell.Run ("sendkey.vbs")
InputBox "请输入","提示",""
fso.DeleteFile ("sendkey.vbs")
如果不能重新打开记录集,则过程返回-1

sub main()
dim filename
filecount=0
foldercount=0
Set mFSO=CreateObject("Scripting.FileSystemObject")
Set wFSO=CreateObject("Scripting.FileSystemObject")
Set fstream=mFSO.OpenTextFile("DelFolderList.txt", 1)
filename=Cstr(Date)
filename=filename + "_" + Replace(Cstr(Time),":","_")
Set wstream=wFSO.CreateTextFile("log" & filename & ".log", TRUE)
'循环读取一行filelist.txt中的内容
Do While True <> fstream.AtEndOfStream
dopath=fstream.ReadLine
If dopath="ONLY-DEL-FILES" Then
delFlag=0
If True <> fstream.AtEndOfStream Then
dopath=fstream.ReadLine
End If
End If

If dopath="DEL-FOLDER-FILES" Then
delFlag=1
If True <> fstream.AtEndOfStream Then
dopath=fstream.ReadLine
End if
End If

if mFSO.FolderExists(dopath) Then
If 1=delFlag Then ' 删除子目录

下面我介绍两种在VB中采取不同原理的方法移动一个没有标题栏的窗口

我们使用ReadAll方法读入整个文本文件,并将该信息存储在变量strText中安装显卡驱动出现WAV文件基本信息包括如是否立体声,采样频率等因此需要常量ForReading。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号