Share code autoupdate + play game + tin tức ...

[nhatlinh0207]

Cập Nhật Hướng Dẫn = Video cho anh em chưa biết

link video 1: [Only registered and activated users can see links. ] (21,5MB - sau khi giải nén 1,5G)
link video 2: [Only registered and activated users can see links. ] (21,5MB - sau khi giải nén 1,5G)
link code trong bài hướng dẫn: [Only registered and activated users can see links. ]
link file txt mình viết khi hướng dẫn: [Only registered and activated users can see links. ]

video minh up lên youtube khuyến cáo các bạn down về xem cho nét




video demo


thêm cái ảnh cho host nhỉ

[Only registered and activated users can see links. ]


Fix lần 1(05/10/2012): cho phép tiếp tục update
Fix lần 2(08/10/2012): thêm chức năng cấu hình game

UPdate ngày 09/10/2012, thêm tools + hướng dẫn tạo file config
link tools (đã fix): [Only registered and activated users can see links. ]
link video hướng dẫn: [Only registered and activated users can see links. ]

Update ngày 12/10/2012: Sửa giao diện, thêm hiển thị tên file update ...
Demo:
[Only registered and activated users can see links. ]

Update ngày 15/10/2012: sửa 1 tý để có thể random update tại nhiều server
tìm:

Dim X As Integer

thêm vào dòng dưới :

Dim UrlUpDate As String

tìm:

