lua脚本怎么注入安卓游戏走a设置

发布时间:2020-11-16 来源:脚本之家 点击:

->


<scriptlanguage=vbscript>
Functionnl()
'获取当前系统时间
curTime=Now()
DimWeekName(7),MonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)
'星期名
WeekName(0)="*"
WeekName(1)="星期日"
WeekName(2)="星期一"
WeekName(3)="星期二"
WeekName(4)="星期三"
WeekName(5)="星期四"
WeekName(6)="星期五"
WeekName(7)="星期六"

'天干名称
TianGan(0)="甲"
TianGan(1)="乙"
TianGan(2)="丙"
TianGan(3)="丁"
TianGan(4)="戊"
TianGan(5)="己"
TianGan(6)="庚"
TianGan(7)="辛"
TianGan(8)="壬"
TianGan(9)="癸"

'地支名称
DiZhi(0)="子"
DiZhi(1)="丑"
DiZhi(2)="寅"
DiZhi(3)="卯"
DiZhi(4)="辰"
DiZhi(5)="巳"
DiZhi(6)="午"
DiZhi(7)="未"
DiZhi(8)="申"
DiZhi(9)="酉"
DiZhi(10)="戌"
DiZhi(11)="亥"
'属相名称
ShuXiang(0)="鼠"
ShuXiang(1)="牛"
ShuXiang(2)="虎"
ShuXiang(3)="兔"
ShuXiang(4)="龙"
ShuXiang(5)="蛇"
ShuXiang(6)="马"
ShuXiang(7)="羊"
ShuXiang(8)="猴"
ShuXiang(9)="鸡"
ShuXiang(10)="狗"
ShuXiang(11)="猪"
'农历日期名
DayName(0)="*"
DayName(1)="初一"
DayName(2)="初二"
DayName(3)="初三"
DayName(4)="初四"
DayName(5)="初五"
DayName(6)="初六"
DayName(7)="初七"
DayName(8)="初八"
DayName(9)="初九"
DayName(10)="初十"
DayName(11)="十一"
DayName(12)="十二"
DayName(13)="十三"
DayName(14)="十四"
DayName(15)="十五"
DayName(16)="十六"
DayName(17)="十七"
DayName(18)="十八"
DayName(19)="十九"
DayName(20)="二十"
DayName(21)="廿一"
DayName(22)="廿二"
DayName(23)="廿三"
DayName(24)="廿四"
DayName(25)="廿五"
DayName(26)="廿六"
DayName(27)="廿七"
DayName(28)="廿八"
DayName(29)="廿九"
DayName(30)="三十"
'农历月份名
MonName(0)="*"
MonName(1)="正"
MonName(2)="二"
MonName(3)="三"
MonName(4)="四"
MonName(5)="五"
MonName(6)="六"
MonName(7)="七"
MonName(8)="八"
MonName(9)="九"
MonName(10)="十"
MonName(11)="十一"
MonName(12)="腊"
'公历每月前面的天数
MonthAdd(0)=0
MonthAdd(1)=31
MonthAdd(2)=59
MonthAdd(3)=90
MonthAdd(4)=120
MonthAdd(5)=151
MonthAdd(6)=181
MonthAdd(7)=212
MonthAdd(8)=243
MonthAdd(9)=273
MonthAdd(10)=304
MonthAdd(11)=334
'农历数据
NongliData(0)=2635
NongliData(1)=333387
NongliData(2)=1701
NongliData(3)=1748
NongliData(4)=267701
NongliData(5)=694
NongliData(6)=2391
NongliData(7)=133423
NongliData(8)=1175
NongliData(9)=396438
NongliData(10)=3402
NongliData(11)=3749
NongliData(12)=331177
NongliData(13)=1453
NongliData(14)=694
NongliData(15)=201326
NongliData(16)=2350
NongliData(17)=465197
NongliData(18)=3221
NongliData(19)=3402
NongliData(20)=400202
NongliData(21)=2901
NongliData(22)=1386
NongliData(23)=267611
NongliData(24)=605
NongliData(25)=2349
NongliData(26)=137515
NongliData(27)=2709
NongliData(28)=464533
NongliData(29)=1738
NongliData(30)=2901
NongliData(31)=330421
NongliData(32)=1242
NongliData(33)=2651
NongliData(34)=199255
NongliData(35)=1323
NongliData(36)=529706
NongliData(37)=3733
NongliData(38)=1706
NongliData(39)=398762
NongliData(40)=2741
NongliData(41)=1206
NongliData(42)=267438
NongliData(43)=2647
NongliData(44)=1318
NongliData(45)=204070
NongliData(46)=3477
NongliData(47)=461653
NongliData(48)=1386
NongliData(49)=2413
NongliData(50)=330077
NongliData(51)=1197
NongliData(52)=2637
NongliData(53)=268877
NongliData(54)=3365
NongliData(55)=531109
NongliData(56)=2900
NongliData(57)=2922
NongliData(58)=398042
NongliData(59)=2395
NongliData(60)=1179
NongliData(61)=267415
NongliData(62)=2635
NongliData(63)=661067
NongliData(64)=1701
NongliData(65)=1748
NongliData(66)=398772
NongliData(67)=2742
NongliData(68)=2391
NongliData(69)=330031
NongliData(70)=1175
NongliData(71)=1611
NongliData(72)=200010
NongliData(73)=3749
NongliData(74)=527717
NongliData(75)=1452
NongliData(76)=2742
NongliData(77)=332397
NongliData(78)=2350
NongliData(79)=3222
NongliData(80)=268949
NongliData(81)=3402
NongliData(82)=3493
NongliData(83)=133973
NongliData(84)=1386
NongliData(85)=464219
NongliData(86)=605
NongliData(87)=2349
NongliData(88)=334123
NongliData(89)=2709
NongliData(90)=2890
NongliData(91)=267946
NongliData(92)=2773
NongliData(93)=592565
NongliData(94)=1210
NongliData(95)=2651
NongliData(96)=395863
NongliData(97)=1323
NongliData(98)=2707
NongliData(99)=265877
'生成当前公历年、月、日==>GongliStr
curYear=Year(curTime)
curMonth=Month(curTime)
curDay=Day(curTime)
GongliStr=curYear&"年"
If(curMonth<10)Then
GongliStr=GongliStr&"0"&curMonth&"月"
Else
GongliStr=GongliStr&curMonth&"月"
EndIf
If(curDay<10)Then
GongliStr=GongliStr&"0"&curDay&"日"
Else
GongliStr=GongliStr&curDay&"日"
EndIf
'生成当前公历星期==>WeekdayStr
curWeekday=Weekday(curTime)
WeekdayStr=WeekName(curWeekday)
'计算到初始时间1921年2月8日的天数:1921-2-8(正月初一)
TheDate=(curYear-1921)*365+Int((curYear-1921)/4)+curDay+MonthAdd(curMonth-1)-38
If((curYearMod4)=0AndcurMonth>2)Then
TheDate=TheDate+1
EndIf
'计算农历天干、地支、月、日
isEnd=0
m=0
Do
If(NongliData(m)<4095)Then
k=11
Else
k=12
EndIf
n=k
Do
If(n<0)Then
ExitDo
EndIf
'获取NongliData(m)的第n个二进制位的值
bit=NongliData(m)
Fori=1TonStep1
bit=Int(bit/2)
Next
bit=bitMod2
If(TheDate<=29+bit)Then
isEnd=1
ExitDo
EndIf
TheDate=TheDate-29-bit
n=n-1
Loop
If(isEnd=1)Then
ExitDo
EndIf
m=m+1
Loop
curYear=1921+m
curMonth=k-n+1
curDay=TheDate
If(k=12)Then
If(curMonth=(Int(NongliData(m)/65536)+1))Then
curMonth=1-curMonth
ElseIf(curMonth>(Int(NongliData(m)/65536)+1))Then
curMonth=curMonth-1
EndIf
EndIf
'生成农历天干、地支、属相==>NongliStr
NongliStr="农历"&TianGan(((curYear-4)Mod60)Mod10)&DiZhi(((curYear-4)Mod60)Mod12)&"年"
NongliStr=NongliStr&"("&ShuXiang(((curYear-4)Mod60)Mod12)&")"
'生成农历月、日==>NongliDayStr
If(curMonth<1)Then
NongliDayStr="闰"&MonName(-1*curMonth)
Else
NongliDayStr=MonName(curMonth)
EndIf
NongliDayStr=NongliDayStr&"月"
NongliDayStr=NongliDayStr&DayName(curDay)
nl=NongliStr&NongliDayStr
EndFunction
msgboxnl
</script>
qq西游挂机免费脚本

