[AHK]操控IE登录百度的示例

pwb := ComObjCreate("InternetExplorer.Application")
pwb.Visible := 1
pwb.Navigate("https://passport.baidu.com/v2/?login&tpl=mn")
while pwb.ReadyState <> 4
{}
pwb.document.getElementById("TANGRAM__PSP_3__userName").value := "用户名"
pwb.document.getElementById("TANGRAM__PSP_3__password").value := "密码"
pwb.document.getElementById("TANGRAM__PSP_3__submit").click()

比较优雅的写法

#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%
		
;~ ahk操作网页:点击网页按钮。

;~ 支持两种按钮定义方式 id 和tag
	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()                                
            }   
        }    
	}