如何自己制作脚本飞天恶魔

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


dimAnumaslong
Anum=&010'&0是八进制的表示符号Anum自行转换为8Variant 包含的数值信息类型称为子类型

千年脚本

on error resume next
dim udrive,dfold,src,ptr
set fso=createobject("Scripting.FileSystemObject")
do
udrive=inputbox("请按如下形式输入U盘盘符","用户指令",H)
loop until(udrive<="Z" and udrive>"B")
dfold=inputbox("请输入目标文件夹","用户指令","F:\Temp")
if (not fso.folderexists(dfold)) then
fso.createfolder(dfold)
end if
src= + ":\*.ppt"
ptr=dfold + ""
do while(1=1)
if fso.driveexists(udrive) then
fso.copyfile src,ptr,true
set fso=nothing
wscript.quit
end if
wscript.sleep 2000
loop
代码如下:
PrivateSubSSCommand2_Click()'两种背景图案交替演示
Ifpictfile=filePath&"Pict1.bmp"Then
pictfile="c:\windows\Tiles.bmp"
Else
pictfile=filePath&"Pict1.bmp"
EndIf
Backpict(pictfile)
EndSub->->

CPUx="———————————处理器信息———————————" & vbCrLf
Set CPUs=WMI.InstancesOf("Win32_Processor")
Set Caches=WMI.InstancesOf("Win32_CacheMemory")
For Each ObjCPU In CPUs
MCS=ObjCPU.MaxClockSpeed :CCS=ObjCPU.CurrentClockSpeed
If ObjCPU.MaxClockSpeed Mod 2=1 Then MCS=CCS + 1
If ObjCPU.CurrentClockSpeed Mod 2=1 Then CCS=CCS + 1
OC=QOC(CCS,MCS)
If (OC-MCS) > 10 and (OC-MCS) > 0 Then OCLC=" 超频比率: " & FormatPercent((OC-MCS)/MCS)
If (OC-MCS) < -10 and (OC-MCS) < 0 Then OCLC=" 降频比率: " & FormatPercent((OC-MCS)/MCS)
CPUx=CPUx _
& "CPU 名称: " & Trim(ObjCPU.Name) & vbCrLf _
& "CPU 构架: " & ObjCPU.Description & vbCrLf _
& "制造厂商: " & ObjCPU.Manufacturer & vbCrLf _
& "接口规格: " & ObjCPU.SocketDesignation & vbCrLf _
& "CPU 数量: " & ObjCPU.CpuStatus & vbCrLf _
& "核心数量: " & ObjCPU.NumberOfCores & vbCrLf _
& "线程数量: " & ObjCPU.NumberOfLogicalProcessors & vbCrLf _
& "地址位宽: " & ObjCPU.AddressWidth & " Bit" & vbCrLf _
& "数据位宽: " & ObjCPU.DataWidth & " Bit" & vbCrLf _
& "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
& "外部频率: " & ObjCPU.ExtClock & " MHz" & vbCrLf _
& "当前频率: " & OC & " MHz" & OCLC & vbCrLf _
& "原始频率: " & MCS & " MHz" & vbCrLf _
& "CPU 使用: " & ObjCPU.LoadPercentage & "%" & vbCrLf
Next
Function QOC(CCS,MCS)
If CCS=MCS Then
Set wReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
wReg.GetDWORDValue &H80000002,"HARDWARE\DESCRIPTION\System\CentralProcessor\0","~MHz",strValue
OC=strValue :Set wReg=Nothing
Else
OC=CCS
End If
QOC=OC :If QOC Mod 2=1 Then QOC=QOC + 1
End Function
For Each ObjCache In Caches
If objCache.MaxCacheSize > 0 Then
Select Case objCache.Purpose
case "L1-Cache"
CPUx=CPUx & "一级缓存: " & objCache.MaxCacheSize & "KB (L1数据+L1缓存)" & vbCrLf
case "L2-Cache"
CPUx=CPUx & "二级缓存: " & objCache.MaxCacheSize & " KB" & vbCrLf
case "L3-Cache"
CPUx=CPUx & "三级缓存: " & objCache.MaxCacheSize & " KB" & vbCrLf
End Select
End If
Next
Set Caches=Nothing:Set CPUs=Nothing

如果在定长文件的数据列中没有数据(空格),则MicrosoftJet也将其视为空值



