Jump to content

Diablo3 is comming ! :D ScreenSsaver :D

Uriziel01

By Uriziel01
in AutoIt Example Scripts

 Share

Recommended Posts

Uriziel01 Universalist

Uriziel01

Posted
Posted (edited)

Hi! :(

Blizzard has announced new DIABLO muttley Im so crazy happy that I have maded a ScreenSsaver witch Flash animation of Tyrael (from Blizzards main site) and nice music bg in .mp3. You can set the time to start working when IDLE(in seconds!) on the beggining of the script ! ;D Have a nice fun all DiAbLo maniacs ! :)

Posted Image

Download Link:http://www.speedyshare.com/226256456.html

or alternative download:http://rapidshare.de/files/39902208/D3_Ssaver.rar.html</a>

Files contain one .au3 file, one .swf file and one .mp3 file,entire archiwe is about 3MB large !

!!! THIS SOURCE CODE IS USELESS WITHOUT ONE OF FILES FROM LINK ON TOP!!!

BIG THX FOR UDF FOR .SWF FILES USING ! WeaponX and ChrisL !

#cs ----------------------------------------------------------------------------
 AutoIt Version: 3.2.13.3 (beta)
 Author:        Uriziel01
#ce ----------------------------------------------------------------------------
Global $time=300; THIS IS TIME IN SECONDS TO START SSAVER AFTER PC IS IDLE !
#Include <Misc.au3>
#include <Sound.au3>
#include <GUIConstants.au3>
Opt("TrayIconHide", 1)
$dll = DllOpen("user32.dll")
global $started=0,$pos,$pos2
Func ssaver()
    $started=0
    $sound = _SoundOpen(@ScriptDir&"\snd.mp3")
    _SoundPlay($sound)
        $gui=GUICreate("MY SWF SSAVER",@DesktopWidth,@DesktopHeight,-2,-32)
GUISetBkColor("0x000000",$gui)
GUISetState (@SW_SHOW)
_CreateSWF(@ScriptDir&"\diablo.swf", 1, @DesktopHeight/5, @DesktopWidth,@DesktopHeight, "#000000")
While 1
    $pos = MouseGetPos()
    sleep(100)
    $pos2 = MouseGetPos()
    if abs($pos[0]-$pos2[0])>5 then ExitLoop
    if abs($pos[1]-$pos2[1])>5 then ExitLoop
for $i=01 to 165
    if _IsPressed(hex($i,2),$dll) then  ExitLoop
    Next
Wend
guidelete($gui)
_SoundClose($sound)
EndFunc
Do
        $pos = MouseGetPos()
    sleep(50)
    $pos2 = MouseGetPos()
    if $started=0 Then
                $timer=TimerInit()
        $started=1
    endif
        if abs($pos[0]-$pos2[0])>1 then $timer=TimerInit()
    if abs($pos[1]-$pos2[1])>1 then $timer=TimerInit()
        for $i=01 to 165
    if _IsPressed(hex($i,2),$dll) then  $timer=TimerInit()
Next
if TimerDiff($timer)/1000 > $time then
$timer=0
ssaver()
$timer=0
endif
    until 1=2
Func _CreateSWF($SWFPath, $SWFL, $SWFT, $SWFW, $SWFH, $SWFBGColor = "#505050")
    $SWFObj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
    $SWFActiveX = GUICtrlCreateObj( $SWFObj, $SWFL, $SWFT, $SWFW, $SWFH)
    With $SWFObj
        .Movie = $SWFPath
        .ScaleMode = 3 
        .bgcolor = $SWFBGColor
        .Loop = True
        .allowScriptAccess = "Always"
    EndWith
    Return $SWFObj
EndFunc

p.s-all maded in 12 minutes :P

Edited by Uriziel01
HeffeD Adventurer

HeffeD

Posted
Posted
  Uriziel01 said:

I still cannot belive that D3 is already in making muttley

Yeah, but it's going to be a few years before it's released... It hasn't even reached alpha testing stages yet. Merely a very limited demo put together for the announcement. In other words, it has a long way to go.
Synapse Adventurer

Synapse

Posted
Posted

I fixed the height and the width of the gui....it hides the left and bottom lines that were showed muttley anyway nice idea!!

Change the gui H and W into this:

$gui=GUICreate("MY SWF SSAVER",@DesktopWidth+10,@DesktopHeight+32,-10,-32)

  • 1 year later...
