Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: [CS] Raifrichisseur De Pages Web ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 07:22 (2011)    Sujet du message: [CS] Raifrichisseur De Pages Web Répondre en citant

Voilà un petit rafraichisseur de pages web (100% By Me) avec l'interval réglable jusqu'à 15.

Screen :



Code Source :




  1. Public Class Form1  
  2.   
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
  4.         ProgressBar1.Enabled = True  
  5.         If NumericUpDown1.Value = 1 Then  
  6.             Timer1.Interval = 1  
  7.             ProgressBar1.Enabled = True  
  8.         End If  
  9.         If NumericUpDown1.Value = 2 Then  
  10.             Timer1.Interval = 2  
  11.             Timer1.Enabled = True  
  12.             ProgressBar1.Enabled = True  
  13.         End If  
  14.         If NumericUpDown1.Value = 3 Then  
  15.             Timer1.Interval = 3  
  16.             Timer1.Enabled = True  
  17.             ProgressBar1.Enabled = True  
  18.         End If  
  19.         If NumericUpDown1.Value = 4 Then  
  20.             Timer1.Interval = 4  
  21.             Timer1.Enabled = True  
  22.             ProgressBar1.Enabled = True  
  23.         End If  
  24.         If NumericUpDown1.Value = 5 Then  
  25.             Timer1.Interval = 5  
  26.             Timer1.Enabled = True  
  27.             ProgressBar1.Enabled = True  
  28.         End If  
  29.         If NumericUpDown1.Value = 6 Then  
  30.             Timer1.Interval = 6  
  31.             Timer1.Enabled = True  
  32.             ProgressBar1.Enabled = True  
  33.         End If  
  34.         If NumericUpDown1.Value = 7 Then  
  35.             Timer1.Interval = 7  
  36.             Timer1.Enabled = True  
  37.             ProgressBar1.Enabled = True  
  38.         End If  
  39.         If NumericUpDown1.Value = 8 Then  
  40.             Timer1.Interval = 8  
  41.             Timer1.Enabled = True  
  42.             ProgressBar1.Enabled = True  
  43.         End If  
  44.         If NumericUpDown1.Value = 9 Then  
  45.             Timer1.Interval = 9  
  46.             Timer1.Enabled = True  
  47.             ProgressBar1.Enabled = True  
  48.         End If  
  49.         If NumericUpDown1.Value = 10 Then  
  50.             Timer1.Interval = 10  
  51.             Timer1.Enabled = True  
  52.             ProgressBar1.Enabled = True  
  53.         End If  
  54.         If NumericUpDown1.Value = 11 Then  
  55.             Timer1.Interval = 11  
  56.             Timer1.Enabled = True  
  57.             ProgressBar1.Enabled = True  
  58.         End If  
  59.         If NumericUpDown1.Value = 12 Then  
  60.             Timer1.Interval = 12  
  61.             Timer1.Enabled = True  
  62.             ProgressBar1.Enabled = True  
  63.         End If  
  64.         If NumericUpDown1.Value = 13 Then  
  65.             Timer1.Interval = 13  
  66.             Timer1.Enabled = True  
  67.             ProgressBar1.Enabled = True  
  68.         End If  
  69.         If NumericUpDown1.Value = 14 Then  
  70.             Timer1.Interval = 14  
  71.             Timer1.Enabled = True  
  72.             ProgressBar1.Enabled = True  
  73.         End If  
  74.         If NumericUpDown1.Value = 15 Then  
  75.             Timer1.Interval = 15  
  76.             Timer1.Enabled = True  
  77.             ProgressBar1.Enabled = True  
  78.         End If  
  79.         If NumericUpDown1.Value = 0 Then  
  80.             MsgBox("ATTENTION, l'interval 0 n'est pas très idéal")  
  81.         End If  
  82.         If NumericUpDown1.Value > 15 Then  
  83.             MsgBox("Erreur, l'interval est trop grand, la maximum est de 15")  
  84.         End If  
  85.     End Sub  
  86.   
  87.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click  
  88.         Timer1.Enabled = False  
  89.         ProgressBar1.Value = 0  
  90.     End Sub  
  91.   
  92.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  93.         If ProgressBar1ProgressBar1.Value = ProgressBar1.Maximum Then  
  94.             WebBrowser1.Refresh()  
  95.             ProgressBar1.Value = 0  
  96.         Else  
  97.             ProgressBar1ProgressBar1.Value = ProgressBar1.Value + 1  
  98.         End If  
  99.     End Sub  
  100.   
  101.     Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted  
  102.     End Sub  
  103.   
  104.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  
  105.         WebBrowser1.Navigate("http://google.fr")  
  106.     End Sub  
  107.   
  108.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click  
  109.         WebBrowser1.Navigate(TextBox1.Text)  
  110.     End Sub  
  111. End Class  




_________________


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 07:22 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com