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
133
134
135
136
137
138
139
| Imports WMPLib
Public Class principale
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://id:mdp@adresseFTP"
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://id:mdp@adresseFTP"
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://id:mdp@adresseFTP"
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 logiciels", vbInformation, "Z!T¤ùn€")
Dim shell, logicielFTP
shell = CreateObject("WScript.Shell")
logicielFTP = "ftp://id:mdp@adresseFTP"
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 Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
If 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") = "zitoune-anticip02092003" Then
Dim shell, HomeFTP
shell = CreateObject("WScript.Shell")
HomeFTP = "ftp://id:mdp@adresseFTP"
shell.Run(HomeFTP, 0, False)
MsgBox("Accès autoriser", vbInformation, "Z!T¤ùn€")
Else : MsgBox("Accès refuser", vbCritical, "Z!T¤ùn€ @NT!C!P-W!N-32")
End If
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://id:mdp@adresseFTP"
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 = "http://adresseSITE"
shell.Run(Site, 0, False)
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Dim shell, startftp
shell = CreateObject("WScript.Shell")
startftp = "c:\ftp\dlaudio.vbe"
shell.Run(startftp, 0, False)
End Sub
End Class |
cherche script liste dossier sous dossier et leur fichier
Répondre avec citation
pour la 2ème partie de votre code càd la Création de la page en HTML inspire-toi de Ce Vbscript qui va peut-être vous donner une idée
Envoyé par hackoofr
:
Partager