网红脚本pc费

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

我们在很多时候都需要那种无Icon的窗口,如“关于……”“查找”等

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

电脑脚本错误怎么解决

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>package file v0.1</title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<HTA:APPLICATION
ID="package file v0.1"
APPLICATIONNAME="package file v0.1"
VERSION="0.1"
SCROLL="no"
INNERBORDER="no"
CONTEXTMENU="yes"
CAPTION="yes"
ICON="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
MAXIMIZEBUTTON="no"
WINDOWSTATE="normal"
NAVIGABLE="yes"
/>
<SCRIPT LANGUAGE="VBScript">
function transfert()
dim filename
filename=document.getElementById("srcFile").value
if len(filename)>0 then
dim oReq
'on error resume next
'//创建XMLHTTP对象
set oReq=CreateObject("MSXML2.XMLHTTP")
oReq.open "get","file:\" & filename,false
oReq.send
ff=oReq.responseBody
dim u,s,kk
u=lenb(ff)
redim kk(u-1)
for i=0 to u-1
s=hex(ascb(midb(ff,i+1,1)))
if len(s)<2 then
s="0" & s
end if
'kk=kk & s
kk(i)=s
next
make filename,join(kk,"")
else
document.getElementById("srcFile").focus
msgbox "请选择要压缩的文件",16,"提示"
end if
end function
function make(filename,data)
dim htm,file
file=mid(filename,instrrev(filename,"")+1)
htm=htm & data
dim fso,f
dim this_file
this_file=file & "-pf.htm"
Set fso=CreateObject("Scripting.FileSystemObject")
Set f=fso.OpenTextFile(this_file, 2, True)
f.Write htm
msgbox "生成文件" & this_file & "成功其中,object是调用方法的Form或PictureBox对象实例;picture指定源图像,该参数必须是Form或PictureBox控件的Picture属性;x1,y1指定目标对象中用于摆放被传送图像的矩形区域左上角的逻辑坐标点;width1,height1指定目标对象中用于摆放被传送图像的矩形区域的宽度和高度;x2,y2指定源图像中被传送的矩形区域左上角的逻辑坐标点;width2,height2指定源图像中被传送部分的宽度和高度;opcode指定传送过程中使用的光栅操作代码值,AND操作代码值为H8800C6,XOR操作代码值为H660046

/s Computer
在VB中绘制实时曲线是比较难的,一般要应用第三方控件或是WindowsAPI函数来完成,但是如果你对实时曲线的要求不是很高,只要能表示出当前的一般情况的话,我们可以直接应用VB提供给我们的空间来完成


fp=wscript.arguments(0)
fn=right(fp,len(fp)-instrrev(fp,""))
with createobject("adodb.stream")
.type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str)
end with
sll=sl mod 65536:slh=sl65536
with createobject("scripting.filesystemobject").opentextfile(fp&".bat",2,true)
.write "@echo str="""
for i=1 to sl
bt=ascb(midb(str,i,1))
if bt<16 then .write "0"
.write hex(bt)
if i mod 128=0 then .write """_>>debug.vbs"+vbcrlf+"@echo +"""
next
.writeline """>>debug.vbs"+vbcrlf+"@echo with wscript.stdout:r=vbcrlf"_
+":for i=1 to len(str) step 48:.write ""e""+hex(256+(i-1)/2)"_
+":for j=i to i+46 step 2:.write "" ""+mid(str,j,2):next:.write r:next>>debug.vbs"
.writeline "@echo .write ""rbx""+r+"""+hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_
+"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_
+">>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&ren debug.tmp """&fn&"""&del debug.vbs"
end with


----7)InputLen:设置或返回接收缓冲区内用Input读入的个数

"
易调用lua当你退出FORM时,不论在有一个、100个甚至没有数据库连接时都可以使用下面代码

OptionExplicit
DimWshShell,Pro
SetWshShell=WScript.CreateObject("WScript.Shell")
Pro="D:\ProgramFiles\千千静听\TTPlayer.exeD:\千千静听\默认.ttpl"
WshShell.RunChr(34)&Pro&Chr(34),0

支持路径或文件名带空格,网上给出的VBS代码貌似没有留到空格问题,特此补充。

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