#include <IE.au3>
#include <File.au3>
#include <MsgBoxConstants.au3>

Opt("MustDeclareVars", 1) ; 0 = Do not require, 1 = Require

#Region ==> Define Variables
Global $sHostname
Global $sFilePathHidden, $sFilePathText, $sFilePathTextArea, $sFilePathElse
Global $hFileOpenHidden, $hFileOpenText, $hFileOpenTextArea, $hFileOpenElse
Global $oIE, $oForm, $colForms, $oFormElement, $oFormElements
Global $sWeb_Page
Global $iCount
#EndRegion <== Define Variables

#Region ==> Initialize Variables
$sWeb_Page = "https://Enter_Your_URL_Here.pl"
$sFilePathHidden = "C:\Temp\Found_You_Hidden.txt"
$sFilePathText = "C:\Temp\Found_You_Text.txt"
$sFilePathTextArea = "C:\Temp\Found_You_TextArea.txt"
$sFilePathElse = "C:\Temp\Found_You_Else.txt"
#EndRegion <== Initialize Variables

#RequireAdmin

;Hidden
If FileExists($sFilePathHidden) Then FileDelete($sFilePathHidden)
Sleep(200)
$hFileOpenHidden = FileOpen($sFilePathHidden, $FO_APPEND)
FileWrite($hFileOpenHidden, "Contents of the file:" & @CRLF)
;Text
If FileExists($sFilePathText) Then FileDelete($sFilePathText)
Sleep(200)
$hFileOpenText = FileOpen($sFilePathText, $FO_APPEND)
FileWrite($hFileOpenText, "Contents of the file:" & @CRLF)
;TextArea
If FileExists($sFilePathTextArea) Then FileDelete($sFilePathTextArea)
Sleep(200)
$hFileOpenTextArea = FileOpen($sFilePathTextArea, $FO_APPEND)
FileWrite($hFileOpenTextArea, "Contents of the file:" & @CRLF)
;Else
If FileExists($sFilePathElse) Then FileDelete($sFilePathElse)
Sleep(200)
$hFileOpenElse = FileOpen($sFilePathElse, $FO_APPEND)
FileWrite($hFileOpenElse, "Contents of the file:" & @CRLF)
SearchForms()
Func SearchForms()
	$oIE = _IECreate($sWeb_Page, 0, 1, 1, 1)
	$colForms = _IEFormGetCollection($oIE)
	$iCount = 0
	For $oForm In $colForms
		$oFormElements = _IEFormElementGetCollection($oForm)
		For $oFormElement In $oFormElements
			$iCount = $iCount + 1
			Local $sTagName = StringLower($oFormElement.tagName)
			_IEFormElementSetValue($oFormElement, "Found You", 0)
			Switch $oFormElement.type
				Case "hidden"
					FileWrite($hFileOpenHidden, "> input." & $oFormElement.type & " " & $oFormElement.name & " ==>" & $iCount & @CRLF)
					MsgBox($MB_OK, "Hidden", FileRead($sFilePathHidden))
				Case "text"
					FileWrite($hFileOpenText, "> input." & $oFormElement.type & " " & $oFormElement.name & " ==>" & $iCount & @CRLF)
					MsgBox($MB_OK, "Text", FileRead($sFilePathText))
				Case "textarea"
					FileWrite($hFileOpenTextArea, "> input." & $oFormElement.type & " " & $oFormElement.name & " ==>" & $iCount & @CRLF)
					MsgBox($MB_OK, "TextArea", FileRead($sFilePathTextArea))
				Case Else
					FileWrite($hFileOpenElse, "> input." & $oFormElement.type & " " & $oFormElement.name & " ==>" & $iCount & @CRLF)
					MsgBox($MB_OK, "Else", FileRead($sFilePathElse))
			EndSwitch
		Next
	Next
	Terminate()
EndFunc ; ==> SearchForms

Func Terminate()
	FileClose($hFileOpenHidden)
	FileClose($hFileOpenText)
	FileClose($hFileOpenTextArea)
	FileClose($hFileOpenElse)
	GUIDelete()
	Exit
EndFunc ; ==> Terminate