Beiträge von DrAcHe981

  • childgui die 3000.

    Mit sowas hatte ich schon oft probleme (mein script hatt 3 while),dass problem ist dass er in der 2. while bleibt aber die funktionen für das 1. gui sind ja in der 1. while,du musst also das script wieder in die erste while führen oder alle funktionen in die erste packen.

    -gruß Robin G.(DrAcHe981)

    (send from 3ds)

  • Serial Key

    Meine (wahrscheinlich schlechte :D) lösung wär FTP wo dateien mit den key bereitliegen und mit jeder nutzung wird ein key im ftp gelöscht

    aber wie ich mich kenne gehts besser xD

  • Auslesen welcher Tab aktiv ist

    Frage -> Kann mann auslesen welcher tab aktiv ist und wenn ja wie

    hier das script wo es rein soll
    Dieses Script benötigt weitere includes(XSkin)

    Spoiler anzeigen
    [autoit]

    #region ### Include ###
    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    #include <ComboConstants.au3>
    #include <sound.au3>
    #include <date.au3>
    #include <XSkin.au3>
    #include <XSkinAnimate.au3>
    Dim $XSkinTab[100],$ieo[100],$XskinIE[100],$XSkinUrl[100],$XSkinGo[100]
    $TabCount = 1
    Global $ini = @TempDir & "\Softera\Config.nsc"
    $skinchoice = IniRead($ini, "MAIN", "skin", "Blackhole")
    $ieo[$TabCount] =_IECreateEmbedded()
    #endregion ### Include ###
    HotKeySet("{esc}", '_exit')
    $skin_Folder = 'Skin\' & $skinchoice & "\"
    $icon_Folder = 'Skin\Default\'
    $XSkinGui = XSkinGuiCreate("Softera", @DesktopWidth + 8, @DesktopHeight - 20, $skin_Folder)
    $addtab = XSkinButton("+", @DesktopWidth - 38, 50, 18, 18, '_addTab')
    $deltab = XSkinButton("-", @DesktopWidth - 38, 50+18, 18, 18, '_delTab')
    $XSkinTab[0] = GUICtrlCreateTab(50, 50, @DesktopWidth - 90, @DesktopHeight - 20)
    $XSkinTab[$TabCount] = GUICtrlCreateTabItem("Tab " & $TabCount)
    $XskinIE[$TabCount] =GUICtrlCreateObj($ieo[$TabCount], 55, 95, @DesktopWidth - 100, @DesktopHeight - 165)
    $XSkinUrl[$TabCount] = GUICtrlCreateInput("www.Neon-Soft.de.tl",55,75,@DesktopWidth-140,20)
    $XSkinGo[$TabCount] = XSkinButton("GO",@DesktopWidth-80,75,30,20,'_GO')
    GUICtrlCreateTabItem("")
    $XIcon = XSkinIcon($XSkinGui, 3)
    GUISetState(@SW_SHOW)
    _IENavigate($ieo[$TabCount],"http://www.Neon-Soft.de.tl")
    While 1
    $nmsg = GUIGetMsg()
    If $nmsg = $XIcon[1] Then _exit()
    If $nmsg = $XIcon[2] Then _minimize()
    If $nmsg = $XIcon[3] Then _config()
    mouseover()
    WEnd
    Func _GO()
    ;MsgBox(0,"Debug","Aktiver Tab "&GUICtrlRead($XSkinTab[0])+1&@CRLF&"Ausgelesene url :http://"&GUICtrlRead($XSkinUrl[GUICtrlRead($XSkinTab[0])+1]))
    _IENavigate($ieo[GUICtrlRead($XSkinTab[0])+1],"http://"&GUICtrlRead($XSkinUrl[GUICtrlRead($XSkinTab[0])+1]))
    EndFunc
    Func _delTab()
    if $TabCount > 1 Then
    Global $TabCountNew = $TabCount - 1
    Global $TabCount = $TabCountNew
    GUICtrlDelete(GUICtrlRead($XSkinTab[0],1))
    Else
    XSkinMSGBoxOk(".","Keine Tabs mehr zum löschen übrig!")
    EndIf
    EndFunc
    Func _addTab()
    If $TabCount < 100 Then
    Global $TabCountNew = $TabCount + 1
    Global $TabCount = $TabCountNew
    $XSkinTab[$TabCount] = GUICtrlCreateTabItem("Tab " & $TabCount)
    $XskinIE[$TabCount] =GUICtrlCreateObj($ieo[$TabCount], 55, 95, @DesktopWidth - 100, @DesktopHeight - 165)
    $XSkinUrl[$TabCount] = GUICtrlCreateInput("www.Neon-Soft.de.tl",55,75,@DesktopWidth-140,20)
    $XSkinGo[$TabCount] = XSkinButton("GO",@DesktopWidth-80,75,30,20,'_GO')
    GUICtrlCreateTabItem("")
    Else
    XSkinMSGBoxOk(".", "Maximale anzahl an Tabs Erreicht!")
    EndIf
    EndFunc ;==>_addTab
    Func _Exit()
    Exit
    EndFunc ;==>_Exit
    Func _minimize()
    GUISetState(@SW_MINIMIZE, $XSkinGui)
    EndFunc ;==>_minimize
    Func _Config()
    XSkinMSGBoxOk("Softera", "Config")
    EndFunc ;==>_Config

    [/autoit]

    Edit: Schon erledigt!