Beiträge von Buphx
-
-
L3viathan: was ist sempervideo?
Bei mir sieht das so aus:autoit.de/wcf/attachment/14087/schickt das mal jemandem per Skype in Skype wird es auch als .jpg angezeigt...
-
Das ist dabei raus gekommen: autoit.de/wcf/attachment/14086/
ich weis nicht ob es bei Vista functionier... aber bei Xp nicht.wenn ihr die Datei entpack sollte sie eine .jpg endung haben(es ist aber eine Exe) sie zeigt nur eine
Spoiler anzeigen
[autoit]MsgBox(16,"Error", "Du hast eine Sicherheislücke!!!"&@crlf&"Wenn du dachtest dies hier währe eine Bild-Datei." &@CRLF &"Wenn ich dich hätte hacken wollen währe dein Pc jetzt Infiziert!")
[/autoit]ich habe in den DAtei namen ein RTLO "Right to left order" (U+202E)eingebaut alles was nach dem zeichen kommt wird andersherum angezeigt so wandert exe nach hinten
Beispiel: sexy_h[RTLO]gpj.exe -->sexy_hexe.jpg (soeinfach kann mandie endung verstecken)
testet es einfach mal
mfg
Buphx
-
Also wenn ich das heir starte ist meine Function die schnellste...
Spoiler anzeigen
[autoit]$timeinsgesammt =''
[/autoit] [autoit][/autoit] [autoit]
$Forschleifebis = 2^31-1
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Meine Funktion: "&Round($timeinsgesammt / $a, 3) & @CRLF)$timeinsgesammt =''
[/autoit] [autoit][/autoit] [autoit]
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert1($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Kombination von Methode 1 und 3 mit kleinen Optimierungen: "&Round($timeinsgesammt / $a, 3) & @CRLF)$timeinsgesammt =''
[/autoit] [autoit][/autoit] [autoit]
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert2($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("von BugFix: "&Round($timeinsgesammt / $a, 3) & @CRLF)$timeinsgesammt =''
[/autoit] [autoit][/autoit] [autoit]
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert3($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Ausgedachte Methode 1: "&Round($timeinsgesammt / $a, 3) & @CRLF)$timeinsgesammt =''
[/autoit] [autoit][/autoit] [autoit]
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert4($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Subtraktionsmethode: "&Round($timeinsgesammt / $a, 3) & @CRLF)$timeinsgesammt =''
[/autoit] [autoit][/autoit] [autoit]
For $a = 1 To $Forschleifebis
$time = TimerInit()
convert5($a)
$timeinsgesammt += TimerDiff($time)
Next
ConsoleWrite("Divisionsmethode: "&Round($timeinsgesammt / $a, 3) & @CRLF)While 1
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] [autoit][/autoit] [autoit]
Func convert($quelle)
$bin = Hex($quelle)
$aBin = StringSplit($bin, "")
local $return = ""
For $i = 1 To 8 Step +1
Switch $aBin[$i]
Case "0"
$return &= "0000"
Case "1"
$return &= "0001"
Case "2"
$return &= "0010"
Case "3"
$return &= "0011"
Case "4"
$return &= "0100"
Case "5"
$return &= "0101"
Case "6"
$return &= "0110"
Case "7"
$return &= "0111"
Case "8"
$return &= "1000"
Case "9"
$return &= "1001"
Case "A"
$return &= "1010"
Case "B"
$return &= "1011"
Case "C"
$return &= "1100"
Case "D"
$return &= "1101"
Case "E"
$return &= "1110"
Case "F"
$return &= "1111"
EndSwitch
Next
Return $return
EndFunc ;==>convert1Func convert1($iD) ; Kombination von Methode 1 und 3 mit kleinen Optimierungen
[/autoit] [autoit][/autoit] [autoit]
Local $sR
If $iD < 65536 Then
While Not $iD = 0
$iD /= 2
If IsInt($iD) Then
$sR = '0' & $sR
Else
$sR = '1' & $sR
$iD -= 0.5
EndIf
WEnd
If Not $sR Then Return '0'
Return $sR
Else
Local $sH = Hex($iD)
Local Static $aB[16] = ['0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111']
While StringLeft($sH, 1) = '0'
$sH = StringTrimLeft($sH, 1)
WEnd
For $i = 1 To StringLen($sH) Step 1
$sR &= $aB[Int('0x' & StringMid($sH, $i, 1))]
Next
While StringLeft($sR, 1) = '0'
$sR = StringTrimLeft($sR, 1)
WEnd
If Not $sR Then Return '0'
Return $sR
EndIf
EndFunc ;==>_DecToBin_4Func Convert2($Value); von BugFix
[/autoit] [autoit][/autoit] [autoit]
Local $bin
Do
$bin = Mod($Value, 2) & $bin
$Value = Int($Value / 2)
Until $Value = 0
Return $bin
EndFunc ;==>_IntToBinFunc Convert3($iDec) ; Ausgedachte Methode 1
[/autoit] [autoit][/autoit] [autoit]
Local $sHex = Hex($iDec), $sRet, $aBin[16] = ['0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111']
While StringLeft($sHex, 1) = '0'
$sHex = StringTrimLeft($sHex, 1)
WEnd
For $i = 1 To StringLen($sHex) Step 1
$sRet &= $aBin[Int('0x' & StringMid($sHex, $i, 1))]
Next
While StringLeft($sRet, 1) = '0'
$sRet = StringTrimLeft($sRet, 1)
WEnd
If Not $sRet Then Return '0'
Return $sRet
EndFunc ;==>_DecToBin_3Func convert4($iDec) ; Subtraktionsmethode
[/autoit] [autoit][/autoit] [autoit]
Local $sRet
$iDec += 1
For $i = Ceiling(Log($iDec) / Log(2)) To 0 Step -1
If $iDec - 2 ^ $i > 0 Then
$sRet &= '1'
$iDec -= 2 ^ $i
Else
If $sRet Then $sRet &= '0'
EndIf
Next
If Not $sRet Then Return '0'
Return $sRet
EndFunc ;==>_DecToBin_2Func convert5($iDec) ; Divisionsmethode
[/autoit]
Local $sRet
While Not $iDec = 0
$iDec /= 2
If IsInt($iDec) Then
$sRet = '0' & $sRet
Else
$sRet = '1' & $sRet
$iDec -= 0.5 ; Ohne den Rest gehts weiter
EndIf
WEnd
If Not $sRet Then Return '0'
Return $sRet
EndFunc ;==>_DecToBin_1 -
-
Mach doch wenn openport immer 552 ist oben einfach ein
[autoit]Global Const $OpenPort = 552
[/autoit]
Dann kann sie sich garnich ändern, und wenn du sie ändern willst dann kommt ein error und du weist in welcher dein $openport verändert wird/werden soll ! -
Ich hatte das problem das ich einen Functionsparameter machen wollte wie z.b beim
[autoit]FileOpen() ; 2. Parameter
[/autoit]also z.b
[autoit]FileOpen($file,1+16)
[/autoit]öffnet die datei im Writemode und im Binarymode.
also hab ich es so gemacht:
Spoiler anzeigen
[autoit]#include <array.au3>
[/autoit] [autoit][/autoit] [autoit]
bsp1(1 + 2 + 16)
bsp2(1 + 2 +Func bsp1($int)
[/autoit] [autoit][/autoit] [autoit]ConsoleWrite(@CRLF & @CRLF & "#### Beispiel 1 ###"&@CRLF)
[/autoit] [autoit][/autoit] [autoit]$aOptions = Split_To_Options($int)
[/autoit] [autoit][/autoit] [autoit]
If _ArraySearch($aOptions, 1) <> -1 Then _Func1()
If _ArraySearch($aOptions, 2) <> -1 Then _Func2()
If _ArraySearch($aOptions, 4) <> -1 Then _Func4()
If _ArraySearch($aOptions, <> -1 Then _Func8()
If _ArraySearch($aOptions, 16) <> -1 Then _Func16()
EndFunc ;==>bsp1Func bsp2($int)
[/autoit] [autoit][/autoit] [autoit]ConsoleWrite(@CRLF & @CRLF & "#### Beispiel 2 ###"&@CRLF)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$aOptions = Split_To_Options($int)
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 1 Then
ConsoleWrite(1 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 2 Then
ConsoleWrite(2 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 4 Then
ConsoleWrite(4 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 8 Then
ConsoleWrite(8 & "<-- war enthalten!" & @CRLF)
EndIf
Next
For $i = 1 To UBound($aOptions) - 1
If $aOptions[$i] = 16 Then
ConsoleWrite(16 & "<-- war enthalten!" & @CRLF)
EndIf
NextEndFunc ;==>bsp2
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func Split_To_Options($zahl)
[/autoit] [autoit][/autoit] [autoit]
$aBin = StringSplit(_IntToBin($zahl), "")
Dim $aOptions[1], $a
For $i = UBound($aBin) - 1 To 1 Step -1
$a += 1
If $aBin[$i] = 1 Then _ArrayAdd($aOptions, 2 ^ $a / 2)
;~ ConsoleWrite("$aBin[" & $i & "]= " & $aBin[$i] & @CRLF) ;Debug
Next
Return $aOptions
EndFunc ;==>Split_Int_To_OptionsFunc _IntToBin($Value); von BugFix
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$bin = ''
Do
$bin = Mod($Value, 2) & $bin
$Value = Floor($Value / 2)
Until $Value = 0
Return $bin
EndFunc ;==>_IntToBinFunc _func1()
[/autoit]
ConsoleWrite("die Funktion Nr. 1 wurde aufgerufen"&@crlf)
EndFunc ;==>_func1
Func _func2()
ConsoleWrite("die Funktion Nr. 2 wurde aufgerufen"&@crlf)
EndFunc ;==>_func2
Func _func4()
ConsoleWrite("die Funktion Nr. 4 wurde aufgerufen"&@crlf)
EndFunc ;==>_func4
Func _func8()
ConsoleWrite("die Funktion Nr. 8 wurde aufgerufen"&@crlf)
EndFunc ;==>_func8
Func _func16()
ConsoleWrite("die Funktion Nr. 16 wurde aufgerufen"&@crlf)
EndFunc ;==>_func16Vieleicht braucht das ja jemand
Wenn ja viel spaß damit!P.S.:(ist warscheinlcih umständlich gescriptet)
-
ich finde den Titel lustig das gucken sich viele an
es wird zusehr menschlich bis gorilla hier mal Kopf + Oberkörper
naja könntet ihr mich bei Skype adden? Clyfff
autoit.de/wcf/attachment/14065/
p.s. schaut mal hier vorbei Projektverwaltung Flutch
-
ich nutze Blende 2.59 <-- den neuen
ok könntet ihr mir zuschicken was ihr bereits habt.
ich hab das problem das meiner fast zu goriller artig wird -
Hey leute,
ich würde gern bei euch mitarbeiten,ich setze mich mal anden roten Flutch (stark,groß):-P
meine Skypeaddy Clyfff
ich bin mal gespann was bei Flutch raus komme -
-
Juhu 18 h downloaden mit meiner 1000er leitung
-
Happy Birthday
ps noch 12 tage dann bin ich 16
-
@ eukalyptus super aber wenn mann die schricft noch mittig nicht linksbündig machen könnte währe es perfekt!!!
-
Dann muss i9ch aber alle 3 Tage neuinstalieren weil ich keinen Serial-key hab
-
Also ich möchte nach meinem Abo erstmal ne Ausbildung machen.
Fachinformatiker für Anwedungsentwicklung
Später dann Informatik studierenIch hoffe mal das ich dann nen Job finde
kurze frage:
ist Programierer Freiberuflich oder Gewerbe (also muss man gewerbesteuer zahlen?)
Software einrichten ist gewerbe aber sie zu schreiben glaube ich nicht
weis dass jemand?mfg Buphx
-
Hey Leute ich hab man nen UDP-chat geschrieben.
hab leider keine 2 pcs darum kann ich nicht fertigschreiben.
brauche nämlich 2 ips
immoment noch über 2 ports geregelt
wer lust hat, da mal ein paar variablen zuvertauschenich würds selber tun kanns aber nicht testen
hier die scripte:Spoiler anzeigen
Server:
[autoit]#region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_Change2CUI=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Array.au3>
#include <arraymore.au3>;### Einstellungen ###
[/autoit] [autoit][/autoit] [autoit]
$Ip = "127.0.0.1"
$port = 80;### Einleitung ###
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite("Multichat Copyright 2011 Buphx" & @CRLF & @CRLF)
ConsoleWrite("Einstellungen:" & @CRLF _
& "Ip: " & $Ip & @CRLF _
& "Port: " & $port & @CRLF)
HotKeySet("{esc}", "end")
UDPStartup()
$bind = UDPBind($Ip, $port) ;socket erstellen
Global $empf, $onlineWhile 1
[/autoit] [autoit][/autoit] [autoit]
While $empf = ""
$empf = UDPRecv($bind, 2048)
WEnd
If StringInStr($empf, "Offline||") Then
_setOffline(StringReplace($empf, "Offline||", ""))
$empf = ""
ElseIf StringInStr($empf, "Online||") Then
_setOnline(StringReplace($empf, "Online||", ""))
$empf = ""
ElseIf StringInStr($empf, "Refresh||") Then
_ONsendlist(StringReplace($empf, "Refresh||", ""))
$empf = ""
Else
$aEmpf = StringSplit($empf, "|")
$empf = ""
_ArrayDelete($aEmpf, 0)
ConsoleWrite($aEmpf[0] & " --> " & $aEmpf[1] & ": " & $aEmpf[3] & @CRLF)
$send = UDPOpen("127.0.0.1", $aEmpf[2])
UDPSend($send, $aEmpf[0] & ": " & $aEmpf[3])
UDPCloseSocket($send)
EndIf
WEndFunc end()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFunc ;==>endFunc _setOffline($Ip)
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite($Ip & " --> Offline" & @CRLF)
StringReplace($online, $Ip & "|", "")
EndFunc ;==>_setOfflineFunc _setOnline($Ip)
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite($Ip & " --> Online" & @CRLF)
$online &= $Ip & "|"
EndFunc ;==>_setOnlineFunc _ONsendlist($IPuPORT)
[/autoit] [autoit][/autoit] [autoit][/autoit]
$aIPuPORT=StringSplit($IPuPORT,":")
ConsoleWrite($aIPuPORT[1] & ': "Refresh"' & @CRLF)
$sendlist = UDPOpen($aIPuPORT[1], $aIPuPORT[2])
UDPSend($sendlist, "Refresh||" & $online)
UDPCloseSocket($sendlist)
EndFunc ;==>_ONsendlistSpoiler anzeigen
client1
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <array.au3>
OnAutoItExitRegister("exitfunc");### Gui ###
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("client1", 621, 444, 190, 161)
$Msgs = GUICtrlCreateEdit("", 16, 8, 433, 345,$ES_READONLY)
$Senden = GUICtrlCreateButton("Senden", 464, 368, 145, 65)
$Text = GUICtrlCreateEdit("", 16, 368, 433, 65, $ES_MULTILINE)
$List1 = GUICtrlCreateList("", 464, 8, 145, 310)
GUICtrlSetLimit($List1, 1000)
$Refresh = GUICtrlCreateButton("Refresh", 464, 320, 145, 30)
GUISetState(@SW_SHOW);### einstellungen ###
[/autoit] [autoit][/autoit] [autoit]
Global $serverport = 80, $serverip = "127.0.0.1", $myip = "127.0.0.1", $dsip = "127.0.0.1", $dsport = 82, $myport = 81UDPStartup()
[/autoit] [autoit][/autoit] [autoit]
_online() ; Beim Server anmelden und die Onlineliste abfragenWhile 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Senden ;Button "senden"
_Send($serverip, $serverport, $myip, $dsip, $dsport, GUICtrlRead($Text))
GUICtrlSetData($Text, "")
Case $Refresh
_NeedRefresh()
EndSwitch
$empf = ""
$empf = UDPRecv($bind, 2048)
If StringInStr($empf, "Refresh||") Then
_refreshlist(StringReplace($empf, "Refresh||", ""))
ElseIf $empf <> "" Then
GUICtrlSetData($Msgs, GUICtrlRead($Msgs) & @CRLF & @HOUR&":"&@MIN&":"&@SEC&" "& $empf)
EndIf
WEndFunc _send($servip, $servport, $ip, $dsip, $dsport, $Text = "testmail")
[/autoit] [autoit][/autoit] [autoit]
$open = UDPOpen($servip, $servport)
$status = UDPSend($open, $dsip & "|" & $ip & "|" & $dsport & "|" & $Text)
UDPCloseSocket($open)
ConsoleWrite($status)
EndFunc ;==>_sendFunc exitfunc()
[/autoit] [autoit][/autoit] [autoit]
$offline = UDPOpen($serverip, $serverport)
UDPSend($offline, "Offline||127.0.0.1")
UDPCloseSocket($bind)
UDPCloseSocket($offline)
UDPShutdown()
EndFunc ;==>exitfuncFunc _refreshlist($ips)
[/autoit] [autoit][/autoit] [autoit]
$ips = StringSplit($ips, "|")
GUICtrlSetData($List1, "")
For $i = 1 To $ips[0] - 1
GUICtrlSetData($List1, $ips[$i] & "|")
Next
EndFunc ;==>_refreshlistFunc _NeedRefresh()
[/autoit] [autoit][/autoit] [autoit]
$Need = UDPOpen($serverip, $serverport)
UDPSend($Need, "Refresh||127.0.0.1:" & $myport)
UDPCloseSocket($Need)
ConsoleWrite("refresh")
EndFunc ;==>_NeedRefreshFunc _online()
[/autoit]
Global $bind = UDPBind("127.0.0.1", $myport)
$online = UDPOpen($serverip, $serverport)
UDPSend($online, "Online||127.0.0.1")
_NeedRefresh()
EndFunc ;==>_onlineSpoiler anzeigen
Client2
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <array.au3>
OnAutoItExitRegister("exitfunc");### Gui ###
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("client1", 621, 444, 190, 161)
$Msgs = GUICtrlCreateEdit("", 16, 8, 433, 345,$ES_READONLY)
$Senden = GUICtrlCreateButton("Senden", 464, 368, 145, 65)
$Text = GUICtrlCreateEdit("", 16, 368, 433, 65, $ES_MULTILINE)
$List1 = GUICtrlCreateList("", 464, 8, 145, 310)
GUICtrlSetLimit($List1, 1000)
$Refresh = GUICtrlCreateButton("Refresh", 464, 320, 145, 30)
GUISetState(@SW_SHOW);### einstellungen ###
[/autoit] [autoit][/autoit] [autoit]
Global $serverport = 80, $serverip = "127.0.0.1", $myip = "127.0.0.1", $dsip = "127.0.0.1", $dsport = 81, $myport = 82UDPStartup()
[/autoit] [autoit][/autoit] [autoit]
_online() ; Beim Server anmelden und die Onlineliste abfragenWhile 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Senden ;Button "senden"
_Send($serverip, $serverport, $myip, $dsip, $dsport, GUICtrlRead($Text))
GUICtrlSetData($Text, "")
Case $Refresh
_NeedRefresh()
EndSwitch
$empf = ""
$empf = UDPRecv($bind, 2048)
If StringInStr($empf, "Refresh||") Then
_refreshlist(StringReplace($empf, "Refresh||", ""))
ElseIf $empf <> "" Then
GUICtrlSetData($Msgs, GUICtrlRead($Msgs) & @CRLF & @HOUR&":"&@MIN&":"&@SEC&" "& $empf)
EndIf
WEndFunc _send($servip, $servport, $ip, $dsip, $dsport, $Text = "testmail")
[/autoit] [autoit][/autoit] [autoit]
$open = UDPOpen($servip, $servport)
$status = UDPSend($open, $dsip & "|" & $ip & "|" & $dsport & "|" & $Text)
UDPCloseSocket($open)
ConsoleWrite($status)
EndFunc ;==>_sendFunc exitfunc()
[/autoit] [autoit][/autoit] [autoit]
$offline = UDPOpen($serverip, $serverport)
UDPSend($offline, "Offline||127.0.0.1")
UDPCloseSocket($bind)
UDPCloseSocket($offline)
UDPShutdown()
EndFunc ;==>exitfuncFunc _refreshlist($ips)
[/autoit] [autoit][/autoit] [autoit]
$ips = StringSplit($ips, "|")
GUICtrlSetData($List1, "")
For $i = 1 To $ips[0] - 1
GUICtrlSetData($List1, $ips[$i] & "|")
Next
EndFunc ;==>_refreshlistFunc _NeedRefresh()
[/autoit] [autoit][/autoit] [autoit]
$Need = UDPOpen($serverip, $serverport)
UDPSend($Need, "Refresh||127.0.0.1:" & $myport)
UDPCloseSocket($Need)
ConsoleWrite("refresh")
EndFunc ;==>_NeedRefreshFunc _online()
[/autoit]
Global $bind = UDPBind("127.0.0.1", $myport)
$online = UDPOpen($serverip, $serverport)
UDPSend($online, "Online||127.0.0.1")
_NeedRefresh()
EndFunc ;==>_online(der unterschied Client 1&2 sind die ports in reihe 20)
mfg
Buphx
-
DFPWare: Hey, ich will auch mit Asm anfangen
benutze Nasm, aber ne andere version lad ich mir gerne Runter. würde es gerne mit dir zusammenlernen fals du interesse hast
mfg BuphxSkype: clyfff
freue mich wenn du dich meldest
-
angebot interesiert mich
doch eine Frage:
ist der Ram ddr2 oder dd3mfg buphx
ps: ist vom handy geschrieben
-
Meistens oder nie alles.Ich beutze öfters über 4gb große datein und mein arbeisspeicher verbrauch liegt mit Win7 und nen paar kleinen spielen nur bei 2gb auslasstung
also mit Fielread... Fileopen jeden falls nicht