Ich wüsste auch nicht,was ich machen sollte 
Wir haben keinen PC Schrott irgendwo rumfliegen, wir haben auch noch nie an irgendeinem PC rumgeschraubt oder aufgerüstet...Oder doch, wir haben mal ne neue Festplatte bekommen, die müsste noch im Keller liegen, oder zumindest das was nach dem Zerstörungswahn von meinem Bruder noch davon übrig ist, wird wohl nicht sehr viel sein 
Naja schade
DFPWare
Also ich kanns grad nicht testen, weil ich grad kein Sudoku zur Hand hab, aber ich hätte nicht gedacht, dass das so einfach ist, ein Bekannter hat seine Informatik Facharbeit über Sudoku geschrieben und saß da ewig dran.
Aber der Code sieht gut aus, schön eingerückt, wie wir das haben wollen Die variablen sind auch schlüssig, finde ich jedenfalls.
Ich werds mal testen wenn ich ein ungelöstes Sudoku finde
Edit: Also hier klappt schonmal eins http://sudoku.zeit.de/sudoku/kunden/die_zeit/
DFPWare
Bei mir funktionierts nicht, da kommt dieser ERROR und 2 WARNINGS:
(51,232) : ERROR: $loeszwei: undeclared global variable.DFPWare
Witzig, davon hab ich ja noch nie gehört;)
Das hört sich wirklich gut an, wenn ich jetzt noch PC Schrott und Ahnung hätte dann würd ich mitmachen;) oder muss man etwa 18 sein 
Ich hoffe, dass ein paar von euch mitmachen, wenn ihr da Ahnung von habt
DFPWare
Meine Mutter saß Heute Morgen bis Nachmittag auch gebannt vor der Glotze um sich den Scheiß reinzuziehen, selbst beim Mittagessen dudelte der Fernseher im Hintergrund 
Wenn ich dann gefragt hab, warum die sonen Schwachsinn guckt, dann kommt nur: "Da kann ich schöne Kleider gucken"
Totaler Müll ist das!
DFPWare
Hey d0npers
Wenn du ein Skript fertig hast, dann kannst du ja hier mal einen Thread machen und wir können dir sagen, was du noch verbessern kannst
DFPWare
Ich hatte die Letzte Version von Ubuntu mit Wubi auf mein Windows geschmissen, hat alles super geklappt, nur, dass man höchstens 20 GB Speicherplatz dafür nehmen konnte, es wird dann eine Festplatten-Datei mit 20GB auf C: erstellt und Ubuntu installiert und beim Start kann man dann auswählen.
Hat überhaupt keine Auswirkungen auf Windows, nur dass einem dann 20GB fehlen, klappt sonst aber alles wie es soll, auch Ubuntu hat keinerlei Einschränkungen, außer die 20GB Grenze.
DFPWare
@progandy wo kann man das umstellen?
DFPWare
Eigentlich kannst du diese Zeile doch weglassen, das Textdokument ist doch schon geöffnet.
Opt("TrayIconHide", 1)
#RequireAdmin
$BOX="Benutzer: " & @UserName
$FILE=FILEOPEN("C:/Überwachung.txt",1)
FILEWRITE($FILE,$BOX&" "&@MDAY&"."&@MON&"."&@YEAR)
FILEWRITE($FILE," "&@HOUR&":"&@MIN&":"&@SEC)
FILEWRITE($FILE,@CRLF)
WHILE 1
FILEOPEN("C:/Überwachung.txt",1) ;DIESE ZEILE
$TITLE=WINGETTITLE("[active]")
FILEWRITE($FILE,$TITLE&" "&@MDAY&"."&@MON&"."&@YEAR)
FILEWRITE($FILE," "&@HOUR&":"&@MIN&":"&@SEC)
FILEWRITE($FILE,@CRLF)
WINCLOSE($FILE)
SLEEP(5000)
WEND
DFPWare
Ich finde mit Koda erstellte Guis sowieso nicht so schön wie von Hand gemachte, weil wenn man eine von Hand macht, dann ist es erstmal einfacher später was hinzuzufügen und außerdem hat man meistens gerade Zahlen und nicht so wie "left: 17, top: 16". Als ich angefangen hab, da kannte ich noch keinen Koda und ich habe ihn auch noch für kein Skript gebraucht.
DFPWare
Mist bin ich blöd 
Sorry für den Aufwand
Ich hab das noch nie so gemacht, auf jeden Fall funktioniert es so nicht:
#include <GuiConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)
GUISetOnEvent($GUI_EVENT_CLOSE,"_ExitMode")
$fach = 0
Dim $gegner[80][2]
For $j = 0 To UBound($gegner) - 1 Step 1
$gegner[$j][0] = -100
Next
OnAutoItExitRegister("_EXIT")
$Gui = GUICreate("Regen", 500, 500, 100, 100)
_GDIPlus_Startup()
$brushSchwarz = _GDIPlus_BrushCreateSolid(0xFFABCDEF)
$brushWeiss = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
$graphic = _GDIPlus_GraphicsCreateFromHWND($Gui)
$bitmap = _GDIPlus_BitmapCreateFromGraphics(500, 500, $graphic)
$buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
GUISetState()
AdlibRegister("_gegnerSpawn", 500)
Do
For $m = 0 To UBound($gegner) - 1 Step 1
If $gegner[$m][1] >= 480 Then $gegner[$m][1] = 0
Next
For $k = 0 To UBound($gegner) - 1 Step 1
$gegner[$k][1] += 2
Next
_GDIPlus_GraphicsFillRect($buffer, 0, 0, 500, 500, $brushWeiss)
For $i = 0 To UBound($gegner) - 1 Step 1
_GDIPlus_GraphicsFillEllipse($buffer, $gegner[$i][0], $gegner[$i][1], 20, 20, $brushSchwarz)
Next
_GDIPlus_GraphicsDrawImageRect($graphic, $bitmap, 0, 0, 500, 500)
Until Not 1
Func _EXIT()
_GDIPlus_BrushDispose($brushSchwarz)
_GDIPlus_BrushDispose($brushWeiss)
_GDIPlus_GraphicsDispose($buffer)
_GDIPlus_GraphicsDispose($graphic)
_GDIPlus_Shutdown()
EndFunc ;==>_EXIT
Func _gegnerSpawn()
If $fach <= UBound($gegner) - 2 Then
$gegner[$fach][0] = Random(0, 480, 1)
$fach += 1
$gegner[$fach][1] = 0
EndIf
EndFunc ;==>_gegnerSpawn
Func _ExitMode()
Exit
EndFunc
Hallo Leute
ich hab mir ein kleines GDI+ skript gebastelt, was Regentropfen darstellen soll, aber wenn ich es jetzt ausführe ist es erst schnell, dann wird es langsamer, wenn ich aber die Maus dann wieder bewege, dann wird es wieder schneller.
Ich wollte euch fragen, warum das so ist.
#include <GuiConstants.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
$fach = 0
Dim $gegner[80][2]
For $j = 0 To UBound($gegner) - 1 Step 1
$gegner[$j][0] = -100
Next
OnAutoItExitRegister("_EXIT")
$Gui = GUICreate("Regen", 500, 500, 100, 100)
_GDIPlus_Startup()
$brushSchwarz = _GDIPlus_BrushCreateSolid(0xFFABCDEF)
$brushWeiss = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
$graphic = _GDIPlus_GraphicsCreateFromHWND($Gui)
$bitmap = _GDIPlus_BitmapCreateFromGraphics(500, 500, $graphic)
$buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
GUISetState()
AdlibRegister("_gegnerSpawn", 500)
Do
For $m = 0 To UBound($gegner) - 1 Step 1
If $gegner[$m][1] >= 480 Then $gegner[$m][1] = 0
Next
For $k = 0 To UBound($gegner) - 1 Step 1
$gegner[$k][1] += 2
Next
$msg = GUIGetMsg()
_GDIPlus_GraphicsFillRect($buffer, 0, 0, 500, 500, $brushWeiss)
For $i = 0 To UBound($gegner) - 1 Step 1
_GDIPlus_GraphicsFillEllipse($buffer, $gegner[$i][0], $gegner[$i][1], 20, 20, $brushSchwarz)
Next
_GDIPlus_GraphicsDrawImageRect($graphic, $bitmap, 0, 0, 500, 500)
Until $msg = $GUI_EVENT_CLOSE
Func _EXIT()
_GDIPlus_BrushDispose($brushSchwarz)
_GDIPlus_BrushDispose($brushWeiss)
_GDIPlus_GraphicsDispose($buffer)
_GDIPlus_GraphicsDispose($graphic)
_GDIPlus_Shutdown()
EndFunc ;==>_EXIT
Func _gegnerSpawn()
If $fach <= UBound($gegner) - 2 Then
$gegner[$fach][0] = Random(0, 480, 1)
$fach += 1
$gegner[$fach][1] = 0
EndIf
EndFunc ;==>_gegnerSpawn
Danke
DFPWare
Naja die Position der schwarzen Streifen kannst du mit PixelSearch ermitteln, relativ zueinander funktioniert das auch bei verscheidenen Gui Größen
DFPWare
Raupi Okay ich probiers mit den neuen tools mal aus
Greenhorn was machen die ganzen Object Files und Assembler Files, hast du das mit c++ oder ähnlichem gemacht?
Ich hab einfach im Ressource Hacker ne neue Ressource erstellt und da das Bild reingepackt.
DFPWare
Edit: Ich blick durch das Programm von den Franzosen nich durch, wofür ist das zweite Fenster und warum funktioniert der Generate Dll Knopf nicht?
Die Do Until Schleife war in diesem Beispiel dazu gut, dass immer wieder eine MsgBox angezeigt wird, bis der Knopf losgelassen wird
DFPWare
Ja funktioniert, Frage:Warum?
oder besser warum bei mir nicht?
Hast du auch Resource Hacker benutzt?
Textdateien sind zum Teil 92 Seiten lang.
Welche Textdatei hat denn Seiten?
Hallo Leute
ich hatte zwar schonmal gefragt, aber ich habe schon wieder eine Frage dazu.
Also ich hab von Raupi hier eine Funktion zum Laden von Bildern gefunden und wollte diese mal ausprobieren, aber bei mir klappt es einfach nicht.
Es kommt immer bei Zeile 34 ein Error, also durch SetError.
Hier das Skript, die dll ist im Anhang, ich denke an der wirds wohl liegen, die hab ich mit Resource Hacker gemacht:
#include <WinAPI.au3>
#include <Memory.au3>
#include <GDIPlus.au3>
#include <Constants.au3>
Global Const $RT_BITMAP = 2
Global Const $RT_RCDATA = 10
Global $gui = GUICreate("Test",300,432)
Global $bg = GUICtrlCreatePic("",10,10,300,432)
_SetImagefromResource($bg, "BG", @ScriptDir & "\pic.dll", 2)
GUISetState()
Do
$msg = GUIGetMsg()
Until $msg = -3
Func _SetImagefromResource($CtrlID, $Resname, $Resfile = -1, $ResType = 10)
;Diese Funktion basiert auf der UDF von [email='Zedna@Autitscript.com'][/email] und Code von [email='Progandy@AutoIt.de'][/email]
Local Const $IMAGE_BITMAP = 0
Local Const $STM_SETIMAGE = 0x0172
Local $hmod, $hwnd, $InfoBlock, $ResSize, $Mem, $pMem, $dll, $dll2, $hData, $pData, $pStream, $ret, $hBitmap, $pBitmap
If $Resfile = -1 Then
$hmod = _WinAPI_GetModuleHandle("")
Else
$hmod = _WinAPI_LoadLibrary($Resfile)
EndIf
If $ResType = $RT_BITMAP Then
$hBitmap = _WinAPI_LoadImage($hmod, $Resname, $IMAGE_BITMAP, 0, 0, 0)
ConsoleWrite("1"&@CRLF)
If @error Then Return SetError(1, 0, 0)
$hwnd = GUICtrlGetHandle($CtrlID)
If $hwnd = 0 Then Return SetError(2, 0, 0)
DllCall("user32.dll", "hwnd", "SendMessage", "hwnd", $hwnd, "int", $STM_SETIMAGE, "int", $IMAGE_BITMAP, "int", $hBitmap)
ConsoleWrite("2"&@CRLF)
If @error Then Return SetError(3, 0, 0)
Else
$InfoBlock = DllCall("kernel32.dll", "int", "FindResourceA", "int", $hmod, "str", $Resname, "long", $ResType)
If @error Then Return SetError(4, 0, 0)
$InfoBlock = $InfoBlock[0]
If $InfoBlock = 0 Then Return SetError(5, 0, 0)
$ResSize = DllCall("kernel32.dll", "dword", "SizeofResource", "int", $hmod, "int", $InfoBlock)
If @error Then Return SetError(6, 0, 0)
$ResSize = $ResSize[0]
If $ResSize = 0 Then Return SetError(7, 0, 0)
$Mem = DllCall("kernel32.dll", "int", "LoadResource", "int", $hmod, "int", $InfoBlock)
If @error Then Return SetError(8, 0, 0)
$Mem = $Mem[0]
If $Mem = 0 Then Return SetError(9, 0, 0)
$pMem = DllCall("kernel32.dll", "int", "LockResource", "int", $Mem)
If @error Then Return SetError(8, 0, 0)
$pMem = $pMem[0]
If $pMem = 0 Then Return SetError(10, 0, 0)
If $Resfile <> -1 Then DllCall("Kernel32.dll", "int", "FreeLibrary", "str", $hmod)
$hData = _MemGlobalAlloc($ResSize, 2)
$pData = _MemGlobalLock($hData)
_MemMoveMemory($pMem, $pData, $ResSize)
_MemGlobalUnlock($hData)
$ret = DllCall("ole32.dll", "int", "CreateStreamOnHGlobal", "int", $hData, "long", 1, "Int*", 0)
$pStream = $ret[3]
_GDIPlus_Startup()
$pBitmap = DllCall($ghGDIPDll, "int", "GdipCreateBitmapFromStream", "ptr", $pStream, "int*", 0)
$pBitmap = $pBitmap[2]
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($pBitmap)
$hwnd = GUICtrlGetHandle($CtrlID)
If $hwnd = 0 Then Return SetError(11, 0, 0)
DllCall("user32.dll", "hwnd", "SendMessage", "hwnd", $hwnd, "int", $STM_SETIMAGE, "int", $IMAGE_BITMAP, "int", $hBitmap)
If @error Then Return SetError(12, 0, 0)
_GDIPlus_BitmapDispose($pBitmap)
_GDIPlus_Shutdown()
$dll = DllStructCreate("Uint", $pStream)
$dll2 = DllStructCreate("uInt", DllStructGetData($dll, 1) + 
DllCall("", "UInt", DllStructGetData($dll2, 1), "UInt", $pStream)
_WinAPI_DeleteObject($pStream)
$pStream = 0
_MemGlobalFree($hData)
EndIf
EndFunc ;==>_SetImagefromResource
nö
zumindest nicht soweit wie ich das sehe
ich glaube es gibt mehrere Versionen von Basic für verschiedene Betriebssysteme und von Pascal glaub ich auch, zumindest für linux
DFPWare