gattsu Seeker

gattsu

Posted
Posted

  On 7/5/2008 at 8:28 PM, 'Synapse said:

ur wellcome :D

hello.

about your topic " Diablo3 is comming ! :D ScreenSsaver :D Im so happy that i have maded ScreenSaver :D " i want this files but their it was deleted form the webs

do you can upload it again?

THX

gattsu Seeker

gattsu

Posted
Posted

  On 7/3/2008 at 2:19 PM, 'Uriziel01 said:

Hi! :D

Blizzard has announced new DIABLO :D Im so crazy happy that I have maded a ScreenSsaver witch Flash animation of Tyrael (from Blizzards main site) and nice music bg in .mp3. You can set the time to start working when IDLE(in seconds!) on the beggining of the script ! ;D Have a nice fun all DiAbLo maniacs ! :D

Posted Image

Download Link:http://www.speedyshare.com/226256456.html

or alternative download:http://rapidshare.de/files/39902208/D3_Ssaver.rar.html</a>

Files contain one .au3 file, one .swf file and one .mp3 file,entire archiwe is about 3MB large !

!!! THIS SOURCE CODE IS USELESS WITHOUT ONE OF FILES FROM LINK ON TOP!!!

BIG THX FOR UDF FOR .SWF FILES USING ! WeaponX and ChrisL !

#cs ----------------------------------------------------------------------------
 AutoIt Version: 3.2.13.3 (beta)
 Author:        Uriziel01
#ce ----------------------------------------------------------------------------
Global $time=300; THIS IS TIME IN SECONDS TO START SSAVER AFTER PC IS IDLE !
#Include <Misc.au3>
#include <Sound.au3>
#include <GUIConstants.au3>
Opt("TrayIconHide", 1)
$dll = DllOpen("user32.dll")
global $started=0,$pos,$pos2
Func ssaver()
    $started=0
    $sound = _SoundOpen(@ScriptDir&"\snd.mp3")
    _SoundPlay($sound)
        $gui=GUICreate("MY SWF SSAVER",@DesktopWidth,@DesktopHeight,-2,-32)
GUISetBkColor("0x000000",$gui)
GUISetState (@SW_SHOW)
_CreateSWF(@ScriptDir&"\diablo.swf", 1, @DesktopHeight/5, @DesktopWidth,@DesktopHeight, "#000000")
While 1
    $pos = MouseGetPos()
    sleep(100)
    $pos2 = MouseGetPos()
    if abs($pos[0]-$pos2[0])>5 then ExitLoop
    if abs($pos[1]-$pos2[1])>5 then ExitLoop
for $i=01 to 165
    if _IsPressed(hex($i,2),$dll) then  ExitLoop
    Next
Wend
guidelete($gui)
_SoundClose($sound)
EndFunc
Do
        $pos = MouseGetPos()
    sleep(50)
    $pos2 = MouseGetPos()
    if $started=0 Then
                $timer=TimerInit()
        $started=1
    endif
        if abs($pos[0]-$pos2[0])>1 then $timer=TimerInit()
    if abs($pos[1]-$pos2[1])>1 then $timer=TimerInit()
        for $i=01 to 165
    if _IsPressed(hex($i,2),$dll) then  $timer=TimerInit()
Next
if TimerDiff($timer)/1000 > $time then
$timer=0
ssaver()
$timer=0
endif
    until 1=2
Func _CreateSWF($SWFPath, $SWFL, $SWFT, $SWFW, $SWFH, $SWFBGColor = "#505050")
    $SWFObj = ObjCreate("ShockwaveFlash.ShockwaveFlash")
    $SWFActiveX = GUICtrlCreateObj( $SWFObj, $SWFL, $SWFT, $SWFW, $SWFH)
    With $SWFObj
        .Movie = $SWFPath
        .ScaleMode = 3 
        .bgcolor = $SWFBGColor
        .Loop = True
        .allowScriptAccess = "Always"
    EndWith
    Return $SWFObj
EndFunc

p.s-all maded in 12 minutes :D

hello.

about your topic " Diablo3 is comming ! :ILA2: ScreenSsaver :) Im so happy that i have maded ScreenSaver :D " i want this files but their it was deleted form the webs

do you can upload it again?

THX

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
Go to topic listing

  • Recently Browsing   0 members

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