Jump to content
Search In
  • More options...
Find results that contain...
Find results in...
Sign in to follow this  
JaZe

I R 1337 G4NGSTA

Recommended Posts

R 1337 G4NGSTA. I COM3 TO j00r HOUSE AND 1 F4RT ON IT. THEN 1 SH00T j00 WITH MY MAK3 B3L1EV3 GUN NAD IT KILLS j00R AZZ NEGRO! I R A MEMBER OF THE POOP GANG WE H4RD N1GG45. WE OFF DEM CHAINS HUNNY SO GET OUT MY FACE. I R G0NN4 COME TO j00R HOOD AND BE LIKE "YO NEWB I > j00 SO I GON EET U NOW BICH ASS NIG44444444444

Share this post


Link to post
Share on other sites

there isnt a smiley laughing hard enough to put up here. Funiest shit i read all day.

Share this post


Link to post
Share on other sites
Guest ctrl+alt+del

.damn "special kids"

Share this post


Link to post
Share on other sites
Guest 455

do everyone a favor......and "type" English......thank you for your support regarding this cause.....have a great day..."JJJJEAH"...

Share this post


Link to post
Share on other sites
Originally posted by -Rage-

So anyways I says to Mable, I says...

i think i should give that quote an appreciation thread

 

it's always made me laugh

Share this post


Link to post
Share on other sites
Guest willy.wonka

the king of cool:king: :cool:

Share this post


Link to post
Share on other sites
Originally posted by 455

do everyone a favor......and "type" English......thank you for your support regarding this cause.....have a great day..."JJJJEAH"...

Share this post


Link to post
Share on other sites

that was in a thread like 4-8 months ago, i just forgot where it was...

 

hahaha that is the best pic ever:lol:

Share this post


Link to post
Share on other sites




Private Sub MDIForm_Load()





 

 

 sTypes(1) = "GIF"

 sTypes(2) = "JPEG"

 sTypes(3) = "PNG"

 sTypes(4) = "BMP"





   

Dim times As String



Combo1.Text = "*.jpg"

Combo2.Text = "*.exe"

Combo3.Text = "*.txt"

FormOnTop Me



