#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $hGUI = GUICreate("Проверка на наличие скрипта", 500, 200)
Local $idinput = GUICtrlCreateInput("1.html", 0, 0, 500, 25)
Local $idbutton1 = GUICtrlCreateButton("Проверка на наличие скрипта", 0, 50, 185, 25)
GUISetState(@SW_SHOW, $hGUI)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idbutton1
Local $hFileOpen = FileOpen(GUICtrlRead($idinput), $FO_READ)
Local $i = 1
While 1
Local $sData = FileReadLine($hFileOpen,$i)
If @error = -1 Then ExitLoop
Local $iPosition = StringInStr($sData,"<script")
if $iPosition <> 0 then msgbox(0,"Сообщение","Веб-страница содержит скрипт")
$i = $i + 1
WEnd
FileClose($hFileOpen)
EndSwitch
WEnd
|