苹果手机录制脚本点击

发布时间:2020-09-03 来源:脚本之家 点击:

记录集锁定只能应用于表类型和动态集类型的Recordset对象,页面锁定(见下一节)不能应用于快照类型和仅向前类型的Recordset对象,因为它们本来就是只读对象", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - by baomaboy")
If intAnswer=vbYes Then
WshSHell.RegWrite RegPath1,RegValue1,RegForm1
WshSHell.RegWrite RegPath2,RegValue2,RegForm2
FSO.GetFile(FileFullName).Copy(InsFullName)
WshSHell.popup _
"添加脚本文件:"+chr(10)+InsFullName+chr(10)+chr(10)+ _
"添加注册表项:"+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C) " + Copyright +" " & QQ &" " + Email _
, CloseTime, "安装成功 - "+ InsTitle +" - by baomaboy", 0 + 64
end if
If intAnswer=vbNo Then
WshSHell.RegDelete RegPath2
WshSHell.RegDelete RegPath1
FSO.DeleteFile InsFullName
WshSHell.popup _
"删除脚本文件:"+chr(10)+InsFullName+chr(10)+chr(10)+ _
"删除注册表项:"+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+ _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C) " + Copyright +" " & QQ &" " + Email _
, CloseTime, "卸载成功 - "+ InsTitle +" - by baomaboy", 0 + 64
end if
If intAnswer=vbCancel Then
end if
ELSE
if Args.count=0 then wscript.quit
Set ReadFile=FSO.OpenTextFile(Args(0), 1,false,-1)
ReadAllText=ReadFile.ReadAll
ReadFile.Close
if mid(ReadAllText,1,3) <> "Win" and mid(ReadAllText,1,3) <> "REG" then
Set ReadFile=FSO.OpenTextFile(Args(0), 1)
ReadAllText=ReadFile.ReadAll
ReadFile.Close
end if
For i=1 To Len(ReadAllText)
TempNum=Asc(Mid(ReadAllText,i,1))
if TempNum=34 Then
TempNum=18
elseIf TempNum=13 Then
TempNum=28
ElseIf TempNum=10 Then
TempNum=29
end if
ThisText1=ThisText1 & chr(TempNum)
Next
Set WriteFile=FSO.OpenTextFile(Args(0)&".VBS",2,True)
WriteFile.WriteLine("On Error Resume Next : Dim WshSHell,FSO,Reg2Vbs:Set WshSHell=WScript.CreateObject(""WScript.Shell""):Set FSO=CreateObject(""Scripting.FileSystemObject""):Reg2Vbs="""& ThisText1 &"""")
WriteFile.WriteLine("Execute(""For i=1 To Len(Reg2Vbs)""&vbCrLf&""TempNum=Asc(Mid(Reg2Vbs,i,1))""&vbCrLf&""If TempNum=28 Then""&vbCrLf&""TempNum=13""&vbCrLf&""ElseIf TempNum=29 Then""&vbCrLf&""TempNum=10""&vbCrLf&""elseif TempNum=18 Then""&vbCrLf&""TempNum=34""&vbCrLf&""End If""&vbCrLf&""ThisText2=ThisText2 & chr(TempNum)""&vbCrLf&""Next"")")
WriteFile.WriteLine("Set RegFile=FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.reg""),2,True):RegFile.WriteLine(ThisText2):RegFile.Close:WshSHell.Run(""regedit /s ""&FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.reg"")):WScript.Sleep 500:FSO.DeleteFile FSO.BuildPath(FSO.GetSpecialFolder(2),""Temp.reg"")")
WriteFile.Close
end if
Set WshSHell=Nothing
Set FSO=Nothing
Set Args=Nothing
WScript.Quit(0)

一体脚本和纯脚本

原理:直接访问目标的windows管理规范服务(WMI)(未完待续)
->


如果确实可以在CommandLine值中找到我们的目标字符串,则我们将调用GetOwner方法来找出进程的“所有者”(即,脚本在其下运行的帐户的名称):
objProcess.GetOwner(strNameOfUser,strUserDomain)
我们需要使用GetOwner传递一对“输出参数”如果您有兴趣,可以到往册表的“我的电脑\HKEY_CLASSES_ROOT\”或“我的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下去看看,本文的内容大都是从那里“抄”来的


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
下面的例子中,转换数字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->


on error resume Next
Set ie=WScript.CreateObject("InternetExplorer.Application")
set arg=wscript.arguments
if arg.count=0 then wscript.quit
ie.visible=false
ie.navigate arg(0)
While ie.Busy
WScript.Sleep 100
Wend
Do
Wscript.Sleep 200
Loop Until ie.ReadyState=4
For i=12 To ie.Document.links.length-2
data=ie.Document.links(i).innerText
If data <>13 Then
wscript.echo data
wscript.echo ie.Document.links(i).alt
End if
next
msgbox "转换完毕"
360加载
格式是Shell(命令字符串[,窗口类型])
其中的命令字符串是欲执行的应用程序名,可执行文件的扩展名只限于“.COM”,“.EXE”,“.BAT”,“.PIF”,缺省扩展名为.EXE文件,窗口类型是一整数值,它对应于程序执行时的显示窗口风格,是可选的,共有下列5种选择:
窗口类型值
窗口类型1,5,9
正常窗口,具有指针2
最小窗口,具有指针(缺省)3
最大窗口,具有指针4,8
正常窗口,不具指针6,7
最小窗口,不具指针
当Shell函数成功地调用某一个应用程序时,返回一个任务标识(TaskID),该ID表示正在执行的程序的唯一标识"&vbnewline&vbnewline&vbnewline&"生命在于运动"&vbnewline&vbnewline&vbnewline
fori=1to12'12为提醒的次数
WScript.Sleep(1000*60*45)'每45分钟提醒一次
msgboxalerttext,4096,alerttitle
next

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