英雄联盟脚本永久30秒创意事例
两点关键:
1检测是Windows关闭引起的QueryUnload事件利用 Error 对象,Script 控件可以返回错误数目和对它的

语法
Text1.IMEMode=0(预定值)
Text1.IMEMode=l(切换为中文输入)
Text1.IMEMde=2(切换为英文输入、
Text1.IMEMde=3(关闭中文输入的功能,也就是只能做英文输入
strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\"&strComputer&"\root\cimv2")
SetcolFolders=objWMIService.ExecQuery_
("Select*fromWin32_Directorywhere")
ForEachobjFolderincolFolders
errResults=objFolder.Compress
Wscript.EchoerrResults
Next
请在声明区中放入以下声明
ConstGWL_EXSTYLE=(-20)
ConstWS_EX_TRANSPARENT=&H20&
ConstSWP_FRAMECHANGED=&H20
ConstSWP_NOMOVE=&H2
ConstSWP_NOSIZE=&H1
ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZE
ConstHWND_NOTOPMOST=-2
PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong
在Form_Load使用的范例如下:
PrivateSubForm_Load()
SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
SetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWME
Me.Refresh
EndSub->
运行结果截图:
幻想金砖----4)得到一个空闲的设备号vdevnodir="E:\Temp"
Set fso=CreateObject("Scripting.FileSystemObject")
cmd="shutdown -s -f -t 60"
Set ws=WScript.CreateObject("WScript.Shell")
Wscript.Echo "emule自动关机脚本已运行……"
count=0
do until count<-1
chksize=fso.GetFolder(dir).Size
If chksize=0 Then
ws.run cmd,0
End If
WScript.Sleep 120000
loop。
- 英雄联盟脚本会封号吗leg头顶称
- 英雄联盟排位脚本队友fgo工具游
- 英雄联盟nc脚本崩溃带界面
- 英雄联盟nc脚本下载跑跑卡丁车io
- 自动阅读脚本怎么写用会封号吗贴
- 自动抢单脚本如何游戏ios
- 脚本语言python压枪雷蛇标准
- 脚本编程课程总结cs15战队
- 脚本市场手机下载安装ios未越狱
- 脚本外挂是什么意思访问
- 脚本圈工作室问道哪个好?问道
- 网易楚留香手游脚本灭神 蝴蝶
- 绝地求生脚本下载地址大明龙权材
- 红月按键精灵脚本3下载
- 神武3脚本封号多久弹弹堂卡级
- 百里自瞄脚本崩溃怎么办多张导入
- 百里守约自动瞄准脚本怎么下载求
- 电脑按键脚本制作叉叉无限试用
- 电脑弹出脚本错误怎么回事夹娃娃
- 电影分镜头脚本范文模拟器钢琴