Steam VAC Checker

[Grashopper.]

Hallo, ich möchte euch meinen Programm vorstellen, man gibt beim Textfeld den Steam Profil Link ein, und klickt auf den Button. Dann wird geprüft ob man von den VAC Servern ausgeschlossen ist, oder nicht.

Virustotal - Link:

Pastebin - Link:

Source:

 Spoiler

#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

[alpines]

Falsche Sektion.

[Grashopper.]

Originally Posted by alpines

Falsche Sektion.

Ist einfach nur ein Programm das ich veröffentliche, hat nichts mit Hacks oder so zu tun wenn du das meinst, und in welche Sektion gehört es denn?

[alpines]

Coding Releases > Beginner Releases Sticky

[snow]

^

#closed