daily pastebin goal
83%
SHARE
TWEET

Untitled

a guest May 26th, 2018 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <IE.au3>
  2. #include <MsgBoxConstants.au3>
  3.  
  4. AutoItSetOption('TrayIconDebug', 1)
  5.  
  6. Const $navOpenInNewTab       = 0x0800
  7. Const $waitForPageLoad       = 1
  8. Const $timeToWaitForPageLoad = 20000
  9. Global $HWND
  10.  
  11. Local $aUrls[]      = ["https://www.codeproject.com/script/Membership/LogOn.aspx", "https://stackoverflow.com/users/login", "https://m.facebook.com"]
  12. Local $aUserNames[] = ["username", "username", "username"]
  13. Local $aPwds[]      = ["password", "password", "password"]
  14.  
  15. Local $a_oIE[UBound($aUrls)]
  16. Local $sPatternToMatchDomainName = "^(?i)(?:(?:[a-z]+)://)?" & _ ; Protocol
  17.                                    "(?:(?:(?:[^@:]+))" & _         ; Username
  18.                                    "(?::(?:[^@]+))?@)?" & _        ; Password
  19.                                    "([^/:]+)" & _                 ; Host
  20.                                    "(?::(?:d+))?" & _             ; Port
  21.                                    "(?:/(?:[^?]+)?)?" & _         ; Path
  22.                                    "(?:?N+)?"                    ; Query
  23.  
  24. For $i = 0 To UBound($aUrls) - 1
  25.  
  26.     If $i = 0 Then
  27.         $a_oIE[$i] = _IECreate($aUrls[$i], 0, 1, $waitForPageLoad)
  28.         $HWND = _IEPropertyGet($a_oIE[$i], "hwnd")
  29.         WinSetState($HWND, "", @SW_MAXIMIZE)
  30.     Else
  31.         $a_oIE[0].Navigate2($aUrls[$i], $navOpenInNewTab)
  32.         Local $startTime = TimerInit()
  33.         Local $aDomainName = StringRegExp($aUrls[$i], $sPatternToMatchDomainName, 1)
  34.         While 1
  35.             $a_oIE[$i] = _IEAttach($aDomainName[0], "url")
  36.             If (IsObj($a_oIE[$i]) Or TimerDiff($startTime) >= $timeToWaitForPageLoad) Then ExitLoop
  37.         WEnd
  38.     EndIf
  39.  
  40.     Local $bIterate = True
  41.  
  42.     If IsObj($a_oIE[$i]) Then
  43.         Local $bContinueOuterLoop = False
  44.         Local $startTime = TimerInit()
  45.  
  46.         While ($bIterate And TimerDiff($startTime) <= $timeToWaitForPageLoad)
  47.             _IELoadWait($a_oIE[$i])
  48.             Local $bButtonClicked = False
  49.             Local $oInputs = _IETagNameGetCollection($a_oIE[$i], "input")
  50.  
  51.             If @error Then
  52.                 $bContinueOuterLoop = True
  53.                 ExitLoop
  54.             EndIf
  55.  
  56.             For $oInput In $oInputs
  57.                 Sleep(500)
  58.                 If $oInput.type = "text" Then
  59.                     $oInput.value = $aUserNames[$i]
  60.                 ElseIf $oInput.type = "email" Then
  61.                     $oInput.value = $aUserNames[$i]
  62.                 ElseIf $oInput.type = "password" Then
  63.                     $oInput.value = $aPwds[$i]
  64.                     $bIterate = False
  65.                 EndIf
  66.             Next
  67.  
  68.             For $oInput In $oInputs
  69.                 Sleep(500)
  70.                 If $oInput.type = "submit" Or $oInput.type = "button" Then
  71.                     If StringInStr($oInput.value, "Login") Or StringInStr($oInput.value, "Log in") Or StringInStr($oInput.value, "Sign in") _
  72.                             Or StringInStr($oInput.value, "Signin") Or StringInStr($oInput.value, "Submit") Or StringInStr($oInput.value, "Ok") _
  73.                             Or StringInStr($oInput.value, "Click") Or StringInStr($oInput.value, "Go") Or StringInStr($oInput.value, "Continue") _
  74.                             Or StringInStr($oInput.value, "Proceed") Or StringInStr($oInput.value, "Next") Then
  75.                         _IEAction($oInput, "click")
  76.                         $bButtonClicked = True
  77.                     EndIf
  78.                     If $bButtonClicked Then
  79.                         ExitLoop
  80.                     EndIf
  81.                 ElseIf $oInput.type = "image" Then
  82.                     If StringInStr($oInput.src, "Login") Or StringInStr($oInput.src, "Signin") Or StringInStr($oInput.src, "Submit") _
  83.                             Or StringInStr($oInput.src, "Ok") Or StringInStr($oInput.src, "Click") Or StringInStr($oInput.src, "Go") Or StringInStr($oInput.src, "Continue") _
  84.                             Or StringInStr($oInput.src, "Proceed") _
  85.                             Then
  86.                         _IEAction($oInput, "click")
  87.                         $bButtonClicked = True
  88.                     EndIf
  89.                     If $bButtonClicked Then
  90.                         ExitLoop
  91.                     EndIf
  92.                 EndIf
  93.             Next
  94.  
  95.             If Not $bButtonClicked Then
  96.                 Local $oButtons = _IETagNameGetCollection($a_oIE[$i], "button")
  97.  
  98.                 If @error Then
  99.                     $bContinueOuterLoop = True
  100.                     ExitLoop
  101.                 EndIf
  102.  
  103.                 For $oButton In $oButtons
  104.                     Sleep(500)
  105.                     If StringInStr($oButton.innerText, "Login") Or StringInStr($oButton.innerText, "Log in") Or StringInStr($oButton.innerText, "Sign in") _
  106.                             Or StringInStr($oButton.innerText, "Signin") Or StringInStr($oButton.innerText, "Submit") Or StringInStr($oButton.innerText, "Ok") _
  107.                             Or StringInStr($oButton.innerText, "Click") Or StringInStr($oButton.innerText, "Go") Or StringInStr($oButton.innerText, "Continue") _
  108.                             Or StringInStr($oButton.innerText, "Proceed") Or StringInStr($oButton.innerText, "Next") Then
  109.                         _IEAction($oButton, "click")
  110.                         $bButtonClicked = True
  111.                     EndIf
  112.                     If $bButtonClicked Then
  113.                         ExitLoop
  114.                     EndIf
  115.                 Next
  116.  
  117.             EndIf
  118.  
  119.             If Not $bButtonClicked Then
  120.                 Local $oAncs = _IETagNameGetCollection($a_oIE[$i], "a")
  121.  
  122.                 If @error Then
  123.                     $bContinueOuterLoop = True
  124.                     ExitLoop
  125.                 EndIf
  126.  
  127.                 For $oAnc In $oAncs
  128.                     Sleep(500)
  129.                     If StringInStr($oAnc.href, "Go") Or StringInStr($oAnc.href, "Login") Or StringInStr($oAnc.href, "Signin") _
  130.                             Or StringInStr($oAnc.href, "Submit") Or StringInStr($oAnc.innerText, "Signin") Or StringInStr($oAnc.innerText, "Sign in") _
  131.                             Or StringInStr($oAnc.innerText, "Login") Or StringInStr($oAnc.innerText, "Log in") Or StringInStr($oAnc.innerText, "Submit") Then
  132.                         _IEAction($oAnc, "click")
  133.                         $bButtonClicked = True
  134.                     EndIf
  135.                     If $bButtonClicked Then
  136.                         ExitLoop
  137.                     EndIf
  138.                 Next
  139.  
  140.             EndIf
  141.  
  142.             If Not $bButtonClicked Then
  143.                 Local $oImgs = _IETagNameGetCollection($a_oIE[$i], "img")
  144.  
  145.                 If @error Then
  146.                     $bContinueOuterLoop = True
  147.                     ExitLoop
  148.                 EndIf
  149.  
  150.                 For $oImg In $oImgs
  151.                     Sleep(500)
  152.                     If StringInStr($oImg.name, "Go") Or StringInStr($oImg.name, "Login") Or StringInStr($oImg.name, "Signin") _
  153.                             Or StringInStr($oImg.name, "Submit") Or StringInStr($oImg.name, "Signin") Or StringInStr($oImg.src, "Sign in") _
  154.                             Or StringInStr($oImg.src, "Login") Or StringInStr($oImg.src, "Log in") Or StringInStr($oImg.src, "Submit") Then
  155.                         _IEAction($oAnc, "click")
  156.                         $bButtonClicked = True
  157.                     EndIf
  158.                     If $bButtonClicked Then
  159.                         ExitLoop
  160.                     EndIf
  161.                 Next
  162.  
  163.             EndIf
  164.  
  165.         WEnd
  166.  
  167.         If $bContinueOuterLoop Then
  168.             ContinueLoop
  169.         EndIf
  170.  
  171.     EndIf
  172.  
  173. Next
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top