1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
| Option Explicit On
Imports WMPLib
Imports System.IO
Public Class FrmFamille
Private Sub WindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsMediaPlayer1.Enter
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("les musiques avec comme extension autre que .RAR sont à télécharger avec le logiciel FileZilla", vbInformation, "Z!T¤ùn€")
Dim shell, audioFTP
shell = CreateObject("WScript.Shell")
audioFTP = "@ftp"
shell.Run(audioFTP, 0, False)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MsgBox("les films avec comme extension autre que .AVI sont à télécharger avec le logiciel FileZilla", vbInformation, "Z!T¤ùn€")
Dim shell, videoFTP
shell = CreateObject("WScript.Shell")
videoFTP = "@ftp"
shell.Run(videoFTP, 0, False)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MsgBox("lorsque vous avez afficher l'image choisi faite click droit et enregistrer l'image sous pour la télécharger", vbInformation, "Z!T¤ùn€")
Dim shell, fonecranFTP
shell = CreateObject("WScript.Shell")
fonecranFTP = "@ftp"
shell.Run(fonecranFTP, 0, False)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox("MERCI de vérifier les compatibilité avant de télécharger des logiciel", vbInformation, "Z!T¤ùn€")
Dim shell, logicielFTP
shell = CreateObject("WScript.Shell")
logicielFTP = "@ftp"
shell.Run(logicielFTP, 0, False)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim shell, playlisteRAP
shell = CreateObject("WScript.Shell")
playlisteRAP = "c:\ftp\playlisteRAP.jpg"
shell.Run(playlisteRAP, 0, False)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim shell, playlisteRNB
shell = CreateObject("WScript.Shell")
playlisteRNB = "c:\ftp\playlisteRNB.jpg"
shell.Run(playlisteRNB, 0, False)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim shell, playlisteZOUK
shell = CreateObject("WScript.Shell")
playlisteZOUK = "c:\ftp\playlisteZOUK.jpg"
shell.Run(playlisteZOUK, 0, False)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim shell, playlisteREGGEA
shell = CreateObject("WScript.Shell")
playlisteREGGEA = "c:\ftp\playlisteREGGEA.jpg"
shell.Run(playlisteREGGEA, 0, False)
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Dim MotDePasse As String
Dim Autorisation As Boolean
MotDePasse = ""
Autorisation = False
MotDePasse = InputBox("Accès sécuriser par Z!T¤ùn€ @NT!C!P_W!N-32, Merci de saisir votre mot de passe", "Z!T¤ùn€ @NT!C!P_W!N-32 requiert MDP")
Select Case MotDePasse
Case "mdp", "mdp", "mdp", "mdp"
Autorisation = True
MsgBox("Accès autoriser", vbInformation, "Z!T¤ùn€")
Dim shell, EnzoFTP
shell = CreateObject("WScript.Shell")
EnzoFTP = "@ftp"
shell.Run(EnzoFTP, 0, False)
End Select
Autorisation = False
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Dim shell, startRAP
shell = CreateObject("WScript.Shell")
startRAP = "c:\ftp\rap.wpl"
shell.Run(startRAP, 0, False)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim shell, startRNB
shell = CreateObject("WScript.Shell")
startRNB = "c:\ftp\rnb.wpl"
shell.Run(startRNB, 0, False)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim shell, startZOUK
shell = CreateObject("WScript.Shell")
startZOUK = "c:\ftp\zouk.wpl"
shell.Run(startZOUK, 0, False)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim shell, startREGGAE
shell = CreateObject("WScript.Shell")
startREGGAE = "c:\ftp\reggae.wpl"
shell.Run(startREGGAE, 0, False)
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim shell, Site
shell = CreateObject("WScript.Shell")
Site = "@site"
shell.Run(Site, 0, False)
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
FrmTéléchargements.Show()
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
FrmUpload.Show()
End Sub
End Class |
problème form login
même si je pense que les connaisseur les remarqueront d'eux-même
.
les ID là serve cas faire beau car seul le respect des MDP fonctionne
Répondre avec citation
)
Envoyé par Jean-Michel Ormes
quel interet ??
Partager