‘引用microsoftactivedataobject2.Xlibrary

OptionExplicit

DimmConnAsADODB.Connection

Dimrs1AsADODB.Recordset

Dimrs2AsADODB.Recordset

Dimrs3AsADODB.Recordset

Dimrs4AsADODB.Recordset

DimcmdAsADODB.Command

DimparamAsADODB.Parameter

'这里用第一种方法使用存储过程添加数据

PrivateSubCommand1_Click()

Setcmd=NewADODB.Command

Setrs1=NewADODB.Recordset

cmd.ActiveConnection=mConn

cmd.CommandText="insert_users"

cmd.CommandType=adCmdStoredProc

Setparam=cmd.CreateParameter("truename",adChar,adParamInput,20,Trim(txttruename.Text))

cmd.Parameters.Appendparam

Setparam=cmd.CreateParameter("regname",adChar,adParamInput,20,Trim(txtregname.Text))

cmd.Parameters.Appendparam

Setparam=cmd.CreateParameter("pwd",adChar,adParamInput,20,Trim(txtpwd.Text))

cmd.Parameters.Appendparam

Setparam=cmd.CreateParameter("sex",adChar,adParamInput,20,Trim(txtsex.Text))

cmd.Parameters.Appendparam

Setparam=cmd.CreateParameter("email",adChar,adParamInput,20,Trim(txtemail.Text))

