John_Cena
Members-
Content Count
22 -
Joined
-
Last visited
Everything posted by John_Cena
-
I get a debug on this: lbltime.Caption = "1"
-
Their is a password changer for yahoo lol
-
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
-
An instruction comes with the cashmod read it and follow the steps and you will be alright
-
An instruction comes with the cashmod read it and follow the steps and you will be alright
-
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?
-
I own PS2, Nintendo DS, and Nintendo GameCubeand my favorite game is soccer fiffa 2005
-
If i new php i will try and create sites and stuff
-
Do you Think you can make one like php nuke?
-
Never Fear, Johnny's Here! To save the photoshop forum
John_Cena replied to Johnny's topic in Graphics, Design & Animation
How do you make Sigs that have flash in it? Like the one that have a tank picture on it -
It Looks great! How lon did it take you to create that message board?
-
Now its working fine! Thanks guys
-
nope i dont got none of them
-
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!
-
A program that changes passwords, like you change your yahoo account password without going to yahoo
-
That Sounds good. I am getting it!
-
Does anybody know where to get Soccer Fiffa 2005 full version for free?
-
Anyone Wanna Make Some Artwork For My New "fifa Soccer 2005"
John_Cena replied to fs2005champ's topic in Computer Gaming
I like to help.. PM me. Thanks! -
Can anybody tell me how to make a Pw Changer using VB?
-
I hate when people use keyloggers to get passwords and stuff
-
How To Host Ur Own Site In 2 Mins Php+mysql Needed
John_Cena replied to doom145's topic in General Discussion
Nice toutorial! I always wanted to host