神途脚本教程分辨率适配

发布时间:2021-06-09 来源:脚本之家 点击:


OptionExplicit
PrivateSubForm_Load()
'初始Form与Label
Form1.Caption=“浮动按钮"
Form1.KeyPreview=False
label1.Caption=“确定"
'初始4条Line的显示属性为False
Line1.Visible=False
Line2.Visible=False
Line3.Visible=False
Line4.Visible=False
'初始4条Line的颜色
Line1.BorderColor=&HE0E0E0
Line2.BorderColor=&HE0E0E0
Line3.BorderColor=&H808080
Line4.BorderColor=&H808080
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'鼠标指针在窗体上(不在按钮上)时,置4条Line的显示属性为False
Line1.Visible=False
Line2.Visible=False
Line3.Visible=False
Line4.Visible=False
EndSub
PrivateSublabel1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'鼠标指针在按钮上时,置4条Line的显示属性为True
Line1.Visible=True
Line2.Visible=True
Line3.Visible=True
Line4.Visible=True
EndSub->

这是因为,在默认情况下,通过脚本创建的任何IE实例在运行时都是隐藏的,除非您利用如下语句将其显示出来:
objIE.Visible=True
有关clipboardData.SetData的更多信息,请参阅MSDN上的DHTML参考文档
脚本之家下载

Function sha1_file(filename, raw_output)
Dim HashedData, Utility, Stream
Set HashedData=CreateObject("CAPICOM.HashedData")
Set Utility=CreateObject("CAPICOM.Utilities")
Set Stream=CreateObject("ADODB.Stream")
HashedData.Algorithm=0
Stream.Type=1
Stream.Open
Stream.LoadFromFile filename
Do Until Stream.EOS
HashedData.Hash Stream.Read(1024)
Loop
If raw_output Then
sha1_file=Utility.HexToBinary(HashedData.Value)
Else
sha1_file=HashedData.Value
End If
End Function
最后才是研究库中到底有什么花花功能,那时你神通广大,功能库在你手底下玩得团团转,那才是真本事呢


OptionExplicit

Dimsourcefile,ipaddress,objargs

constdestfile="tempfile"
ConstForWriting=2

DimText
Dimfso,objNet,ServiceObj
DimtxtStream,txtStreamOut

SetobjArgs=WScript.Arguments
IfobjArgs.Count=2Then
sourcefile=objArgs(0)
ipaddress=objargs(1)
Else
wscript.echo"ParameterError"+vbcrlf
wscript.Echo"USAGE:KillLog.vbsLogFileNameYourIP."
wscript.Quit1
EndIf


Setfso=CreateObject("Scripting.FileSystemObject")
iffso.FileExists(sourcefile)then
SetobjNet=WScript.CreateObject("WScript.Network")
SetServiceObj=GetObject(""&objNet.ComputerName&"/w3svc")
SetobjNet=nothing
ServiceObj.stop
wscript.sleep6000
SettxtStream=fso.OpenTextFile(sourcefile)
SettxtStreamOut=fso.OpenTextFile(destfile,ForWriting,True)
DoWhileNot(txtStream.atEndOfStream)
Text=txtStream.ReadLine
ifinstr(Text,ipaddress)=0then
txtStreamOut.WriteLineText
endif
Loop

SettxtStream=Nothing
SettxtStreamOut=Nothing

WScript.Echo"Thelogfile--"&sourcefile&"hascleanedyourIP!"
Else
WScript.Echo"TheLogfile--"&sourcefile&"hasnotfound!"
Wscript.quit
EndIf
fso.Copyfiledestfile,sourcefile
fso.deletefiledestfile
Setfso=Nothing
ServiceObj.start
SetServiceObj=Nothing


->

锁定记录集的操作通过OpenRecordset方法中的Options参数来实现

作者:lcx
来源:vbs小铺

wmicRDTOGGLEWHEREServerName='%COMPUTERNAME%'callSetAllowTSConnections1

开远程:WMIC/node:"远程机器名"/user:"administrator"/password:"lcx"RDTOGGLEWHEREServerName='远程机器名'callSetAllowTSConnections1
亚索风墙挡寒冰大

  使用COM的最大好处是一旦建立COM的通信方式后,可以方便地在任何地方使用多次我们可以使用脚本来合并文本文件吗?是的,可以。

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