• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

[VB6] Download BKAV Home

Bộ sưu tập mã nguồn các ứng dụng tiện ích
PhuongThanh37
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 87
Ngày tham gia: T.Sáu 09/09/2005 1:38 pm
Đến từ: Liên Hà, Đông Anh, HN
Liên hệ:

[VB6] Download BKAV Home

Gửi bàigửi bởi PhuongThanh37 » T.Ba 03/06/2008 5:10 pm

Tên chương trình: BKAV Home Download
Ngôn ngữ lập trình: Vb6
Tác giả: PhuongThanh37
Chức năng: Để đỡ công ngồi kích kích chọn chọn tải bkav home

Tập tin đính kèm
bkav download.zip
(2.9 KiB) Đã tải 16475 lần
Sửa lần cuối bởi QuanGL vào ngày T.Sáu 06/06/2008 5:47 pm với 2 lần sửa.
Lý do: Sửa bài cho đúng nội quy. Anh PhuongThanh cũng nhớ lưu ý điều này cho những bài viết sau nhé!


Uống Chanh & nghe Chanh hát

tuanhuypc
Bài viết: 1
Ngày tham gia: T.Bảy 07/06/2008 1:59 pm

Re: [VB6] Download BKAV Home

Gửi bàigửi bởi tuanhuypc » CN 08/06/2008 12:02 pm

PhuongThanh37 đã viết:Tên chương trình: BKAV Home Download
Ngôn ngữ lập trình: Vb6
Tác giả: PhuongThanh37
Chức năng: Để đỡ công ngồi kích kích chọn chọn tải bkav home



cái nầy hây đó ! nhưng nếu để cải tiến chương trình tự động download thì hơi khó !
Mình chỉ có ý kiến vậy thôi chứ không phải chê đâu nha bạn đừng hiểu lầm mình nhé !

Mình check BKAVPRO thấy nó check version tại địa chỉ sau
http://www.bkav.com.vn/bkavpro/getversion.aspx
( cách lấy link do BKAVPRO lấy như sau : vào google tìm chương trình "Network Monitor" cài vào , sau đó kiểm tra xem BKAVPRO nó conect vào đâu , ---> địa chỉ ...., lần sau có thay đổi cứ theo cách nầy sẽ dò ra địa chỉ mới)

Do BKAV Live Update được caulacbovb phát triên nên BKAV thường xuyên thay đổi link , gây khó khăn cho chương trình
nếu ta lấy link theo theo BKAVPRO sẽ không có sự thay đổi , vì nếu thay đổi BKAVPRO cũng phải cập nhật !

sau khi vào địa chỉ trên ta thấy 1 dòng code như sau :
0806062051,Bkav1697.exe,7304192,1407399085,0;http://www.bkav.com.vn

080606 ---> 06/06/08 ngày cập nhật
Bkav1697.exe----> phiên bản

nếu viết CT ta chi cần phiên bản , link ít thay đổi như http://south.bkav.com.vn/ ta sẽ viết vào 1 file text up lên sever
khi tìm được phiên bản của BKAV ta se tải từ sever của mình cái link http://south.bkav.com.vn/ + Bhome + phiên bản + ".EXE"
nếu có thay đổi link ta chỉ cần sửa file text up lên sever là xong

như vậy chương trình ít bị chết hơn

mình gởi 1 code mẫu , phương thanh ơi check dùm mình nha , có gì lổi sửa lại dùm mình !
hic không thấy chổ upload file, up lên host đở nhé
http://users3.titanichost.com/tuanhuypc/Urldownload.zip

PhuongThanh37
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 87
Ngày tham gia: T.Sáu 09/09/2005 1:38 pm
Đến từ: Liên Hà, Đông Anh, HN
Liên hệ:

Re: [VB6] Download BKAV Home

Gửi bàigửi bởi PhuongThanh37 » CN 08/06/2008 1:33 pm

Đương nhiên phải thế rồi chẳng qua kia chỉ là ví dụ vui thôi.
Khi viết chương trình nguyên tắt là phải kiểm tra kết nối mạng đầu tiên.
Sau đó kiểm tra kết nôi tới link đó
Tiếp đó mới sử lý.
Cho nên ko thể thiếu đc mấy function

Mã: Chọn hết

  1. Private Const FLAG_ICC_FORCE_CONNECTION = &H1
  2.  
  3. Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
  4. Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
  5. Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  6.  
  7. Function IsConnected() As Boolean
  8.     IsConnected = InternetGetConnectedState(0&, 0&)
  9. End Function
  10.  
  11. Function CheckConnection(ByVal Str1$) As Boolean
  12.     CheckConnection = _
  13.         InternetCheckConnection(Str1, FLAG_ICC_FORCE_CONNECTION, 0&)
  14. End Function
  15.  
  16. Function DownloadFile(URL As String, LocalFilename As String) As Boolean
  17.     Dim lngRetVal As Long
  18.     lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
  19.     If lngRetVal = 0 Then DownloadFile = True
  20. End Function
  21.  

Thông tin phiên bản thì nó ghi rất rõ rồi yy/mm/dd/hh/ss
Label7.Caption = Mid(BuildNumber, 5, 2) & "/" & Mid(BuildNumber, 3, 2) & "/" & Mid(BuildNumber, 1, 2) & _
"-" & Mid(BuildNumber, 7, 2) & "h:" & Mid(BuildNumber, 9, 2) & "'"
Uống Chanh & nghe Chanh hát

LMM1
Thành viên chính thức
Thành viên chính thức
Bài viết: 12
Ngày tham gia: T.Hai 28/07/2008 10:30 pm

Re: [VB6] Download BKAV Home

Gửi bàigửi bởi LMM1 » T.Hai 04/08/2008 10:28 pm

Cho hỏi đoạn mà này có ý nghĩ gì vậy, có thừa không nhỉ !

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Command1.Enabled = True
Command1.Caption = "Tai ve"
End Sub

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: [VB6] Download BKAV Home

Gửi bàigửi bởi clarkkent » T.Ba 12/08/2008 5:01 pm

LMM1 đã viết:Cho hỏi đoạn mà này có ý nghĩ gì vậy, có thừa không nhỉ !

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Command1.Enabled = True
Command1.Caption = "Tai ve"
End Sub

HÌnh như lúc control webbrowser đang thực thi mà nhấn bậy là có lỗi...
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

VanVu
Thành viên chính thức
Thành viên chính thức
Bài viết: 10
Ngày tham gia: T.Năm 05/02/2009 9:53 am

Re: [VB6] Download BKAV Home

Gửi bàigửi bởi VanVu » T.Ba 19/05/2009 9:33 am

Chào các bác, em dựa vào 1 số đoạn mã các pác đã post em viết dc 1 chương trình tự kiểm tra khi nào cóa phiên bản mới sẽ nhắc mình down về. Các pác cóa thể bổ xung thêm cho nó hoàn thiện.

Ngày 08/06/09
Đã bổ xung thêm chương trình mới viết hoàn thiện.
Tập tin đính kèm
bkav auto up.rar
Mã nguồn chương trình nhắc down BHome khi có bản mới
(42.05 KiB) Đã tải 913 lần
BK_Update.rar
Mới bổ xung thêm...
(140.3 KiB) Đã tải 1002 lần
Sửa lần cuối bởi VanVu vào ngày T.Hai 08/06/2009 10:18 am với 1 lần sửa.


Quay về “[VB] Mã nguồn chương trình tiện ích”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách