You enter your GUID and it tells you if you are banned by PBBans, PunksBusted, or GGC.
You can do either a General Scan of one GUID at a time.
Or you can do a Custom Scan or as many as you want at a time.
General Scan:
Custom Scan:
Code:
#NoTrayIcon
#Persistent
;-----------------------------------
;===========- Menu Bar -============
;-----------------------------------
Menu, FileMenu, Add, Delete &Log, DeleteLog
Menu, FileMenu, Add ; Divider Bar
Menu, FileMenu, Add, E&xit, FileExit
Menu, CustomMenu, Add, General &Scan, GeneralScan
Menu, CustomMenu, Add, Custom &Scan, CustomScan
Menu, HelpMenu, Add, &About, HelpAbout
Menu, MyMenuBar, Add, &File, :FileMenu
Menu, MyMenuBar, Add, &Scans, :CustomMenu
Menu, MyMenuBar, Add, &Help, :HelpMenu
Menu, CustomMenu, Check, General &Scan
Gui, Menu, MyMenuBar
;-----------------------------------
;==========- Gui Menu's -===========
;-----------------------------------
; General Menu
Gui, Add, GroupBox, x16 y10 w410 h100 , User Information
Gui, Add, Text, x46 y40 w40 h20 , GUID:
Gui, Add, Edit, x86 y40 w310 h20 +Center Limit32 vGUID,
Gui, Add, CheckBox, x106 y70 w60 h20 vPBBans, PBBans
Gui, Add, CheckBox, x176 y70 w100 h20 vPsB, PunksBusted
Gui, Add, CheckBox, x276 y70 w100 h20 vGGC, GGC Stream
Gui, Add, GroupBox, x196 y120 w210 h140 , Results
Gui, Add, Text, x216 y150 w50 h20 , PBBans:
Gui, Add, Text, x216 y190 w70 h20 , PunksBusted:
Gui, Add, Text, x216 y230 w70 h20 , GGC Stream:
Gui, Add, Text, x326 y150 w50 h20 ,
Gui, Add, Text, x326 y190 w50 h20 ,
Gui, Add, Text, x326 y230 w50 h20 ,
Gui, Add, Button, x56 y145 w90 h20 gScan, Scan
Gui, Add, Button, x56 y185 w90 h20 gClear, Clear Results
Gui, Add, GroupBox, x26 y120 w150 h105,
Gui, Show, w446 h278, Bf2 Ban Checker
; Custom Menu
Gui, Add, Text, x206 y210 w40 h20 +Hidden, GUID:
Gui, Add, Edit, x246 y208 w170 h20 +Hidden Limit32 vGUIDCustom,
Gui, Add, Text, x26 y210 w60 h20 +Hidden, Username:
Gui, Add, Edit, x86 y208 w110 h20 +Hidden vUsername1,
Gui, Add, ListView, x6 y10 w430 h190 +Hidden, Username|GUID|PBBans|PsB|GGC
LV_ModifyCol(1, 100)
LV_ModifyCol(2, 205)
LV_ModifyCol(3, 55) ; ListView Sizes
LV_ModifyCol(4, 55)
LV_ModifyCol(5, 55)
Gui, Add, Button, x61 y250 w82 h26 +Hidden gCheck, Check
Gui, Add, Button, x142 y250 w82 h26 +Hidden gAdd, Add
Gui, Add, Button, x223 y250 w82 h26 +Hidden gRemove, Remove Last
Gui, Add, Button, x304 y250 w82 h26 +Hidden gResetAll, Reset All
Gui, Add, Edit, x52 y240 h20 w100 +ReadOnly +Center,
Gui, Add, Text, x178 y231 w40 h19 +Hidden, Status:
Gui, Add, Text, x215 y231 w50 h19 +Hidden,
Gui, Show, w446 h278, Bf2 Ban Checker
GuiControl, Disable, Button7
InputNumber := 1
Loop ; Add Searches
{
IniRead, InputInfo, %A_WorkingDir%\config.ini, Rows, Row%InputNumber%
StringSplit, InputArray, InputInfo, %A_Space%
If InputArray1 = ERROR
Break
LV_Add("",InputArray2,InputArray3,InputArray4,InputArray5,InputArray6)
InputNumber++
}
Return
;-----------------------------------
;==========- Start Scan -===========
;-----------------------------------
Scan:
GuiControl, Disable, Edit1
GuiControl, Disable, Button6
GuiControl,, Edit4, Scanning
Scan := 1
Gui, Submit, NoHide
BF2GUID = %GUID%
PSBGUID = %GUID%
GGCGUID = %GUID%
StringLen, OutGGC, GGCGUID
If OutGGC = 8
GGCFinal = %GGCGUID%
If OutGGC = 32
StringTrimLeft, GGCFinal, GGCGUID, 24
GoTo, ScanStart
ScanStart:
If PBBans = 1
{
UrlDownloadToFile, http://www.pbbans.com/mbi-download-bf2-dlb13.html, %A_WorkingDir%\Banlist1.txt
PBBansScan := 1
{
Loop, Read, %A_WorkingDir%\Banlist1.txt
{
If A_LoopReadLine contains %BF2GUID%
{
GuiControl,, Static5, Banned
PBBansScan := 0
Break
}
}
If PBBansScan = 1
{
GuiControl,, Static5, Clean
PBBansScan := 0
}
}
}
If PSB = 1
{
UrlDownloadToFile, http://www.punksbusted.com/cgi-bin/membership/publicbans.cgi/BF2_pbbans.txt?key=16&remove=0, %A_WorkingDir%\Banlist2.txt
PsBScan = 1
{
Loop, Read, %A_WorkingDir%\Banlist2.txt
{
If A_LoopReadLine contains %PSBGUID%
{
GuiControl,, Static6, Banned
PsBScan := 0
Break
}
}
If PsBScan = 1
{
GuiControl,, Static6, Clean
PsBScan := 0
}
}
}
If GGC = 1
{
UrlDownloadToFile, http://www.ggc-stream.com/ggcpage/glbl_export.php?action=export&game_type=bf2, %A_WorkingDir%\Banlist3.txt
GGCScan := 1
{
Loop, Read, %A_WorkingDir%\Banlist3.txt
{
If A_LoopReadLine contains %GGCFinal%
{
GuiControl,, Static7, Banned
GGCScan := 0
Break
}
}
If GGCScan = 1
{
GuiControl,, Static7, Clean
GGCScan := 0
}
}
}
Scan := 0
GuiControl, Enable, Button7
GuiControl,, Edit4, Done
Return
;-----------------------------------
;==========- Clear Scan -===========
;-----------------------------------
Clear:
GuiControl,, Static5, %A_Space%
GuiControl,, Static6, %A_Space%
GuiControl,, Static7, %A_Space%
GuiControl,, Edit1, %A_Space%
GuiControl,, Edit2, %A_Space%
GuiControl, Disable, Button7
GuiControl, Enable, Button6
GuiControl,, Edit4, %A_Space%
GuiControl, Enable, Edit1
Return
;-----------------------------------
;=========- Menu Options -==========
;-----------------------------------
DeleteLog:
GoTo, ResetAll
Return
FileExit:
FileDelete, %A_WorkingDir%\Banlist1.txt
FileDelete, %A_WorkingDir%\Banlist.dat
FileDelete, %A_WorkingDir%\Banlist2.dat
ExitApp
Return
HelpAbout:
MsgBox, Made with Auto Hotkey. `n www.autohotkey.Com `n `n Made By: BF2Player
Return
;-----------------------------------
;======- General Scan Start -=======
;-----------------------------------
GeneralScan:
Menu, CustomMenu, Check, General &Scan
Menu, CustomMenu, UnCheck, Custom &Scan
GuiControl, Hide, SysListView321
GuiControl, Hide, SysHeader321
GuiControl, Hide, Edit2
GuiControl, Hide, Edit3
GuiControl, Hide, Static8
GuiControl, Hide, Static9
GuiControl, Hide, Static10
GuiControl, Hide, Static11
GuiControl, Hide, Button9
GuiControl, Hide, Button10
GuiControl, Hide, Button11
GuiControl, Hide, Button12
GuiControl, Show, Button1
GuiControl, Show, Button2
GuiControl, Show, Button3
GuiControl, Show, Button4
GuiControl, Show, Button5
GuiControl, Show, Button6
GuiControl, Show, Button7
GuiControl, Show, Button8
GuiControl, Show, Static1
GuiControl, Show, Static2
GuiControl, Show, Static3
GuiControl, Show, Static4
GuiControl, Show, Static5
GuiControl, Show, Static6
GuiControl, Show, Static7
GuiControl, Show, Edit1
GuiControl, Show, Edit4
Return
;-----------------------------------
;=======- Custom Scan Start -=======
;-----------------------------------
CustomScan:
Menu, CustomMenu, Check, Custom &Scan
Menu, CustomMenu, UnCheck, General &Scan
GuiControl, Hide, Button1
GuiControl, Hide, Button2
GuiControl, Hide, Button3
GuiControl, Hide, Button4
GuiControl, Hide, Button5
GuiControl, Hide, Button6
GuiControl, Hide, Button7
GuiControl, Hide, Button8
GuiControl, Hide, Static1
GuiControl, Hide, Static2
GuiControl, Hide, Static3
GuiControl, Hide, Static4
GuiControl, Hide, Static5
GuiControl, Hide, Static6
GuiControl, Hide, Static7
GuiControl, Hide, Static8
GuiControl, Hide, Edit1
GuiControl, Hide, Edit2
GuiControl, Show, SysListView321
GuiControl, Show, SysHeader321
GuiControl, Show, Edit2
GuiControl, Show, Edit3
GuiControl, Hide, Edit4
GuiControl, Show, Static8
GuiControl, Show, Static9
GuiControl, Show, Static10
GuiControl, Show, Static11
GuiControl, Show, Button9
GuiControl, Show, Button10
GuiControl, Show, Button11
GuiControl, Show, Button12
Return
;-----------------------------------
;==========- Custom Scan -==========
;-----------------------------------
Check:
GuiControl,, Static11, Scanning
RowNumber := 1
Loop
{
LV_GetText(GUIDFinal, RowNumber, 2)
LV_GetText(UsernameFinal, RowNumber, 1)
If GUIDFinal =
Break
UrlDownloadToFile, http://www.pbbans.com/mbi-download-bf2-dlb13.html, %A_WorkingDir%\Banlist1.txt
UrlDownloadToFile, http://www.punksbusted.com/cgi-bin/membership/publicbans.cgi/BF2_pbbans.txt?key=16&remove=0, %A_WorkingDir%\Banlist2.txt ; Download Banlists
UrlDownloadToFile, http://www.ggc-stream.com/ggcpage/glbl_export.php?action=export&game_type=bf2, %A_WorkingDir%\Banlist3.txt
PBBansCustom := 1
PsBCustom := 1
GGCCustom := 1
Loop, Read, %A_WorkingDir%\Banlist1.txt
{
If A_LoopReadLine contains %GUIDFinal%
{
PBBansCustomResults = Banned
PBBansCustom := 0
Break
}
}
If PBBansCustom = 1
{
PBBansCustomResults = Clean
PBBansCustom := 0
}
Loop, Read, %A_WorkingDir%\Banlist2.txt
{
If A_LoopReadLine contains %GUIDFinal%
{
PsBCustomResults = Banned
PsBCustom := 0
Break
}
}
If PsBCustom = 1
{
PsBCustomResults = Clean
PsBCustom := 0
}
StringLen, OutGGCCustom, GUIDFinal
If OutGGCCustom = 8
GGCFinalCustom := %GUIDFinal%
If OutGGCCustom = 32
StringTrimLeft, GGCFinalCustom, GUIDFinal, 24
Loop, Read, %A_WorkingDir%\Banlist3.txt
{
If A_LoopReadLine contains %GGCFinalCustom%
{
GGCCustomResults = Banned
GGCCustom := 0
Break
}
}
If GGCCustom = 1
{
GGCCustomResults = Clean
GGCCustom := 0
}
LV_Modify(RowNumber,"",UsernameFinal,GUIDFinal,PBBansCustomResults,PsBCustomResults,GGCCustomResults) ; Writes Ban Information
IniWrite, %RowNumber% %UsernameFinal% %GUIDFinal% %PBBansCustomResults% %PsBCustomResults% %GGCCustomResults%, %A_WorkingDir%\config.ini, Rows, Row%RowNumber%
RowNumber++
}
GuiControl,, Static11, Done
Return
;-----------------------------------
;========- Custom Buttons -=========
;-----------------------------------
Add:
Gui, Submit, NoHide
GuiControl,, Edit2,
GuiControl,, Edit3,
LV_Add("", Username1, GUIDCustom,"","","")
Return
Remove:
LastRow := % LV_GetCount()
LV_Delete(LastRow)
IniDelete, %A_WorkingDir%\config.ini, Rows, Row%LastRow%
Return
ResetAll:
LV_Delete()
IniDelete, %A_WorkingDir%\config.ini, Rows
Return
;-----------------------------------
;=======- DeleteFilesOnExit -=======
;-----------------------------------
OnExit, DeleteFiles
GuiClose:
FileDelete, %A_WorkingDir%\Banlist1.txt
FileDelete, %A_WorkingDir%\Banlist2.txt
FileDelete, %A_WorkingDir%\Banlist3.txt
ExitApp
Return
DeleteFiles:
FileDelete, %A_WorkingDir%\Banlist1.txt
FileDelete, %A_WorkingDir%\Banlist2.txt
FileDelete, %A_WorkingDir%\Banlist3.txt
Return
Login
Register
FAQ
Search
