Seite 3 von 3

Verfasst: 22.01.2006 05:22
von Hades
Versucht mal ein 'Hello World' Programm in Visual Basic auf einer Diskette abzuspeichern.
Dann wisst Ihr was groß ist. :wink: :mrgreen:

Verfasst: 22.01.2006 13:18
von ts-soft
Hades hat geschrieben:Versucht mal ein 'Hello World' Programm in Visual Basic auf einer Diskette abzuspeichern.
Dann wisst Ihr was groß ist. :wink: :mrgreen:
Der Installations-Assistent erstellt wohl ca. 5 Disketten :mrgreen:

Re: Warum ist der code für Hallo_Welt.pb so gross?

Verfasst: 22.01.2006 14:21
von Falko
Dr.Pixel hat geschrieben:Hallo.
Warum ist die erzeugte exe mit dem Code bestehend aus dem Code

Code: Alles auswählen

MessageRequester("Test", "Hallo Welt")
3,5 KByte gross?
Kann man irgentwelche libs (ich weiss nicht was ) die nicht benötigt werden aus dem Code entfernen?
Versteht mich nicht falsch. Pb erzeugt ja schon optimierten Code.
Ist nur so eine Frage, da ich bei oben genanntem Code sicherlich keine
libs oder includes brauche!?

mfg
Dr. Pixel
Bei mir ist sie nur noch 2,5KByte gross :mrgreen:

Code: Alles auswählen

MessageBox_(0,"Test","Hallo Welt",#MB_OK)

Verfasst: 22.01.2006 14:23
von Macros
Das hatten wir doch schon längst.

Verfasst: 22.01.2006 14:24
von Falko
Das kommt davon wenn man am Ende erst liest und am Anfang das Zitat nimmt. Sorry :oops:

Verfasst: 22.01.2006 16:49
von NicTheQuick
Hier ist ein 64-Byte Programm (allerdings nicht von mir):
(Das eigentlich Programm ist natürlich der Hex-Code da unten)

Code: Alles auswählen

File.s = "C:\Tolle 64 Byte Demo von farbrausch.com"
If FileSize(File) >= 0 : MessageRequester("", "Datei gibt es schon") : End : EndIf
FileID.l = CreateFile(#PB_Any, File)
If FileID
  WriteData(?Demo, 64)
  CloseFile(FileID)
  RunProgram(File, "", "", 1)
  DeleteFile(File)
EndIf

DataSection
  Demo:
    Data.b $B0, $13, $F5, $42, $CD, $10, $68, $00, $A0, $07, $F7, $E3, $40, $01, $F8, $11
    Data.b $1C, $F7, $74, $0C, $D8, $0C, $DE, $04, $DF, $1F, $2D, $82, $00, $87, $07, $31
    Data.b $C1, $DF, $07, $D8, $C8, $31, $EB, $92, $D9, $C9, $75, $E8, $DE, $C1, $D9, $FA
    Data.b $D8, $3C, $DF, $07, $DF, $46, $00, $D9, $F3, $D6, $91, $0C, $87, $AA, $EB, $CA
EndDataSection