server banner to script

[cation]

hi guys, i wondering is it anyhow possible to create somekind box where that banner would go

expandcollapse popup

#include 
#include 

Example()

; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
;
; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
Func Example()
Local $oIE, $GUI_Button_Back, $GUI_Button_Forward
Local $GUI_Button_Home, $GUI_Button_Stop, $msg

$oIE = ObjCreate("Shell.Explorer.2")

; Create a simple GUI for our output
GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
GUICtrlCreateObj($oIE, 10, 40, 395, 65)
$GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
$GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
$GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
$GUI_Button_Stop = GUICtrlCreateButton("Stop", 330, 420, 100, 30)

GUISetState() ;Show GUI

$oIE.navigate("http://cache.www.gametracker.com/server_info/63.143.46.162:28951/b_350_20_692108_381007_FFFFFF_000000.png")

; Waiting for user to close the window
While 1
$msg = GUIGetMsg()

Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_Home
$oIE.navigate("http://cache.www.gametracker.com/server_info/63.143.46.162:28951/b_350_20_692108_381007_FFFFFF_000000.png")
Case $msg = $GUI_Button_Back
$oIE.GoBack
Case $msg = $GUI_Button_Forward
$oIE.GoForward
Case $msg = $GUI_Button_Stop
$oIE.Refresh
EndSelect

WEnd

GUIDelete()
EndFunc ;==>Example

if i do that, there will be large white area what i cant take away. i appreciate if someone can help and this wont affent anyhow to game ^^ my apology if there is any thread like this but could find :/

[stormbreaker]

Why don't you download the file with InetGet()? (perhaps to a temporary directory). You could then set it in your GUI.

[cation]

looks like that InetGet() is too hard for me i have used autoit only few months and its not enough long ^^ perhaps you could post some example?

[stormbreaker]

Something like this:

InetGet("<URL HERE>", "<DESTINATION PATH>", 0, 0)

and then you can set the picture (by GuiCtrlCreatePic())

[BrewManNH]

Just a note, the picture being accessed is in the PNG image format, you'll have to look at the example script for GUICtrlCreateImage (3rd example) for a way to use that type of image.

[cation]

isnt it GUICtrlCreatePic? , anyways, thanks MKISH, i get that banner to my desktop, now i have to get that to my script ^^

[BrewManNH]

Sorry, you're right, I mistyped that.

[cation]

again i jammed :/ i cant figure out how i could add that picture to script. here my code

#include 
Global $aTitle[5] = [5, "lol", "lil", "lal", "lel"]
Global $aButton[5]
$form1 = GUICreate("test", 400, 125)
GUICtrlCreateTab(10, 10, 380, 100)

GUISetState(@SW_SHOW)
GUICtrlCreateTab(10, 10, 200, 100)
$tab1 = GUICtrlCreateTabItem("lollil") ; <== changed
$aButton[1] = GUICtrlCreateButton("lol", 20, 50, 50)
$aButton[2] = GUICtrlCreateButton("lil", 20, 75, 50)
GUICtrlCreateTabItem("") ; <== added according to the help file
GUICtrlCreateTabItem("lallel")
$aButton[3] = GUICtrlCreateButton("lal", 20, 50, 50)
$aButton[4] = GUICtrlCreateButton("lel", 20, 75, 50)
GUICtrlCreatePic("C:UsersJarnoDesktoplol.jpg", 20, 20, 350, 50)

GUISetState()
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $aButton[1]
MsgBox(0, "", "lol")
Case $aButton[2]
MsgBox(0, "", "lil")
Case $aButton[3]
MsgBox(0, "", "lal")
Case $aButton[4]
MsgBox(0, "", "lel")
EndSwitch
If $iMsg = $GUI_EVENT_CLOSE Then Exit
WEnd

[BrewManNH]

Try this, it will only work if you have the picture file saved where it tries to read it from.

#include <GUIConstantsEx.au3>
Global $aTitle[5] = [5, "lol", "lil", "lal", "lel"]
Global $aButton[5]
$form1 = GUICreate("test", 400, 125)
GUICtrlCreateTab(10, 10, 380, 100)
GUISetState(@SW_SHOW)
GUICtrlCreateTab(10, 10, 200, 100)
$tab1 = GUICtrlCreateTabItem("lollil") ; <== changed
$aButton[1] = GUICtrlCreateButton("lol", 20, 50, 50)
$aButton[2] = GUICtrlCreateButton("lil", 20, 75, 50)
GUICtrlCreateTabItem("lallel")
$aButton[3] = GUICtrlCreateButton("lal", 20, 50, 50)
$aButton[4] = GUICtrlCreateButton("lel", 20, 75, 50)
GUICtrlCreatePic("C:UsersJarnoDesktoplol.jpg", 70, 40, 300, 50)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateTabItem("") ; <== added according to the help file
GUISetState()
While 1
     $iMsg = GUIGetMsg()
     Switch $iMsg
          Case $aButton[1]
               MsgBox(0, "", "lol")
          Case $aButton[2]
               MsgBox(0, "", "lil")
          Case $aButton[3]
               MsgBox(0, "", "lal")
          Case $aButton[4]
               MsgBox(0, "", "lel")
     EndSwitch
     If $iMsg = $GUI_EVENT_CLOSE Then Exit