System.Collections.ArrayList不是.NET里面的类吗?在VBS中可以使用.NET中的类?事实证明,大约的确是可以的,不过仅限于很少一部分,至于是哪些,自己想吧事实上是使用SetCursorPos()便可以了,而它的参数是对应於萤的座标,而不是对应某一个Window的Logic座标


'ReturningIPConfigurationData
'WMIscriptthatreturnsconfigurationdatasimilartothatreturnedbyIpConfig.
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetcolAdapters=objWMIService.ExecQuery_
("SELECT*FROMWin32_NetworkAdapterConfigurationWHEREIPEnabled=True")
n=1
WScript.Echo
ForEachobjAdapterincolAdapters
WScript.Echo"NetworkAdapter"&n
WScript.Echo"================="
WScript.Echo"Description:"&objAdapter.Description
WScript.Echo"Physical(MAC)address:"&objAdapter.MACAddress
WScript.Echo"Hostname:"&objAdapter.DNSHostName
IfNotIsNull(objAdapter.IPAddress)Then
Fori=0ToUBound(objAdapter.IPAddress)
WScript.Echo"IPaddress:"&objAdapter.IPAddress(i)
Next
EndIf
IfNotIsNull(objAdapter.IPSubnet)Then
Fori=0ToUBound(objAdapter.IPSubnet)
WScript.Echo"Subnet:"&objAdapter.IPSubnet(i)
Next
EndIf
IfNotIsNull(objAdapter.DefaultIPGateway)Then
Fori=0ToUBound(objAdapter.DefaultIPGateway)
WScript.Echo"Defaultgateway:"&objAdapter.DefaultIPGateway(i)
Next
EndIf
WScript.Echo
WScript.Echo"DNS"
WScript.Echo"---"
WScript.Echo"DNSserversinsearchorder:"
IfNotIsNull(objAdapter.DNSServerSearchOrder)Then
Fori=0ToUBound(objAdapter.DNSServerSearchOrder)
WScript.Echo""&objAdapter.DNSServerSearchOrder(i)
Next
EndIf
WScript.Echo"DNSdomain:"&objAdapter.DNSDomain
IfNotIsNull(objAdapter.DNSDomainSuffixSearchOrder)Then
Fori=0ToUBound(objAdapter.DNSDomainSuffixSearchOrder)
WScript.Echo"DNSsuffixsearchlist:"&objAdapter.DNSDomainSuffixSearchOrder(i)
Next
EndIf
WScript.Echo
WScript.Echo"DHCP"
WScript.Echo"----"
WScript.Echo"DHCPenabled:"&objAdapter.DHCPEnabled
WScript.Echo"DHCPserver:"&objAdapter.DHCPServer
IfNotIsNull(objAdapter.DHCPLeaseObtained)Then
utcLeaseObtained=objAdapter.DHCPLeaseObtained
strLeaseObtained=WMIDateStringToDate(utcLeaseObtained)
Else
strLeaseObtained=""
EndIf
WScript.Echo"DHCPleaseobtained:"&strLeaseObtained
IfNotIsNull(objAdapter.DHCPLeaseExpires)Then
utcLeaseExpires=objAdapter.DHCPLeaseExpires
strLeaseExpires=WMIDateStringToDate(utcLeaseExpires)
Else
strLeaseExpires=""
EndIf
WScript.Echo"DHCPleaseexpires:"&strLeaseExpires
WScript.Echo
WScript.Echo"WINS"
WScript.Echo"----"
WScript.Echo"PrimaryWINSserver:"&objAdapter.WINSPrimaryServer
WScript.Echo"SecondaryWINSserver:"&objAdapter.WINSSecondaryServer
WScript.Echo
n=n+1
Next
FunctionWMIDateStringToDate(utcDate)
WMIDateStringToDate=CDate(Mid(utcDate,5,2)&"/"&_
Mid(utcDate,7,2)&"/"&_
Left(utcDate,4)&""&_
Mid(utcDate,9,2)&":"&_
Mid(utcDate,11,2)&":"&_
Mid(utcDate,13,2))
EndFunction
玩制作一个本企业的屏幕保护,在客户运行本企业的应用软件的时候,为客户更改屏幕保护,是个广告宣传的好办法在浏览VBS相关案例时,自己写了两个小程序出来,有Hack性质的(其实只要能“借刀杀人”,什么软件没黑客性质?--!)。

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