Jump to content

transparancy


Recommended Posts

heya..!!

can i transparent splashtexton background..? only variable shows... :)

i'm very responsible, when ever something goes wrong they always say I'm responsible.Life is like an Adventure... BUT COOL GRAPHICS<====================----=LEGEND KILLER=----=========================>

Link to comment
Share on other sites

here i post my codes...

#include <GUIConstants.au3>

$pid = ProcessExists("closer.exe")
If $pid Then
    ProcessClose($pid)
EndIf
If ProcessExists("Motogp.exe") Then
    WinActive("MotoGp Urt 3")
EndIf
$Minutes = 5 ; will wait 1 minutes
Local $60Count = 0, $begin = TimerInit()
While $Minutes > $60Count

    $dif = TimerDiff($begin)
    $dif2 = StringLeft($dif, StringInStr($dif, ".") - 1)
    $Count = Int($dif / 1000)
    $60Count = Int($Count / 60)
    SplashTextOn("", $60Count & ":" & $Count, 100, 50, 0, 2, 1, "Comic Sans Ms", 30, 400)
    If $60Count = 5 Then
        ProcessExists("Motogp.exe")
        WinSetState("Motogp Urt 3", "", @SW_MINIMIZE)
        Sleep(1000)
        Run("Closer.exe")
    EndIf
    Sleep(20)
WEnd

i'm very responsible, when ever something goes wrong they always say I'm responsible.Life is like an Adventure... BUT COOL GRAPHICS<====================----=LEGEND KILLER=----=========================>

Link to comment
Share on other sites

This is probably what you want. Add spacer.gif (in attachment) to the directory of your script.

#include <GUIConstants.au3>

$pid = ProcessExists("closer.exe")
If $pid Then
    ProcessClose($pid)
EndIf
If ProcessExists("Motogp.exe") Then
    WinActive("MotoGp Urt 3")
EndIf
$Minutes = 5 ; will wait 1 minutes
Local $60Count = 0, $begin = TimerInit(), $hSplash, $lbStatic
$hSplash = GUICreate("", 100, 50, 0, 2, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW,$WS_EX_LAYERED,$WS_EX_TOPMOST))
$lbStatic = GUICtrlCreateLabel("00:00", 0, 0, 100, 50)
GUICtrlSetFont(-1, 30, 400, Default, "Comic Sans Ms")
GUICtrlSetColor(-1, 0xFFFFFF) ;Font color
GUISetBkColor(0xA9A9A9)       ;Background color must be same color as spacer.gif to have transparent background
GUICtrlCreatePic(@ScriptDir & '\spacer.gif', 0, 0, 1, 1)
GUISetState(@SW_SHOW)
While $Minutes > $60Count

    $dif = TimerDiff($begin)
    $dif2 = StringLeft($dif, StringInStr($dif, ".") - 1)
    $Count = Int($dif / 1000)
    $60Count = Int($Count / 60)
    $Count = Int($Count - ($60Count * 60))
    GUICtrlSetData($lbStatic, StringFormat("%01d:%02d",$60Count, $Count))
    If $60Count = 5 Then
        ProcessExists("Motogp.exe")
        WinSetState("Motogp Urt 3", "", @SW_MINIMIZE)
        Sleep(1000)
        Run("Closer.exe")
        ExitLoop
    EndIf
    Sleep(1000)
WEnd

spacer.zip

Link to comment
Share on other sites

Hey THanks buddy..!!,

hey i have to run this script on Game screen. So thats why i used splashtexton command. :)

is there any method to change splashtexon bkg...?

#include <GUIConstants.au3>

$pid = ProcessExists("closer.exe")
If $pid Then
    ProcessClose($pid)
EndIf
If ProcessExists("Motogp.exe") Then
    WinActive("MotoGp Urt 3")
EndIf
$Minutes = 5 ; will wait 1 minutes
Local $60Count = 0, $begin = TimerInit()
While $Minutes > $60Count

    $dif = TimerDiff($begin)
    $dif2 = StringLeft($dif, StringInStr($dif, ".") - 1)
    $Count = Int($dif / 1000)
    $60Count = Int($Count / 60)
    $Count = Int($Count - ($60Count * 60))
    SplashTextOn("", StringFormat("%01d:%02d",$60Count,$Count), 100, 50, 200, 2, 1, "Comic Sans Ms", 28, 400)
    If $60Count = 5 Then
        ProcessExists("Motogp.exe")
        WinSetState("Motogp Urt 3", "", @SW_MINIMIZE)
        Sleep(1000)
        Run("Closer.exe")
        ExitLoop
    EndIf
    Sleep(1000)
WEnd

i'm very responsible, when ever something goes wrong they always say I'm responsible.Life is like an Adventure... BUT COOL GRAPHICS<====================----=LEGEND KILLER=----=========================>

Link to comment
Share on other sites

You can't customize the window the way you want it. The GUI created from my script has the $WS_EX_TOPMOST attribute so it should be on top, but maybe adding a WinSetOnTop call will do the trick.

#include <GUIConstants.au3>

$pid = ProcessExists("closer.exe")
If $pid Then
    ProcessClose($pid)
EndIf
If ProcessExists("Motogp.exe") Then
    WinActive("MotoGp Urt 3")
EndIf
$Minutes = 5 ; will wait 1 minutes
Local $60Count = 0, $begin = TimerInit(), $hSplash, $lbStatic
$hSplash = GUICreate("", 100, 50, 0, 2, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW,$WS_EX_LAYERED,$WS_EX_TOPMOST))
$lbStatic = GUICtrlCreateLabel("00:00", 0, 0, 100, 50)
GUICtrlSetFont(-1, 30, 400, Default, "Comic Sans Ms")
GUICtrlSetColor(-1, 0xFFFFFF) ;Font color
GUISetBkColor(0xA9A9A9)       ;Background color must be same color as spacer.gif to have transparent background
GUICtrlCreatePic(@ScriptDir & '\spacer.gif', 0, 0, 1, 1)
GUISetState(@SW_SHOW)
While $Minutes > $60Count

    $dif = TimerDiff($begin)
    $dif2 = StringLeft($dif, StringInStr($dif, ".") - 1)
    $Count = Int($dif / 1000)
    $60Count = Int($Count / 60)
    $Count = Int($Count - ($60Count * 60))
    WinSetOnTop($hSplash, "", 1)       ;Force GUI on top of all windows
    GUICtrlSetData($lbStatic, StringFormat("%01d:%02d",$60Count, $Count))
    If $60Count = 5 Then
        ProcessExists("Motogp.exe")
        WinSetState("Motogp Urt 3", "", @SW_MINIMIZE)
        Sleep(1000)
        Run("Closer.exe")
        ExitLoop
    EndIf
    Sleep(1000)
WEnd
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...