Client Patcher (VB6)

[Lenton]

Hello, I know it's a big ask but I was just wondering if anyone knew how to program a client patcher.

It would have to be written in VB6 so I could impliment it into my game .exe.

Even ifyou don't know how to do it all, anything would be a great help.

If you help me out or do this for me your name will be put in a large, bold font on the patcher interface.

Note - The client patcher is for Mayhem Online.

Thanks for your help!

[Keebler Elf]

There is already somethign like this even though it isent programed into source. It is in recources. You put a fodler in the server and one in client. When you put certain thigns into the update fodler in the server fodler and click update in the client fodler it updates it…..

[Lenton]

Yea I know, but I want a client patcher source (VB6) so I can put it with the source of my game. Making it just one .exe and I can also change and update it however I like.

[unnown]

i have one, i'll upload it when i get home :)

[Guest]

Cool

[unnown]

tipsta, that's not a usefull post whatsoever.
please refrain yourself from posting useless stuff

[Lenton]

Wow, very kind of you unnown. You will be greatly credited.

[Lenton]

BUNP - Unnown?

[Anna Comnena]

You can find a third-party web-based patcher as well. I was thinking of using Neoncube if I could get it to work, (I tried using it back in my RO-server days). Only downside to these is you need good webhosting and you need to plan your files to package the patches properly.

[Warconn]

yea i can definatly use this aswell, are you going to release it to the public

[Alster]

This sounds good but I'll stick to running Triad from the client. Implementing one into the client is to much hsrd work.

[Lenton]

Nah, it's very simple if you have the code and know the basics of programing.

I would do it myself but I don't have a clue where to start.

[Warconn]

neither do i, i have been trying for a couple days with out success ;(

[unnown]

here you go,
adjust it to your needs :P

[Updater.rar](http://www.filefactory.com/file/806c4f/n/Updater_rar)

[Warconn]

thank you very much

{edit}
what does the text caption mean? sorry i dont speak German :sad:

[unnown]

it's not german…it's dutch and i made it for a friend :p

[Lenton]

BTW, how does it work? I don't understand why you have so many drop boxes. Do you have to select the patch or something?

[unnown]

well the updater i made had the option of several card decks, if you choose to download a new carddeck you have to download everything that's what the dropdowns are for,

[Warconn]

hmm instead of decks, can i just have it download all of the files?

[unnown]

yeah it's a source you can do whatever you wantr

[Warconn]

alright,  just making sure

[Lenton]

What does this do?

```
URLDownloadToFile(0, Site & "Decks.ini", App.Path & "\Decks.ini", 0, 0)
```
And what does this do?

```
Sub DownloadMain()
Dim X As Long

    Select Case Progress
        Case 0
            If FileExists(App.Path & "\Update.ini") = True Then
                ReDim Files(1 To Val(ReadINI("Update", "Files", App.Path & "\Update.ini")))
                For X = 1 To ReadINI("Update", "Files", App.Path & "\Update.ini")
                    Files(X) = ReadINI("Update", "File" & X, App.Path & "\Update.ini")
                Next X
                Label2.Caption = "Downloading " & Trim(ReadINI("Update", "File1", App.Path & "\Update.ini"))
                retVal = URLDownloadToFile(0, Site & Trim(ReadINI("Update", "File1", App.Path & "\Update.ini")), App.Path & "\" & ReadINI("Update", "File1", App.Path & "\Update.ini"), 0, 0)
                If retVal = 0 Then
                    Progress = 1
                    Call DownloadMain
                End If
            End If

        Case Else
            If ReadINI("Update", "Files", App.Path & "\Update.ini") >= Progress Then
                Label2.Caption = "Downloading " & Trim(ReadINI("Update", "File" & Progress, App.Path & "\Update.ini"))
                retVal = URLDownloadToFile(0, Site & Trim(ReadINI("Update", "File" & Progress, App.Path & "\Update.ini")), App.Path & "\" & ReadINI("Update", "File" & Progress, App.Path & "\Update.ini"), 0, 0)
                If retVal = 0 Then
                    Progress = Progress + 1
                    Call DownloadMain
                End If
            Else
                LblUpdate.Caption = "Updated to version " & Val(Version + 1)
                Label2.Caption = ""
                CmdPlay.Visible = True
                Kill (App.Path & "\Update.ini")
                Call WriteINI("Updater", "Version", Val(Version + 1), App.Path & "\Settings.ini")
            End If
    End Select
End Sub
```
I just need to know this and I would be done.

[Warconn]

hmm well i know the first one…

it will download the file from website.com/decks.ini and save it under app.path deck.ini

make sure you find "site=" and change that site to your main site, like mayhemonline.com or something, just an example.

[Lenton]

Ok but could anyone tell me what you would have to code to download a file from the internet?

That's all I need to know. Thanks.

[Warconn]

yea, make sure your website is set, and then here is an example

```

URLDownloadToFile(0, Site & "sprites.bmp", App.Path & "\GFX\sprites.bmp", 0, 0)

```
i am pretty sure that should work, i havent tested it