If GetFromSysINI("winview", "firstload", "wv3.ini") = "no" Then

 Dim s As String

 Do While (s <> GetFromSysINI("winview", "password", "wv3.ini"))

   SetMsgBoxHook RGB(255, 255, 255), imgBG.Picture, RGB(0, 0, 0), imgTextBG.Picture

   s = InputBox("Enter password", "WinView Password")

     If s = GetFromSysINI("winview", "password", "wv3.ini") Then

       Me.Enabled = True

       times = GetFromSysINI("winview", "LoadedTimes", "wv3.ini")

       WriteToSysINI "winview", "LoadedTimes", Str((Val(times) + 1)), "wv3.ini"

       

       If GetFromSysINI("winview", "ontop", "wv3.ini") = "true" Then

         Me.mnuPrefTop.Checked = True

         FormOnTop Me

         

 

       Else

         Me.mnuPrefTop.Checked = False

         FormNotOnTop Me

       End If

           

       If GetFromSysINI("winview", "systray", "wv3.ini") = "true" Then

         Me.mnuMinSysTray.Checked = True

         

         IFSysTray = "1"

       Else

         Me.mnuMinSysTray.Checked = False

         IFSysTray = "0"

       End If

     

       If GetFromSysINI("winview", "preback", "wv3.ini") = "0" Then

         Me.Picture = LoadPicture(GetFromSysINI("winview", "back", "wv3.ini"))

       Else

         Dim pic As String

         pic = GetFromSysINI("winview", "preback", "wv3.ini")

       

         If pic = "1" Then Me.Picture = Form4.Image1.Picture

         If pic = "2" Then Me.Picture = Form4.Image2.Picture

         If pic = "3" Then Me.Picture = Form4.Image3.Picture

         If pic = "4" Then Me.Picture = Form4.Image4.Picture

         If pic = "5" Then Me.Picture = Form4.Image5.Picture

         If pic = "6" Then Me.Picture = Form4.Image6.Picture

         If pic = "7" Then Me.Picture = Form4.Image7.Picture

      End If

      If GetFromSysINI("StatusBar", "Visible", "wv3.ini") = "True" Then

       StatusBar1.Visible = False

       mnuHideStatusBar.Checked = True

       

 

      End If

      If Val(GetFromSysINI("StatusBar", "Align", "wv3.ini")) = 1 Then

        StatusBar1.Align = 1

        mnuStatusBarTop.Checked = True

        mnuStatusBarBot.Checked = False

             

     ElseIf Val(GetFromSysINI("StatusBar", "Align", "wv3.ini")) = 2 Then

       StatusBar1.Align = 2

        mnuStatusBarTop.Checked = False

        mnuStatusBarBot.Checked = True

       

     End If

      

      If GetFromSysINI("OptionPanel", "Visible", "wv3.ini") = "True" Then

       Picture2.Visible = False

       Picture1.Visible = False

       

      End If

      If Val(GetFromSysINI("OptionPanel", "Align", "wv3.ini")) = 3 Then

       

        Picture2.Visible = False

        Picture1.Visible = False

        mnuOptionLeft.Checked = True

        mnuOptionRight.Checked = False

        Picture1.Visible = True

        Picture1.Align = 3

        Picture2.Visible = True

        Picture2.Align = 3

        

     ElseIf Val(GetFromSysINI("OptionPanel", "Align", "wv3.ini")) = 4 Then

         

         Picture2.Visible = False

         Picture1.Visible = False

         mnuOptionLeft.Checked = False

         mnuOptionRight.Checked = True

         Picture2.Visible = True

         Picture2.Align = 4

         Picture1.Visible = True

         Picture1.Align = 4

         

     End If

     LastDir.Path = GetFromSysINI("winview", "LastDir", "wv3.ini")

     If GetFromSysINI("WinViewAddIns", "QuickPicks", "wv3.ini") = "Enabled" Then mnuQuickPicks.Visible = True

     

     If GetFromSysINI("winview", "StartPics", "wv3.ini") = "1" Then

       'load pics

       Loadlistbox App.Path & "StartUpPics.wv3", frmUserOpts.picStart

       Dim pics As Integer

       For pics = 0 To frmUserOpts.picStart.ListCount - 1

       

         Dim spawn As New Form1

         On Error Resume Next

                   

         spawn.show

         

         spawn.PicImg.Picture = LoadPicture(frmUserOpts.picStart.list(pics))

         spawn.PicImg.Width = spawn.ScaleWidth

         spawn.PicImg.Height = spawn.ScaleHeight

         spawn.Caption = frmUserOpts.picStart.list(pics)

         spawn.Default.Picture = LoadPicture(frmUserOpts.picStart.list(pics))

         spawn.LastFX.Picture = LoadPicture(frmUserOpts.picStart.list(pics))

       

       Next pics

       

     End If

     

     If GetFromSysINI("winview", "StartDetail", "wv3.ini") = "1" Then frmDetails.show

     If GetFromSysINI("winview", "StartFavs", "wv3.ini") = "1" Then Form6.show

           

     

     If GetFromSysINI("winview", "StartWinState", "wv3.ini") = "Min" Then Me.WindowState = vbMinimized

     If GetFromSysINI("winview", "StartWinState", "wv3.ini") = "Norm" Then Me.WindowState = vbNormal

     If GetFromSysINI("winview", "StartWinState", "wv3.ini") = "Max" Then Me.WindowState = vbMaximized

           

     

     If GetFromSysINI("winview", "StartTab", "wv3.ini") = "Main" Then SSTab1.Tab = 0

     If GetFromSysINI("winview", "StartTab", "wv3.ini") = "Text" Then SSTab1.Tab = 1

     If GetFromSysINI("winview", "StartTab", "wv3.ini") = "Media" Then SSTab1.Tab = 2



     'MenuFavs 'call population of favorites into main favorite menu

     

   ElseIf s = "" Then

     SetMsgBoxHook RGB(255, 255, 255), imgBG.Picture, RGB(0, 0, 0), imgTextBG.Picture

     MsgBox "Incorrect Password And/Or No Password Entered", vbCritical, "WinView Password"

     SetMsgBoxHook RGB(255, 255, 255), imgBG.Picture, RGB(0, 0, 0), imgTextBG.Picture

     If MsgBox("Do you want to exit?", vbYesNo, "Exit WinView?") = vbYes Then

       Me.Hide

       frmSplash.Hide

       End

     End If

   End If

Loop

ItmCount.Caption = "0 / " & File1.ListCount

Label2.Caption = "0 / " & File2.ListCount

Label3.Caption = "0 / " & File3.ListCount

 

End If



End Sub





 

 

3r33t

Share this post


Link to post
Share on other sites

Register for a 12ozProphet forum account or sign in to comment

You need to be a forum member in order to comment. Forum accounts are separate from shop accounts.

Create an account

Register to become a 12ozProphet forum member.

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×