FreeOZ论坛

标题: 如果你每天都在不停check状态,那就进来看看 [打印本页]

作者: ciasom    时间: 4-7-2009 01:01
标题: 如果你每天都在不停check状态,那就进来看看
比较懒,一直没有记住TRN和护照号码,每次查询的时候都是ctrl+c, ctrl+v,再用tab跳到年月日和国家上面,直接用keyboard输入。

以前一般每天刷了一次,没觉得什么不方便。 最近看论坛有tx说一天刷10几遍,那不烦死了。

因此我想能不能把那个表格页面保存成html文件,把该填的trn, 出生年月日、护照号码、护照国别用我自己的信息写死,每次就点个next就行了。

可惜,没成功,每次都是返回500内部错误。


不太懂web和http的东东,论坛上有没有这方面的高手,帮忙看看。 如果能搞定,也能省却tx们大量宝贵的时间啊。


保存的文件见附件。
作者: piztol    时间: 4-7-2009 01:15
用自动填表,Maxthon 、the world、greenbrowser都有这个功能
作者: viviankimura    时间: 4-7-2009 01:16
你第一次输入信息,以后每次GO BACK出去,然后再NEXT就好了,不用重复输入信息的.
作者: daigua    时间: 4-7-2009 01:17
标题: 回复 #2 piztol 的帖子
好主意!
作者: mutoudemu    时间: 4-7-2009 01:20
就用土办法嘛。。出结果时,才更有怀念的内容。。
作者: morning    时间: 4-7-2009 02:22
' -----------------------------
' ----- 拷贝下面的脚本 ---------- 另存为TRN.VBS 文件
' -----------------------------

'parameters to be modified
ApplyLink="Apply for a tax file number"
Passport = "G0XXXXXX"
Country = "CHINA"
Title = "Mr" 'or Mrs
FamilyName = "XXX"
GivenName = "XXXX"
BirthDay = "XX"
BirthMonth = "XX"
BirthYear = "XXXX"

'Invoke IE to navigate apply page
Set ie = CreateObject("internetexplorer.application")
ie.Visible = false
'ie.Visible = true
ie.Navigate("http://www.ato.gov.au/individuals/content.asp?doc=/content/38760.htm")

'Max IE window
ie.Left=0
ie.top=0
ie.theatermode=True
iHeight=ie.height
iWidth=ie.Width
ie.theatermode=False
ie.height=iHeight
ie.width=iWidth
ie.visible=true
waitLoad(ie)

'apply for a TFN
clickLink ApplyLink
waitLoad(ie)

'apply_link.Click
ie.document.getElementByID("1_btnNext").Click
waitLoad(ie)
ie.document.getElementByID("1_btnNext").Click
waitLoad(ie)

'Travel doc number
ie.document.getElementByID("1_dfcTravelDocNumber_1").value= Passport
selectOption ie.document.getElementByID("1_dfcCountry_3"), Country
ie.document.getElementByID("1_dfcVisitedAustralia_5_0").Checked = True
ie.document.getElementByID("1_btnNext").Click
waitLoad(ie)

'Personal information
selectOption ie.document.getElementByID("1_ccIndividualName_dfTitle_1"), Title
ie.document.getElementByID("1_ccIndividualName_dfLastName_3").value = FamilyName
ie.document.getElementByID("1_ccIndividualName_dfFirstName_5").value = GivenName
ie.document.getElementByID("1_dfcDateOfBirth_11D").value = BirthDay
ie.document.getElementByID("1_dfcDateOfBirth_11M").value = BirthMonth
ie.document.getElementByID("1_dfcDateOfBirth_11Y").value = BirthYear
ie.document.getElementByID("1_dfcSex_13_0").Checked = True
ie.document.getElementByID("1_btnNext").Click
waitLoad(ie)

'Existing TFNABN
ie.document.getElementByID("1_dfcPrevTFNABN_1_1").Checked = True
ie.document.getElementByID("1_dfcTFNABNPossession_3_1").Checked = True
ie.document.getElementByID("1_dfcPrevTaxReturn_9_1").Checked = True
ie.document.getElementByID("1_dfcOwnPropOrBus_11_1").Checked = True

'Sleep 2 seconds for server available
WScript.Sleep 2000
ie.document.getElementByID("1_btnNext").Click
waitLoad(ie)

'Check result
if inStr(ie.document.body.innerHTML,"eligible for a TFN")Then
  msg = "Passed. Record has been found."
Else
  msg = "Record not found yet."
End If
WScript.Echo msg

ie.quit
set ie=nothing

'wait page load
Sub waitLoad(obj)
   while obj.Busy
    WScript.Sleep 5
   wend
End Sub

'select value in list
Sub selectOption(objs, text)
   For Each objItem in objs
     if objItem.text=text then
             objItem.selected = true
             exit sub
     end if
   next
End Sub

'click link
Sub clickLink(text)
   set links = ie.document.getElementsByTagName("a")
   for each link in links
      if link.innertext=text then
         link.Click
         exit for
      end If
   next
   set links=nothing
End sub
作者: fewproud    时间: 4-7-2009 02:34
最好还是不要这么做,万一对方的接口变了,阴差阳错你又闯入了进去,不知道会发生什么?呵呵
作者: shenzy    时间: 4-7-2009 02:35
原帖由 morning 于 4-7-2009 02:22 发表
' -----------------------------
' ----- 拷贝下面的脚本 ---------- 另存为TRN.VBS 文件
' -----------------------------


ls牛!!
作者: shenzy    时间: 4-7-2009 02:36
原帖由 fewproud 于 4-7-2009 02:34 发表
最好还是不要这么做,万一对方的接口变了,阴差阳错你又闯入了进去,不知道会发生什么?呵呵

系统误认为你要撤销申请。。。。。
作者: mutoudemu    时间: 4-7-2009 02:37
搞ACS的好厉害啊。。我是完全不懂了。。。
作者: Juice    时间: 4-7-2009 02:51
6喽 moring 真牛啊
作者: TtiGeR    时间: 4-7-2009 03:11
呵呵 我当时是写了个Serivce每5分钟自动查一次状态页 一次Documents列表  如果状态有变  短信通知...
作者: daigua    时间: 4-7-2009 09:00
原帖由 TtiGeR 于 4-7-2009 03:11 发表
呵呵 我当时是写了个Serivce每5分钟自动查一次状态页 一次Documents列表  如果状态有变  短信通知...

太先进了!
作者: 我的霍巴特    时间: 4-7-2009 12:40
全是偶像啊。。

后悔当初没学ACS,

SPA没啥用。。
作者: ciasom    时间: 6-7-2009 14:10
果真还是有牛人了,呵呵。 可惜只能给10分威望,均分了。

暂时就用2L的方法,自动填表一直没用过。
作者: godspeed7    时间: 6-7-2009 15:04
上面各位都是我的偶像,下次计算机有问题不用着急了,呵呵
作者: Caterpillar    时间: 6-7-2009 15:20
俺现在每天查无数次,几乎一小时一次。。。




欢迎光临 FreeOZ论坛 (https://www.freeoz.org/ibbs/) Powered by Discuz! X3.2