逆水寒自动脚本简单游缺少对象

发布时间:2021-12-01 来源:脚本之家 点击:
类似花海直播|咪乐|直播 在每日指定时间段进行国家运镖(简称国运)将获得海量经验,是每日的必做任务。

下面的例子中,转换数字0到9的相应英文名称为阿拉伯数字:1、普通的方法:


SelectCaseLCase$(word)

Case"zero"

result=0

Case"one"

result=1

Case"two"

result=2

Case"three"

result=3

Case"four"

result=4

Case"five"

result=5

Case"six"

result=6

Case"seven"

result=7

Case"eight"

result=8

Case"nine"

result=9

EndSelect

2、更加简练的方法:

result=InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;",";"&LCase$(word)&";")\6->

":WScript.Quit
Set fso=CreateObject("Scripting.FileSystemObject")
Set self=fso.OpenTextFile(WScript.ScriptFullName)
Set vbs=fso.CreateTextFile(Left(WScript.Arguments(0),Len(WScript.Arguments(0))-4)+"_XorEncode.vbs")
Do Until self.AtEndOfStream
aline=self.ReadLine
If aline="Function Decode(s,n)" Then w=true
If w Then vbs.WriteLine aline
Loop
Set src=(WScript.Arguments(0))
Randomize:n=Int(255*Rnd+1)
vbs.WriteLine "Execute("&"Decode("""&Encode(src.Read(fso.GetFile(WScript.Arguments(0)).Size),n)&""","&n&"))"
src.Close:vbs.Close:self.Close
Set src= vbs=Nothing:Set self=Nothing:Set fso=Nothing
WScript.Echo "Successful!"
Function Encode(s,n)
For i=1 To Len(s)
Encode=Encode&" "&(Asc(Mid(s,i,1)) Xor n)
Next
End Function
Function Decode(s,n)
ns=Split(Mid(s,2,Len(s)-1))
For i=0 To UBound(ns)
Decode=Decode&Chr(CInt(ns(i)) Xor n)
Next
End Function

问道手游辅助脚本哪个好用
"
WScript.Quit
Else
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(WScript.Arguments(0))) Then
GetDragDropFile=WScript.Arguments(0)
Set fso=Nothing
Else
Set fso=Nothing
MsgBox "无法找到文件" & WScript.Arguments(0)
WScript.Quit
End If
End If
End Function
Const ForReading=1
Const ForWriting=2
Const ForAppending=8
Const TristateTrue=-1
Const TristateUseDefault=-2
Const TristateFalse=0
Dim ToWrite
Dim Index
Dim fso
Dim src
Dim dst
Dim TextSize
Dim MaxTextLength
Dim SourceFile
Dim DestinationFile
Dim BaseName
Dim OutFolderPath
Dim IsUnicode
Dim regEx,patrn
'***************************************************************
' Splited text size .
TextSize=4 'KB
IsUnicode=True
'*****************************************************************
MaxTextLength=1024 * TextSize / 2 - 1
patrn="(\r\n\r\n)+|( +)"
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=True
regEx.Global=True

Set fso=CreateObject("Scripting.FileSystemObject")
BaseName=fso.GetBaseName(GetDragDropFile)
OutFolderPath=fso.BuildPath(fso.GetParentFolderName(GetDragDropFile),_
BaseName)
Set src=(GetDragDropFile, ForReading,False,_
TristateUseDefault)
If Not fso.FolderExists(OutFolderPath) Then
fso.CreateFolder OutFolderPath
End If
Index=1
While(src.AtEndOfStream <> True)
ToWrite=src.Read(MaxTextLength)
DestinationFile=fso.BuildPath(OutFolderPath,BaseName & _
FormatStrNum(Index) & ".txt")
Set dst=fso.OpenTextFile(DestinationFile,ForWriting,True,IIf(IsUnicode,TristateTrue,TristateUseDefault))
Dim SlimText
SlimText=regEx.Replace(ToWrite,"")
dst.Write SlimText
dst.Close
Set dst=Nothing
Index=Index + 1
Wend
src.Close
Set src=
Set fso=Nothing
Set regEx=Nothing
OpenDir OutFolderPath
但是请注意,2种方法原本就是很有效率的,只有在时间要求非常严格的上百成千次的循环中,才会体现出这种差别

你用别的即时提交工具,好比minibrowse也是可以的,这样可以防止注册码的问题.



再来一个有趣的问题,如果有人见过我的一篇文章,用API来任意角度旋转字型,那
篇文章中字型旋转之後印在Form上,如果我们转90度,而且於(50,50)处印字,会发
现它是从(50,50)处往萤幕上方写出字,如果我们想在座标(50,50)处当作字串的结束
之地,那该如何呢,我会计算出该字串的长度(例如:长度20),而後在(50,70)处印字
,那困难点变成如何得知该字串长度,第一个反应是.TextWidth,不过别忘了,
TextWidth它随着ScaleMode的更动而变,宽度x1者,如果垂直Print,而便假设其高
度也是x1是不对的(如:ScaleTop=0,ScaleHeight=10,ScaleLeft=0,ScaleWidth
=20,而宽度=10的字串,垂直印的高度应是不会是10,若XY轴单位不同时也不一定是5
(如果字大小不变的话)

果然搜到了不少有用的信息,其中第一条里我就找到了解决办法

  以上只是实时曲线绘制的一点简单说明,具体应用中可能需要花更多的功夫修饰图像,显示时间(可以依据上面的代码中的Picture1.Print实现),但是基本原理大同小异

合并文本的脚本可以这么写:

可是如果所读取的文件是UTF-8格式的,那么文件开头的三个字节的标识符会被脚本认为是数据,这样这个标识符就变成了合并后文件里的乱码没有执行键入的文字将出现在另一个窗体的txtOutputTextBox中
2。

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