如果你每天都在不停check状态，那就进来看看

ciasom

比较懒，一直没有记住TRN和护照号码，每次查询的时候都是ctrl+c, ctrl+v，再用tab跳到年月日和国家上面，直接用keyboard输入。

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

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

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


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


保存的文件见附件。

piztol

用自动填表，Maxthon 、the world、greenbrowser都有这个功能

viviankimura

你第一次输入信息,以后每次GO BACK出去,然后再NEXT就好了，不用重复输入信息的.

daigua

好主意！

mutoudemu

就用土办法嘛。。出结果时，才更有怀念的内容。。

morning

' -----------------------------
' ----- 拷贝下面的脚本 ---------- 另存为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

最好还是不要这么做，万一对方的接口变了，阴差阳错你又闯入了进去，不知道会发生什么？呵呵

shenzy

原帖由 morning 于 4-7-2009 02:22 发表

                               
登录/注册后可看大图

' -----------------------------
' ----- 拷贝下面的脚本 ---------- 另存为TRN.VBS 文件
' -----------------------------

ls牛！！

shenzy

原帖由 fewproud 于 4-7-2009 02:34 发表

                               
登录/注册后可看大图

最好还是不要这么做，万一对方的接口变了，阴差阳错你又闯入了进去，不知道会发生什么？呵呵

系统误认为你要撤销申请。。。。。

mutoudemu

搞ACS的好厉害啊。。我是完全不懂了。。。

Juice

6喽 moring 真牛啊

TtiGeR

呵呵 我当时是写了个Serivce每5分钟自动查一次状态页 一次Documents列表  如果状态有变  短信通知...

daigua

原帖由 TtiGeR 于 4-7-2009 03:11 发表

                               
登录/注册后可看大图

呵呵 我当时是写了个Serivce每5分钟自动查一次状态页 一次Documents列表  如果状态有变  短信通知...

太先进了！

我的霍巴特

全是偶像啊。。

后悔当初没学ACS，

SPA没啥用。。

ciasom

果真还是有牛人了，呵呵。 可惜只能给10分威望，均分了。

暂时就用2L的方法，自动填表一直没用过。

godspeed7

上面各位都是我的偶像，下次计算机有问题不用着急了，呵呵

Caterpillar

俺现在每天查无数次，几乎一小时一次。。。