Gui in GUi inner gui mit ner gui wtf :D

Kev

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

FIleInstall("C:\Users\Kev\Desktop\V-touch.skf",@scriptdir & "\V-touch.skf")
FIleInstall("C:\Users\Kev\Desktop\SkinCrafterDll.dll",@scriptdir & "\SkinCrafterDll.dll")
FIleinstall("C:\Users\Kev\Desktop\Shaiyadeath.jpg",@scriptdir & "\Shaiyadeath.jpg")

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

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GUIconstants.au3>
#include <Array.au3>
#include <String.au3>
#include <INet.au3>
#include <Misc.au3>

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

_IEErrorHandlerRegister()

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

$oIE = _IECreateEmbedded()
$Gui = GUICreate("Angels of Death - WoW Starter", 940, 590, "", "")

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

$GUIActiveX = GUICtrlCreateObj($oIE, 10, 10, 300, 240)
GUictrlsetstate(-1,@sw_lock)

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

_SkinGUI("SkinCrafterDll.dll", "V-touch.skf", $Gui) ;Skin setzen
$pic = GUICtrlCreatePic(@ScriptDir & "\Shaiyadeath.jpg", "", "", 940, 590)
GUIctrlSetState($pic, $GUI_DISABLE)

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

$start = GUICtrlCreateButton("WoW starten", 790, 210, 125, 25)
$realm = GUICtrlCreateButton("Realmlist", 790, 240, 125, 25)
$cache = GUICtrlCreateButton("Cache löschen", 790, 270, 125, 25)
$Beenden = GUICtrlCreateButton("Beenden", 790, 300, 125, 25)
$download = GUICtrlCreateButton("Raidplaner - Gadget", 790, 550, 125, 25)
$foren = GUICtrlCreateButton("Foren - Gadget", 790, 520, 125, 25)
$wiki = GUICtrlCreateButton("Gildenwiki", 790, 120, 125, 25)
$blog = GUICtrlCreateButton("Gildenblog", 790, 90, 125, 25)
$forum = GUICtrlCreateButton("Gildenforum", 790, 60, 125, 25)
$dkp = GUICtrlCreateButton("Homepage/DKP", 790, 30, 125, 25)
$source = _INetGetSource("http://angels-of-death.eu/viewnews.php")
$pic = _StringBetween($source, "<img src=", " style")
$picneu = StringTrimLeft($pic[8], 2)
$picneuer = StringTrimRight($picneu, 1)

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

$videolol = _StringBetween($source, "><img src=", " class")
$videolol2 = StringTrimLeft($videolol[11], 1)
$randomvid = StringTrimRight($videolol2, 1)
InetGet("http://angels-of-death.eu" & $picneuer, @TempDir & "\random.jpg")
InetGet($randomvid, @TempDir & "\randomvid.jpg")
$picfertig = GUICtrlCreateButton("Pic of the Moment", 30, 420, 180, 25)
$videofertig = GUICtrlCreateButton("Video of the Moment", 250, 420, 180, 25)
GUICtrlCreatePic(@TempDir & "\random.jpg", 20, 450, 200, 130)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePic(@TempDir & "\randomvid.jpg", 240, 450, 200, 130)
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUISetState() ;Show GUI
_IENavigate($oIE, "http://angels-of-death.eu/angelsfeed.php")

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

; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Switch $msg
Case $start
ShellExecute(@ScriptDir & "\Wow.exe")
Case $cache
$remove = DirRemove(@ScriptDir & "\Cache\", 1)
If $remove = 1 Then
TrayTip("RG WoW Starter", "Cache erfolgreich gelöscht", 5, 1)
Else
TrayTip("RG WoW Starter", "Fehler - Falsches Verzeichnis? oder schon gelöscht?", 5, 1)
Endif
Case $Beenden
Exit
Case $picfertig
ShellExecute("http://angels-of-death.eu/plugins/gallery/gallery.php?s=")
Case $videofertig
ShellExecute("http://angels-of-death.eu/plugins/mediacenter/")
case $dkp
ShellExecute("http://angels-of-death.eu/")
case $forum
shellexecute("http://angels-of-death.eu/board/index.php")
case $wiki
shellexecute("http://wiki.angels-of-death.eu")
case $blog
ShellExecute("http://blog-angels-of-death.eu")
case $download
Inetget("http://www.angels-of-death.eu/files/raidplan-gadget.gadget",@DesktopDir & "\raidplan-gadget.gadget")
Traytip("Download","Gadget ist nun auf dem Desktop zu finden", 3 ,1)
case $foren
Inetget("http://www.angels-of-death.eu/files/angels-board-gadget.gadget",@DesktopDir & "\angels-board-gadget.gadget")
Traytip("Download","Gadget ist nun auf dem Desktop zu finden", 3 ,1)
case $realm
Run("notepad.exe " & "" & @ScriptDir & "\Data\deDE\realmlist.wtf")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
$Dll = DllOpen($SkincrafterDll)
DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "SKINCRAFTER", "wstr", "SKINCRAFTER.COM", "wstr", "support@skincrafter.com", "wstr", "DEMOSKINCRAFTERLICENCE")
DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1)
DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
DllCall($Dll, "int:cdecl", "ApplySkin")
EndFunc ;==>_SkinGUI

