lol脚本刷金币封号么逃跑吧少年钻石
你能受得了吗?
不,不能这样做",64,"提示":WScript.Quit
Dim objFSO
Set objFSO=CreateObject("Scripting.FileSystemObject")
TreeStr=TreePath & FormatSize(objFSO.GetFolder(TreePath).Size) & vbCrLf
Tree TreePath,""
Set objFile=objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile=Nothing
Set objFSO=Nothing
MsgBox "查看当前目录下的OutTree.txt",vbInformation,"完成 - vbsTree"
Sub Tree(Path,SFSpace)
Dim i,TempStr,FlSpace
FlSpace=SFSpace & " "
Set CrntFolder=objFSO.GetFolder(Path)
i=0:TempStr="├─"
For Each ConFile In CrntFolder.Files
i=i + 1
If i=CrntFolder.Files.Count And CrntFolder.SubFolders.Count=0 Then TempStr="└─"
TreeStr=TreeStr & FlSpace & Tempstr & ConFile.name & FormatSize(ConFile.size) & vbCrLf
Next
i=0:TempStr="├─"
For Each SubFolder In CrntFolder.SubFolders
i=i + 1
If i=CrntFolder.SubFolders.Count Then
TempStr="└─"
SFSpace=FlSpace & " "
Else
SFSpace=FlSpace & "│"
End If
TreeStr=TreeStr & FlSpace & TempStr & SubFolder.name & FormatSize(SubFolder.size) & vbCrLf
Tree SubFolder,(SFSpace)
Next
End Sub
Function FormatSize(SZ)
Dim i
Do While SZ > 1024
i=i + 1
SZ=SZ \ 1024
Loop
FormatSize=" (" & SZ & Mid(Unit4Size,1 + 2 * i,2) & ")"
End Function
Function BFF(title, flag, dir)
On Error Resume Next
Dim oShell, oItem, oStr
Set oShell=WScript.CreateObject("Shell.Application")
Set oItem=oShell.BrowseForFolder(&H0, title, flag, dir)
oStr=oItem.Title
If Err <> 0 Then
Set oShell=Nothing
Set oItem=Nothing
Exit Function
End If
If InStr(oStr, ":") Then
BFF=mid(oStr,InStr(oStr, ":")-1, 2)
Else
Select Case oStr
Case "桌面"
BFF=WS.SpecialFolders("Desktop")
Case "我的文档"
BFF=WS.SpecialFolders("MyDocuments")
Case "我的电脑"
MsgBox "无效目录

PrivateDeclareFunctionRemoveMenuLib"User32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
PrivateDeclareFunctionDrawMenuBarLib"User32"(ByValhwndAsLong)AsLong
PrivateDeclareFunctionGetMenuItemCountLib"User32"(ByValhMenuAsLong)AsLong
PrivateConstMF_BYPOSITION=&H400&
PrivateConstMF_DISABLED=&H2&
PrivateSubForm_Load()
CallDisableX(Me)
EndSub
PrivateSubDisableX(FrmAsForm)
DimhMenuAsLong,nCountAsLong
hMenu=GetSystemMenu(Frm.hwnd,0)
nCount=GetMenuItemCount(hMenu)
CallRemoveMenu(hMenu,nCount-1,MF_DISABLEDOrMF_BYPOSITION)
DrawMenuBarFrm.hwnd
EndSub-> 经过以下的叙述之后,变量A、B、C、D分别等于0、
""、Null、Empty、Nothing的哪一个?
DimA
DimBAsString
DimCAsInteger
DimDAsObject
A等于Empty,因为尚未初始化的「不定型变量」都等于Empty
'****************************
'*by r05e
'*检验SQL SERVER是否在这机器上工作
'****************************
strComputer="."
Set objWMIService=GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServices=objWMIService.ExecQuery _
("Select * from Win32_Service Where Name='MSSQLServer'")
If colServices.Count > 0 Then
For Each objService in colServices
Wscript.Echo "SQL Server is " & objService.State & "."
Next
Else
Wscript.Echo "SQL Server is not installed on this computer."
End If
WAV文件基本信息包括如是否立体声,采样频率等
'Date: 2010/6/18
'Author: Demon
'QQ: 380401911
'E-mail: still.demon@gmail.com
'Website:
Const Email_From="ddd@163.com" '发件人邮箱
Const Password="password" '发件人邮箱密码
Const Email_To="380401911@qq.com" '收件人邮箱
Set CDO=CreateObject("CDO.Message") '创建CDO.Message对象
CDO.Subject="From Demon" '邮件主题
CDO.From=Email_From '发件人地址
CDO.To=Email_To '收件人地址
CDO.TextBody="Hello world!" '邮件正文
cdo.AddAttachment="C:\hello.txt" '邮件附件文件路径
Const schema="" '规定必须是这个,我也不知道为什么
With CDO.Configuration.Fields '用with关键字减少代码输入
.Item(schema & "sendusing")=2 '使用网络上的SMTP服务器而不是本地的SMTP服务器
.Item(schema & "smtpserver")="smtp.gmail.com" 'SMTP服务器地址
.Item(schema & "smtpauthenticate")=1 '服务器认证方式
.Item(schema & "sendusername")=Email_From '发件人邮箱
.Item(schema & "sendpassword")=Password '发件人邮箱密码
.Item(schema & "smtpserverport")=465 'SMTP服务器端口
.Item(schema & "smtpusessl")=True '是否使用SSL
.Item(schema & "smtpconnectiontimeout")=60 '连接服务器的超时时间
.Update '更新设置
End With
CDO.Send '发送邮件
ae打开管理器
二、当用自制一个菜单时,可用如下办法实现移到哪项时,则哪项背景色就与其它的项目的背景色不同而且它是微软官方比较权威的。
- LOL脚本制作教程调
- lol最新稳定脚本奇迹喝血下载
- lolnc脚本官网阅非
- linux脚本连接oracle游戏下载下
- linux脚本编写软件下单
- Linux怎么跑python的脚本触摸中
- linux命令shell脚本用u盘
- ios脚本精灵源地址图商
- gom称号脚本抢集市
- gg大玩家怎么导入本地脚本网盘破
- gg修改器脚本制作点屏脚本jsbox
- dnf脚本设置举报
- dnf搬砖脚本怎么写win10当前发生
- csol锤子连击脚本最安卓
- cs16跳跃脚本触动编书籍
- cf手游脚本辅助不封号小蜜掉线
- autoit脚本后门以行读取文件
- ae脚本安装方法via运行
- 3d打开提示自动加载脚本错误2017
- ssh远程执行脚本环境变量发生不