Beiträge von Grimbizo

  • Word funktion gesucht: "_Word_CreateEmbed"?

    Verdammt! Ich hatte die nicht gefunden... sorry. Aber THX. :rolleyes:

    Aber ich finde sie immer noch nicht

    Spoiler anzeigen

    _Word_VersionInfo Gibt ein Array mit Informationen über die Word.au3 Version zurück

    _WordAttach Hängt sich an die erste existierende Instanz von Microsoft Word, wo der Suchstring passt, gemäß dem gewählten Modus.

    _WordCreate Erstellt ein Microsoft Office Word Objekt

    _WordDocAdd Gibt eine Objektvariable zu einem neu erstellten Dokument zurück

    _WordDocAddLink Fügt einem Dokument einen Hyperlink hinzu

    _WordDocAddPicture Fügt dem Dokument ein Bild hinzu

    _WordDocClose Schließt ein zuvor geöffnetes Worddokument

    _WordDocFindReplace Startet die angegebene "Suchen und Ersetzen"-Operation.

    _WordDocGetCollection Gibt ein Sammlungs-Objekt zurück, das alle Dokumente enthält.

    _WordDocLinkGetCollection Gibt ein Objekt mit der Zusammenstellung aller Links in dem Dokument zurück.

    _WordDocOpen Öffnet ein existierendes Word Dokument

    _WordDocPrint Druckt ein festgelegtes Dokument komplett oder nur Teile davon.

    _WordDocPropertyGet Gibt eine ausgewählte Eigenschaft der Word-Datei zurück.

    _WordDocPropertySet Legt eine ausgewählte Eigenschaft einer Word-Datei fest.

    _WordDocSave Speichert ein vorher geöffnetes Dokument

    _WordDocSaveAs Speichert das aktuelle Dokument mit einem bestimmten Namen und Format.

    _WordErrorHandlerDeRegister Deaktiviert einen registrierten User COM Errorhandler

    _WordErrorHandlerRegister Registriert und aktiviert einen benutzereigenen COM Errorhandler

    _WordErrorNotify Legt fest, ob Word.au3 automatisch bei Warnungen und Fehlern benachrichtigt (in die Konsole)

    _WordMacroRun Startet ein Visual Basic Makro

    _WordPropertyGet Gibt eine ausgewählte Eigenschaft der Word Anwendung zurück.

    _WordPropertySet Setzt eine ausgewählte Eigenschaft der Word Anwendung.

    _WordQuit Schließt das Fenster und entfernt die Objektreferenz dazu

    Keine Funktion dafon ist dazu da ein EMBED control für ein GUI zu erstellen, wie man hier sieht:

    [autoit]

    #include <Word.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    GUICreate("",500,500)
    GUISetState()
    $hW=_wordCreate()
    GUICtrlCreateObj($hW,0,0,500,500)
    While 1
    Switch GUIGetMsg()
    Case $gui_event_close
    exit
    EndSwitch
    WEnd

    [/autoit]

  • Frage bezüglich Dateiupload

    Ich hab noch ne Idee: (evtl. langsam :S)

    Packe die Daten in ein Passwortgeschütztes ZIP archiv. Lass es von dem Programm selber entpacken. Müsste sicher genug sein.

    Zur Not kannst du auch ein ZIP archiv in ein ZIP archiv stecken :rolleyes:

  • Objekte im Kreis anordnen: Warum geht's nicht?

    Hallo!

    Ich habe vor mit einigen Freunden ein Spiel zu schreiben und in dem Spiel will ich, dass Objekte sich bewegen oder befinden. Und zwar im Kreis.

    Die Mathematik dahinter ist mir klar: Position(x=R*cos(a),y=R*sin(a)) Ich hab sogar nen Mathematiker gefragt :huh:

    Zur einfachen erleuterung sind überall kommentare; naja fast schon zu fiele :rolleyes:


    [autoit]

    #include <Array.au3> ;Einbinden von erweiterten Array Funktionen (z.B. _arraydisplay)
    $jo=CirclePos(200,4) ;Ruft die Funnktion CirclePos(Durchmesser=200, Bestandteile=4) auf.
    GUICreate("jo",200,200,0,0) ;Erstellt ein Fenster
    GUISetState(@sw_show) ;Macht das Fenster sichtbar
    $M=GUICtrlCreateButton("M",0-10+100,0-10+100,20,20) ;Erstellt den Mittelpunktsknopf
    GUICtrlSetColor($M,0xFFFFFF) ;Schriftfarbe von $M
    GUICtrlSetBkColor($M,0x000000) ;Hintergrundfarbe von $M
    GUICtrlCreateButton("1",$jo[0][0]-10+100,$jo[0][1]-10+100,20,20) ;müsste 100 | 0 sein
    GUICtrlCreateButton("2",$jo[1][0]-10+100,$jo[1][1]-10+100,20,20) ;müsste 0 | 100 sein
    GUICtrlCreateButton("3",$jo[2][0]-10+100,$jo[2][1]-10+100,20,20) ;müsste -100 | 0 sein
    GUICtrlCreateButton("4",$jo[3][0]-10+100,$jo[3][1]-10+100,20,20) ;müsste 0 | -100 sein
    _arraydisplay($jo) ;Zeigt das Array in einem Fenster mit werten an
    Func CirclePos($Durchmesser,$Anzahl) ;Funktion Deklarieren
    Dim $return[$Anzahl][2] ;Erstellt ein 2-Dimensionales Array
    $grad=360/$Anzahl ;Die Gradzahl errechnen
    $Radius=$Durchmesser/2 ;Radius berechnen
    For $i=0 To $Anzahl-1 ;Fortschrittsvariable erhöhen pro Durchlauf
    $return[$i][1]=sin($i*$grad) * $Radius ;vertikale Position in das Array eintragen ;IRGENDWO IST HIER EIN FEHLER
    $return[$i][0]=cos($i*$grad) * $Radius ;horizontale Position in das Array eintragen ;IRGENDWO IST HIER EIN FEHLER
    Next ;Schleifenbegrenzung
    Return $return ;Gibt das 2-Dimensionale Array zurück
    EndFunc ;Funktionsende

    [/autoit]

    Bitte um hilfe, dringend!

    PS: Für das spiel brauchen wir ggf. noch leute, die sowohl 2D, als auch 3D objekte (.X format; bitmaps) gut erstellen kann.

  • Pics.au3 - finde alle icons aus .dll und .exe daten

    Das is eine include (pics.au3) um alle icons aus .dll und .exe daten zu finden :D

    Spoiler anzeigen

    #include <array.au3>
    ;######################## Func _Pics_GetIcons($filename,$showwin=1) ####################################################
    ;Syntax: _Pics_GetIcons($filename,$showwin=1)
    ;Description: Returns the name of an icons in a .dll or .exe file. Optional it can show the icon while searching in
    ; the file (slower because there is a rytm)
    ;Parameters: $filename the file to search In
    ; $showwin=0 [optional] it shows or hides the window
    ; $sleep=25 [optional] the rythm to load the next icon
    ; $max=500 [optional] how many icon names it have to search
    ; $startat=0 [optional] where to start to search
    ;Author: Grimbizo
    ;Remarks: It is not very fast... recommented is to set $showwin=0 but this may take several secconds.
    ;Date: 13.January 2012
    ;Example:
    $icons=_Pics_GetIcons("shell32.dll",1,100,1000,999)
    _ArrayDisplay($icons)
    ;######################## EndFunc ######################################################################################
    Func _Pics_GetIcons($filename,$showwin=0,$sleep=25,$max=500,$startat=0)
    Local $icons[1]
    $picgui=GUICreate("",132,172,-1,-1,0x80000000+0x00800000)
    If $showwin Then GUISetState(@sw_show)
    $label=GUICtrlCreateLabel("",2,130,64,20)
    $label2=GUICtrlCreateLabel("",66,130,64,20)
    $process=GUICtrlCreateProgress(2,150,128,20)
    $actualicon=$startat
    $workingicons=0
    $icons[0]=0
    While 1
    $icon=GUICtrlCreateIcon($filename,$actualicon,2,2,128,128)
    If Not @error Then
    _ArrayAdd($icons,$actualicon)
    $workingicons+=1
    EndIf
    $actualicon+=1
    GUICtrlSetData($label,$actualicon&"/"&$max)
    GUICtrlSetData($label2,$actualicon*(100/$max)&"%")
    GUICtrlSetData($process,$actualicon*(100/$max))
    If $showwin Then Sleep($sleep)
    GUICtrlDelete($icon)
    If $actualicon=$max Then ExitLoop
    WEnd
    If $showwin Then GUIDelete($picgui)
    $icons[0]=$workingicons-1
    Return $icons
    If $icons[0]=0 Then SetError(1)
    EndFunc