ThuCommix.UpdateServices - Dein Intelligentes UpdateSystem 1.3.0.0

    • Beta

    Es gibt 488 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

      Ah Danke
      Müsste die Datei dann ungefähr so aussehen?:

      VB.NET-Quellcode

      1. Hier stehen ein Paar Infos
      2. Download-Link1
      3. ...



      Edit by Manschula: Bitte keine Mehrfachposts: es gibt eine Bearbeiten-Funktion! --> Beiträge zusammengeführt

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

      ThuCommix schrieb:

      Ich glaub ich habs behoben, hab nur leider kein Beispiel Projekt da, kannst du nochmal gucken? Btw, im normalen Windows Design sieht man den erst garnicht ;)


      hey

      wenn ich nun die neue lib nehme und die gleichen code zeilen kommen ich bei

      VB.NET-Quellcode

      1. sr.SearchIn = Invert.Release

      einen fehler, der da lautet: "Invert wurde nicht deklariert. Auf das Opjekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden."
      und bei

      VB.NET-Quellcode

      1. sr.UpdateDetailsRelease = New Uri(".../info.txt")

      kommt, das UpdateDetailsRelease kein Member mehr von UpdateOption sei.

      wäre super wenn du das noch korrigieren kannst.

      Verweise ist jetzt endlich richtig gesetzt

      Alle anderen Fehler sind bereits behoben nur will er mir einreden der Typ sei nicht deffiniert.
      FrameWork 3.5 ist aber die Basis, HILFE!

      Fehler 1 Der Typ "UpdateOption" ist nicht definiert. \CSC-Creator v 9.1.00.0\mainForm.vb 30 23 CSC-Creator v 09.1.00.0
      Fehler 2 Der Typ "UpdateSystem" ist nicht definiert. \CSC-Creator v 9.1.00.0\mainForm.vb 41 25 CSC-Creator v 09.1.00.0

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System
      2. Imports System.IO
      3. Imports smartUpdate
      4. Imports smartUpdate.Settings
      6. Public Class mainForm
      8. Dim _Modelnummer As String
      9. Dim _CSCpackages As String
      10. Dim _CSCVersion As String
      11. Dim _CSC As String
      12. Dim _T9DB As String
      13. Dim _ValuePath As String
      14. Dim _Path As String
      15. Dim _FixedPath As String = My.Application.Info.DirectoryPath
      16. Dim _SolutionPath As String = _FixedPath + "Solution"
      17. Dim _TempPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Temp")
      18. Dim _DataPath As String = Path.Combine(My.Application.Info.DirectoryPath, "Data")
      20. Private Sub mainForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      22. 'Befüllen der Steuerelemente
      24. deviceComboBox.Items.AddRange(System.IO.File.ReadAllLines(Path.Combine(_DataPath, "device.txt")))
      25. CSC_PackageComboBox.Items.AddRange(System.IO.File.ReadAllLines(Path.Combine(_DataPath, "csc-packages.txt")))
      26. XT9CheckedListBox.Items.AddRange(IO.Directory.GetFiles(Path.Combine(_DataPath, "T9DB")))
      27. languageCheckedListBox.Items.AddRange(IO.Directory.GetDirectories(Path.Combine(_DataPath, "CSC")))
      30. Dim sr As New UpdateOption()
      31. sr.AllowCancel = False ' Bestimmt ob der Abbrechen Button verfügbar ist
      32. sr.ApplicationVersion = "1.00.0.0"
      33. sr.ApplicationIcon = Me.Icon
      34. sr.SearchIn = Settings.Invert.Release 'Update Channel
      35. sr.DialogLanguage = Settings.Language.English
      36. sr.IncludeChangelog = True 'Changeog aktivieren
      37. sr.ChangeLog = New Uri("Zensiert")
      38. sr.UpdateDetailsRelease = New Uri("zensiert")
      39. sr.UpdateModus = Modus.Normal '/Force/Silent
      40. sr.ResponseWindow = True 'Öffnet ein Fenster falls kein Update verfügbar ist, false logischerweiße nicht.
      41. Dim updt As New UpdateSystem(sr)
      42. updt.StartUpdate() 'Starten
      45. End Sub
      47. Private Sub readIn1Button_Click_1(sender As System.Object, e As System.EventArgs) Handles readIn1Button.Click
      49. _Modelnummer = CStr(deviceComboBox.SelectedItem)
      50. _CSCpackages = CStr(CSC_PackageComboBox.SelectedItem)
      51. _CSCVersion = _Modelnummer + _CSCpackages
      52. End Sub
      54. Private Sub build1Button_Click_1(sender As System.Object, e As System.EventArgs) Handles build1Button.Click
      56. build1ProgressBar.Value = +10
      58. 'Ordner werden erstellt
      60. My.Computer.FileSystem.CreateDirectory( _
      61. (Path.Combine(My.Application.Info.DirectoryPath, "Solution")))
      63. build1ProgressBar.Value = +20
      65. My.Computer.FileSystem.CreateDirectory( _
      66. (Path.Combine(My.Application.Info.DirectoryPath, "Temp")))
      68. build1ProgressBar.Value = +30
      70. 'CSCVersion.txt wird erstellt
      72. Dim file As System.IO.FileStream = System.IO.File.Create(Path.Combine(My.Application.Info.DirectoryPath, "CSCversion.txt"))
      73. file.Close()
      75. build1ProgressBar.Value = +40
      77. 'CSCVersion.txt wird beschrieben
      79. My.Computer.FileSystem.WriteAllText(Path.Combine(My.Application.Info.DirectoryPath, "Temp\CSCVersion.txt"), _CSCVersion, True)
      81. 'build1ProgressBar.Value = +50
      82. 'build1ProgressBar.Value = +60
      83. 'build1ProgressBar.Value = +70
      84. 'build1ProgressBar.Value = +80
      85. 'build1ProgressBar.Value = +90
      86. build1ProgressBar.Value = +100
      87. MsgBox("Vorgang erfolgreich Abgeschlossen.", MsgBoxStyle.Information)
      88. End Sub
      90. Private Sub clean1Button_Click_1(sender As System.Object, e As System.EventArgs) Handles clean1Button.Click
      92. 'Verzeichnisstruckturen werden bereinigt
      94. If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "Solution")) Then
      95. My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "Solution"), FileIO.DeleteDirectoryOption.DeleteAllContents)
      96. End If
      98. If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "Temp")) Then
      99. My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "Temp"), FileIO.DeleteDirectoryOption.DeleteAllContents)
      100. End If
      101. build1ProgressBar.Value = 0
      102. End Sub
      104. Private Sub readIn2Button_Click_1(sender As System.Object, e As System.EventArgs) Handles readIn2Button.Click
      107. _CSC = CStr(languageCheckedListBox.SelectedItem)
      108. _T9DB = CStr(XT9CheckedListBox.SelectedItem)
      109. _ValuePath = _CSC
      110. _Path = Path.Combine(_ValuePath, _CSC)
      111. End Sub
      113. Private Sub build2Button_Click_1(sender As System.Object, e As System.EventArgs) Handles build2Button.Click
      115. build2ProgressBar.Value = +10
      117. My.Computer.FileSystem.CreateDirectory( _
      118. (Path.Combine(My.Application.Info.DirectoryPath, "Temp")))
      120. build2ProgressBar.Value = +20
      122. 'Daten werden kopiert
      124. My.Computer.FileSystem.CopyFile( _
      125. Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\customer.xml"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\customer.xml"), True)
      127. build2ProgressBar.Value = +30
      129. 'Daten werden kopiert
      131. My.Computer.FileSystem.CopyFile( _
      132. Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\others.xml"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\others.xml"), True)
      134. build2ProgressBar.Value = +40
      136. 'Daten werden kopiert
      138. My.Computer.FileSystem.CopyFile( _
      139. Path.Combine(My.Application.Info.DirectoryPath, "Data\CSC\sales_code.dat"), Path.Combine(My.Application.Info.DirectoryPath, "Temp\sales_code.dat"), True)
      141. build2ProgressBar.Value = +50
      143. 'Daten werden kopiert
      145. My.Computer.FileSystem.CopyDirectory(_Path, _TempPath, True)
      147. 'build2ProgressBar.Value = +60
      148. 'build2ProgressBar.Value = +70
      149. 'build2ProgressBar.Value = +80
      150. 'build2ProgressBar.Value = +90
      151. build2ProgressBar.Value = +100
      152. MsgBox("Vorgang erfolgreich Abgeschlossen.", MsgBoxStyle.Information)
      153. End Sub
      155. Private Sub clean2Button_Click_1(sender As System.Object, e As System.EventArgs) Handles clean2Button.Click
      157. 'Verzeichnisstruckturen werden bereinigt
      159. If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "Solution")) Then
      160. My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "Solution"), FileIO.DeleteDirectoryOption.DeleteAllContents)
      161. End If
      163. If My.Computer.FileSystem.DirectoryExists(Path.Combine(My.Application.Info.DirectoryPath, "Temp")) Then
      164. My.Computer.FileSystem.DeleteDirectory(Path.Combine(My.Application.Info.DirectoryPath, "Temp"), FileIO.DeleteDirectoryOption.DeleteAllContents)
      165. End If
      166. build2ProgressBar.Value = 0
      167. End Sub
      169. Private Sub websiteButton_Click_1(sender As System.Object, e As System.EventArgs) Handles websiteButton.Click
      171. 'Website zur CSC-Creator Website wird angegeben
      173. System.Diagnostics.Process.Start("http://www.david.geister.org")
      174. End Sub
      176. Private Sub donationButton_Click_1(sender As System.Object, e As System.EventArgs) Handles donationButton.Click
      178. 'Website zum donation Konto wird angegeben
      180. System.Diagnostics.Process.Start("http://www.david.geister.org")
      181. End Sub
      183. Private Sub updateButton_Click_1(sender As System.Object, e As System.EventArgs) Handles updateButton.Click
      185. End Sub
      186. End Class