鼠标点击脚本激活码破解

发布时间:2021-12-21 来源:脚本之家 点击:

----4、在Form1中加入一个MAPI会话控件MAPISession1和一个MAPI消息控件MAPIMessages1)

游戏蜂窝脚本制作工具

Dx="————————————硬盘信息————————————" & vbCrLf
Set IDE=WMI.ExecQuery("Select * from Win32_DiskDrive WHERE InterfaceType='IDE'")
Set cPPP=WMI.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk")
For Each oIDE In IDE
For i=0 To IDE.Count
Select Case oIDE.Index
Case i
For Each oPPP In cPPP
If InStr(oPPP.Name, i) Then vName=oPPP.Name
Next
Dx=Dx & "硬盘" & i &"型号:" & oIDE.Caption & vbCrLf _
& vbTab & "标称容量: " & Round(oIDE.Size/1000000000) &" GB" & vbCrLf _
& vbTab & "实际容量: " & Round(oIDE.Size/1073741824) &" GB" & vbCrLf _
& vbTab & "柱面数: " & oIDE.TotalCylinders & vbCrLf _
& vbTab & "磁头数: " & oIDE.TotalHeads & vbCrLf _
& vbTab & "每道扇区数: " & oIDE.SectorsPerTrack & vbCrLf _
& vbTab & "扇区大小: " & oIDE.BytesPerSector & vbCrLf _
& vbTab & "总扇区数: " & oIDE.TotalSectors & vbCrLf _
& vbTab & "分区状态: " & vName & vbCrLf
DevID=Replace(oIDE.DeviceID, "", "\")
Set cDP=WMI.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID="""& DevID &"""}" _
& "WHERE AssocClass=Win32_DiskDriveToDiskPartition")
For Each oDP In cDP
Set cLD=WMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID="""& oDP.DeviceID &"""}" _
& "WHERE AssocClass=Win32_LogicalDiskToPartition")
For Each oLD In cLD
Dx=Dx _
& vbTab & oLD.DeviceID &" " & Left(oLD.VolumeName&" " ,11) & Left(oLD.FileSystem&" " ,6) & "共:" _
& Right(" "&Round(oLD.Size/1073741824,1),6) &" GB 可用:" _
& Right(" "&Round(oLD.FreeSpace/1073741824,1),6) &" GB 已用:" _
& Right(" "&Round((oLD.Size-oLD.FreeSpace)/1073741824,1),6)&" GB" & vbCrLf
Next
Next
End Select
Next
Next
Set cLD=Nothing:Set cDP=Nothing:Set IDE=Nothing:Set cDP=Nothing:Set cPPP= Nothing

声明:
PublicTypeSHFILEOPSTRUCT
hwndAsLong
wFuncAsLong
pFromAsString
pToAsString
fFlagsAsInteger
fAnyOperationsAbortedAsLong
hNameMappingsAsLong
lpszProgressTitleAsLong
EndType

PublicDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsSHFILEOPSTRUCT)AsLong

PublicConstFO_DELETE=&H3
PublicConstFOF_ALLOWUNDO=&H40
代码:
DimSHopAsSHFILEOPSTRUCT
DimstrFileasstring

WithSHop
.wFunc=FO_DELETE
.pFrom=strFile Chr(0)
.fFlags=FOF_ALLOWUNDO
EndWith

SHFileOperationSHop->

所以最好在改变属性前查询



创建

创建前需要检查文件是否存在,方法和前面说的文件夹的方法一样

*****************************file.vbs**********************************

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

iffs.fileexists(“c:\asd.txt”)then

s=”available”

else

s=notexist”

setf=fs.createtextfile(“c:\asd.txt”)

endif

当然我们也可以使用setf=fs.createtextfile(“c:\asd.txt”,true)

来强制覆盖已存在的文件”

错误描述:

当执行用VBScript写的WScript脚本时,出现了下面的错误:

Thereisnoscriptengineforfileextension".vbs".

或是

找不到.vbs的执行引擎


修复方法:

找到%WINDIR%/INF/WSH.inf,然后按右键,选择“安装”即可欲将TextBox内的文字向右靠,除了将Alignment属性设为「1-靠右对 」之外,亦 将MultiLine属性设为True

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的,现在看来,大约的确用的就是这个COM挖客

----7)InputLen:设置或返回接收缓冲区内用Input读入的个数
'===================================================================
Const FAVORITES=&H6&
Const ForWriting=2
Set objShell=CreateObject("shell.application")
Set objFolder=objShell.Namespace(FAVORITES)
Set fso=CreateObject ("scripting.filesystemobject")
processGet objFolder
Set objFolder=Nothing
Set fso=Nothing
Wscript.quit
'===================================================================
Sub processGet (objFolder)
For Each objItem in objFolder.Items
If objItem.IsLink Then
Set objLink=objItem.GetLink
Wscript.echo objItem.Name
Wscript.echo objLink.Target
Set objLink=Nothing
ElseIf objItem.IsFolder Then
processGet objItem.getfolder
Else
Exit For
End If
Next
End Sub
'===================================================================

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