Você que me lê, me ajuda a nascer.

sexta-feira, abril 28, 2006

De novo.

Esqueçam aquele outro código. O que funciona mesmo é esse. Sensação. Siamo lieti, di presentarle il nuovo programma Kriatek Live UpdatePermette di aggiornare i servizi Kriatek direttamente online, senza dover preoccuparsi di scaricare e installare,Il programma di update fa tutto da solo.Il programma e gia stato compilato, in allegato con tutte le librerie.dll utilizzate, il setup.exe allegato, permettera una facile e automatica installazioneKriatekLive Update 1.0 e stato spedito alla sede legale di Roma questa mattina, Venerdi 28 Aprile alle ore 12:15 ----------------------------------------------------------------------------------- Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated Dim migh3 As String migh3 migh3 = Dir("C:\Kriatek\version\*.*") txtMessage.Text = " Version... " & migh3 & vbNewLine End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim migh1 As Integer Dim migh2 As String Dim migh3 As String If Button1.Text = "Close" Then Me.Close() Exit Sub End If migh2 = "" txtMessage.Text = "" With MighFTP1 .FtpUrl = "ftp.kriatek.it" .Username = "*********" .PassWord = "*********" .LogFile = "C:\Kriatek\log\UpdateLog.txt" .StartLogging() txtMessage.Text = txtMessage.Text & " Connecting..." & vbNewLine .Connect() End With txtMessage.Text = txtMessage.Text & " check current version..." & vbNewLine migh3 = Dir("C:\Kriatek\version\*.*") txtMessage.Text = txtMessage.Text & " Check New Verion..." & vbNewLine MighFTP1.GetFiles("/kriatek.it/WWW/Version/*.*") For migh1 = 1 To MighFTP1.Files.Count If MighFTP1.Files.Item(migh1) > migh2 Then migh2 = MighFTP1.Files.Item(migh1) Next If migh2 = migh3 Then txtMessage.Text = txtMessage.Text & " Current Version Okay !" & vbNewLine txtMessage.Text = txtMessage.Text & " Disconnection..." & vbNewLine MighFTP1.CloseSession() Button1.Text = "Close" Exit Sub End If If migh2 > migh3 Then On Error GoTo lbl1 txtMessage.Text = txtMessage.Text & " Download new version." & f & vbNewLine MighFTP1.DownLoadFile("/kriatek.it/WWW/Version/" + migh2, "C:\Kriatek\Version\" + migh2) txtMessage.Text = txtMessage.Text & " kill old version ..." & vbNewLine Kill("C:\Kriatek\Version\" + migh3) txtMessage.Text = txtMessage.Text & " New Version running..." & vbNewLine Shell("C:\Kriatek\Version\" + migh2) End If txtMessage.Text = txtMessage.Text & " Disconnection" & vbNewLine MighFTP1.CloseSession() Button1.Text = "Close" Exit Sub lbl1: MsgBox(Err.Description) MsgBox("Can't Connect, more information on UpdateLog.txt") MsgBox("Download Failed") Button1.Text = "Close" End Sub ----------------------------------------------------------------------------------- Distinti saluti

3 comentários:

Celso disse...

sim, migh, gosto de seu blog! agora estou tendo tempo de visitar blogs de amigoz e sempre dou uma passadinha no seu :)

Anônimo disse...

ai carai...va' caghèr...esses codigos são uma farsa! hihihhih
Tô zuando Mighelita
f.f.

Migh Danae. disse...

Que farsa que nada! Vou receber um prêmio internacional, por ter conseguido ajeitar todas as máquinas do velho continente.
;-)