Jump to content

I R 1337 G4NGSTA


JaZe

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

Link to comment
Share on other sites

This forum is supported by the 12ozProphet Shop, so go buy a shirt and help support!
This forum is brought to you by the 12ozProphet Shop.
This forum is brought to you by the 12oz Shop.

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

Link to comment
Share on other sites

  • 5 weeks later...




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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...