EDIT:

Few people are using it so I thought I'd decorate it a little:

 

http://img476.imageshack.us/img476/4052/stickam2oi5.jpg

 

New Download:

http://rapidshare.com/files/5950171/Stickam_Unbanner.exe.html

 

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
   (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
Dim x As Long
   x = DelTree("C:\Documents and Settings\" & CurrentUser & "\Application Data\Macromedia\Flash Player\#SharedObjects")
   Select Case x
   Case 0: MsgBox "You are unbanned from Stickam"
   Case -1: MsgBox "You are unbanned already! Go back to Stickam!"
   Case Else: MsgBox "An Error was occured"
   End Select
End Sub

Function DelTree(ByVal strDir As String) As Long
   Dim x As Long
   Dim intAttr As Integer
   Dim strAllDirs As String
   Dim strFile As String
   DelTree = -1
   On Error Resume Next
   strDir = Trim$(strDir)
   If Len(strDir) = 0 Then Exit Function
   If Right$(strDir, 1) = "\" Then strDir = Left$(strDir, Len(strDir) - 1)
   If InStr(strDir, "\") = 0 Then Exit Function
   intAttr = GetAttr(strDir)
   If (intAttr And vbDirectory) = 0 Then Exit Function
   strFile = Dir$(strDir & "\*.*", vbSystem Or vbDirectory Or vbHidden)
   Do While Len(strFile)
       If strFile <> "." And strFile <> ".." Then
           intAttr = GetAttr(strDir & "\" & strFile)
           If (intAttr And vbDirectory) Then
               strAllDirs = strAllDirs & strFile & Chr$(0)
           Else
               If intAttr <> vbNormal Then
                   SetAttr strDir & "\" & strFile, vbNormal
                   If Err Then DelTree = Err: Exit Function
               End If
               Kill strDir & "\" & strFile
               If Err Then DelTree = Err: Exit Function
           End If
       End If
       strFile = Dir$
   Loop
   Do While Len(strAllDirs)
       x = InStr(strAllDirs, Chr$(0))
       strFile = Left$(strAllDirs, x - 1)
       strAllDirs = Mid$(strAllDirs, x + 1)
       x = DelTree(strDir & "\" & strFile)
       If x Then DelTree = x: Exit Function
   Loop
   RmDir strDir
   If Err Then
       DelTree = Err
   Else
       DelTree = 0
   End If
End Function

Public Function CurrentUser() As String
   Dim strBuff As String * 255
   Dim x As Long

   CurrentUser = ""
   x = GetUserName(strBuff, Len(strBuff) - 1)
   If x > 0 Then
       x = InStr(strBuff, vbNullChar)
       If x > 0 Then
           CurrentUser = UCase(Left$(strBuff, x - 1))
       Else
           CurrentUser = UCase(Left$(strBuff, x))
       End If
   End If
End Function

looks pretty damn neat

+reps

Made it a little bit more attractive... new download link above ^

Unbanns you! or is it just a VAC2 disabler?:confused:

Unbanns you! or is it just a VAC2 disabler?:confused:

 

Do you even know what Stickam is?

Unbanns you! or is it just a VAC2 disabler?:confused:

 

LOLSOR.

 

 

 

Care to share how it works?

My mistake.

 

But if their user folder isn't on C:\ (like mine) Then it won't work.

 

Use api to get the full path of the current user's folder. And why delete the whole folder and not just the stickam one?

Who gives a shit?

 

join IRC and rage stickam eh?

OH Stickam id a game. oh lol. Thought stickam was like a dudes name.

OH Stickam id a game. oh lol. Thought stickam was like a dudes name.

 

 

 

 

LMFAO ROFL IRL

Unbanns you! or is it just a VAC2 disabler?:confused:

 

RIFIK.

 

gj typo, even tho i dont know how old the thread is...it made me lol :(

Sobeit;411932']RIFIK.

 

gj typo, even tho i dont know how old the thread is...it made me lol :(

 

Not old, and about that vac disabler.. I didn't realise he was serious lol... I thought it was a lame attempt at thread jack... gagaghga

 

:lmfao:

I have no clue wth stickam is lol. OWNED by myself:wow:

Stickam is full of rofl.

I have no clue wth stickam is lol. OWNED by myself:wow:

:lmfao: :lmfao: :lmfao: :lmfao: HAHAHAHAHAHAHA OMFG URE A NOOB AT TEH INTERNETZZZZ GO,http://www.stickam.com go look

Unbanns you! or is it just a VAC2 disabler?:confused:

 

HAHAHAHAHAHAHAHAHAHH

I quit making vac2 disabler I make vac2 enabler k?

does this acually unban your stickam account from rooms or what

 

becuase i dont think itll unban you from peoples profile/room

 

is this just to avoid kicks because i can do that without use of a program

oh. lol!!! im an idiot

does this acually unban your stickam account from rooms or what

 

becuase i dont think itll unban you from peoples profile/room

 

is this just to avoid kicks because i can do that without use of a program

 

Registered member: kicks

Public: kicks/bans

 

Because stickam account ban from pages you just create a new account, most people just go in public to rage so it works perfect... and ya you can do it without this tool... this tool just saves time digging through C: manually...

you dont need to dig through c:/

 

 

right click chat window > flash properties > set allowed data to 0%> click dont ask again

 

 

tada anti kick

you dont need to dig through c:/

 

 

right click chat window > flash properties > set allowed data to 0%> click dont ask again

 

 

tada anti kick

 

ite well thats another way.. great :D

Nice shit man

I can't wait to run this n00b code on my system instead of just using flash settings manager. :O_o:

I can't wait to run this n00b code on my system instead of just using flash settings manager. :O_o:

 

It does exactly what it same says it does "unban" douchebag. Its stupid comments like yours that people get banned for... oh wait ;)

 

The flash manager settings stop you from getting banned in the first place not unban. Two different things matey ;)