Updater

  • VB.NET

Es gibt 33 Antworten in diesem Thema. Der letzte Beitrag () ist von larserik98.

    Updater

    Hai, Forum, ich hätte gerne für dieses Programm einen Updater, da es doof ist, jedesmal die alte Version zu deinstallieren und dann die neue Draufzumachen, hier ist der Link zu der aktuellen Version, damit ihr euch ein Bild der Lage machen könnt: LINK

    Hast du schon in dem Tutorial bereich gesucht ??
    Dort ist meiner meinung nach ein Tutorial wie du einen Updater selbst Programirst.

    Du kannst die Updater mit ein wenig erfahrung in das Programm einbauen.

    Aber in dem Tutorial bereich gibt es auch ein Tutorial "Updater in Programm einbauen" oder so ähnlich heisst das.

    Oder machs einfach so:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. WebBrowser1.Navigate("Deine URL")
    5. End Sub
    7. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    9. If WebBrowser1.DocumentText = "1.0" Then
    10. MsgBox("Es sind keine Updates verfügbar.")
    11. ElseIf WebBrowser1.DocumentText <> 1.0 Then
    12. MsgBox("Update verfügbar")
    13. End If
    14. End Sub
    15. End Class


    Das ist zwar nur ein 0 8 15 aber ich denke für dein Programm reicht er.
    Die URL musst du selbst einsetzten die habe ich nur so eingetragen

    könntest du noch kurz hinschreiben, was jedes der steuerlemente bzw. code macht? Das wäre mir sehr hilfreich, danke im voraus

    es funktioniert nicht, es zeigt eine Fehlermeldung: Ungültige Konvertierung von der Zeichenfolge <!DOCTYPE HTML PUBLIC "-//W3C//D in Typ Double.

    Beim Code:ElseIf WebBrowser1.DocumentText <> 1.0 Then

    Und ich hätte gerne einen updater, der quasi nicht nur die aktuellste version runterlädt, sondern auch noch "über die andere" installiert, sonst gäbe z.b. auch viele einträge in der registry...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „vads“ ()

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    4. WebBrowser1.Navigate("Deine URL") 'Ziehst einen Webbrowser auf die Form und beim Click auf Button1 navigiert
    5. 'er zu einer seite die wo eingeben wurde bei Deine URL das sollte deine sein auf der immer die aktuellste versionsnummer steht vom programm
    6. End Sub
    8. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    9. 'Wenn navigiert passiert dass:
    10. If WebBrowser1.DocumentText <= "1.0" Then 'Wenn die aktuellste Version kleiner oder gleich mit der version dieses Programms ist steht kein Update(msgBox) da,
    11. 'da es ja keins gibt ;)
    12. MsgBox("Es sind keine Updates verfügbar.")
    13. ElseIf WebBrowser1.DocumentText > 1.0 Then ' Wenn aktuellste Version größer als jetzige Programmversion ist steht da Update verfügbar, eventuell noch
    14. update seite öffnen das steht dann da... unter msgbox
    15. MsgBox("Update verfügbar")
    16. Process.Start(URL der seite auf der das Update ist")
    17. End If
    18. End Sub
    19. End Class

    Hast du jetzt HTML-Code in deinen VB-Code eingefügt?

    Poste deinen bisherigen Code mal.

    Und die grundlegende Funktionsweise ist ganz einfach: Liegt auf dem Server eine andere Version deines Programms bereit, kriegt der Benutzer eine Meldung, dass eine neue Version verfügbar sei, und kriegt die Wahl gestellt, ob er downloaden oder mit der alten Version weitermachen will.
    „Was daraus gefolgert werden kann ist, dass jeder intelligentere User sein Geld lieber für Bier ausgibt, um einen schönen Rausch zu haben, und nicht dieses Ranzprodukt.“

    -Auszug aus einer Unterhaltung über das iPhone und dessen Vermarktung.

    Aber da gibt es doch nen haken: wenn ich es möglich machen will, auf ne eneu version zu updaten, muss ich ne neue version des programms hochstellen, oder? Jedenfalls, das hier ist der bisherige code:


    VB.NET-Quellcode

    1. Public Class Form1
    3. 'Definiert den Link des LinkLabels1 (links unten)'
    5. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
    6. Process.Start("http://www.ygofreak1997.de.tl/")
    7. End Sub
    10. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    12. 'Dieser Code zeigt die verschiedenen Bilder von PictureBox2 an'
    14. If ComboBox1.Text = "Holzplanken" Then
    15. PictureBox2.Image = My.Resources.minecraft_holzbretter
    16. End If
    18. If ComboBox1.Text = "Ofen" Then
    19. PictureBox2.Image = My.Resources.minecraft_ofen
    20. End If
    22. If ComboBox1.Text = "Ultimate Fist (nur durch den Ultimate-Fist-Mod)" Then
    23. PictureBox2.Image = My.Resources.ultimate_fist_e1291735793256
    24. End If
    26. If ComboBox1.Text = "Kuchen" Then
    27. PictureBox2.Image = My.Resources.Kuchen
    28. End If
    30. If ComboBox1.Text = "Werkbank" Then
    31. PictureBox2.Image = My.Resources.Workbench
    32. End If
    34. If ComboBox1.Text = "Truhe" Then
    35. PictureBox2.Image = My.Resources.Crafting_Chest
    36. End If
    38. If ComboBox1.Text = "Spitzhacke" Then
    39. PictureBox2.Image = My.Resources.Crafting_Pickaxes
    40. End If
    42. If ComboBox1.Text = "Schaufel" Then
    43. PictureBox2.Image = My.Resources.Crafting_Shovels
    44. End If
    46. If ComboBox1.Text = "Axt" Then
    47. PictureBox2.Image = My.Resources.Minecraft_Axe
    48. End If
    50. If ComboBox1.Text = "Hacke" Then
    51. PictureBox2.Image = My.Resources.minecraft_hacke
    52. End If
    54. If ComboBox1.Text = "Kompass" Then
    55. PictureBox2.Image = My.Resources.Crafting_Compass
    56. End If
    58. If ComboBox1.Text = "Uhr" Then
    59. PictureBox2.Image = My.Resources.minecraft_uhr
    60. End If
    62. If ComboBox1.Text = "Knochenmehl" Then
    63. PictureBox2.Image = My.Resources.bonecraft
    64. End If
    66. If ComboBox1.Text = "Notenblock" Then
    67. PictureBox2.Image = My.Resources.crafting_note_block
    68. End If
    70. If ComboBox1.Text = "Holztür" Then
    71. PictureBox2.Image = My.Resources.Holztür
    72. End If
    74. If ComboBox1.Text = "Leiter" Then
    75. PictureBox2.Image = My.Resources.Leiter
    76. End If
    78. If ComboBox1.Text = "Schienen" Then
    79. PictureBox2.Image = My.Resources.Crafting_Minecart_Tracks
    80. End If
    82. If ComboBox1.Text = "Fackeln" Then
    83. PictureBox2.Image = My.Resources.Fackeln
    84. End If
    86. If ComboBox1.Text = "Bogen" Then
    87. PictureBox2.Image = My.Resources.Bogen
    88. End If
    90. If ComboBox1.Text = "Stöcke" Then
    91. PictureBox2.Image = My.Resources.Stöcke
    92. End If
    94. If ComboBox1.Text = "Angel" Then
    95. PictureBox2.Image = My.Resources.Angel
    96. End If
    98. If ComboBox1.Text = "Feuerzeug" Then
    99. PictureBox2.Image = My.Resources.Feuerzeug
    100. End If
    102. If ComboBox1.Text = "Schwert" Then
    103. PictureBox2.Image = My.Resources.Schwert
    104. End If
    106. If ComboBox1.Text = "Pilzsuppe" Then
    107. PictureBox2.Image = My.Resources.Pilzsuppe
    108. End If
    110. If ComboBox1.Text = "Zaun" Then
    111. PictureBox2.Image = My.Resources.Zaun
    112. End If
    114. If ComboBox1.Text = "Schild" Then
    115. PictureBox2.Image = My.Resources.Schild
    116. End If
    118. If ComboBox1.Text = "Kürbislaterne" Then
    119. PictureBox2.Image = My.Resources.Kürbislaterne
    120. End If
    122. If ComboBox1.Text = "Eimer" Then
    123. PictureBox2.Image = My.Resources.Eimer
    124. End If
    126. If ComboBox1.Text = "Bücherregal" Then
    127. PictureBox2.Image = My.Resources.Bücherregal
    128. End If
    130. If ComboBox1.Text = "Buch" Then
    131. PictureBox2.Image = My.Resources.Buch
    132. End If
    134. If ComboBox1.Text = "Brustplatte" Then
    135. PictureBox2.Image = My.Resources.craftingch
    136. End If
    138. If ComboBox1.Text = "Stiefel" Then
    139. PictureBox2.Image = My.Resources.Crafting_Boots
    140. End If
    142. If ComboBox1.Text = "Booster-Schiene" Then
    143. PictureBox2.Image = My.Resources.boosterschiene
    144. End If
    146. If ComboBox1.Text = "Detektor-Schiene" Then
    147. PictureBox2.Image = My.Resources.Retail
    148. End If
    150. If ComboBox1.Text = "Boot" Then
    151. PictureBox2.Image = My.Resources._2841007_COM_minecraft_boat1
    152. End If
    154. If ComboBox1.Text = "Lore" Then
    155. PictureBox2.Image = My.Resources.Crafting_Minecart
    156. End If
    158. If ComboBox1.Text = "Angetriebene Lore" Then
    159. PictureBox2.Image = My.Resources.Crafting_Powered_Minecart
    160. End If
    162. If ComboBox1.Text = "Lagerlore" Then
    163. PictureBox2.Image = My.Resources.Crafting_Storage_Minecart
    164. End If
    166. End Sub
    168. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    169. Form2.Show()
    170. End Sub
    172. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    173. Form3.Show()
    174. End Sub
    176. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    177. WebBrowser1.Navigate("Deine URL") 'Ziehst einen Webbrowser auf die Form und beim Click auf Button1 navigiert
    178. 'er zu einer seite die wo eingeben wurde bei Deine URL das sollte deine sein auf der immer die aktuellste versionsnummer steht vom programm
    179. End Sub
    181. Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    182. 'Wenn navigiert passiert dass:
    183. If WebBrowser1.DocumentText <= "1.0" Then 'Wenn die aktuellste Version kleiner oder gleich mit der version dieses Programms ist steht kein Update(msgBox) da,
    184. 'da es ja keins gibt ;)
    185. MsgBox("Es sind keine Updates verfügbar.")
    186. ElseIf WebBrowser1.DocumentText > 1.0 Then ' Wenn aktuellste Version größer als jetzige Programmversion ist steht da Update verfügbar, eventuell noch
    187. 'update seite öffnen das steht dann da... unter msgbox
    188. MsgBox("Update verfügbar")
    189. Process.Start("http://download305.mediafire.com/u7mabfmc49fg/c76v58qexapd357/MineCraftingHelper+-+Alpha+0.2.exe")
    190. End If
    191. End Sub
    192. End Class

    vads schrieb:

    enn ich es möglich machen will, auf ne eneu version zu updaten, muss ich ne neue version des programms hochstellen,

    Ja, da musst du dir einen Webhost einrichten (Da gibts viele kostenlose gute : Square7.ch, bplaced usw..)


    Was du bis jetzt hast ist kein Updater sondern ein "Ding" was eine Seite aufruft und der Benutzer es selbst herunterladen muss und installieren muss. Ich lege dir nachmal die UpdateLib ans Herz.

    Deine fehlermeldung in dem If Code kommt weil du deine URL nicht eingetragen hast.

    Der Code:

    VB.NET-Quellcode

    1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    2. WebBrowser1.Navigate("Deine URL") 'Ziehst einen Webbrowser auf die Form und beim Click auf Button1 navigiert
    3. 'er zu einer seite die wo eingeben wurde bei Deine URL das sollte deine sein auf der immer die aktuellste versionsnummer steht vom programm
    4. End Sub


    Bei

    VB.NET-Quellcode

    1. Webbrowser1.Navigate("Deine URL")
    musst du deine eigene Adresse eingeben von deinem Webspace wo die Datei liegt dann bekommst du auch keine fehlermeldung

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Patrick1993“ ()

    AlsO irgendwie versteh ich das nicht ganz...

    1. Was ist ein UpdateLib
    2. Wie krieg ich einen Webspace hin, auf dem ich die jeweils gespeicherte Datei ändern kann?

    Ach und damit ihr es mir leichter erklären könnt, ich hab bplaced und kann mir auch filezilla holen

Facebook
Telefonspende