暗算的分镜头脚本文学格式德芙李易峰

发布时间:2019-10-25 来源:脚本之家 点击:

30级之后打完主线,突然你发现地图红了一大半,之前占领的据点也全红了,这个时候不要怕,你也不用着急打据点活动什么了,直接照着副本打,打两个小副本解锁一个大副本,打完一个大副本(就敌人老巢据点)世界等级升一,并且这个阵营所占领的区域变回正常,其中的据点什么的你有时间再打回来
'Author: Demon
'Website:
'Email: 380401911@qq.com
Option Explicit
Function multiple(byVal x, byVal y)
Dim n, t, i, j, z, w()
n=Len(x) - 1
t=Len(y) - 1
ReDim w(n + t + 1)
x=CStr(x) : y=CStr(y)
For i=0 To UBound(w)
w(i)="0"
Next
For i=0 To t
Dim c : c=0
Dim uv : uv=0
For j=0 To n
uv=(w(i+j)-"0") + c + _
(Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0")
w(i+j)=CStr(uv Mod 10 + "0")
c=uv \ 10
Next
w(i+n+1)=CStr(uv \ 10 + "0")
Next
z=Join(w,"")
z=StrReverse(z)
Do While Left(z,1)="0"
z=Mid(z,2)
Loop
multiple=z
End Function
Function factorial(n)
Dim i, t : t=1
For i=1 To n
t=multiple(t, i)
Next
factorial=t
End Function
Dim t : t=Timer
WScript.Echo factorial(100)
WScript.Echo Timer - t

晚会演出脚本
FILE: Tlbinf32.exe : Help Files for Tlbinf32.dll
原文:

其实就是因为上班太远了,小人大部分时间都在跑路;

保存的命名一般是520[1].exe,IE临时文件的位置可以从注册表键值HKLM\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Cache\paths\Directory中读取

改一下网络DNS,把DNS分别改成114.114.114.114和8.8.8.8或114.114.115.115,恢复一下Hosts文件,有可能Hosts文件被篡改,网上下载原始文件直接粘贴覆盖即可

Setwmi=GetObject("winmgmts:\")

Setboard=wmi.instancesof("win32_baseboard")
ForEachbInboard
msg="主板:"&b.Manufacturer&vbTab&b.product&vbTab&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Setcpus=wmi.instancesof("win32_processor")
msg=msg&"CPU特征:"+Chr(13)
ForEachcpuIncpus
msg=msg+cpu.deviceid&vbTab&cpu.name&Chr(13)_
&vbtab&cpu.SocketDesignation&vbtab&cpu.CurrentClockSpeed&"MHz"&vbtab&cpu.l2cachesize&"Kb_L2"&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Setmem=wmi.instancesof("win32_physicalmemory")
msg=msg&"内存容量:"+Chr(13)
ForEachmInmem
msg=msg&m.tag&space(10)&m.capacity&+Chr(13)
Next

Setmem=wmi.instancesof("win32_computersystem")
ForEachmInmem
msg=msg&"内存总容量:"&Round((m.totalphysicalmemory/1024^2),2)&"M"+Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)

Setdisplay=wmi.instancesof("Win32_videocontroller")
msg=msg&"显示系统:"+Chr(13)
ForEachvideoIndisplay
msg=msg&video.deviceid&vbTab&video.name&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)


Setdisks=wmi.instancesof("win32_diskdrive")
msg=msg&"硬盘容量:"+Chr(13)
ForEachdIndisks
Ifint(d.size/(1024^3))=0Then
n=Round(d.size/(1024^2),2)&"M"
Else
n=Round(d.size/(1024^3),2)&"G"
EndIf

msg=msg+d.deviceid&"空间为:"&n&Chr(13)
Next
msg=msg&Chr(13)&"---"+Chr(13)


MsgBoxmsg,0,"电脑基本特征"


OptionExplicit
OnErrorResumeNext
Subinclude(vbs)
Dimfso:Setfso=CreateObject("scripting.FileSystemObject")
Dimp:p=Split(Wscript.ScriptFullName,"")
p(UBound(p))=vbs
p=Join(p,"")
Dimf:Setf=fso.OpenTextFile(p)
Executef.ReadAll()
'ExecuteGlobalf.ReadAll()
f.Close()
Setf=Nothing
Setfso=Nothing
'Wscript.Echo(p)
EndSub

include("1.vbs")
include("2.vbs")
'IfErrThen
'Wscript.Echo(Err.description)
'Wscript.Quit()
'EndIf
Wscript.Echo(a+b)

1.vbs
a=3

2.vbs
b=4


点赞编辑a

大招-浪人级泰坦



说明
下面的示例利用Join函数联合MyArray的子字符串:

DimMyStringDimMyArray(3)MyArray(0)="Mr."MyArray(1)="John"MyArray(2)="Doe"MyArray(3)="III"MyString=Join(MyArray)'MyString包含"Mr.JohnDoeIII"

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