Jump to content
xisto Community

John_Cena

Members
  • Content Count

    22
  • Joined

  • Last visited

About John_Cena

  • Rank
    Newbie [Level 1]

Contact Methods

  • Website URL
    http://

Profile Information

  • Location
    USA
  1. I get a debug on this: lbltime.Caption = "1"
  2. Their is a password changer for yahoo lol
  3. i will I still get the debug. I tried everything but nothingHere is the code:Private Sub Form_Load()lblTime.Caption = ""Timer1.Enabled = TrueTimer2.Enabled = FalseEnd SubPrivate Sub txtStatus_Change()If frmMain.WindowState = 1 ThenLet Timer2.Enabled = TrueElseLet Timer2.Enabled = FalseLet frmMain.Caption = "AdCache Remover"End IfEnd SubPrivate Sub cmdQuit_Click()EndEnd SubPrivate Sub Timer1_Timer()Let lblTime.Caption = Str((lblTime.Caption) + 1)Let lblStatusTime.Caption = Str((lblStatusTime.Caption) + 1)On Error Resume Nextx% = Len(Dir$("c:\Windows\System\AdCache\*.*")) 'If you have a different directory for the AdCache change it.If Err Or x% = 0 Then fileexists = False Else fileexists = TrueIf lblTime.Caption = 1 ThenIf fileexists = True ThenKill ("C:\Windows\System\AdCache\*.*") 'If you have a different directory for the AdCache change it.Let txtStatus.Text = "Deleting AdCache"Let lblTime.Caption = 0ElseLet txtStatus.Text = "Removing"Let lblTime.Caption = 0End IfEnd IfIf lblStatusTime.Caption = 1 ThenLet txtStatus.Text = txtStatus.Text & "."ElseIf lblStatusTime.Caption = 2 ThenLet txtStatus.Text = txtStatus.Text & ".."ElseIf lblStatusTime.Caption = 3 ThenLet txtStatus.Text = txtStatus.Text & "..."ElseIf lblStatusTime.Caption = 4 ThenLet txtStatus.Text = txtStatus.Text & "...."ElseIf lblStatusTime.Caption = 5 ThenLet txtStatus.Text = txtStatus.Text & "....."ElseIf lblStatusTime.Caption = 6 ThenLet txtStatus.Text = txtStatus.Text & "......"ElseIf lblStatusTime.Caption = 7 ThenLet txtStatus.Text = txtStatus.Text & "......."ElseIf lblStatusTime.Caption = 8 ThenLet txtStatus.Text = txtStatus.Text & "........"ElseIf lblStatusTime.Caption = 9 ThenLet txtStatus.Text = txtStatus.Text & "........."ElseIf lblStatusTime.Caption = 10 ThenLet txtStatus.Text = txtStatus.Text & ".........."ElseIf lblStatusTime.Caption = 11 ThenLet txtStatus.Text = txtStatus.Text & "..........."ElseIf lblStatusTime.Caption = 12 ThenLet txtStatus.Text = txtStatus.Text & "............"ElseIf lblStatusTime.Caption = 13 ThenLet txtStatus.Text = txtStatus.Text & "............."ElseIf lblStatusTime.Caption = 14 ThenLet txtStatus.Text = txtStatus.Text & ".............."ElseIf lblStatusTime.Caption = 15 ThenLet txtStatus.Text = txtStatus.Text & "..............."ElseIf lblStatusTime.Caption = 16 ThenLet txtStatus.Text = txtStatus.Text & "................"ElseIf lblStatusTime.Caption = 17 ThenLet txtStatus.Text = txtStatus.Text & "................."ElseIf lblStatusTime.Caption = 18 ThenLet txtStatus.Text = txtStatus.Text & ".................."ElseIf lblStatusTime.Caption = 19 ThenLet txtStatus.Text = txtStatus.Text & "..................."ElseIf lblStatusTime.Caption = 20 ThenLet txtStatus.Text = txtStatus.Text & "...................."ElseIf lblStatusTime.Caption = 21 ThenLet txtStatus.Text = txtStatus.Text & ""Let lblStatusTime.Caption = 0End IfEnd SubPrivate Sub Timer2_Timer()Let lblCaptionTime.Caption = Str((lblCaptionTime.Caption) + 1)If lblCaptionTime.Caption = 2 ThenLet lblCaptionTime.Caption = 0End IfIf lblCaptionTime.Caption = 0 ThenLet frmMain.Caption = "AdCache Remover"ElseIf lblCaptionTime.Caption = 1 ThenLet frmMain.Caption = txtStatus.TextEnd IfEnd Sub
  4. An instruction comes with the cashmod read it and follow the steps and you will be alright
  5. An instruction comes with the cashmod read it and follow the steps and you will be alright
  6. Hello guys...I made a program but when i run it i get a debug because i put the wrong timers action i tried to change it but still:Private Sub Form_Load()Let lblTime.Caption = Let Timer1.Enabled = TrueLet Timer2.Enabled = FalseEnd SubCan anybody tell me how to put the timers auction on the second line?
  7. I own PS2, Nintendo DS, and Nintendo GameCubeand my favorite game is soccer fiffa 2005
  8. If i new php i will try and create sites and stuff
  9. Do you Think you can make one like php nuke?
  10. How do you make Sigs that have flash in it? Like the one that have a tank picture on it
  11. It Looks great! How lon did it take you to create that message board?
  12. Now its working fine! Thanks guys
  13. nope i dont got none of them
  14. Hello Guys.. My Microsoft AntiSpyware Detects hotbar adn all that being installed on my computer without knowing and when i remove it.. it will get installed again by itself. Can anybody tell me what to do?Thanks!
×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.