Beiträge von GE IXI TIM

  • Kostenloser Online Server für TCP

    Hallo zusammen 8o

    Ich wollte mal fragen ob man irgendwie ein Programm/Script auf einen Online-Sever packen kann und mit diesem über TCP kommunizieren.
    Weil ich möchte ein ICQ "ähnlichen" Chat machen aber den Server nicht auf meinem PC haben.
    Gibt es eine Möglichkeit?
    Ich stelle mit das in etwa so vor: TcpSend(TcpNameToIp("MeinServer.Anbieter.com"), $data)
    Kann mir, wenn es möglich ist, ein Beispiel zeigen, wie man die Verbindung zu einem OnlineServer herstellen kann?
    Wenn ich die SuFu benutze, finde ich nur Lösungen mit php aber das kann ich nicht...

    Andere Frage: kann man auf diesem Server dann auch Dateien erstellen? Oder geht das nur mit php...

    Mfg Tim

  • UDF_Builder

    @ SEuBo:
    Kannst du mir auch zeigen, wie Komma-Zahlen als "Reine Zahl" erkannt werden?
    Wenn man z.B eingibt: $Preis = 1.50, wird es als Unreine Zahl" erkannt^^
    @ simon:
    Bin dabei :)

  • UDF_Builder

    Danke :thumbup: Genau das suchte ich^^
    Kenn mich mit RegExe nicht aus-.-

    Zitat

    Erinnert mich ein bisschen an DescribeIt, dein Projekt ^^

    Ich weiß^^
    Ich habe den UDF_Builder schon länger aufem PC (unvollständig), bis ich dein DescribeIt gesehen hab.
    Und da ich gerade eh nichts besseres zu tun hatte, habe ich den UDF_Builder neu aufgesetzt.
    Wenn man beide hat, kann man: UDF´s erstellen und beschreiben xDD
    wie auch immer...ich spiel mal mit RichEdit herum...SyntaxHighlight kann bestimmt nicht schaden:D

  • UDF_Builder

    Hallo Community 8o
    Ich möchte euch hiermit meinen UDF_Builder vorstellen :!:
    Er ermöglicht das einfache und bequeme erstellen von UDF´s und sorgt dafür, dass man die Übersicht behält.

    Funktionen:


    - Start mit normalem Design oder AeroGlass
    - Beschreibung von Autor, Name, ...
    - VarCreator für das einfache erstellen von Variablen und Arrays
    - Listen der Arrays und Funktionen, die ausgewählt und bearbeitet werden können
    - "Minibild" der gesamten UDF
    - weiter folgen

    coming soon:


    - ArrayEditor um den erstellten Arrays Werte zuzuweißen
    - Bessers Design
    - Laden vorhandener UDF´s
    - ...

    Bekannte Bugs:


    - Beim abwechselten Editieren, löschen und erstellen der Variablen treten Fehler auf
    - bei Variablen die aus Zahlen bestehen, werden die Anführungszeichen ' ' drangehängt (IsNumber/Int, ...) klappt nicht ;( Bitte um Hilfe :!:

    Screenshots:


    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Script
    [autoit]

    #region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=GE IXI TIM
    #AutoIt3Wrapper_Res_Language=1031
    #endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include "Vista-au3.au3"
    #include <GuiListView.au3>
    #include <Array.au3>
    #include <Date.au3>
    Opt("GUIOnEventMode", 1)
    $yesno = MsgBox(4, "AeroGlass", "Do you want to run with AeroGlass?")
    Global $aFunctions[50][3], $aVars[50][5], $iZaehler_Func = 1, $iZaehler_Vars = 1
    Global $sHeader = ""
    Global $sFuncs = ""
    Global $sVars = ""
    Global $sOldText = ""
    Global $selected = -1, $oldSelected = ""
    Global $oldState = ""
    $hGui = GUICreate("UDF_Builder by GE IXI TIM (Autoit.de)", 851, 622, 192, 124)
    GUISetBkColor(0xA0A0A0)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    $menuFile = GUICtrlCreateMenu("File")
    $menuFile_Save = GUICtrlCreateMenuItem("Save", $menuFile)
    GUICtrlSetOnEvent(-1, "_SAVE")
    $shortcut = GUICtrlCreateEdit("", 448, 96, 393, 497, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_HSCROLL, $WS_VSCROLL))
    GUICtrlSetFont(-1, 4, 400, 0, "MS Sans Serif")
    $Label1 = GUICtrlCreateLabel("Author:", 16, 32, 38, 17)
    $author = GUICtrlCreateInput(@UserName, 56, 32, 137, 21)
    $Label2 = GUICtrlCreateLabel("Date:", 16, 64, 30, 17)
    $date = GUICtrlCreateInput(StringReplace(_NowDate(), "/", "."), 56, 64, 137, 21)
    $Label3 = GUICtrlCreateLabel("UDF_Name:", 200, 64, 63, 17)
    $name = GUICtrlCreateInput("", 272, 64, 545, 21)
    $Label4 = GUICtrlCreateLabel("Description:", 200, 32, 60, 17)
    $desk = GUICtrlCreateInput("", 272, 32, 545, 21)
    $Group1 = GUICtrlCreateGroup("General thinks", 8, 8, 817, 81)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label5 = GUICtrlCreateLabel("Choose Var type:", 16, 118, 85, 17)
    $VarType = GUICtrlCreateCombo("", 112, 112, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
    GUICtrlSetData(-1, "Dim|Global|Local|Const|None")
    $Label6 = GUICtrlCreateLabel("Value:", 16, 160, 34, 17)
    $VarValue = GUICtrlCreateInput("", 112, 160, 145, 21)
    $Label7 = GUICtrlCreateLabel("Name:", 16, 184, 35, 17)
    $VarName = GUICtrlCreateInput("", 112, 184, 145, 21)
    $Checkbox1 = GUICtrlCreateCheckbox("Array", 264, 114, 97, 17)
    $Label8 = GUICtrlCreateLabel("Dimension:", 16, 136, 56, 17)
    $VarDim1 = GUICtrlCreateInput("", 112, 136, 33, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
    GUICtrlSetState(-1, $GUI_DISABLE)
    $VarDim2 = GUICtrlCreateInput("", 152, 136, 33, 21, BitOR($ES_AUTOHSCROLL, $ES_NUMBER))
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetLimit(-1, 1)
    $bVarCreate = GUICtrlCreateButton("Var Create", 16, 208, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_Var_Create")
    $ListView1 = GUICtrlCreateListView("Type|Name|Value", 264, 136, 170, 94)
    GUICtrlSetOnEvent(-1, "_Click_Listview")
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
    GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
    $bVarDelete = GUICtrlCreateButton("Var Delete", 96, 208, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_Var_Delete")
    $bVarEdit = GUICtrlCreateButton("Var Edit", 176, 208, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_Var_Edit")
    $Group2 = GUICtrlCreateGroup("Variables", 8, 96, 433, 145)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Label9 = GUICtrlCreateLabel("FunctionName:", 16, 256, 76, 17)
    $funcName = GUICtrlCreateInput("Name", 104, 256, 337, 21)
    $Label10 = GUICtrlCreateLabel("Parameters:", 16, 280, 60, 17)
    $funcSyntax = GUICtrlCreateInput("Name(Param1, Param2 = 5)", 104, 280, 337, 21)
    $Label11 = GUICtrlCreateLabel("Function:", 16, 304, 48, 17)
    $funcFunc = GUICtrlCreateEdit("", 16, 328, 425, 169)
    GUICtrlSetData(-1, "Func" & @CRLF & @CRLF & "EndFunc")
    $bFuncAdd = GUICtrlCreateButton("Add Func", 16, 504, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_Add_Func")
    $bFuncDelete = GUICtrlCreateButton("Delete Func", 96, 504, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_Delete_Func")
    $funcCombo = GUICtrlCreateCombo("", 256, 504, 185, 25, BitOR($CBS_DROPDOWNLIST, $CBS_AUTOHSCROLL))
    GUICtrlSetOnEvent(-1, "_Combo_Click")
    $bFuncEdit = GUICtrlCreateButton("Edit Func", 176, 504, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_Edit_Func")
    $SAVEUDF = GUICtrlCreateButton("Save UDF", 16, 536, 427, 57, $WS_GROUP)
    GUICtrlSetOnEvent(-1, "_SAVE")
    GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFF0000)
    GUISetState(@SW_SHOW)
    AdlibRegister("_check", 100)
    AdlibRegister("_Click_Listview", 100)
    If @OSVersion = "WIN_VISTA" And $yesno = 6 Then _Aero_ON()
    While 1
    Sleep(100)
    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Func _Exit()
    Exit
    EndFunc ;==>_Exit

    [/autoit] [autoit][/autoit] [autoit]

    Func _check()
    Global $state = _isArray()
    If $oldState <> $state Then
    If $state Then
    GUICtrlSetState($VarValue, $GUI_DISABLE)
    GUICtrlSetState($VarDim1, $GUI_ENABLE)
    GUICtrlSetState($VarDim2, $GUI_ENABLE)
    EndIf
    If Not $state Then
    GUICtrlSetState($VarValue, $GUI_ENABLE)
    GUICtrlSetState($VarDim1, $GUI_DISABLE)
    GUICtrlSetState($VarDim2, $GUI_DISABLE)
    EndIf
    EndIf
    $oldState = $state
    $sHeader = "#cs " & @CRLF & "This UDF is created by the UDF_Builder v1.0 by GE IXI TIM(AutoIt)" & @CRLF & _
    "Author = " & GUICtrlRead($author) & @CRLF & _
    "Date = " & GUICtrlRead($date) & @CRLF & _
    "UDF_Name = " & GUICtrlRead($name) & @CRLF & _
    "Describtion = " & GUICtrlRead($desk) & @CRLF & _
    "Functions:" & @CRLF
    For $i = 0 To 49
    If $aFunctions[$i][0] <> "" Then $sHeader &= "- " & $aFunctions[$i][0] & @CRLF
    Next
    $sHeader &= "#ce" & @CRLF & ";===Vars==============================================================" & @CRLF
    For $i = 0 To UBound($aVars, 0)
    If $aVars[$i][0] <> "" Then
    If $aVars[$i][1] = False Then
    $sVars &= $aVars[$i][3] & " " & "$" & $aVars[$i][0] & " = " & $aVars[$i][4] & @CRLF
    ContinueLoop
    EndIf
    If $aVars[$i][1] = True Then
    $sVars &= $aVars[$i][3] & " " & "$" & $aVars[$i][0] & $aVars[$i][2] & @CRLF
    ContinueLoop
    EndIf
    EndIf
    Next
    $sFuncs &= @CRLF & ";===FUNCTIONS============================================================" & @CRLF
    For $i = 0 To 49
    If $aFunctions[$i][0] <> "" Then
    $sFuncs &= "; Name: " & $aFunctions[$i][0] & @CRLF
    $sFuncs &= "; Syntax:" & $aFunctions[$i][1] & @CRLF
    $sFuncs &= $aFunctions[$i][2] & @CRLF & @CRLF
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    $sALLText = $sHeader & $sVars & $sFuncs
    If $sOldText <> $sALLText Then GUICtrlSetData($shortcut, $sALLText)
    $sOldText = $sALLText
    $sVars = ""
    $sHeader = ""
    $sFuncs = ""
    EndFunc ;==>_check

    [/autoit] [autoit][/autoit] [autoit]

    Func _isArray()
    If BitAND(GUICtrlRead($Checkbox1), 1) = 1 Then Return True
    ;MsgBox(0, "", GUICtrlRead($Checkbox1))
    Return False
    EndFunc ;==>_isArray

    [/autoit] [autoit][/autoit] [autoit]

    Func _SAVE()
    Local $path = FileSaveDialog("Choose a path", @DesktopDir, "AutoIt-Scripts(*.au3)", "", GUICtrlRead($name))
    If StringRight($path, 4) <> ".au3" Then $path &= ".au3"
    FileWrite($path, GUICtrlRead($shortcut))
    EndFunc ;==>_SAVE

    [/autoit] [autoit][/autoit] [autoit]

    Func _Var_Create()
    If StringInStr(GUICtrlRead($shortcut), "$" & GUICtrlRead($VarName)) Then Return MsgBox(0, "Error!", "There already is a var " & GUICtrlRead($VarName))
    If GUICtrlRead($VarType) = "" Then Return MsgBox(0, "Error!", "No var type choosen")
    If GUICtrlRead($VarName) = "" Then Return MsgBox(0, "Error!", "No var name choosen")
    Local $iArray, $sDim = "", $sValue
    If _isArray() Then $iArray = 1
    If GUICtrlRead($VarDim1) = "" And _isArray() Then Return MsgBox(0, "Error!", "No dimension choosen, if you are creating an array you have to set at least one dim.")
    If _isArray() Then $sValue = "/"
    If _isArray() Then $sDim &= "[" & GUICtrlRead($VarDim1) & "]"
    If _isArray() And GUICtrlRead($VarDim2) <> "" Then $sDim &= "[" & GUICtrlRead($VarDim2) & "]"
    If IsString(GUICtrlRead($VarValue)) And Not _isArray() Then $sValue = "'" & GUICtrlRead($VarValue) & "'"
    If IsFloat(GUICtrlRead($VarValue)) Or IsInt(GUICtrlRead($VarValue)) Or IsNumber(GUICtrlRead($VarValue)) Then $sValue = GUICtrlRead($VarValue)
    If Not _isArray() Then $iArray = 0
    $aVars[$iZaehler_Vars][0] = GUICtrlRead($VarName)
    $aVars[$iZaehler_Vars][1] = $iArray
    $aVars[$iZaehler_Vars][2] = $sDim
    $aVars[$iZaehler_Vars][3] = GUICtrlRead($VarType)
    $aVars[$iZaehler_Vars][4] = $sValue
    GUICtrlCreateListViewItem($aVars[$iZaehler_Vars][3] & "|" & "$" & $aVars[$iZaehler_Vars][0] & $aVars[$iZaehler_Vars][2] & "|" & _
    $aVars[$iZaehler_Vars][4], $ListView1)
    $iZaehler_Vars += 1
    $oldSelected = -1
    EndFunc ;==>_Var_Create

    [/autoit] [autoit][/autoit] [autoit]

    Func _Var_Delete()
    $index = _GetItemSelected()
    _ArrayDelete($aVars, $index)
    $ersatzArray = $aVars
    Global $aVars[50][5]
    For $i = 0 To 48
    $aVars[$i][0] = $ersatzArray[$i][0]
    $aVars[$i][1] = $ersatzArray[$i][1]
    $aVars[$i][2] = $ersatzArray[$i][2]
    $aVars[$i][3] = $ersatzArray[$i][3]
    $aVars[$i][4] = $ersatzArray[$i][4]
    Next
    $ersatzArray = ""
    _GUICtrlListView_DeleteItem($ListView1, $index - 1)
    $state = 2
    $oldSelected = -1
    EndFunc ;==>_Var_Delete

    [/autoit] [autoit][/autoit] [autoit]

    Func _Var_Edit()
    If $selected <> -1 Then
    If GUICtrlRead($VarType) = "" Then Return MsgBox(0, "Error!", "No var type choosen")
    If GUICtrlRead($VarName) = "" Then Return MsgBox(0, "Error!", "No var name choosen")
    Local $iArray, $sDim = "", $sValue
    If _isArray() Then $iArray = 1
    If GUICtrlRead($VarDim1) = "" And _isArray() Then Return MsgBox(0, "Error!", "No dimension choosen, if you are creating an array you have to set at least one dim.")
    If _isArray() Then $sValue = "/"
    If _isArray() Then $sDim &= "[" & GUICtrlRead($VarDim1) & "]"
    If _isArray() And GUICtrlRead($VarDim2) <> "" Then $sDim &= "[" & GUICtrlRead($VarDim2) & "]"
    If IsString(GUICtrlRead($VarValue)) And Not _isArray() Then $sValue = "'" & GUICtrlRead($VarValue) & "'"
    If IsNumber(GUICtrlRead($VarValue)) Then $sValue = GUICtrlRead($VarValue)
    If Not _isArray() Then $iArray = 0
    $aVars[$selected][0] = GUICtrlRead($VarName)
    $aVars[$selected][1] = $iArray
    $aVars[$selected][2] = $sDim
    $aVars[$selected][3] = GUICtrlRead($VarType)
    $aVars[$selected][4] = $sValue
    _GUICtrlListView_DeleteItem($ListView1, $selected - 1)
    GUICtrlCreateListViewItem($aVars[$selected][3] & "|" & "$" & $aVars[$selected][0] & $aVars[$selected][2] & "|" & _
    $aVars[$selected][4], $ListView1)
    EndIf
    $selected = -1
    $oldSelected = -1
    EndFunc ;==>_Var_Edit

    [/autoit] [autoit][/autoit] [autoit]

    Func _Click_Listview()
    Local $dim_1 = "", $dim_2 = ""
    $selected = _GetItemSelected()
    If $selected <> $oldSelected Then
    If $selected <> -1 Then
    If $aVars[$selected][1] = 1 Then
    GUICtrlSetState($VarValue, $GUI_DISABLE)
    GUICtrlSetState($VarDim1, $GUI_ENABLE)
    GUICtrlSetState($VarDim2, $GUI_ENABLE)
    GUICtrlSetState($Checkbox1, 1)
    $dim = $aVars[$selected][2]
    $dim = StringReplace($dim, "]", "")
    $dim = StringReplace($dim, "[", "")
    $aDim = StringSplit($dim, "")
    If $aDim[0] = 3 Then
    $dim_2 = $aDim[3]
    $dim_1 = $aDim[1] & $aDim[2]
    EndIf
    If $aDim[0] = 2 Then
    $dim_2 = $aDim[2]
    $dim_1 = $aDim[1]
    EndIf
    If $aDim[0] = 1 Then
    $dim_2 = ""
    $dim_1 = $aDim[1]
    EndIf
    EndIf
    If $aVars[$selected][1] = 0 Then
    $dim_1 = ""
    $dim_2 = ""
    GUICtrlSetState($VarValue, $GUI_ENABLE)
    GUICtrlSetState($VarDim1, $GUI_DISABLE)
    GUICtrlSetState($VarDim2, $GUI_DISABLE)
    GUICtrlSetState($Checkbox1, 4)
    EndIf
    $txt = $aVars[$selected][4]
    $txt = StringReplace($txt, "'", "")
    $txt = StringReplace($txt, "/", "")
    $txt = StringReplace($txt, '"', "")
    GUICtrlSetData($VarDim1, $dim_1)
    GUICtrlSetData($VarDim2, $dim_2)
    GUICtrlSetData($VarName, $aVars[$selected][0])
    GUICtrlSetData($VarType, $aVars[$selected][3])
    GUICtrlSetData($VarValue, $txt)
    $oldSelected = $selected
    EndIf
    EndIf

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    EndFunc ;==>_Click_Listview

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _GetItemSelected()
    Local $selectedItem = 0
    $count = _GUICtrlListView_GetItemCount($ListView1)
    For $i = 0 To $count - 1
    $selectedItem = _GUICtrlListView_GetItemSelected($ListView1, $i)
    If $selectedItem Then Return $i + 1
    Next
    Return -1
    EndFunc ;==>_GetItemSelected

    [/autoit] [autoit][/autoit] [autoit]

    Func _Add_Func()
    If StringInStr(GUICtrlRead($shortcut), GUICtrlRead($funcSyntax)) Then Return MsgBox(0, "Error!", "There already is a function " & GUICtrlRead($funcSyntax))
    If GUICtrlRead($funcName) = "" Then Return MsgBox(0, "Error!", "No function name.")
    If GUICtrlRead($funcSyntax) = "" Then Return MsgBox(0, "Error!", "No function syntax.")
    If GUICtrlRead($funcFunc) = "" Then Return MsgBox(0, "Error!", "No function.")
    $aFunctions[$iZaehler_Func][0] = GUICtrlRead($funcName)
    $aFunctions[$iZaehler_Func][1] = GUICtrlRead($funcSyntax)
    $aFunctions[$iZaehler_Func][2] = GUICtrlRead($funcFunc)
    _SetComboFunctions()
    $iZaehler_Func += 1
    GUICtrlSetData($funcFunc, "Func " & @CRLF & @CRLF & "EndFunc")
    GUICtrlSetData($funcName, "")
    GUICtrlSetData($funcSyntax, "")
    EndFunc ;==>_Add_Func

    [/autoit] [autoit][/autoit] [autoit]

    Func _SetComboFunctions()
    Local $sCombo = ""
    For $i = 0 To 49
    If $aFunctions[$i][0] <> "" Then $sCombo &= "|" & $aFunctions[$i][0]
    Next
    GUICtrlSetData($funcCombo, $sCombo)
    EndFunc ;==>_SetComboFunctions

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _Delete_Func()
    $index = _ArraySearch($aFunctions, GUICtrlRead($funcCombo))
    _ArrayDelete($aFunctions, $index)
    $ersatzArray = $aFunctions
    Global $aFunctions[50][5]
    For $i = 0 To 48
    $aFunctions[$i][0] = $ersatzArray[$i][0]
    $aFunctions[$i][1] = $ersatzArray[$i][1]
    $aFunctions[$i][2] = $ersatzArray[$i][2]
    Next
    $ersatzArray = ""
    _SetComboFunctions()
    EndFunc ;==>_Delete_Func
    Func _Combo_Click()
    Global $FuncSelected = _ArraySearch($aFunctions, GUICtrlRead($funcCombo))
    If $aFunctions[$FuncSelected][0] <> "" Then
    GUICtrlSetData($funcName, $aFunctions[$FuncSelected][0])
    GUICtrlSetData($funcSyntax, $aFunctions[$FuncSelected][1])
    GUICtrlSetData($funcFunc, $aFunctions[$FuncSelected][2])
    EndIf
    EndFunc ;==>_Combo_Click

    [/autoit] [autoit][/autoit] [autoit]

    Func _Edit_Func()
    If GUICtrlRead($funcName) = "" Then Return MsgBox(0, "Error!", "No function name.")
    If GUICtrlRead($funcSyntax) = "" Then Return MsgBox(0, "Error!", "No function syntax.")
    If GUICtrlRead($funcFunc) = "" Then Return MsgBox(0, "Error!", "No function.")
    $aFunctions[$FuncSelected][0] = GUICtrlRead($funcName)
    $aFunctions[$FuncSelected][1] = GUICtrlRead($funcSyntax)
    $aFunctions[$FuncSelected][2] = GUICtrlRead($funcFunc)
    _SetComboFunctions()
    EndFunc ;==>_Edit_Func

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _Aero_ON()
    GUICtrlSetFont($Label1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label2, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label3, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label4, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label5, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label6, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label7, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label8, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label9, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label10, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Label11, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Checkbox1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Group1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetFont($Group2, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor($Label1, 0xFF0000)
    GUICtrlSetColor($Label2, 0xFF0000)
    GUICtrlSetColor($Label3, 0xFF0000)
    GUICtrlSetColor($Label4, 0xFF0000)
    GUICtrlSetColor($Label5, 0xFF0000)
    GUICtrlSetColor($Label6, 0xFF0000)
    GUICtrlSetColor($Label7, 0xFF0000)
    GUICtrlSetColor($Label8, 0xFF0000)
    GUICtrlSetColor($Label9, 0xFF0000)
    GUICtrlSetColor($Label10, 0xFF0000)
    GUICtrlSetColor($Label11, 0xFF0000)
    GUICtrlSetColor($Checkbox1, 0xFF0000)
    GUICtrlSetColor($Group1, 0xFF0000)
    GUICtrlSetColor($Group2, 0xFF0000)
    GUICtrlSetColor($shortcut, 0xFF0000)
    _Vista_ApplyGlass($hGui)
    EndFunc ;==>_Aero_ON

    [/autoit]


    Download: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • GDI+ Versuch: AnalogUhr

    ja ich weiß :(
    ich kann mit Gdi transparente .png Bilder einfügen und die Gui mit

    [autoit]

    _WinAPI_SetLayeredWindowAttributes

    [/autoit]


    transparent machen, aber ein schwarzer Hintergrung bleibt immer...
    Muss ich bei Gdi+ was spezielles für Bilder mit transparentem Hintergrund beachten?
    oder kann mit vielleicht jemand ein Beispiel machen ?
    Hab es mit Analoguhr.png probiert (transparent - in GIMP erstellt!) aber es geht nicht -.-

  • GDI+ Versuch: AnalogUhr

    Hallo @all 8o
    Da ich mich schun Ewigkeiten an GDIPlus versuchen wollte, hab ich hier mal eine kleine Analoguhr gemacht!
    Ist es so gut genug oder gibt es bessere Wege zu zeichnen?
    Funktionen:
    - Wenn die Maus die GUI berührt, kann man mit den Arrowkeys(left/right) die Transparenz ändern
    - Man kann die Gui per Grad/Drop bewegen
    - Roter Zeiger: Stunden
    - Blauer zeiger: Minuten
    - ESC zum Beenden

    Ich bitte um Kritik und Tipps :D
    Bild/Script/Exe: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. (18:56)

    Script!
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <GdiPlus.au3>
    #include <StaticConstants.au3>
    #include <WinApi.au3>
    #include <Array.au3>
    #include <Misc.au3>
    _GDIPlus_Startup()
    ; Allgemein ===========================================================
    OnAutoItExitRegister("_EndGdi")
    HotKeySet("{ESC}", "_Exit")
    Opt("GUIOnEventMode", 1)
    ; Variablen =============================================================
    Global $trans = 255
    Global $Width = 150, $Height = 150
    Global $GUI_X = @DesktopWidth/2-$Width, $GUI_Y = @DesktopHeight/2-$Height
    Global $aMin[60] = ["75 5", "82 6", "88 6", "95 9", "102 11", "107 14", "114 17", "121 22", "125 27", "131, 32", "135 40", "137 46", "140 53", "142 60", "143 66", "143 75", "143 81", "142 88","141 96", "138 102", "135 109", "131 115", "127 121", "122 126", "116 131", "109 134", "103 139", "96 141", "89 143", "82 145", "75 145", "67 145", "60 144", "53 142", "46 139", "39 137", "33 131", "28 127", "23 121", "17 116", "14 110", "11 104", "7 96", "5 89", "4 82", "4 75", "5 67", "6 60", "7 53", "10 46", "14 40", "18 34", "22 28", "28 23", "34 18", "40 15", "46 12", "52 7", "59 5", "67 5"]
    Global $aHour[12] = ["75 5", "107 14", "135 40", "143 75", "135 109", "109 134", "75 145", "39 137", "14 110", "4 75", "14 40", "40 15"]
    ; GUI ===============================================================
    #Region ### START Koda GUI section ### Form=
    $hGUI = GUICreate("AnalogUhr", $Width, $Height, $GUI_X, $GUI_Y, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
    GUISetBkColor(0x000000)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    ;GDI+ ===============================================================================
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
    $hBitmap = _GDIPlus_BitmapCreateFromGraphics(150, 150, $hGraphic)
    $hBackBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    $image = _GDIPlus_ImageLoadFromFile(@ScriptDir &"/Analoguhr.jpg")
    $penMIN = _GDIPlus_PenCreate(0xFF0000CD)
    $penHOUR = _GDIPlus_PenCreate(0xFFA52A2A)
    GUIRegisterMsg($WM_PAINT, "WM_PAINT")
    ;While-Schleife =======================================================================
    While 1
    _Draw()
    _GuiMove()
    _TransMinus()
    _TransPlus()
    Sleep(100)
    WEnd
    ; Funktionen ============================================================================
    Func WM_PAINT()
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $Width, $Height)
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_PAINT

    [/autoit] [autoit][/autoit] [autoit]

    Func _GetHour()
    Local $hour = @HOUR
    if $hour <= 12 Then Return $hour
    if $hour = 13 Then $hour = 1
    if $hour = 14 Then $hour = 2
    if $hour = 15 Then $hour = 3
    if $hour = 16 Then $hour = 4
    if $hour = 17 Then $hour = 5
    if $hour = 18 Then $hour = 6
    if $hour = 19 Then $hour = 7
    if $hour = 20 Then $hour = 8
    if $hour = 21 Then $hour = 9
    if $hour = 22 Then $hour = 10
    if $hour = 23 Then $hour = 11
    if $hour = 24 Then $hour = 12
    Return $hour
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _EndGdi()
    _GDIPlus_ImageDispose($image)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_ImageDispose($hBackBuffer)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_PenDispose($penHOUR)
    _GDIPlus_PenDispose($penMIN)
    _GDIPlus_Shutdown()
    EndFunc
    Func _Exit()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _GuiMove()
    if MouseGetPos(0) >= $gui_X and <= MouseGetPos(0) $gui_X + $Width and MouseGetPos(1) >= $GUI_Y and MouseGetPos(1) <= $gui_Y + $Height Then
    While _IsPressed(01)
    WinMove("AnalogUhr", "", MouseGetPos(0)-$Width, MouseGetPos(1)-$Height)
    $gui_X = MouseGetPos(0) - $Width
    $GUI_Y = MouseGetPos(1) - $Height
    Sleep(1)
    WEnd
    EndIf
    EndFunc
    Func _TransMinus()
    if MouseGetPos(0) >= $gui_X and <= MouseGetPos(0) $gui_X + $Width and MouseGetPos(1) >= $GUI_Y and MouseGetPos(1) <= $gui_Y + $Height Then
    if _IsPressed(25) Then
    $trans -= 5
    if $trans < 0 Then $trans = 0
    WinSetTrans("AnalogUhr", "", $trans)
    EndIf
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _TransPlus()
    if MouseGetPos(0) >= $gui_X and <= MouseGetPos(0) $gui_X + $Width and MouseGetPos(1) >= $GUI_Y and MouseGetPos(1) <= $gui_Y + $Height Then
    if _IsPressed(27) Then
    $trans += 5
    if $trans > 255 Then $trans = 255
    WinSetTrans("AnalogUhr", "", $trans)
    EndIf
    EndIf
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _Draw()
    _GDIPlus_GraphicsClear($hBackBuffer)
    $aCoordMin = StringSplit($aMin[@MIN], " ")
    $aCoordHour = StringSplit($aHour[_GetHour()], " ")
    _GDIPlus_GraphicsDrawImageRect($hBackBuffer, $image, 0, 0, 150, 150)
    _GDIPlus_GraphicsDrawLine($hBackBuffer, 75, 75, $aCoordMin[1], $aCoordMin[2], $penMIN)
    _GDIPlus_GraphicsDrawLine($hBackBuffer, 75, 75, $aCoordHour[1], $aCoordHour[2], $penHOUR)
    _WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_INTERNALPAINT)
    EndFunc

    [/autoit]

  • Doodle Jump für Pc

    Mein Rekord was irgendwas mit 30.000...ich toppe dich xD
    Suchtfaktor 100%!!!
    Ich hab die letzten 2 Stunden damit verbracht, Musik zu hören und Doodle Jump zu spielen oO
    Wer hätte gedacht, dass man so einem AutoIt-Spiel verfallen kann... :whistling:
    Gruß Tim :thumbup: