Autoupdate inteligente shed 4.0

  • Iniciador del tema Anonymous
  • Fecha de inicio
Estado
Cerrado para nuevas respuestas.
A

Anonymous

Invitado
Autoupdate intelijente shed 4.0

Bueno en otras versiones ya pedí que me lo cierren.

Es otro problema. Me baja correctamente el parche en este caso una imagen :D

Pero bueno se me baja y me dice fue actualizado correctamente. ok cierro abro el juego y me dice que tengo una actualización pendiente :p pero no hay nada...


Es como un bug

Pensaba que era posiblemente porque al actualizar tendría que ponerle el INIT en 0 pero sigue en 1


Dejo el código :S

CÓDIGOS CLIENTE PARA QUE PIDA ACTUALIZACIÓN AUTOMÁTICO

Código:
Function Analizar()
            On Error Resume Next
           
            Dim iX As Integer
            Dim tX As Integer
            Dim DifX As Integer
           
'LINK1            'Variable que contiene el numero de actualización correcto del servidor
                iX = Inet1.OpenURL("http://harek-ao.ucoz.es/VEREXE.txt")
            'Variable que contiene el numero de actualización del cliente
                tX = GetVar(App.path & "\INIT\Update.ini", "INIT", "X")
            'Variable con la diferencia de actualizaciones servidor-cliente
                DifX = iX - tX
 
            If Not (DifX = 0) Then
MsgBox "Hay actualizaciones pendiendes, el cliente se cerrará y se ejecutara el autoupdate."
Call ShellExecute(Me.hWnd, "open", App.path & "/Updateintelijente.exe", "", "", 1)
End
End If
End Function
 
 
 
 
 
 
 
 
''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function LeerInt(ByVal Ruta As String) As Integer
Dim f As Integer
 
f = FreeFile
Open Ruta For Input As f
 
LeerInt = Input$(LOF(f), #f)
Close #f
End Function
UPDATE DE SHED 4.0


Código:
Private Sub Analizar()
    Dim i As Integer, iX As Integer, tX As Integer, DifX As Integer, dNum As String
    
    lEstado.Caption = "Obteniendo datos del servidor."
    
    iX = Inet1.OpenURL("http://harek-ao.ucoz.es/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 '  Inet1.URL = Inet1.OpenURL("http://tuhost/Link" & dNum & ".txt") 'Host
                Inet1.URL = Inet1.OpenURL("http://harek-ao.ucoz.es/Link" & dNum & ".txt") 'Host
            #Else                'Generamos Link por defecto (0)
                Inet1.URL = "http://harek-ao.ucoz.es/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

bUENO el problema será esto??

Código:
 #If BuscarLinks Then '  Inet1.URL = Inet1.OpenURL("http://tuhost/Link" & dNum & ".txt") 'Host
                Inet1.URL = Inet1.OpenURL("http://harek-ao.ucoz.es/Link" & dNum & ".txt") 'Host
            #Else                'Generamos Link por defecto (0)
                Inet1.URL = "http://harek-ao.ucoz.es/PARCHE" & dNum & ".zip" 'Host
            #End If

Lo que entiendo maso menos es que hay dos posibilidades de buscar el parche una es con PARCHEN y la otra con LINK cualquiera de las dos funciona, o no?

eso es lo que pude entender..

Será algo mal echo de ahí?

Puse todo correctamente. lo único que en LINK no tengo nada subido a mi cuenta de ucoz :S tengo con parche nada más.

Espero que alguien me ayude :p
 

Luuq

La venganza será terrible
Subiste bien el archivo VEREXE? (Me refiero a si no le pusiste un número cualquiera..
 

Khardus

Newbie Lvl 6
Lauta es muy al pedo que uses ese sistema
esto es asi de facil, si vas a sacar un parche y no queres que logeen hasta tener el parche instalado haces lo siguiente:

Vas a SERVER.INI , Buscas VERSION= El numero que tengas: POR EJ TENES 4.4.4, Le pones 4.4.5
y despues cuando sacas el parche tenes que subir el exe del cliente con el numero de version 4.4.5, y si no tienen la actualizada no les deja entrar.
y si queres que sea via MSGBOX buscas los codigos del server donde dice Version Obsoleta o lo que diga en tu version y le pones :

MSGBOX ("Debes actualizar tu cliente abré el update que se encuentra en la carpeta del juego, de lo contrario no podras jugar")

y listo, saludos, avisame por msn si te andubo
 
Estado
Cerrado para nuevas respuestas.
Arriba