Opt('MustDeclareVars', 1)
Opt("SendKeyDelay",250)

Local $objCOMError, $objAppIE, $jQuery
$objCOMError = ObjEvent("AutoIt.Error", "_COMErrorHandler")
;~ //創(chuàng)建IE對(duì)象
$objAppIE = ObjCreate("InternetExplorer.Application")
$objAppIE.visible = True

;~ //定義好友列表
Local $avArray[1]
$avArray[0] = "a";

;~ //入口方法
Main()

Func Main()
??? FOR $element IN $avArray
??????? Sleep(1000)
??????? if(StringLen ($element) <= 0) Then ContinueLoop
??????? SendGift($objAppIE, $element)
??? Next
EndFunc

;~ //點(diǎn)擊按鈕，發(fā)送免費(fèi)禮物
Func SendGift($objAppIE, $user)
??? Local $url = "http://www.kaixin001.com/!spiderman/gift.php"

??? $objAppIE.navigate($url)
??? $jQuery = _insertjQuery($objAppIE)
;~???? //找到“救急包”，并執(zhí)行click事件
??? $jQuery.jQuery('#free_Nlkuai_Inv').find('.sr_butt').get(0).click()
;~??? //彈出窗口，定位到第一個(gè)文本框
??? $jQuery.jQuery('#gift_friend').get(0).focus()
;~?? //執(zhí)行click
??? $jQuery.jQuery('#gift_friend').get(0).click()
??? Sleep(1000)
;~??? //輸入好友名稱
??? Send($user)
;~??? //循環(huán)，直到好友名稱返回

??? Local $Count = 0
??? Do
??????? Sleep(1000)
??????? $Count = $Count + 1
;~??????? //返回的值
??????? Local $userName = $jQuery.jQuery('.sgt_on').get(0)
??????? If(IsObj($userName) == 1) Then
??????????? ExitLoop
??????? Else
;~?????????? //如果沒有返回名稱，再次輸入用戶名
??????????? $jQuery.jQuery('#gift_friend').get(0).focus()
??????????? $jQuery.jQuery('#gift_friend').get(0).click()
??????????? Send($user)
??????? EndIf
??? Until $Count == 5
;~???? //無法找到該用戶名稱，返回
??? If($Count == 5) Then
??????? Return
??? EndIf
;~??? //返回的名稱
??? Local $userName = $jQuery.jQuery('#f_suggest_0').get(0)
??? If(IsObj($userName) == 1) Then
??????? Send("{ENTER}")
;~??????? //點(diǎn)擊“贈(zèng)送”圖標(biāo)
??????? $jQuery.jQuery('.btn_con').find('.promote').get(0).click();
;~???????? //成功窗口
??????? Local $Succ = $jQuery.jQuery('.xworld_popup').find('.popup_con > .promote').get(0)
??????? If(IsObj($Succ) == 1) Then
?????????? Local $text = $Succ.innerText;
?????????? if("關(guān)閉" == $text) Then
????????????? $jQuery.jQuery('.popup_con').find('.promote').get(0).click()
?????????? EndIf
??????? EndIf
??? Else
;~????????? //關(guān)閉窗口
????????? $jQuery.jQuery('.btn_con').find('.promote').get(1).click()
??? EndIf

EndFunc

Func _insertjQuery($objAppIE)
??? Local $objWindow, $objHead, $objScript
??? _IEPageLoadWait($objAppIE)
??? $objWindow = $objAppIE.document.parentWindow
??? $objHead = $objAppIE.document.getElementsByTagName('head').item(0)
??? If Not(IsObj($objWindow.jQuery)) Then
??????? $objScript = $objAppIE.document.createElement('script')
??????? $objScript.type = 'text/javascript'
??????? $objScript.defer = 'defer'
??????? $objScript.text = FileRead(@ScriptDir & '\jquery-1.4.2.min.js')
??????? $objHead.appendChild($objScript)

??????? While Not(IsObj($objWindow.jQuery))
??????????? Sleep(100)
??????? WEnd

??????? $objWindow.jQuery.noConflict()
??? EndIf
??? Return $objWindow
EndFunc

Func _IEPageLoadWait($objAppIE)
??? Do
??????? Sleep(100)
??? Until ($objAppIE.readyState = 'complete' Or $objAppIE.readyState = 4)
??? Do
??????? Sleep(100)
??? Until ($objAppIE.document.readyState = 'complete' Or $objAppIE.document.readyState = 4)
EndFunc

Func _COMErrorHandler()
??? Switch $objCOMError.number
??? Case -2147352570
??????? Return 0
??? Case Else
; Don't use central errorhandler
??????? MsgBox(8240, "Automation Error", "Unhandled COM Automation Error." & @CRLF & @CRLF & _
??????????????????? "This operation resulted in an unhandled error." & @CRLF & @CRLF & _
??????????????????? "Technical Information: " & @CRLF & _
??????????????????? "Error Number: " & $objCOMError.number & @CRLF & _
??????????????????? "Error Description: " & $objCOMError.winDescription & @CRLF & _
??????????????????? "Line Number: " & $objCOMError.scriptLine & @CRLF & @CRLF & _
??????????????????? "Contact technical support for furthur help.")
??????? Exit
??? EndSwitch
EndFunc