diff --git a/SMACheck.au3 b/SMACheck.au3 index b451928..81136c3 100644 --- a/SMACheck.au3 +++ b/SMACheck.au3 @@ -12,13 +12,13 @@ ;#AutoIt3Wrapper_Res_ProductVersion=x.x.x.x ; Broken, use #AutoIt3Wrapper_Res_Field=ProductVersion|x.x.x as workarround. #AutoIt3Wrapper_Res_Field=ProductVersion|Freeware -#AutoIt3Wrapper_Res_Fileversion=1.0.0.1 +#AutoIt3Wrapper_Res_Fileversion=1.0.0.3 #AutoIt3Wrapper_Res_FileVersion_AutoIncrement=P ;(Y/N/P) AutoIncrement FileVersion After Aut2EXE is finished. default=N. P=Prompt, Will ask at Compilation time if you want to increase the versionnumber #AutoIt3Wrapper_Res_Language=1031 ;Resource Language code . german = 1031, english (U.S.) = 1033. default 2057=English (United Kingdom). For a List see http://technet.microsoft.com/en-us/library/dd346950.aspx #AutoIt3Wrapper_OutFile=..\..\COMPILED\SMACheck.exe #AutoIt3Wrapper_OutFile_X64=..\..\COMPILED\SMACheck_x64.exe -#AutoIt3Wrapper_Icon=.\src\ico\SMACheck.ico +#AutoIt3Wrapper_Icon=.\resources\gfx\placeholder.ico #AutoIt3Wrapper_Res_Field=OriginalFileName|SMACheck.exe ;#AutoIt3Wrapper_res_file_add=I:\SVN\_Mercurial\ZNC Tool\src\bg.jpg, rt_rcdata, img_bg; http://www.autoitscript.com/forum/topic/51103-resources-udf/ @@ -33,27 +33,39 @@ ;############################################################################################ +Global $VERSION = "1.0.0 alpha 1" + +#NoTrayIcon + #include <_XMLDomWrapper.au3> #include +#include +#include +#include +#include +#include #include "includes/functions.inc.au3" -Global $oXML = ObjCreate("Microsoft.XMLHTTP") -$oXML.Open("GET", "http://api.smacbans.com/xml/getbanninfo_multiple/STEAM_0:0:34038101/", 0) -$oXML.Send -Global $sFile = _TempFile(@TempDir, '~', '.xml') -FileWrite($sFile, $oXML.responseText) +;; GUi +$GUi = GUICreate("SMACheck", 370, 177, 353, 206) +$gTitle = GUICtrlCreateLabel("SMACheck", 0, 0, 369, 52, $SS_CENTER) +GUICtrlSetFont(-1, 30, 400, 0, "Tahoma") +$gSteamID = GUICtrlCreateInput("", 112, 64, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER)) +$gButton_Submit = GUICtrlCreateButton("Check", 144, 104, 83, 25, $BS_CENTER) +$gCopyright = GUICtrlCreateLabel("©2012 SMACbans.com && SpiffyTek", 0, 159, 369, 17, $SS_CENTER) +GUICtrlSetFont(-1, 8, 400, 0, "Tahoma") +$gVersion = GUICtrlCreateLabel("v" & $VERSION, 280, 30, 82, 17) +GUISetState(@SW_SHOW) -If _XMLFileOpen($sFile) Then - Global $pStatus = _XMLGetValue('/isbanned/singleBan/status') -EndIf -If $pStatus[1] = "Y" Then - Global $bReason = _XMLGetValue('/isbanned/singleBan/reason') - Global $bNick = _XMLGetValue('/isbanned/singleBan/nickname') - Global $bTime = _XMLGetValue('/isbanned/singleBan/banTime') -EndIf - -MsgBox(64, "INFO", $pStatus[1] & @LF & $bTime[1] & @LF & $bReason[1] & @LF & $bNick[1]) - -FileDelete($sFile) \ No newline at end of file +While 1 + $nMsg = GUIGetMsg() + Switch $nMsg + Case $GUI_EVENT_CLOSE + Exit + Case $gButton_Submit + $iSteamID = GUICtrlRead($gSteamID) + _GetStatusFromSMACb($iSteamID) + EndSwitch +WEnd \ No newline at end of file diff --git a/SMACheck.kxf b/SMACheck.kxf index a94fa04..2ccbec9 100644 --- a/SMACheck.kxf +++ b/SMACheck.kxf @@ -102,5 +102,21 @@ + + + 280 + 30 + 82 + 17 + alCustom + v1.0.0 + 4 + False + 1342308608 + 0 + + + + \ No newline at end of file diff --git a/includes/functions.inc.au3 b/includes/functions.inc.au3 index 11cb9bf..39acfed 100644 --- a/includes/functions.inc.au3 +++ b/includes/functions.inc.au3 @@ -1,3 +1,39 @@ +;; SMAC XML APi +Func _GetStatusFromSMACb($steamid) + Global $oXML = ObjCreate("Microsoft.XMLHTTP") + $oXML.Open("GET", "http://api.smacbans.com/xml/getbanninfo_multiple/" & $steamid & "/", 0) + $oXML.Send + + Global $sFile = _TempFile(@TempDir, '~', '.xml') + FileWrite($sFile, $oXML.responseText) + + If _XMLFileOpen($sFile) Then + Global $pStatus = _XMLGetValue('/isbanned/singleBan/status') + EndIf + + If $pStatus[1] = "Y" Then + Local $bReason = _XMLGetValue('/isbanned/singleBan/reason') + Local $bNick = _XMLGetValue('/isbanned/singleBan/nickname') + Local $bTime = _XMLGetValue('/isbanned/singleBan/banTime') + EndIf + + FileDelete($sFile) + + + If $pStatus[1] = "Y" Then + Local $oStatus = "SteamID is Banned" + MsgBox(64, "INFO", "Status: " & $oStatus & @LF & "Nick: " & $bNick[1] & @LF & "Reason: " & $bReason[1] & @LF & "Time: " & $bTime[1]) + Else + Local $oStatus = "SteamID is not banned" + MsgBox(64, "INFO", "Status: " & $oStatus) + EndIf + +EndFunc + + + + +;; SteamID Convert Dim Const $COMM_ID_START = 76561197960265728 Func _CommunityIDToSteamID($sComID) diff --git a/resources/gfx/placeholder.ico b/resources/gfx/placeholder.ico new file mode 100644 index 0000000..5974fc5 Binary files /dev/null and b/resources/gfx/placeholder.ico differ