Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.1
Author: myName
Script Function:
Template AutoIt script.
#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")
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <GUIconstants.au3>
#include <Array.au3>
#include <String.au3>
#include <INet.au3>
#include <Misc.au3>
_IEErrorHandlerRegister()
[/autoit] [autoit][/autoit] [autoit]$oIE = _IECreateEmbedded()
$Gui = GUICreate("Angels of Death - WoW Starter", 940, 590, "", "")
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 10, 300, 240)
GUictrlsetstate(-1,@sw_lock)
_SkinGUI("SkinCrafterDll.dll", "V-touch.skf", $Gui) ;Skin setzen
$pic = GUICtrlCreatePic(@ScriptDir & "\Shaiyadeath.jpg", "", "", 940, 590)
GUIctrlSetState($pic, $GUI_DISABLE)
$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)
$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)
GUISetState() ;Show GUI
_IENavigate($oIE, "http://angels-of-death.eu/angelsfeed.php")
; 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
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
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
$GUIActiveX = GUICtrlCreateObj($oIE, 10, 10, 300, 240)]
[/autoit]Gruß
Kev