PHP Code:
#RequireAdmin
#NoTrayIcon
#include <WinHTTP.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
$Session = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0")
$Connect = _WinhttpConnect($Session, "www.nostale.de")
$HTML1 = _WinHttpSimpleRequest($Connect, "GET", "/pillory")
FileWrite("Bann.lst", $HTML1)
_WinHttpCloseHandle($Connect)
_WinHttpCloseHandle($Session)
If FileExists(@ScriptDir & "\Bann.lst") Then
#region ### START Koda GUI section ### Form=C:\Users\Marco\Desktop\Sonstige\Form144.kxf
$Form1 = GUICreate("NosTale Bann Protector", 539, 266, 161, 124)
$Label3 = GUICtrlCreateLabel("Du stehst nicht in der Bannliste", 376, 24, 150, 17)
$Color = GUICtrlSetColor(-1, 0x008000)
$Group1 = GUICtrlCreateGroup("Bannliste", 224, 8, 137, 249)
$List2 = GUICtrlCreateList("", 232, 48, 121, 199, BitOR($WS_HSCROLL,$WS_VSCROLL))
$Label4 = GUICtrlCreateLabel("Name:", 232, 24, 35, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status", 368, 8, 161, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Einstellungen", 368, 56, 161, 169)
$Button5 = GUICtrlCreateButton("?", 504, 200, 19, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Nostale starten", 376, 80, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Benachrichtigen", 376, 104, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Alarmsound abspielen", 376, 128, 121, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("Überwachung starten", 368, 232, 163, 25)
$Group4 = GUICtrlCreateGroup("Haupt", 8, 8, 209, 249)
$Label1 = GUICtrlCreateLabel("Nutzername:", 16, 24, 64, 17)
$Input1 = GUICtrlCreateInput("»ŠwôrЫ", 88, 24, 113, 21)
$Button1 = GUICtrlCreateButton("Name Hinzufügen", 16, 48, 187, 25)
$Button2 = GUICtrlCreateButton("Ausgewähltes Löschen", 16, 184, 179, 25)
$Button3 = GUICtrlCreateButton("Alles Löschen", 16, 216, 179, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$List1 = GUICtrlCreateList("", 16, 80, 185, 95, 0)
GUISetState(@SW_SHOW)
$html = FileRead(@ScriptDir & "\Bann.lst")
$string = _StringBetween($html, 'td_top_inner2">', '</td>')
For $i = 1 To 300 Step +6
GUICtrlSetData($List2, $string[$i])
Next
#endregion ### END Koda GUI section ###
EndIf
HotKeySet ("{F1}","beenden")
Func beenden()
exit 0
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop 1
Exit
Case $Button1
GUICtrlSetData($List1, GUICtrlRead($Input1))
Case $Button2
_GUICtrlListBox_DeleteString($List1, _GUICtrlListBox_GetCurSel($List1))
Case $Button3
_GUICtrlListBox_ResetContent($List1)
Case $Button4
_Start()
Case $Button5
beenden()
EndSwitch
WEnd
Func _Start()
MsgBox (0,"Info","Die Überwachung wurde gestartet.")
MsgBox (0,"Info","Du kannst das Programm aternativ mit F1 beenden.")
While 1
$Session = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0")
$Connect = _WinhttpConnect($Session, "www.nostale.de")
$HTML1 = _WinHttpSimpleRequest($Connect, "GET", "/pillory")
FileWrite("Bann.lst", $HTML1)
_WinHttpCloseHandle($Connect)
_WinHttpCloseHandle($Session)
Sleep (1000)
$name = _GUICtrlListBox_GetText($List1, 0)
$html = FileRead(@ScriptDir & "\Bann.lst")
$instr = StringInStr($html, $name)
If $instr > 44 Then
If GUICtrlRead($Checkbox1) = 1 Then Run('C:\Program Files (x86)\NosTale(DE)\BannProtector Multiclient.exe')
If GUICtrlRead($Checkbox2) = 1 Then MsgBox(16, "ACHTUNG", "Dein Account befindet sich in der Bannliste!")
If GUICtrlRead($Checkbox3) = 1 Then SoundPlay(@ScriptDir & "\Alarmsound.mp3")
$bann = GUICtrlCreateLabel("Du stehst in der Bannliste!", 376, 24, 127, 17)
$color2 = GUICtrlSetColor(-1, 0xFF0000)
For $i = 1 To 360 Step +6
GUICtrlSetData($List2, $string[$i])
Next
GUICtrlSetData($Label3, $bann)
GUICtrlSetData($Color, $color2)
ExitLoop 1
EndIf
FileDelete(@ScriptDir & "\Bann.lst")
WEnd
EndFunc ;==>_Start
Hab das Programm mit anderen Packer gepacket und zusätzlich noch mit dem Tool von Shadow992 geschützt.