ئىنتىل تورى

تىزىملىتىش |كىر

ئىنتىل تورى › دەرۋازا › تېما كۆرۈش

vb6دا توردىن يېڭىلاش پىروگىررامىسى ياساش

يوللىغۇچى: wolkan0995| يوللانغان ۋاقتى: 2010-8-2 13:22| كۆرۈلۈشى: 133| ئىنكاس سانى: 1

مەن بۇرۇن uyghurvb بار  شۇ مۇنبەردە مۇشۇ سۇئالنى قالدۇرغان ئۇ ۋاقىتتا توردىن جىق ئىزدېگەن بولساممۇ بۇنىڭ پىرىنسىپنى بىلەلمىگەن ،مانا نەق بىر يىل بوپتۇ ئەمدى ھېس قىلسام بۇنداق توردىن يىڭىلاشنىڭ ناھايتى جىق ئۇسۇلى بارلىقىنى ھېس قىلدىم، بۇ يەردە مېنىڭ ئويلىغىنىمنى كۆپچىلىك بىلەن ئورتاقلىشىش نىيىتىدە بۇ تېمىنى يېزىپ ئولتۇرۇپتىمەن. ئۇنداق بولسا قۇرۇق گەپنى ئازقىلىپ باشلاپ كېتەي....
بۇنىڭ پىرىنسىپى مۇنداق ئالدى بىلەن مەلۇم بىر توربەتتىكى txt,ini ھۆجىتىنى XMLHTTP ئارقىلىق ئۇنىڭ مەزمۇنىغا ئېرىشىۋالىمىز، كەينىدىن بىزگە لازىملىق يەرلىرىنى پىروگىرامما ئارقىلىق كېسىۋالىمىز،مېنىڭ قىلغىنىم شۇنداق ئاددى مەن بىر txt ھۆججەتنى بوشلۇققا يوللىدىم ئۇنىڭ شەكلى تۆۋەندىكىچە:
  1. 1.1
  2. [url]http://www.aksu0997.com[/url]
  3. 1.rar
مەزمۇننى كۆچۈرۈۋېلىش
بۇنىڭ ئىچىدىن نەشىر نۇمۇرى چۇشۇرش ئادىرسى قاتالىقلارنى ئۆزگەرگۈچى مىقتارغا ئېلىۋالغاندىن كېيىن مۇشۇ 工程 بار مۇندەرىجىگە بىر ver.txt دەپ ھۆججەت قۇرۇپ ئۇنىڭ ئىچىگە
  1. 1.0
مەزمۇننى كۆچۈرۈۋېلىش

دەپ يازدىم. ئەمدى توردىكى نەشىر بىلەن يەرلىكتىكى نەشىرنى سېلىشتۇرۇپ توردىكى ver.txt نىڭ ئىچىدىكى قىممەت يەرلىكتىكى قىممەتىن چوڭ بولسا توردىكى ھۆججەتنى چۇشۇر سە بولىدۇ. مەن توردىن چۇشۇر دىغان قىسمىنى يازمىدىم. پىرىنسىپى شۇ. ئەمدى كودىنى يوللاي.

ئالدى بىلەن يېڭىدىن بىر 工程 قۇرۇپ كۆزنەككە بىر  كۇنۇپكا سىزىمىز،
ئۇنىڭ كەيندىن تۆۋەندىكى كودنى چاپلايمىز
  1. Dim naxir As String 'tordiki naxir
  2. Dim ver1 As String ' yarliktiki naxir



  6. Private Sub Command1_Click()
  7. Dim obj As Object, body As String
  8. Set obj = CreateObject("Microsoft.XMLHTTP")
  9. obj.Open "GET", "http://www.aksu0997.com/ver.txt", False
  10. obj.Send
  11. If obj.ReadyState = 4 Then body = obj.responseText

  13. naxir = Split(Split(body, "")(1), "")(0)
  14. ismi = Split(Split(body, "")(1), "")(0)
  15. adiris = Split(Split(body, "")(1), "")(0)
  16. loadver


  19. If naxir > ver1 Then
  20. ''''''''''''''''''''''''''''''
  21. 'ye gi naxir qik kan bolsa '
  22. ''''''''''''''''''''''''''''''
  23. MsgBox "出来新版本了 下载地址：" & vbCrLf & adiris & "/" & ismi
  24. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  25. 'bu yarga hojjat quxurux buy rukini barsak bo lidu '
  26. ''''''''''''''''''''''''''''''''''''''''''''''''''''''
  27. vernew
  28. Else
  29. ''''''''''''''''''''''''''''''
  30. 'ye gi naxir bolmisa '
  31. ''''''''''''''''''''''''''''''
  32. MsgBox "你在使用的最新版本"
  33. End If
  34. End Sub


  37. Sub vernew() 'ye gilap bol gan din keyin yegi naxir numurni ver.txt ning iqi ga yazidu
  38. Open App.Path + "/ver.txt" For Output As #1
  39. Print #1, naxir
  40. Close #1
  41. End Sub

  43. Sub loadver() 'yar liktiki ver.txt ning iqidiki kimatni alidu
  44. Open App.Path + "/ver.txt" For Input As #1
  45. ver1 = Input(LOF(1), 1)
  46. Close #1
  47. End Sub
مەزمۇننى كۆچۈرۈۋېلىش
بۇنىڭ 工程 ھۆجتنىنىمۇ يوللاپ قوياي


قوشۇمچە ھۆججەت: كىرىپ ئىنكاس يازسىڭىز ئاندىن كۆرەلەيسىز. تىزىملاتقانمۇ؟تىزىملىتىش
باشقۇرغۇچى adminbiz بۇ تېمىنى يۆتكىگەن ۋاقتى 2010-8-5 02:31

يېڭى ئىنكاسلار

Sezgurboy 2010-8-2 14:21
مۇسابىقە ئەسىرى ئوخشىمامدۇ؟
تۇنجى مۇسابىقە تېمىسىنى قارشى ئالىمىز!

( by NurQut Team) intil.cn 因特乐 知识信息网 Uyghur Office ( 新ICP备10003688号)|ئالاقىلىشىڭ

GMT+8, 2010-8-16 22:43.

Powered by Discuz! X1

© 2001-2010 Comsenz Inc.