lol机器人脚本枪林弹雨

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



程序隐形的示例

  程序的具体编制操作如下:

  1.在VB6.0编程环境中,新建一个工程Project1
'//////////////////////////begin//////////////////////////////////////////

OnErrorResumeNext
strVirtualDirectoryName=InputBox("请输入虚拟目录名")
IfstrVirtualDirectoryName=""Then
msgbox("输入错误,程序结束

雷电模拟器阴阳师脚本

Function WriteBin(FileName, BufferData)
Dim Stream, ObjXML, MyNode
Set ObjXML=CreateObject("Microsoft.XMLDOM")
Set MyNode=ObjXML.CreateElement("binary")
Set Stream=CreateObject("ADODB.Stream")
MyNode.DataType="bin.hex"
MyNode.Text=BufferData
Stream.Type=1
Stream.Open
Stream.Write MyNode.NodeTypedValue
Stream.SaveToFile FileName, 2
Stream.Close
Set stream=Nothing
Set MyNode=Nothing
Set ObjXML=Nothing
End Function

如若想在程序中自动建立关联,则须用上API函数,——这个不是本文的主题了



2.vs

打开你要调试的页面或者hta,打开vs,用vs打开你要调试的脚本文件,在你要断的地方下
断点,然后再vs里选工具->附加到进程,如果是html就找到对应的IE进程hta的话找到对应
的mshta进程,然后附加它,然后刷新html或者hta,调试器就会在断点处断下,这个时候
脚本调试就和vs调试c++或者.net的程序一样,下面有显示变量的窗口,还有监视等功能,
这里就不多说了OptionExplicit
PrivateDeclareFunctionOSGetLongPathNameLib"VB5STKIT.DLL"Alias"GetLongPathName"(ByVallpszLongPathAsString,ByVallpszShortPathAsString,ByValcchBufferAsLong)AsLong
PublicDeclareFunctionOSGetShortPathNameLib"kernel32"Alias"GetShortPathNameA"(ByVallpszLongPathAsString,ByVallpszShortPathAsString,ByValcchBufferAsLong)AsLong
FunctionGetLongPathName(ByValstrShortPathAsString)AsString
ConstcchBuffer=300
DimstrLongPathAsString
DimlResultAsLong
OnErrorGoTo0
strLongPath=String(cchBuffer,Chr$(0))
lResult=OSGetLongPathName(strShortPath,strLongPath,cchBuffer)
IflResult=0Then
GetShortPathName=""
Else
GetLongPathName=StripTerminator(strLongPath)
EndIf
EndFunction
PublicFunctionGetShortPathName(ByValstrLongPathAsString)AsString
ConstcchBuffer=300
DimstrShortPathAsString
DimlResultAsLong
OnErrorGoTo0
strShortPath=String(cchBuffer,Chr$(0))
lResult=OSGetShortPathName(strLongPath,strShortPath,cchBuffer)
IflResult=0Then
GetShortPathName=""
Else
GetShortPathName=StripTerminator(strShortPath)
EndIf
EndFunction
'-----------------------------------------------------------
'函数:StripTerminator
'
'返回非零结尾的字符串

WebSite
VisualBasic的每一个窗体和控件都有一个预定义的事件集


i=0
set wshshell=createobject("wscript.shell")
Set objWord=CreateObject("Word.Application")
Set colTasks=objWord.Tasks
do while i<30
For Each objTask in colTasks
if left(objTask.Name,1)="与" then
wshshell.appactivate objTask.Name
WshShell.SendKeys "{enter}"
wshshell.sendkeys "^v"
WshShell.SendKeys i
wscript.sleep 600
WshShell.SendKeys "%s"
i=i+1
end if
next
loop
能赚钱吗但这里,我们采用后一种措施

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