Четверг, 03.07.2025, 00:22 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

Проверка на наличие скрипта

#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

Категория: Autoit | Добавил: moskov (21.12.2024)
Просмотров: 23 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [129]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [241]
Gentee [1]
Python [220]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск