Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
CheckFile()
Global $VAC = False
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Steam VAC Checker", 535, 141, 192, 124)
GUISetFont(12, 400, 0, "Verdana")
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Steam - Profil Link:", 8, 8, 211, 22)
$Label2 = GUICtrlCreateLabel("(Beispiel: http://steamcommunity.com/profiles/76561198161648337)", 8, 40, 517, 16)
GUICtrlSetFont(-1, 7, 400, 0, "Verdana")
$Input1 = GUICtrlCreateInput("", 224, 8, 305, 26)
$Label3 = GUICtrlCreateLabel("VAC Bann:", 8, 64, 115, 22)
$Label4 = GUICtrlCreateLabel("Nicht überprüft", 128, 64, 199, 22)
GUICtrlSetColor(-1, 0x008080)
$Button1 = GUICtrlCreateButton("Überprüfe ob VAC Bann", 8, 88, 523, 49)
$Button2 = GUICtrlCreateButton("Speichern", 328, 56, 195, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
$Save = IniRead(@ScriptDir & "\save.ini", "Input1", "Link", "")
GUICtrlSetData($Input1, $Save)
GUISetState(@SW_SHOW, $Form1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
FileDelete(@ScriptDir & "\html.txt")
Exit
Case $Button1
CheckFile()
Check()
Case $Button2
Speichern()
MsgBox(64, "Steam VAC Checker", "Gespeichert.")
EndSwitch
WEnd
Func Check()
$URL = GUICtrlRead($Input1)
$oIE = _IECreate($URL, 0, 0)
$oIE_Read = _IEBodyReadHTML($oIE)
FileWrite(@ScriptDir & "\html.txt", $oIE_Read)
$Count = _FileCountLines(@ScriptDir & "\html.txt")
Local $Read[999], $Search[999]
For $i = 1 to $Count Step +1
$Read[$i] = FileReadLine(@ScriptDir & "\html.txt", $i)
$Search[$i] = StringInStr($Read[$i], "ausgeschlossen")
If Not $Search[$i] = 0 Then
$VAC = True
EndIf
Next
If $VAC = False Then
GUICtrlSetData($Label4, "Nein")
GUICtrlSetColor($Label4, 0x008000)
ElseIf $VAC = True Then
GUICtrlSetData($Label4, "Ja")
GUICtrlSetColor($Label4, 0xFF0000)
Else
GUICtrlSetData($Label4, "Fehler")
GUICtrlSetColor($Label4, 0xFF0000)
EndIf
FileDelete(@ScriptDir & "\html.txt")
$VAC = False
EndFunc
Func Speichern()
$URL = GUICtrlRead($Input1)
_FileCreate(@ScriptDir & "\save.ini")
IniWrite(@ScriptDir & "\save.ini", "Input1", "Link", $URL)
EndFunc
Func CheckFile()
If FileExists(@ScriptDir & "\html.txt") Then
FileDelete(@ScriptDir & "\html.txt")
EndIf
EndFunc