WEnd

[cation]

i tried change png to jpg but autoit wont accept that image even if i can view it myself with other program, i checked that 3rd example but i didnt get it how it works

Edited August 9, 2012 by cation

[cation]

i managed to get that png to my script and i figured out how i can move it, but yet i havent figure out how i but it to specific tab that picture, like in tab1 it wont show and in tab2 it will show

code without png thing

#include
#include
#include
#include

Global $aTitle[5] = [5, "lol", "lil", "lal", "lel"]
Global $aButton[5]
$form1 = GUICreate("test", 400, 125)

GUISetState(@SW_SHOW)
GUICtrlCreateTab(10, 10, 2000, 1000)
$tab1 = GUICtrlCreateTabItem("lollil") ; <== changed
$aButton[1] = GUICtrlCreateButton("lol", 20, 50, 50)
$aButton[2] = GUICtrlCreateButton("lil", 20, 75, 50)
GUICtrlCreateTabItem("lallel")
$aButton[3] = GUICtrlCreateButton("lal", 20, 50, 50)
$aButton[4] = GUICtrlCreateButton("lel", 20, 75, 50)
GUICtrlCreatePic("C:UsersJarnoDesktoplol.jpg", 70, 40, 300, 50)
GUICtrlCreateTabItem("") ; <== added according to the help file
GUISetState()
While 1
$iMsg = GUIGetMsg()
Switch $iMsg
Case $aButton[1]
MsgBox(0, "", "lol")
Case $aButton[2]
MsgBox(0, "", "lil")
Case $aButton[3]
MsgBox(0, "", "lal")
Case $aButton[4]
MsgBox(0, "", "lel")
EndSwitch
If $iMsg = $GUI_EVENT_CLOSE Then Exit
WEnd

and this is that png thing

#include
#include
#include

Global $hImage, $hGraphic, $hImage1

; Load PNG image
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("C:UsersJarnoDesktoplol.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($form1)

GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState()


; Clean up resources
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

; Draw PNG image
Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
#forceref $hWnd, $Msg, $wParam, $lParam
_WinAPI_RedrawWindow($form1, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 50, 200)
_WinAPI_RedrawWindow($form1, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc

Edited August 9, 2012 by cation

[cation]

any solutions?

[BrewManNH]

What are you trying to do that isn't working? If you only want the pic on the lallel tab, then it's written correctly, if you want it on both tabs, then you need to have a duplicate line to create the pic in each tab.

[cation]

if i put that png thing to script under GUICtrlCreateTabItem("lallel"), it will show on both tabs :/ and before i posted that, i get png picture to script, now i tried again, i cant get it to script , could you show example how i do it? and also, how i put two png to same script, do i have to do that long script twice if i want two png to script? : O confusing :/

Edited August 9, 2012 by cation

[BrewManNH]

This is how I'd do it using a .JPG file.

; *** Start added by AutoIt3Wrapper ***
#include <GUIConstantsEx.au3>
Global $aTitle[5] = [5, "lol", "lil", "lal", "lel"]
Global $aButton[5]
$form1 = GUICreate("test", 400, 125)
GUISetState(@SW_SHOW)
GUICtrlCreateTab(10, 10, 2000, 1000)
$tab1 = GUICtrlCreateTabItem("lollil") ; <== changed
$aButton[1] = GUICtrlCreateButton("lol", 20, 50, 50)
$aButton[2] = GUICtrlCreateButton("lil", 20, 75, 50)
GUICtrlCreatePic("C:UsersJarnoDesktoplol.jpg", 70, 40, 300, 50)
GUICtrlCreateTabItem("lallel")
$aButton[3] = GUICtrlCreateButton("lal", 20, 50, 50)
$aButton[4] = GUICtrlCreateButton("lel", 20, 75, 50)
GUICtrlCreatePic("C:UsersJarnoDesktoplol.jpg", 70, 40, 300, 50)
GUICtrlCreateTabItem("") ; <== added according to the help file
GUISetState()
While 1
     $iMsg = GUIGetMsg()
     Switch $iMsg
          Case $aButton[1]
               MsgBox(0, "", "lol")
          Case $aButton[2]
               MsgBox(0, "", "lil")
          Case $aButton[3]
               MsgBox(0, "", "lal")
          Case $aButton[4]
               MsgBox(0, "", "lel")
     EndSwitch
     If $iMsg = $GUI_EVENT_CLOSE Then Exit
WEnd

I don't have any experience with using GDI+ so I can't be much help there.

[cation]

damn :/ and i cant change png to jpg without program, so it wont help, that GUICtrlCreatePic , GUICtrlCreateaPic works well but GDI+ is too much for my knowledge

[cation]

i wonder do anyone know how to use gdiplus to get png to script?

[BrewManNH]

In doing some research for a project I'm going to be doing, I came across which may help you do what you're looking for. Specifically, the _SetImage function of it. Yashied did the Icons.au3 UDF, so if it works, send a thanks his way.

[cation]

sry, BrewManNH, could handle it and it looked too messy :/ it might help little bit if you can write little example if you have knowledge for it about that _SetImage

Edited August 11, 2012 by cation

[BrewManNH]

It's one line, _SetImage(<control handle>, <file name>) how hard is that to figure out?