Update inteligente shed

Estado
Cerrado para nuevas respuestas.

Khardus

Newbie Lvl 6
hola a todos quisiera saber como soluciono este problema. resulta qe necesito un update entonces de host, uso a ucoz, lo que no entiendo en una parte del codigo, yo havia leido ya mas de 10 veces y todabía nosé que poner ya cree el parche1 y el verexe en bloq de notas le puse 1, los subi. se hizieron links directos y en la parte del codigo donde tengo q poner las webs puse esto:

Private Sub Analizar()
Dim i As Integer, iX As Integer, tX As Integer, DifX As Integer, dNum As String

lEstado.Caption = "Obteniendo datos..."

iX = Inet1.OpenURL("http://verexe.ucoz.com/VEREXE.txt") 'Host
tX = LeerInt(App.Path & "\INIT\Update.ini")
DifX = iX - tX

If Not (DifX = 0) Then
For i = 1 To DifX
Inet1.AccessType = icUseDefault
dNum = i + tX

#If BuscarLinks Then 'Buscamos el link en el host (1)
Inet1.URL = Inet1.OpenURL("http://verexe.ucoz.com/VEREXE.txt" & dNum & ".txt") 'Host
#Else 'Generamos Link por defecto (0)
Inet1.URL = "http://verexe.ucoz.com/Parche" & dNum & ".zip" 'Host
#End If

Directory = App.Path & "\INIT\Parche" & dNum & ".zip"
bDone = False
dError = False

lURL.Caption = Inet1.URL
lName.Caption = "Parche" & dNum & ".zip"
lDirectorio.Caption = App.Path & "\"

frmMain.Inet1.Execute , "GET"

Do While bDone = False
DoEvents
Loop

If dError Then Exit Sub

Unzip Directory, App.Path & "\"
Kill Directory
Next i
End If

Call GuardarInt(App.Path & "\INIT\Update.ini", iX)

Command1.Enabled = True
lEstado.Caption = "Cliente actualizado correctamente."
End Sub

cree el update.ini en la carpeta init. y tambien el bloq de notas llamado parches. tambien la carpeta TEMP ,
nose que hizé mal porfavor algunó que me ayude.
 

Damian

Software Developer
Ex-Staff
Le pusiste los números al parche?
Parche1.zip

es punto zip?? Es punto rar?
 

Khardus

Newbie Lvl 6
YA lo pude arreglar, gracias =.

¿ALGUNO TIENE EL SUB PARA QUE NO DEJE ABRIR EL FRMCONNECT SI NO TIENE TODAS LAS ACTUALIZACIONES ECHAS?. OSEA Q TENGA TODAS LAS ACTUALZACIONES INSTALADAS. SI NO LAS TIENE Q CIERRE EL JUEGO Y NO LE DEJE JUGAR..
 
Estado
Cerrado para nuevas respuestas.
Arriba