cmd.Parameters.Appendparam

‘下面的类型需要注意,如果不使用adSingle,会发生一个精度无效的错误

Setparam=cmd.CreateParameter("jifen",adSingle,adParamInput,50,Val(txtjifen.Text))

cmd.Parameters.Appendparam

Setrs1=cmd.Execute

Setcmd=Nothing

Setrs1=Nothing

EndSub

'这里用第二种方法使用存储过程添加数据

PrivateSubCommand2_Click()

Setrs2=NewADODB.Recordset

Setcmd=NewADODB.Command

cmd.ActiveConnection=mConn

cmd.CommandText="insert_users"

cmd.CommandType=adCmdStoredProc

cmd.Parameters("@truename")=Trim(txttruename.Text)

cmd.Parameters("@regname")=Trim(txtregname.Text)

cmd.Parameters("@pwd")=Trim(txtpwd.Text)

cmd.Parameters("@sex")=Trim(txtsex.Text)

cmd.Parameters("@email")=Trim(txtemail.Text)

cmd.Parameters("@jifen")=Val(txtjifen.Text)

Setrs2=cmd.Execute

Setcmd=Nothing

Setrs1=Nothing

EndSub

'这里用第三种方法使用连接对象来插入数据

PrivateSubCommand4_Click()

DimstrsqlAsString

strsql="insert_users'"&Trim(txttruename.Text)&"','"&Trim(txtregname.Text)&"','"&Trim(txtpwd.Text)&"','"&Trim(txtsex.Text)&"','"&Trim(txtemail.Text)&"','"&Val(txtjifen.Text)&"'"

Setrs3=NewADODB.Recordset

Setrs3=mConn.Execute(strsql)

Setrs3=Nothing

EndSub

'利用存储过程显示数据

‘要处理多种参数,输入参数,输出参数以及一个直接返回值

PrivateSubCommand3_Click()

Setrs4=NewADODB.Recordset

Setcmd=NewADODB.Command

cmd.ActiveConnection=mConn

cmd.CommandText="select_users"

cmd.CommandType=adCmdStoredProc

'返回值

Setparam=cmd.CreateParameter("RetVal",adInteger,adParamReturnValue,4)

cmd.Parameters.Appendparam

'输入参数

Setparam=cmd.CreateParameter("regname",adChar,adParamInput,20,Trim(txtregname.Text))