[/autoit]

Hab hier mal was gebastelt, bloß wird das IEembetted ( welches sich auf nem gui hintergrund bild befindet) iwie in den hintergrund gezerrt und das ganze gui flackert wenn man mitm mausrad dreht.

seubo meinte mal was von gui auf ner gui erstellen und das ganze dann als eine gui iwie festsetzen bloß iwie ja kp

Spoiler anzeigen

[autoit]

$GUIActiveX = GUICtrlCreateObj($oIE, 10, 10, 300, 240)]

[/autoit]

Gruß

Kev

**Sprenger120**

Nach dem Titel willst du mehrere Fenster in ein GUI Packen oder ?

Aber sowas suchst du bestimmt

[autoit]

$hMain = GUICreate("Main Gui")
GUISetState()
$hSub = GUICreate("Sub Gui")
GUISetState()

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

$Pos = WinGetPos(WinGetTitle($hMain))
DllCall("user32.dll", "int", "SetParent", "hwnd", $hSub, "hwnd", $hMain)
WinMove($hSub, "", 0, 0, $Pos[2], $Pos[3])

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

While Sleep(100)
WEnd

[/autoit]

**Schnitzel**

Bitte beim nächsten mal ne Fehlerbeschreibung die mehrere verstehen können und nicht nur die die schon zuvor mit dir gechattet haben.
Ich glaube dass bei dem keiner durchblickt was du genau willst^^

Hab mir das jetz dochnoch angesehn.
Bei mir flackert nichts. und ja ich hab jetz das Script 1zu1 kopiert. (das vorher warn Iexplorer probleme)

Kev

du hast ja au win7 64 bit da is alles anders

Awesome

Kurzer Tipp fürs Wow Starten

Mache es lieber so (Dann muss das Script nicht im gleichen Ordner sein)

Oder um deine Reamlist / Version anzeigen zu lassen.

[autoit]

Local $InstallationsPfad
$InstallationsPfad = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "InstallPath")
Run($InstallationsPfad & "\Wow.exe", "") ; , @SW_MAXIMIZE)

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

; ======== Reamlist & Version

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

$file = FileOpen($InstallationsPfad & "Data\deDE\realmlist.wtf", 0)
; Check if file opened for reading OK
If $file = -1 Then
;~ MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
$reamlist = FileRead($file, -1)
$ver = FileGetVersion($InstallationsPfad & "Wow.exe")
FileClose($file)

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

$Label_realm = GUICtrlCreateLabel("Deine Reamlist: " & $reamlist ,1,5,500,15)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label_ver = GUICtrlCreateLabel("Deine Version: " & $ver,1,20,500,15)
GUICtrlSetColor(-1, 0xFFFFFF)

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

m-obi

Zitat von Sprenger120

Nach dem Titel willst du mehrere Fenster in ein GUI Packen oder ?

Aber sowas suchst du bestimmt
[autoit]

$hMain = GUICreate("Main Gui")
GUISetState()
$hSub = GUICreate("Sub Gui")
GUISetState()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Pos = WinGetPos(WinGetTitle($hMain))
DllCall("user32.dll", "int", "SetParent", "hwnd", $hSub, "hwnd", $hMain)
WinMove($hSub, "", 0, 0, $Pos[2], $Pos[3])
[/autoit] [autoit][/autoit] [autoit]
While Sleep(100)
WEnd
[/autoit]
Alles anzeigen

Kleine Info: Geht auch ohne WinGetTitle.