[编程]HtmlClickByKeyString

#h::
	pwb := ComObjCreate("InternetExplorer.Application")
	pwb.Visible := 1		
    weburl := "http://mail.163.com/index_alternate.htm"       ;keystring := "id:loginBtn"          
    ;~ weburl := "http://ahk8.com/forum-14.html"  					 ;keystring := "tag:A&index:32"
	pwb.Navigate(weburl)						                        
	while pwb.ReadyState <> 4																		
	{}	
		WinGetTitle, Title, A
        WinMaximize, %Title%
		
		
	keystring := "id:loginBtn"
    ;~ keystring := "tag:A&index:32"
    HtmlClickByKeyString(keystring, pwb)	
	HtmlClickByKeyString(keystring, pwb)							
	{
        If (InStr(keystring,"id:"))
        {
            idstring :=LTrim(keystring,"id:")
            pwb.document.getElementById(idstring).click()
        }            
        If (InStr(keystring,"tag:"))
        {
            stringarray :=StrSplit(keystring, "&")
            tagstring :=LTrim(stringarray[1],"tag:")
            indexstring :=LTrim(stringarray[2],"index:")
            Inputs := pwb.document.getElementsByTagName(tagstring)                    
            Loop, % Inputs.length
            {
                if (A_index == indexstring)                                         
					Inputs.item(A_index-1).Click()                                
            }   
        }    
	}