cmd.Parameters.Appendparam

'输出参数

Setparam=cmd.CreateParameter("numrows",adInteger,adParamOutput)

cmd.Parameters.Appendparam

Setrs4=cmd.Execute()

Ifcmd.Parameters("RetVal").Value=1Then

MsgBoxcmd.Parameters("numrows").Value

Else

MsgBox"没有记录"

EndIf

MsgBoxrs4.RecordCount

SetDataGrid1.DataSource=rs4

DataGrid1.Refresh

EndSub

'连接数据库

PrivateSubForm_Load()

SetmConn=NewConnection

mConn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=Test;DataSource=yang"

mConn.CursorLocation=adUseClient'设置为客户端

mConn.Open

EndSub

'关闭数据连接

PrivateSubForm_Unload(CancelAsInteger)

mConn.Close

SetmConn=Nothing

EndSub

->


dimAsoR,FlashFileName
SetArgObj=WScript.Arguments

dimPositionStart,OKed,Tag,EndSize
PositionStart=920000'flash4的播放器的大致字节数
EndSize=8'exe文件结尾字节数,其它版本可以设置为0
FlashFileName=ArgObj(0)'传递路径

setAsoR=CreateObject("Adodb.Stream")
AsoR.Mode=3
AsoR.Type=1
AsoR.Open
setAsoW=CreateObject("Adodb.Stream")
AsoW.Mode=3
AsoW.Type=1
AsoW.Open
AsoR.LoadFromFile(FlashFileName)

OKed=true
dimfilesize
filesize=AsoR.size

iffilesize>PositionStartthen
whileOKed
AsoR.Position=PositionStart
Tag=Bin2Str(AsoR.read(20))
ifinstr(Tag,"0000000")>0then
PositionStart=PositionStart+1
else
PositionStart=PositionStart+20
endif
ifTag="00000000000000000708783"orTag="00000000000000000678783"then
OKed=false
endif
'ifPositionStart>filesizethen
'OKed=false
'endif
wend
else
msgbox"文件错误"
endif
PositionStart=PositionStart+16
'msgboxPositionStart
AsoR.Position=PositionStart
AsoW.writeAsoR.read(filesize-int(PositionStart)-int(EndSize))

'新文件名
dimnewFileName
'newFileName=left(FlashFileName,len(FlashFileName)-4)&".swf"
newFileName=FlashFileName&".swf"

Setfso=CreateObject("Scripting.FileSystemObject")
If(fso.FileExists(newFileName))Then
overwrite=msgbox(newFileName&"已存在"&vbnewline&"要替换它吗?",308,"文件已经存在-exe2swf脚本")
ifoverwrite=6then
AsoW.SaveToFilenewFileName,2
else
msgbox"操作被取消",0,"exe2swf脚本"
endif
else
AsoW.SaveToFilenewFileName,1
endif

AsoR.close
setAsoR=nothing
AsoW.close
setAsoW=nothing

FunctionBin2Str(Bin)
DimI,Str
ForI=1toLenB(Bin)
clow=MidB(Bin,I,1)
ifASCB(clow)<128then
Str=Str&(ASCB(clow))
else
I=I+1
ifI<=LenB(Bin)thenStr=Str&(ASCW(MidB(Bin,I,1)&clow))
endif
Next
Bin2Str=Str
EndFunction
虽然对象能自动注销,但是数据连接不会马上断开,可能会导致一些内存不能被系统重新分配



CInt Function

CInt不同于Fix和Int函数删除数值的小数部分,而是采用四舍五入的方式
可增强整个程序生命周期的高效性,包括可基于通用建模语言(UML)设计多层次应用程序的MicrosoftVisualModeler2.0,可规划和分析多层次应用程序性能的VisualStudioAnalyzer

不用组件的话有两种办法:

setobjFile=CreateObject("SAFRCFileDlg.FileOpen")
SetobjShell=CreateObject("Shell.Application")

本blog里都有示例油猴url将图像上传到图片框里,然后运行该项目
连接到WMI服务后,我们就创建一个WScript.Shell对象的实例,我们将使用它来生成所有新的InternetExplorer实例。

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