Wie kann ich mit vb einen Flyff patcher erstellen?

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • VB_Fly;46596 schrieb:

      bin gerade in arbeit mit einem patcher in vb...
      pic-upload.de/view-3633656/Neu-Bitmap.jpg.html
      bracuhe noch hilfe bei der auto pacth funktion und mit dem start button....
      ps,wenn er fertig is release ich ihn und der mir mit dem start button und dem auto patcher geholfen hat bekommt source ...
      MfG VB_Fly

      Wenn du auch nur relativ gut vB kannst, dürfte das für dich kein Problem darstellen.
      AutoPatch Funktion: du verbindest dich über den FTP Port zu deinem Filehoster und lädst die Dateien einfach herunter, wobei du diese über eine Liste abfragst. Das lässt sich relativ einfach über Sockets und Streams realisieren.

      Der Start Button: Dieser Button führt doch lediglich die Neuz.exe aus und übergibt dieser das "Argument" 'sunkist' oä. Das ist mit ein paar Zeilen Code verbunden und stellt auch keine Hürde dar. Setz dich etwas mit der vB-Dokumentation (sowas gibts doch sicher o.o) auseinander und fertig is.

    • @ newbes
      Bei FTP, bitte nicht das Programm auf den Server einloggen lassen x)
      Dann ist das Passwort ja praktisch frei gegeben, und jemand der mal eben ein wenig Zeit opfert hat das Passwort schon und kann auf den FTP Server und alles mögliche rein setzen was dann alle User saugen.

      Ein einfaches Web-Element genügt auch, und ich glaube .Net Framework bietet sogar auch eine Funktion um Dateien herunter zu laden.

      AutoIT ist für sowas kleines ehrlich gesagt etwas besser geeignet.

    • eigentlich ganz einfach
      du lässt einfach die zip's downloaden :D
      progress bar is auch einfach einzustellen ... ^^
      und Register button einfach auf deine homepage verlinken optionen auf die dings da im ordner (hab schon ne zeit lang keine flyff pserver sachen gemacht :D )
      und den Close button mit dem Befehl
      Me.Close()
      und Start button mit dem gibts die probs ^^
      da muss man halt die neuz.exe ausführen mit dem Prozessschlüßel (oder wie des heißt :P ) Sunkist [des is der Standart]

      und news fenster einfach nen webbrowser mit der info seite

      das wars eig. schon

      schreib vill. bald n TuT aber erst mach ich meinen Metin 2 multi hack :D

    • eigentlich ganz einfach
      du machst eine text datei in die du alle dateien reinschreibst +gtösse lso z.b.
      /model/Textur/datei.o3d:1365

      so das vor der dopelpunkt ist der dateiname + teil von pfad und das dahinter die grösse in byte diese textdatei lädst du auf dem host z.b. kilu hoch nun kommt in den patcher dafür muss 2 progressbars ( 1 für einzelnen download und eine für gesamt) vorhanden sein den rest must du selbst machen

      Quellcode

      1. imports system.net
      2. Class Form
      3. Dim WithEvents w As New WebClient
      5. sub formload handles me.load
      6. my.computer.network.downloadfile(http://deinedomain.kilu.de/datei.txt, my.application.info.directorypath +"/Liste.txt")
      7. dim lines() as string = io.file.readalllines(my.application.info.directorypath +"/Liste.txt")
      8. progressbar2.Maximum = ubound(lines)
      9. for each line in lines
      10. dim paths() as string = split(line, ":")
      11. dim a as boolean = false
      12. if io.file.exists(my.application.info.directorypath +paths(0)) then
      13. dim info as new io.fileinfo(my.application.info.directorypath +paths(0))
      14. if info.length <> paths(1) then
      15. a = true
      16. else
      17. a = false
      18. end if
      19. else
      20. a = true
      21. end if
      22. if a = true then
      23. w.DownloadFileAsync(New Uri( _
      24. "http://deinedomain.kilu.de/"+paths(0)), my.application.info.directorypath +paths(0))
      25. a = false
      26. end if
      27. progressbar2.Value +=1
      28. next
      29. end sub
      30. Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As _
      31. System.Net.DownloadProgressChangedEventArgs) Handles _
      32. w.DownloadProgressChanged
      33. Progressbar1.value= e.ProgressPercentage
      34. end class
      Alles anzeigen


      ps da ich am mac bin habe ich kein backslash und damit sind die pfandangeben falsch sry aber mit nachdenken wirst du auch dieses proble lösen ( am besten gehts warscheinlich mit replace funktion bei pfads bei webseiten müssen slashs da stehen)

    • hm ich mache auch einen patcher ich habe alles soweit fertig start geht close natürlich auch :D
      die news habe cih auch
      nur der download da is auch mein prob :D
      ich habe mal einfach o zwei progressbars auf meiner form geballert und deinen code eingefügt nun kommt ein einziger error xD
      und zwar
      Eine Ausnahme (erste Chance) des Typs "System.Net.WebException" ist in System.dll aufgetreten.
      das ist in der zeile:

      my.computer.network.downloadfile(deinedomain, my.application.info.directorypath +"/Liste.txt")


      wenn mir einer heöfen kann dann wäre es subba

    • Importieren (über der Class Form1) :

      Quellcode

      1. Imports System.Net

      button ' Start ' :

      Quellcode

      1. Process.Start("Neuz.exe", "sunkist")

      button ' Optionen ' :

      Quellcode

      1. weiß ich selba noch nich ^^

      button ' Close ' :

      Quellcode

      1. End


      und zu deiner frage...
      hast du :

      Quellcode

      1. Imports System.Net

      über Class Form1 gemacht?

      und falls nich geht probiers mal so :


      Quellcode

      1. Dim WithEvents d As New WebClient
      3. d.DownloadFileAsync(New Uri("LINK"), "Pfad")


      dann kann man auch mit progress barn und so machen ( siehe ichbinniemand 's post) :have a nice day:

    • xD jetzt ust WithEvents das problem :D
      und ja cih habe es dafor stehen gehabt

      und hier ncohmal den code für die buttons Close und den start button mit visible

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      If ProgressBar2.Value = 100 Then
      Button1.Visible = True
      End If
      Process.Start("Neuz.exe", "sunkist")
      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      Me.Close()
      End Sub

    • schau mal ob link und alles richtig is...
      und hier mal ein kleines beispiel mit pogress bar... für des mit WithEvent:

      Quellcode

      1. Imports System.Net
      3. Public Class Form1
      4. Dim WithEvents w As New WebClient
      6. Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles w.DownloadProgressChanged
      7. Progressbar1.Value = e.ProgressPercentage
      8. End Sub
      10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      11. Threading.Thread.Sleep("500")
      13. w.DownloadFileAsync(New Uri("[COLOR="Red"]LINK[/COLOR]"), "[COLOR="red"]DATEINAME (beispeil : test.txt)[/COLOR]")
      15. End Sub
      16. End Class
      Alles anzeigen


      LG
      Hairichi

    • wenn du dir meinen post durch liest sollte es kein problem sein einen patcher zu machen
      nur 1 sache noch den code bei mir musst du nicht in die form load stecken in die form load muss der verweis auf eine neue sub hin da sonst die form unsichtbar ist bis download vertig ist
      ich kann dir auch nochmal den code genau erklären
      my.computer.network.downloadfile(deinedomain, my.application.info.directorypath +"/Liste.txt")

      er läd die liste runter

      Quellcode

      1. dim lines() as string = io.file.readalllines(my.application.info.directorypath +"/Liste.txt")

      er speichert jede zeile der liste in einem string array

      Quellcode

      1. progressbar2.Maximum = ubound(lines)

      er setzt den wert für progressbar 2 fest
      for each line in lines

      er geht jede zeile der liste im array durch

      Quellcode

      1. dim paths() as string = split(line, ":")

      er teilt die zeile in grösse (paths(1)) und name + pfad des files (paths(0))

      Quellcode

      1. dim a as boolean = false

      eine variable um zu speichern ob file gepatcht werden soll
      if io.file.exists(my.application.info.directorypath +paths(0)) then

      wenn die datei schon existiert
      dim info as new io.fileinfo(my.application.info.directorypath +paths(0))

      zum auslesen der grösse der datei

      Quellcode

      1. if info.length <> paths(1) then
      2. a = true
      3. else
      4. a = false
      5. end if

      wenn die datei nicht so gross ist wie in der liste steht wird sie gepatcht

      Quellcode

      1. else
      2. a = true
      3. end if

      wenn die datei nicht existiert dann wird sie gepatcht

      Quellcode

      1. if a = true then
      2. w.DownloadFileAsync(New Uri( _
      3. "http://deinedomain.kilu.de/"+paths(0)), my.application.info.directorypath +paths(0))
      4. a = false
      5. end if

      das patchen

      Quellcode

      1. progressbar2.Value +=1

      damit die zte progressbar auch sich verändert
      next
      nächste zeile

      Quellcode

      1. Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As _
      2. System.Net.DownloadProgressChangedEventArgs) Handles _
      3. w.DownloadProgressChanged
      4. Progressbar1.value= e.ProgressPercentage
      5. end class

      die sub die dafür sorgt dass die 1te progressbar sich beim download verändert

      den kompletten code findest du auf seite 1 in meinem post