VB Befehle

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von ra!d, 26. Februar 2006 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 26. Februar 2006
    Hi
    Ich brauche 3 befehle

    1. Ich möchte eine .exe patchen und weis nicht wie ich das aufschreiben soll...

    der code sieht so aus ..
    Code:
    Const Datei = "target.exe"
     Const Dateigroesse = 856075 'Dateigroesse in Bytes
     Const Offset1 = 253230 'Offset = Offset(h) als Offset(d) +1
     Const Patchdata1 = [color=red]Diese Stelle fehlt mir ... ich möchte sagen wir mal 75 mit EB austauschen[/color]
     'hier kommen dann weitere Offsets + Bytes (in extra Variablen) hin
     
     'Datei im Binaerformat oeffnen
     Open Datei For Binary As 1
     'Wenn Dateigroesse nicht übereinstimmt, dann springe zur Fehler-MsgBox
     If Not LOF(1) = Dateigroesse Then GoTo Fehler
     
     Put #1, Offset1, Patchdata1 'Patch durchfuehren
     'hier folgen dann die weiteren Patches (z.B. "Put #1, Offset2, Patchdata2")
     Close 'Datei schließen
    2. der patcher soll eine backup funktion habn ... wenn ich ein haken setze und dann auf "patch" drücke soll ein backup der datei gemacht werden bevor sie gepatched wird ... wenn dort kein hacken ist dann nicht ! der haken soll standartmäßig gesetzt sein !

    3. wenn sich "patcher.exe" und "target.exe" nicht in einem ordner befinden soll man so eine möglichkeit haben !
    {bild-down: http://img159.imageshack.us/img159/8734/test29zb.jpg}


    {bild-down: http://img96.imageshack.us/img96/2075/test2uk.jpg}


    Da fällt mir noch ein problem ein ... wie kann ich in vb eine textdatei ( tmp.txt ) erstellen in die dann einen bestimmten text eintragen ( muss ich dort dann auch für eine neue zeile & vbNewLine & eingeben ? ) ... vielen dank !
    ra!d
     

  2. Anzeige
  3. #2 26. Februar 2006
    sehe ich das richtig oder hast du so gut wie keine VB-vorkenntnisse? ?(

    1. hab ich nich gecheckt was genau du machen willst
    2. geht so:
    3. hab ich kein bock den sourcecode zu suchen ^^ suche mal hier: http://activevb.de/startseite/index.html da gibts viele tipps



    zu deiner 4. frage: google mal danach, da findet man ne menge
     
  4. #3 26. Februar 2006
    1.
    ich nehme mal an offsets sind die positionen der zu patchenden daten? oder was is das??
    dann sollteste statt
    Code:
    Open Datei For Binary As 1
    das machen
    Code:
    Dim F as integer
    F=FreeFile
    Open Datei For Binary As F[oder wars Open Datei For Binary As #F?]
    an die zu patchende stelle kannste dann glaub ich per
    Code:
    Seek(#F)=[Stelleinbytes]
    springen. MUsste selber maln bissl schaun.

    2.
    wenn der hacken beim start des prog gesetzt sein soll mach einfach in das Load ereignis der form
    Code:
    Check1.Value=1
    (halt anpassen)
    3.
    Musst halt prüfen lassen ob die FIle da is, wenn nich soll n CommonDialog kommen ->Willkommen bei ActiveVB - ActiveVB

    4.google
     
  5. #4 27. Februar 2006
    danke soweit habs jetzt hinbekommen ... ich habe eigentlich recht gute vb kenntnisse nur so spezielle sachen habe ich echt noch nie gebraucht wofür auch ?!
    thx ra!d
     

  6. Videos zum Thema
Die Seite wird geladen...