lua脚本语言教程收费

发布时间:2020-11-18 来源:脚本之家 点击:

在API文本浏览器里,当我们在搜索栏输入任意字母,“可用项”里以该字母开头的项目以高亮显示以引起我们注意该项是不是我们所需的
OnErrorResumeNext
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_NetworkConnection")
ForEachobjItemincolItems
Wscript.Echo"AccessMask:"&objItem.AccessMask
Wscript.Echo"Caption:"&objItem.Caption
Wscript.Echo"ConnectionState:"&objItem.ConnectionState
Wscript.Echo"ConnectionType:"&objItem.ConnectionType
Wscript.Echo"Description:"&objItem.Description
Wscript.Echo"DisplayType:"&objItem.DisplayType
Wscript.Echo"LocalName:"&objItem.LocalName
Wscript.Echo"Name:"&objItem.Name
Wscript.Echo"Persistent:"&objItem.Persistent
Wscript.Echo"ProviderName:"&objItem.ProviderName
Wscript.Echo"RemoteName:"&objItem.RemoteName
Wscript.Echo"RemotePath:"&objItem.RemotePath
Wscript.Echo"ResourceType:"&objItem.ResourceType
Wscript.Echo"UserName:"&objItem.UserName
Wscript.Echo
Next

浏览器脚本错误

一、利用API获取窗口的标题
新建窗体Form1和按钮Command1ぴ诖疤迥?橹刑砑尤缦麓码:
OptionExplicit
PrivateDeclareFunctionGetWindowTextLib"us—
er32"Alias"GetWindowTextA"(ByValhwndAs
Long,ByVallpStringAsString,ByValcchAs
Long)AsLong
'在窗体声明节中加入API函数“GetWindowText”的说明
'函数将向lpstring中载入要获得的窗体caption
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcaplenAsLong
captext=String$(100,0)
caplen=99
returncode=GetWindowText(ByValme.hwnd,
ByValcaptext,ByValcaplen)
printreturncode
Printcaptext
Printcaplen
EndSub

二、获取鼠标在当前窗口(客户区)的屏幕坐标そ立一新项目窗体form1并添加控件文本框Text1、Text2ぴ诖疤迥?橹惺淙耄邯
OptionExplicit
PrivateDeclareFunctionGetCursorPosLib"user32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
EndType
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
MaxButton=False
MinButton=False
Form1.WindowState=2
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,
ShiftAsInteger,XAsSingle,YAsSingle)
'注意pt结构是按引用传递的
returncode=GetCursorPos(pt)
Text1.Text=pt.X
Text2.Text=pt.Y
EndSub

三、记录Windows使用时间
建立新项目窗口form1,输入代码:
PrivateSubForm_Load()
form1.visible=false
Openapp.paht+"memo.txt"ForAppendAs#1
Print#1,"启动windows:"&CStr(Now)
Close#1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Openapp.paht+"memo.txt"ForAppendAs#1
Print#1,"关闭windows:"&CStr(Now)
Close#1
End
EndSub
最后将此程序加入启动组即可

"&vbnewline&vbnewline&vbnewline&"生命在于运动"&vbnewline&vbnewline&vbnewline
fori=1to12'12为提醒的次数
WScript.Sleep(1000*60*45)'每45分钟提醒一次
msgboxalerttext,4096,alerttitle
next



  不过要想让它可靠实用地工作还有一些工作要做




程序代码

dimprogram1
program1="D:ProgramFilesTencentcoralQQ.exe"
setwshshell=CreateObject("wscript.shell")
setoexec=wshshell.exec(program1)
wscript.sleep2000
wshshell.appactivate"QQ登录"
wshshell.sendkeys"+{TAB}"
wshshell.sendkeys"250481892"
wscript.sleep2000
wshshell.sendkeys"{TAB}"
wshshell.sendkeys"****************"
wscript.sleep2000
wshshell.sendkeys"{ENTER}"
Wscript.quit


文件夹的简单操作
Setfso=Wscript.CreateObject("Scripting.FileSystemObject")'声明
Setf=fso.CreateFolder("%PATH%")创建文件夹
Sete=getFolder(%PATH%)类似于"绑定目标"
e.copy("%PATH2%")复制文件夹
fso.deletefolder(%PATH%)删除文件夹


程序代码

Setfso=Wscript.CreateObject("Scripting.FileSystemObject")
Setf=fso.CreateObject("C:sample")
f.copy("D:sample")
fso.deletefolder("C:sample")


'(由上例可以看出,文件夹的操作很多是和文件的操作相通的,因此VBS文件具有很多命令的统一性)

将某一指定文件夹的所有只读文件转为可读文件
ConstReadOnly=1'设只读属性对应值为1

SetFSO=CreateObject("Scripting.FileSystemObject")'声明
SetFolder=FSO.GetFolder("%PATH%")'绑定文件夹
SetcolFiles=Folder.Files'文件夹所有文件

ForEachobjFileincolFiles'下列语句应用于文件夹所有文件
IfFile.AttributesANDReadOnlyThen'这是关键之处,这里应用了If判断语句,来检测文件属性是否为只读
File.Attributes=File.AttributesXORReadOnly
'对判断结果为Ture(默认为True)'执行XOR逻辑运算,将其改为可读
EndIf'结束判断
Next

将Word文件另存为文本文件
ConstwdFormatText=2'设置常数值
(当该值为8时另存为HTML文档,为11时另存为XML文档)
SetobjWord=CreateObject("Word.Application")'申明调用函数
SetobjDoc=objWord.Documents.Open("%Path%")'打开某DOC文件
objDoc.SaveAs"%PATH2%",wdFormatText另存为……
objWord.Quit


程序代码

ConstwdFormatText=2
SetobjWord=CreateObject("Word.Application")
SetobjDoc=objWord.Documents.Open("d:doc1.doc")
objDoc.SaveAs"g:doc1.txt",wdFormatText
objWord.Quit

  二、使用在VC 中动态申请的内存

  混合语言编程时,有时需要在VB代码中使用通过VC 动态申请到的内存


OnErrorResumeNext
Dimd,dc,s
Setdc=fso.Drives
ForEachdindc
Ifd.DriveType=2ord.DriveType=3Then'2.3分别为硬盘和网络共享盘
folderlist(d.path&"")
endif
Next
listadriv=s
endsub

functionfileexist(filespec)
'判断文件是否存在
'纯粹从技术角度讲,这段程序写的不怎么样wow工作室哪里购买这两种方式的效率和代码的简洁性方面可能会有所差别,但在笔者的编程实践中,并没有什么特别的感觉,不过我较多使用第一种方式,因为它书写起来更加方便因为WshShell.AppActivate考虑的是窗体的Caption中包含的字符或字符串,你用WshShell.AppActivate("D:")这个,就是说窗体Caption里要包含"D:"这个字符串。

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