commit
d95ae45e3c
|
@ -0,0 +1,4 @@
|
|||
syntax: glob
|
||||
SMACheck.au3.tbl
|
||||
SMACheck_Obfuscated.au3
|
||||
changelog.bat
|
|
@ -0,0 +1,59 @@
|
|||
;############################################################################################
|
||||
; AutoIt3 Wrapper docs -> http://www.autoitscript.com/autoit3/scite/docs/AutoIt3Wrapper.htm
|
||||
;############################################################################################
|
||||
|
||||
#AutoIt3Wrapper_Run_Obfuscator=Y
|
||||
#obfuscator_parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf /sv
|
||||
#AutoIt3Wrapper_Res_SaveSource=N
|
||||
#AutoIt3Wrapper_UseX64=N
|
||||
#AutoIt3Wrapper_Compile_both=N
|
||||
#AutoIt3Wrapper_Compression=4
|
||||
#AutoIt3Wrapper_res_requestedExecutionLevel=None ;None, asInvoker, highestAvailable or requireAdministrator (default=None)
|
||||
|
||||
;#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_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_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/
|
||||
;#AutoIt3Wrapper_Res_File_Add=I:\SVN\_Mercurial\ZNC Tool\src\bg.bmp, rt_bitmap, img_bg
|
||||
|
||||
#AutoIt3Wrapper_Res_Comment=
|
||||
#AutoIt3Wrapper_Res_Field=ProductName|SMACheck
|
||||
#AutoIt3Wrapper_Res_Description=SMACheck
|
||||
#AutoIt3Wrapper_Res_LegalCopyright=SpiffyTek (http://spiffytek.com)
|
||||
#AutoIt3Wrapper_Res_Field=CompanyName|SpiffyTek.com
|
||||
;#AutoIt3Wrapper_Res_Field=Author|M.Lotz (m.lotz@spiffytek.com)
|
||||
|
||||
;############################################################################################
|
||||
|
||||
#include <_XMLDomWrapper.au3>
|
||||
#include <File.au3>
|
||||
#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)
|
||||
|
||||
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)
|
|
@ -0,0 +1,106 @@
|
|||
<?xml version="1.0" encoding="windows-1251"?>
|
||||
<object type="TAForm" name="GUi">
|
||||
<properties>
|
||||
<property name="Left" vt="Int16">353</property>
|
||||
<property name="Top" vt="Int16">206</property>
|
||||
<property name="Width" vt="Int16">385</property>
|
||||
<property name="Height" vt="Int16">214</property>
|
||||
<property name="Caption" vt="String">SMACheck</property>
|
||||
<property name="Color" vt="Ident">clBtnFace</property>
|
||||
<property name="Font.Charset" vt="Ident">DEFAULT_CHARSET</property>
|
||||
<property name="Font.Color" vt="Ident">clWindowText</property>
|
||||
<property name="Font.Height" vt="Int8">-11</property>
|
||||
<property name="Font.Name" vt="String">MS Sans Serif</property>
|
||||
<property name="Font.Style" vt="Set"/>
|
||||
<property name="OldCreateOrder" vt="False">False</property>
|
||||
<property name="Visible" vt="True">True</property>
|
||||
<property name="Style" vt="Int32">-1798701056</property>
|
||||
<property name="ExStyle" vt="Int16">256</property>
|
||||
<property name="Version" vt="String">1.04</property>
|
||||
<property name="FormOptOnEvent" vt="False">False</property>
|
||||
<property name="FormOptExpVars" vt="False">False</property>
|
||||
<property name="FormOptPopulate" vt="False">False</property>
|
||||
<property name="FormOptVarsForSet" vt="False">False</property>
|
||||
<property name="FormOptIndentChar" vt="Int8">0</property>
|
||||
<property name="FormOptIndentCount" vt="Int8">1</property>
|
||||
<property name="FormOptIndentInit" vt="Int8">0</property>
|
||||
<property name="FormOptVarScope" vt="Int8">0</property>
|
||||
<property name="Resizing" vt="Set"/>
|
||||
<property name="PixelsPerInch" vt="Int8">96</property>
|
||||
<property name="TextHeight" vt="Int8">13</property>
|
||||
</properties>
|
||||
<components>
|
||||
<object type="TALabel" name="gTitle">
|
||||
<properties>
|
||||
<property name="Left" vt="Int8">0</property>
|
||||
<property name="Top" vt="Int8">0</property>
|
||||
<property name="Width" vt="Int16">369</property>
|
||||
<property name="Height" vt="Int8">52</property>
|
||||
<property name="Align" vt="Ident">alTop</property>
|
||||
<property name="Caption" vt="String">SMACheck</property>
|
||||
<property name="Font.Charset" vt="Ident">DEFAULT_CHARSET</property>
|
||||
<property name="Font.Color" vt="Ident">clWindowText</property>
|
||||
<property name="Font.Height" vt="Int8">-40</property>
|
||||
<property name="Font.Name" vt="String">Tahoma</property>
|
||||
<property name="Font.Style" vt="Set"/>
|
||||
<property name="ParentFont" vt="False">False</property>
|
||||
<property name="TabOrder" vt="Int8">0</property>
|
||||
<property name="HaveVariable" vt="False">False</property>
|
||||
<property name="CtrlStyle" vt="Int32">1342308609</property>
|
||||
<property name="CtrlExStyle" vt="Int8">0</property>
|
||||
<property name="Resizing" vt="Set"/>
|
||||
</properties>
|
||||
<components/>
|
||||
</object>
|
||||
<object type="TAInput" name="gSteamID">
|
||||
<properties>
|
||||
<property name="Left" vt="Int8">112</property>
|
||||
<property name="Top" vt="Int8">64</property>
|
||||
<property name="Width" vt="Int16">145</property>
|
||||
<property name="Height" vt="Int8">21</property>
|
||||
<property name="TabOrder" vt="Int8">1</property>
|
||||
<property name="CtrlStyle" vt="Int32">1342374017</property>
|
||||
<property name="CtrlExStyle" vt="Int16">512</property>
|
||||
<property name="Resizing" vt="Set">DockHeight</property>
|
||||
</properties>
|
||||
<components/>
|
||||
</object>
|
||||
<object type="TAButton" name="gButton_Submit">
|
||||
<properties>
|
||||
<property name="Left" vt="Int16">144</property>
|
||||
<property name="Top" vt="Int8">104</property>
|
||||
<property name="Width" vt="Int8">83</property>
|
||||
<property name="Height" vt="Int8">25</property>
|
||||
<property name="Caption" vt="String">Check</property>
|
||||
<property name="TabOrder" vt="Int8">2</property>
|
||||
<property name="Color" vt="Ident">clBtnFace</property>
|
||||
<property name="CtrlStyle" vt="Int32">1342374656</property>
|
||||
<property name="CtrlExStyle" vt="Int8">0</property>
|
||||
<property name="Resizing" vt="Set">DockWidth, DockHeight</property>
|
||||
</properties>
|
||||
<components/>
|
||||
</object>
|
||||
<object type="TALabel" name="gCopyright">
|
||||
<properties>
|
||||
<property name="Left" vt="Int8">0</property>
|
||||
<property name="Top" vt="Int16">159</property>
|
||||
<property name="Width" vt="Int16">369</property>
|
||||
<property name="Height" vt="Int8">17</property>
|
||||
<property name="Align" vt="Ident">alBottom</property>
|
||||
<property name="Caption" vt="UTF8String">Š2012 SMACbans.com && SpiffyTek</property>
|
||||
<property name="Font.Charset" vt="Ident">ANSI_CHARSET</property>
|
||||
<property name="Font.Color" vt="Ident">clWindowText</property>
|
||||
<property name="Font.Height" vt="Int8">-11</property>
|
||||
<property name="Font.Name" vt="String">Tahoma</property>
|
||||
<property name="Font.Style" vt="Set"/>
|
||||
<property name="ParentFont" vt="False">False</property>
|
||||
<property name="TabOrder" vt="Int8">3</property>
|
||||
<property name="HaveVariable" vt="False">False</property>
|
||||
<property name="CtrlStyle" vt="Int32">1342308609</property>
|
||||
<property name="CtrlExStyle" vt="Int8">0</property>
|
||||
<property name="Resizing" vt="Set"/>
|
||||
</properties>
|
||||
<components/>
|
||||
</object>
|
||||
</components>
|
||||
</object>
|
|
@ -0,0 +1,26 @@
|
|||
Dim Const $COMM_ID_START = 76561197960265728
|
||||
|
||||
Func _CommunityIDToSteamID($sComID)
|
||||
$sComID = Number($sComID)
|
||||
|
||||
$a = ($sComID - $COMM_ID_START) / 2
|
||||
$b = Floor($a)
|
||||
$c = Round( Mod($a,Floor($a)) )
|
||||
|
||||
Return "STEAM_0:" & String( $c ) & ":" & String( $b )
|
||||
EndFunc
|
||||
|
||||
Func _SteamIDToCommunityID($sSteamID)
|
||||
Local $sResult, $expl, $serverid, $accountid
|
||||
|
||||
$expl = StringSplit($sSteamID,":")
|
||||
|
||||
if ( UBound($expl) == 4 ) Then
|
||||
$serverid = Number($expl[2])
|
||||
$accountid = Number($expl[3])
|
||||
|
||||
$sResult = ( $accountid * 2 ) + $COMM_ID_START + $serverid
|
||||
EndIf
|
||||
|
||||
Return $sResult
|
||||
EndFunc
|
Reference in New Issue