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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
| Imports System.Net
Public Class Form1
Dim WithEvents WC As New WebClient
Dim WithEvents WD As New WebClient
Dim WithEvents WE As New WebClient
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt") = True Then
My.Computer.Network.DownloadFile("http://antchain@hotmail.fr.344@kerta.dedicraft.fr/Upgrader.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Upgrader.txt")
Dim vn As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt")
Dim vni As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Upgrader.txt")
Dim nk As String
Dim nki As String
nk = vn.ReadLine
nki = vni.ReadLine
vn.Close()
vni.Close()
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\Upgrader.txt")
If nk < nki Then
MsgBox("Une mise a jour est disponible.", MsgBoxStyle.Information)
Button2.PerformClick()
End If
End If
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt") = False Then
'Remplacer "votresite" par l'adresse de votre site/ftp ou stocker les fichiers nécessaire a la Mise a jour
My.Computer.Network.DownloadFile("http://antchain@hotmail.fr.344@kerta.dedicraft.fr/Upgrader.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt")
MsgBox("Installation des fichiers necessaire au fonctionnement.", MsgBoxStyle.Information)
Button2.PerformClick()
End If
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe") = False Then
MsgBox("Installation des fichiers necessaire au fonctionnement.", MsgBoxStyle.Information)
Button2.PerformClick()
End If
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt") = True Then
CheckBox1.Checked = True
Dim sr As New System.IO.StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
TextBox1.Text = sr.ReadLine
TextBox2.Text = sr.ReadLine
sr.Close()
End If
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.Value = 0
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked = True Then
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt") = True Then
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
End If
Dim sw As New System.IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
sw.WriteLine(TextBox1.Text)
sw.WriteLine(TextBox2.Text)
sw.Close()
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " kerta.dedicraft.fr:25886")
Else
If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt") = True Then
Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\loglogin.txt")
End If
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe", TextBox1.Text & " " & TextBox2.Text & " kerta.dedicraft.fr:25886")
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Pensez a fermer Minecraft et attendez le message de confirmation!", MsgBoxStyle.Information)
Button1.Enabled = False
Button2.Enabled = False
WC.DownloadFileAsync(New Uri("http://antchain@hotmail.fr.344@kerta.dedicraft.fr/minecraft.jar"), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")
End Sub
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
End Sub
Private Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted
End Sub
Private Sub WebBrowser2_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser2.Navigating
If (e.Url.ToString() = "http://antchain@hotmail.fr.344@kerta.dedicraft.fr/News.htm") Then
Else
If (e.Url.ToString() = "http://antchain@hotmail.fr.344@kerta.dedicraft.fr/Minecraft Update News_files/iframe.htm") Then
Else
e.Cancel = True
System.Diagnostics.Process.Start(e.Url.ToString())
End If
End If
End Sub
Private Sub Label3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
ProgressBar1.Value = 4 * (e.ProgressPercentage) / 6
End Sub
Private Sub WC_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted
WD.DownloadFileAsync(New Uri("http://antchain@hotmail.fr.344@kerta.dedicraft.fr/Upgrader.txt"), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\Upgrader.txt")
End Sub
Private Sub WD_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WD.DownloadProgressChanged
ProgressBar1.Value = (400 / 6) + (e.ProgressPercentage) / 6
End Sub
Private Sub WD_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WD.DownloadFileCompleted
WE.DownloadFileAsync(New Uri("https://s3.amazonaws.com/MinecraftDownload/launcher/Minecraft.exe"), Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
End Sub
Private Sub WE_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles WE.DownloadProgressChanged
ProgressBar1.Value = (500 / 6) + (e.ProgressPercentage) / 6
End Sub
Private Sub WE_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WE.DownloadFileCompleted
Button1.Enabled = True
Button2.Enabled = True
MsgBox("Mise a jour Terminée!", MsgBoxStyle.Information)
End Sub
End Class |
Probleme avec mon code ou mon ftp?
Répondre avec citation
Partager