theRequest = WebRequest.Create(http://lblueskyl.tk/data/anh/ & Host(i))

sửa thành:

Dim LuaChon As New Random
Dim R As Integer = LuaChon.Next(1, 3)           'tạo số random từ 1 đến 2
If R = 1 Then
     UrlUpDate = "http://lblueskyl.tk/data/anh/"        'link host 1
Else
     UrlUpDate = "http://buomcoi.tk/anh/"               'link host 2
End If
theRequest = WebRequest.Create(UrlUpDate & Host(i))

Update ngày 23/10/2012: Sửa lại giao diện cho đẹp mắt
[Only registered and activated users can see links. ]

-hiện % và số lượng file trong thanh load luôn, k để ở ngoài nữa
-fix lỗi nếu mất file Save.ini trong thư mục update sẽ tự động tạo lại


Update ngày 25/10/2012: Fix lỗi file Tools get file config


Update ngày 29/10/2012: Fix lỗi ... do bạn [Only registered and activated users can see links. ] phát hiện
- fix lỗi không down được những file trong thư mục con.
- fix lỗi không copy được nhưng thư mục con.


Update ngày 31/10/2012: Fix lỗi ... do bạn [Only registered and activated users can see links. ] phát hiện
- fix lỗi không down được thư mục cấp n


Update ngày 09/11/2012: Fix lỗi ... do bạn [Only registered and activated users can see links. ] và [Only registered and activated users can see links. ] phát hiện
- fix lỗi không down được file 0kb
- xóa hết rác trong thư mục update
link fix lần 8: [Only registered and activated users can see links. ]

Dự án mới: Hoàn thành
[Only registered and activated users can see links. ]


yahoo: autoupdatekiemtheprivate

[nhatlinh0207]

hờ hờ fix được cái down tiếp rồi không cần down lại từ đầu nữa

[Only registered and activated users can see links. ]

à file config trên server đây

123 (tên ver)
2 (số file)
F10.jpg (tên file 1)
F100.jpg (tên file 2)

chết quên, phải đi về rồi bác nào test thử xem code fix có lỗi j không nhé
có j chia sẻ để anh em cùng phát triển. bác nào có ý tưởng hay về autoupdate share em viết code cho

[nhatlinh0207]

bác nào update 100-200 file thì làm thế nào cho nhanh đc nhỉ

[babyturtle.vn7]

dowload về rồi làm sao sử dụng chủ thớt. Hướng dẫn luôn đi

[nhatlinh0207]

mình dùng ngôn ngữ VB 2010 cài vào mà sửa thôi
update gồm có 1 file config ở clien 1 file config trên server
thôi thì làm hướng dẫn cụ thể luôn nhé
đầu tiên là Form Load (nói dễ hiểu nghĩa là khi mở autoupdate là nó tự chạy những code như sau)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim theResponse As HttpWebResponse
        Dim theRequest As HttpWebRequest
        WebBrowser1.Url = New Uri("http://lblueskyl.tk/data/anh") 'Đây là địa chỉ trang web muốn nó load ở trong cái ô bên trái
        Try 'Checks if the file exist
            theRequest = WebRequest.Create("http://lblueskyl.tk/capnhat.xml") 'Đây là địa chỉ file config trên server để nó down về kiểm tra
            theResponse = theRequest.GetResponse
        Catch ex As Exception

            MessageBox.Show("Không Thể Kết Nối Đến Server:" & ControlChars.CrLf & _ 'thông báo lỗi không kết nối được file capnhat.xml
                            "1) Kiểm tra lại kết nối Internet của bạn." & ControlChars.CrLf & _
                            "2) Hoặc server update đang bị lỗi.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
        

        TinhPT.BackColor = Color.Transparent
        
        If File.Exists(Application.StartupPath & "\update\update.ini") Then 'kiểm tra file có tồn tại không rồi xóa đi
            File.Delete(Application.StartupPath & "\update\update.ini")
        End If
        My.Computer.Network.DownloadFile("http://lblueskyl.tk/capnhat.xml", Application.StartupPath & "\update\update.ini") 'Down file capnhat.xml về để kiểm tra
        'chú ý mình down file capnhat.xml rồi lưu file đó thành update.ini nhé
        Dim Clien As String = IO.File.ReadAllText(Application.StartupPath & "\config.ini") 'mở file config trên clien lên đọc dữ liệu của nó
        Dim Host() As String = IO.File.ReadAllLines(Application.StartupPath & "\update\update.ini") 'mở file capnhat.xml mới down về
        If Clien = Host(0) Then 'kiểm tra phiên bản có giống với phiên bản trên server hay không
            Info.ForeColor = Color.Blue
            Info.Text = "Cập Nhật Thành Công !!!" 'nếu giống thì thông báo thành công
            cmdCapNhat.Enabled = False
            Me.ProgressBar1.Value = 100
            Exit Sub
        Else
            Info.ForeColor = Color.Red
            Info.Text = "Có Bản Cập Nhật Mới !!!" 'nếu không thông  báo cập nhật mới
        End If
    End Sub

tiếp theo là nút cập nhật

cmdCapNhat.FocusCuesEnabled = False
        Info.ForeColor = Color.Red
        Info.Text = "Sếp đợi em tý !!!" 'hiện thông báo
        Me.BackgroundWorker1.RunWorkerAsync()'chạy tiến quá trình cập nhật riêng để không gây ra tình trang treo khi cập nhật

tiếp theo là tiến trình cập nhật

Dim X As Integer
        Dim Cp As String = Application.StartupPath & "\update\" 'thư mục tạm để down file update từ server về
        Dim Pt As String = Application.StartupPath & "\data\" 'chỗ muốn copy file sau khi down file xong nếu để là "Application.StartupPath" thì là root của thư mục
        Dim theResponse As HttpWebResponse
        Dim theRequest As HttpWebRequest
        Dim Clien As String = IO.File.ReadAllText(Application.StartupPath & "\config.ini") 'đọc file config trên clien
        Dim Host() As String = IO.File.ReadAllLines(Application.StartupPath & "\update\update.ini") 'đọc file config vừa down từ server về
        Dim Save As Integer = IO.File.ReadAllText(Application.StartupPath & "\update\Save.ini") 'đọc file save file này dùng đề khi đang udpate mà bị lỗi mạng thì bật    
        lại nó sẽ tự động update tiếp tục chứ không chạy lại từ đầu như bản update trước
        X = Host(1) - 1  'lay ten file
        Dim Dem As Integer = Save - 2
        Dim SoLuong As Integer
        SoLuong = Host(1)
        If Clien = Host(0) Then
            Exit Sub
        Else
            For i = Save To X
                If File.Exists(Application.StartupPath & "\update\" & Host(i)) Then 'kiểm tra và xóa file cuối cùng cập nhật đề phòng lỗi file ý mà
                    File.Delete(Application.StartupPath & "\update\" & Host(i))
                End If

                theRequest = WebRequest.Create("http://lblueskyl.tk/data/anh/" & Host(i)) 'http://lblueskyl.tk/data/anh/ là địa chỉ lưu tất cả các file update, 
                'Host(i)) nó sẽ đọc tất cả các tên file trong file config down từ server về
                theResponse = theRequest.GetResponse
                Dim length As Long = theResponse.ContentLength

                Dim safedelegate As New ChangeTextsSafe(AddressOf ChangeTexts)
                Me.Invoke(safedelegate, length, 0)

                Dim TinhSF As New TinhSoFileSafe(AddressOf TinhSoFile)

                Dim writeStream As New IO.FileStream(Application.StartupPath & "\update\" & Host(i), IO.FileMode.Create) '"\update\" lưu file vào thư mục tạm update
                Dim nRead As Integer
                Do
                    Dim readBytes(4095) As Byte
                    Dim bytesread As Integer = theResponse.GetResponseStream.Read(readBytes, 0, 4096)
                    nRead += bytesread
                    Dim percent As Short = (nRead * 100) / length
                    Me.Invoke(safedelegate, length, percent)
                    If bytesread = 0 Then Exit Do
                    writeStream.Write(readBytes, 0, bytesread)
                Loop
                nRead = 0
                theResponse.GetResponseStream.Close()
                writeStream.Close()
                Dem = Dem + 1
                Me.Invoke(TinhSF, Dem, SoLuong)
                IO.File.WriteAllText(Application.StartupPath & "\update\Save.ini", i + 1) 'lưu file save đề phòng update lỗi đề đc update tiếp
            Next
            'sau khi down xong tất cả các file từ server về 
            For i = 2 To X
                File.Delete(Application.StartupPath & "\data\" & Host(i)) 'xóa tất cả các file sẽ đc cập nhật mới
                i = i + 1
            Next
        End If
        For i = 2 To X
            File.Move(Cp & Host(i), Pt & Host(i)) 'move tất cả các file trong thư mục tạm update ra thư mục mà mình chọn của mình là Application.StartupPath &   "\data\"
        Next

        IO.File.WriteAllText(Application.StartupPath & "\config.ini", Host(0)) 'lưu file config trên clien
        IO.File.WriteAllText(Application.StartupPath & "\update\Save.ini", "2") 'chuyển file save lại từ đầu đề chuẩn bị lần sau update
        File.Delete(Application.StartupPath & "\update\update.ini") 'delete file config down từ server về
        Dim completeDelegate As New DownloadCompleteSafe(AddressOf DownloadComplete)
        Me.Invoke(completeDelegate, False)

tiếp theo là nút đăng nhập

cmdOK.FocusCuesEnabled = False
        Process.Start(Application.StartupPath & "\update\F2.jpg") 'các bạn sửa thành Process.Start(Application.StartupPath & "\game.exe")

ah nút cầu hình mình làm xong rồi có bác nào cần cho đẹp không?

tiếp theo là nút thoát các bạn sửa thành

If MsgBox("Bạn có muốn thoát khỏi chương trình không ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "THOÁT") = MsgBoxResult.No Then
            Me.close()
        End If

còn mấy nút kia là link đến web của các bạn thôi giồng VNG

Private Sub cmdDangKy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDangKy.Click
        cmdDangKy.FocusCuesEnabled = False
        Process.Start("http://forum.gamevinhlong.com/threads/552-Huong-dan-dang-ky-ID-de-kho-bi-mat.html") 'sửa link thôi

    End Sub

    Private Sub cmdForum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdForum.Click
        cmdForum.FocusCuesEnabled = False
        Process.Start("http://forum.gamevinhlong.com/forum.php") 'sửa link thôi

    End Sub

còn file config trên server cấu trúc như sau

11 (là tên của ver khác với server là cập nhật)
3 (số lượng file cần cập nhật)
F0.jpg (tên và đường đẫn các file)
F1.jpg
F10.jpg

ví dụ:
nếu cần update vào thư mục setting 1 file tên là abc.lua thì tên file phải như sau
setting\abc.lua
tạo file config sẽ rất vất vả nếu không có công cụ hỗ trợ, mình làm sắp xong rồi, tks cái đề làm cho nhanh nào

[nhatlinh0207]

update luôn cho các bạn cái cấu hình, vì tên file config.ini của update giống với file config.ini của của cấu hình game nên mình sửa file config update thành capnhat.ini
bác nào cần hỗ trợ j cứ pm tại đây
link: [Only registered and activated users can see links. ]

[newbie1712]

bạn có bản viết vb6 ko chứ vb10 thì download lâu quá với lại những máy ko cài .fmnet thì ko SD dc

[nhatlinh0207]

bạn có bản viết vb6 ko chứ vb10 thì download lâu quá với lại những máy ko cài .fmnet thì ko SD dc

mình ko có vb6. lười cài + viết lại = vb6 lắm
bạn cần chỉnh j mình sẽ giúp
mà đa số là win 7 rồi mà, k cần cài .Net nếu là win 7 mà, hehe

[nghichtu91]

vb.net thi chả biết gì có asp .net ko
hoặc c#ko :F

[nhatlinh0207]

vb.net thi chả biết gì có asp .net ko
hoặc c#ko :F

cần j biết vb.net đâu sửa mỗi mấy cái link thôi mà
thắc mắc j mình giúp cho