mesale0077 Posted July 27, 2012 Share Posted July 27, 2012 (edited) Edited September 4, 2014 by mesale0077 Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 27, 2012 Share Posted July 27, 2012 böyle bişeye ne gerek var. shellexecute(@ScriptDir &"\index.html") komutuyla da pek ala varsayılan tarayıcı da bu dökümanı açtırabilirsin. Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted July 27, 2012 Author Share Posted July 27, 2012 (edited) tarayıcıda açmayacam autoit içinde açmam gerekiyor lakin cd yi yükleyince htmlyi bulamıyor [code];this code with sound.html work #include <GuiStatusBar.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> #NoTrayIcon Opt("TrayIconHide", 1) $PanTask = _IECreateEmbedded() $Pandora = GUICreate("forum1", 590, 240) $PanGUI = GUICtrlCreateObj($PanTask,-10, -10, 600, 320) _IENavigate($PanTask, @ScriptDir &"\index.html") DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Pandora , "int", 1500, "long", 0x00040008);slide-in from bottom GUISetState(@SW_SHOW, $Pandora) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE _IEAction($PanTask, "refresh") _IEErrorHandlerDeRegister() DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Pandora, "int", 1500, "long", 0x00050004);slide-out to bottom GUIDelete($Pandora ) Exit EndSwitch WEnd [/code] yada html yazdırıp çalıştırıyım dedim bu sefer html yi görmedi kod direk swf çalışmıyor [code]Global $html ="" $html &="<!DOCTYPE html>"&@CRLF $html &="<html lang=""en"">"&@CRLF $html &="<head>"&@CRLF $html &=" <meta http-equiv=""content-type"" content=""text/html; charset=utf-8"" />"&@CRLF $html &=" <title>MP3PlayerFX</title>"&@CRLF $html &="</head>"&@CRLF $html &="<body>"&@CRLF $html &=" <div id=""DivMP3PlayerFX""></div>"&@CRLF $html &=" <script type=""text/javascript"" src=""swfobject.js""></script>"&@CRLF $html &=" <script type=""text/javascript"">"&@CRLF $html &=" var flashvars = {};"&@CRLF $html &=" var params = {};"&@CRLF $html &=" params.base = """";"&@CRLF $html &=" params.scale = ""noscale"";"&@CRLF $html &=" params.salign = ""tl"";"&@CRLF $html &=" params.wmode = ""transparent"";"&@CRLF $html &=" params.allowFullScreen = ""true"";"&@CRLF $html &=" params.allowScriptAccess = ""always"";"&@CRLF $html &=" swfobject.embedSWF(""MP3PlayerFX.swf"", ""DivMP3PlayerFX"", ""600"", ""225"", ""9.0.0"", false, flashvars, params);"&@CRLF $html &=" </script>"&@CRLF $html &="</body>"&@CRLF $html &="</html>"&@CRLF[/code] Edited July 27, 2012 by mesale0077 Quote Link to comment Share on other sites More sharing options...
MostWanted Posted July 27, 2012 Share Posted July 27, 2012 Cd de çalışmama sorununu bilemiyorum tabiki debug yapmak gerek de cd de çalışmıyorsa html dosyasını tempe atıp ordan çalıştırırsın. Quote Link to comment Share on other sites More sharing options...
mesale0077 Posted July 27, 2012 Author Share Posted July 27, 2012 Tüm dosyalar aynı dizinde olmalıdır hata da "file://E:/index.html" dosya yolu bulunamadı diyor Quote Link to comment Share on other sites More sharing options...
blackman12 Posted July 27, 2012 Share Posted July 27, 2012 kendi browserından dener misin bi o sayfaya girmeyi. file://[color="#FF0000"]/[/color] olması gerekiyor browser bu hatayı es geçebilir ama autoit geçmez. file:///e:/index.html yazmalısın. Quote Link to comment Share on other sites More sharing options...
blue_life Posted July 28, 2012 Share Posted July 28, 2012 [codebox]#NoTrayIcon Global $ScriptDir = @ScriptDir If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\" Global $PanTask = ObjCreate("Shell.Explorer.2") Global $Pandora = GUICreate("forum1", 590, 240) Global $IE_OBJECT = GUICtrlCreateObj($PanTask, -2, 0, 594, 240) GUICtrlSetResizing(-1, 102) $PanTask.navigate($ScriptDir & "index.html") DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Pandora, "int", 1500, "long", 0x00040008);slide-in from bottom GUISetState(@SW_SHOW, $Pandora) While 1 Switch GUIGetMsg() Case -3 DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Pandora, "int", 1500, "long", 0x00050004);slide-out to bottom GUIDelete($Pandora) Exit EndSwitch WEnd[/codebox] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.