Well, after weeks of hard work.....

Powder81 · April 9, 2005

Finally....

I have finished it.

Now to most of you, it will seem pointless.

I made it for a game i love to play. I hope to add some more features as soon as possible, and am working on them right now.

(To those who do play Runescape, feel free to drop some ideas my way as to new features you would like this to have.)

Hmmm....

Seems i cant upload it, so i will just put it here

Please feel free to let me know what you think.

Also, please no flaming about how useless it is, because someone will like it.

Anyways, enjoy and remember to let me know of any bugs.

Thank you.

w0uter · April 9, 2005

point a the rar archive has an 'unexpected end of archive error'

point b i do not like to press .exe's for al i know ur deleting my C drive

Insolence · April 9, 2005

Please post the source code and an executable

zcoacoaz · April 9, 2005

Also, it is better if you post .zip files because lots of people don't have software for .rar files

Edited April 9, 2005 by Xenogis

Powder81 · April 9, 2005

ok..

point A

i can only make .rar files(dont have zip program, and dont want it)

point B

i would have posted the source, but that would have took up a lot of time. it was much quicker to just compress the program.

point C

if you honestly think i would make a program to swipe your C: drive, then i would appreciate it if you didnt even post here. I am very dissappointed, i would never make a program like that. (honestly im too old and too mature to make something like that.)

point D

i opened the .rar file myself, and even though it says 'unexpeted end of archive file' it still worked.

point E (last but not least)

give me a few minutes, and i will post the source code, now that i have more time.

Thank you all for at least checking it out, or trying to at least.

ok, here is the source code....

1. This is to run the other scripts at the same time.

Run("C:\Program Files\Draco2\Dracomain.exe")
Run("C:\Program Files\Draco2\dracoCTRL.exe")

2. This is the client window( the one you play the game on.)

_AXWindow()
Exit

Func _AXWindow()
;// AutoIt Options
Opt("WinWaitDelay",20); If the value is less, it's more easy to move the window.
Opt("GuiResizeMode",800);

;// Window's settings
$wTITLE="Draco.v2"
$wHEIGHT=600
$wWIDTH=800
$wTITHEIGHT=16
$wColorFont_Title=0xFFFFFF
$wColorBack_Title=0x0BAFEE
$wFont_Title="Arial"
Local $MOVE_MODE=0,$OFFSET
$dll = DLLOpen("cwebpage.dll")

;// Default states
$wStateTop=1;// State by default for window. :: 0 = remove on top flag, 1=set on top flag
$mAnimate=1;// Default state mode for animate 'resizing' the window. :: 0= remove this mode, 1=set this mode on

;// GUI Vars
$WS_EX_STATICEDGE=0x00020000
$WS_EX_CLIENTEDGE=0x00000200
$WS_POPUP=0x80000000
$WS_EX_DLGMODALFRAME=0x00000001
$WS_BORDER=0x00800000
$WS_THICKFRAME=0x00040000

$BS_FLAT=32768
$BS_CENTER  =768
$BS_PUSHLIKE=0x1000

;// Finding default Window's color. Function ::RGB 2 HEX
$rgbComp=StringSplit(StringStripWS(RegRead("HKCU\Control Panel\Colors","ButtonFace"),3),"")
$_hexWinColor=Hex(BitAND($rgbComp[1],255),2)&Hex(BitAND($rgbComp[2],255),2)&Hex(BitAND($rgbComp[3],255),2)

;// >>>==[ WINDOW DEFINITION ]===>>>
If 1 Then; This "IF" only for collapse [+] in the editor (Scite).
$hwnd = GUICreate($wTITLE,$wWIDTH,$wHEIGHT,5,5,$WS_POPUP+$WS_BORDER)
GuiSetIcon('')
GuiSetBkColor(Dec($_hexWinColor))



;// TITLE DEFINITION
GuiSetFont(10,700,0,$wFont_Title)
$wTITLEBorder=GUICtrlCreateLabel(''&$wTITLE,0,0,$wWIDTH-80,$wTITHEIGHT)
GuiCtrlSetResizing($wTITLEBorder,'')
GuiCtrlSetTip($wTITLEBorder,'')
GuiCtrlSetLimit($wTITLEBorder,$wColorFont_Title)
GuiCtrlSetBkColor($wTITLEBorder,$wColorBack_Title)

;// ==> BUTTONS DEFINITION - START
GuiSetFont(9,300,0,'Wingdings')
; ASCII Characters for icons
$charM="y"
$charX="x"

If $wStateTop=0 Then
$chrSTop='m'
Else
$chrSTop='l'
EndIf
$btnTop=GUICtrlCreateButton($chrSTop,$wWIDTH-80,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Always on top')


Global $btnMin=GUICtrlCreateButton('Ú',$wWIDTH-60,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Minimize')


Global $btnCut=GUICtrlCreateButton($charM,$wWIDTH-40,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Cut window')


Global $btnClose=GUICtrlCreateButton($charX,$wWIDTH-20,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Close')


GuiSetFont(9); Font by default


;// <== BUTTONS DEFINITION - END

EndIf
;// <<<==[ WINDOW DEFINITION ]===<<<

DLLCall($dll,"long","EmbedBrowserObject","hwnd",$hwnd)

DLLCall($dll,"long","DisplayHTMLPage","hwnd",$hwnd,"str","http://www.Runescape.com")

GuiSetState(@SW_SHOW)

;// Setting value
WinSetOnTop($wTITLE,"",$wStateTop)

While WinExists($wTITLE)
Sleep(10)

;// MOVE MODE - Title
If $MOVE_MODE Then
$mouse=MouseGetPos()
WinMove($wTITLE,"",$mouse[0]+$x_offset,$mouse[1]+$y_offset)
EndIf

$msg=GuiGetMsg()
Select

Case $msg=$btnClose
Exit

Case $msg=$btnCut
$oWWD=Opt("WinWaitDelay",1)
$wPos=WinGetPos($wTITLE)
If $wPos[3]<>$wTITHEIGHT Then
If $mAnimate=1 Then
For $t=$wHEIGHT to $wTITHEIGHT step-6
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$t-1)
Next
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$wTITHEIGHT)
Else
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$wTITHEIGHT)
EndIf
ControlSetText($wTITLE,'','Button3','p')
ControlFocus($wTITLE,"","Static1"); remove the focus
Else
If $mAnimate=1 Then
For $t=$wTITHEIGHT to $wHEIGHT Step 6
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$t)
Next
Else
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$wHEIGHT)
EndIf
ControlSetText($wTITLE,'','Button3',$charM)
ControlFocus($wTITLE,"","Static1")
EndIf
Opt("WinWaitDelay",$oWWD)
ContinueLoop

Case $msg=$btnTop
If $wStateTop=0 Then
ControlSetText($wTITLE,'','Button1','l')
ControlFocus($wTITLE,"","Static1"); remove the focus
$wStateTop=1
Else
ControlSetText($wTITLE,'','Button1','m')
ControlFocus($wTITLE,"","Static1"); remove the focus
$wStateTop=0
EndIf
WinSetOnTop($wTITLE,"",$wStateTop)

Case $msg=$btnMin
WinSetState($wTITLE,"",@SW_MINIMIZE)



Case $msg=$wTITLEBorder
$MOVE_MODE=Not $MOVE_MODE;toggle mode
;// Calculate relative offset between window and mouse
If $MOVE_MODE Then
$mouse=MouseGetPos()
$window=WinGetPos($wTITLE)
$x_offset=$window[0]-$mouse[0]
$y_offset=$window[1]-$mouse[1]
GuiCtrlSetTip($wTITLEBorder,"Moving...")
GuiCtrlSetLimit($wTITLEBorder,0xFFFFFF)
GuiCtrlSetBkColor($wTITLEBorder,0x000000)
Else
GuiCtrlSetTip($wTITLEBorder,"Move")
GuiCtrlSetLimit($wTITLEBorder,$wColorFont_Title)
GuiCtrlSetBkColor($wTITLEBorder,$wColorBack_Title)
EndIf
EndSelect
Wend



EndFunc

3. This is the control panel gui...

_AXWindow()
Exit

Func _AXWindow()
;// AutoIt Options
Opt("WinWaitDelay",20); If the value is less, it's more easy to move the window.
Opt("GuiResizeMode",800);

;// Window's settings
$wTITLE="D2-Control Panel"
$wHEIGHT=600
$wWIDTH=250
$wTITHEIGHT=16
$wColorFont_Title=0xFFFFFF
$wColorBack_Title=0x0BAFEE
$wFont_Title="Arial"
Local $MOVE_MODE=0,$OFFSET

;// Default states
$wStateTop=1;// State by default for window. :: 0 = remove on top flag, 1=set on top flag
$mAnimate=1;// Default state mode for animate 'resizing' the window. :: 0= remove this mode, 1=set this mode on

;// GUI Vars
$WS_EX_STATICEDGE=0x00020000
$WS_EX_CLIENTEDGE=0x00000200
$WS_POPUP=0x80000000
$WS_EX_DLGMODALFRAME=0x00000001
$WS_BORDER=0x00800000
$WS_THICKFRAME=0x00040000
$BS_FLAT=32768
$BS_CENTER  =768
$BS_PUSHLIKE=0x1000

;// Finding default Window's color. Function ::RGB 2 HEX
$rgbComp=StringSplit(StringStripWS(RegRead("HKCU\Control Panel\Colors","ButtonFace"),3),"")
$_hexWinColor=Hex(BitAND($rgbComp[1],255),2)&Hex(BitAND($rgbComp[2],255),2)&Hex(BitAND($rgbComp[3],255),2)

;// >>>==[ WINDOW DEFINITION ]===>>>
If 1 Then; This "IF" only for collapse [+] in the editor (Scite).
GUICreate($wTITLE,$wWIDTH,$wHEIGHT,808,5,$WS_POPUP+$WS_BORDER)
GuiSetIcon('')
GuiSetBkColor(Dec($_hexWinColor))

;// TITLE DEFINITION
GuiSetFont(10,700,0,$wFont_Title)
$wTITLEBorder=GUICtrlCreateLabel(''&$wTITLE,0,0,$wWIDTH-80,$wTITHEIGHT)
GuiCtrlSetResizing($wTITLEBorder,'')
GuiCtrlSetTip($wTITLEBorder,'')
GuiCtrlSetLimit($wTITLEBorder,$wColorFont_Title)
GuiCtrlSetBkColor($wTITLEBorder,$wColorBack_Title)

;// ==> BUTTONS DEFINITION - START
GuiSetFont(9,300,0,'Wingdings')
; ASCII Characters for icons
$charM="y"
$charX="x"

If $wStateTop=0 Then
$chrSTop='m'
Else
$chrSTop='l'
EndIf
$btnTop=GUICtrlCreateButton($chrSTop,$wWIDTH-80,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Always on top')


Global $btnMin=GUICtrlCreateButton('Ú',$wWIDTH-60,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Minimize')


Global $btnCut=GUICtrlCreateButton($charM,$wWIDTH-40,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Window 2 Bar')


Global $btnClose=GUICtrlCreateButton($charX,$wWIDTH-20,0,20,16,$BS_FLAT)
GuiCtrlSetResizing(-1,'')
GuiCtrlSetTip(-1,'Close')


GuiSetFont(9); Font by default

GuiCtrlCreateTab(0, 25, 250, 600)
GuiCtrlCreateTabItem("Info")
GuiCtrlCreateLabel("", 0, 50,250,600)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("Welcome to the Draco2 Runescape2 Client.", 15, 60,225,100)
GuiCtrlSetColor(-1,0x00ff00)
GuiCtrlCreateLabel("I hope you like what you see.  There are many more features to come, so check out the updates", 15, 170,225,100)
GuiCtrlSetColor(-1,0x00ff00)
GuiCtrlCreateLabel("DracoLabs is currently looking for some coders that would like to join the team. Current language used is 'AU3'.  If anyone would like to join the team or see what other product are coming out then feel free to check out the WebSite @   http://www.draco81.info'", 15, 290,225,150)
GuiCtrlSetColor(-1,0x00ff00)
GuiCtrlCreateLabel("If you would like to check for any updates to your current version of Draco, please click on the updates tab.", 15, 450,225,50)
GuiCtrlSetColor(-1,0x00ff00)

;
GuiCtrlCreateTabItem("DracoMusic")
GuiCtrlCreateLabel("", 0, 50,250,110)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("Tired of the boring RS2 music?", 15, 75)
GuiCtrlSetColor(-1,0x00ff00)
GuiCtrlCreateLabel("Why not listen to Draco's Selection?", 15, 100)
GuiCtrlSetColor(-1,0x00ff00)
;
;List of embedded music.
GuiCtrlCreateGroup("DracoTunes", 5, 160,240,210)
$m1 = GuiCtrlCreateRadio("Mr. Lonely", 15, 175, 150)
$m2 = GuiCtrlCreateRadio("Loddy-Doddy", 15, 200, 150)
$m3 = GuiCtrlCreateRadio("Game Over",15,225,150)
$m4 = GuiCtrlCreateRadio("Stop Music",15,250,150)
$m5 = GuiCtrlCreateRadio("Play Your Own Music",15,275,225)
GUICtrlCreateGroup ("",-99,-99,1,1)
;
GuiCtrlCreateLabel("", 0, 375,250,300)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("More Kick'n DracoTunes to come!!", 15, 450)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlSetColor(-1,0x00ff00)
;
GuiCtrlCreateTabItem("UpDates")
GuiCtrlCreateLabel("", 0, 50,250,300)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("If you would like to check for an update, please click the button below.", 10, 200,250,110)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlSetColor(-1,0x00ff00)
GuiCtrlCreateLabel("", 0, 250,75,550)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("", 175, 250,75,550)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("", 0, 390,250,210)
GuiCtrlSetBkColor(-1,0x000000)

$4 = GuiCtrlCreateButton("Updates?", 87, 360, 75, 20)


;// <== BUTTONS DEFINITION - END

EndIf
;// <<<==[ WINDOW DEFINITION ]===<<<



GuiSetState(@SW_SHOW)

;// Setting value
WinSetOnTop($wTITLE,"",$wStateTop)

While WinExists($wTITLE)
Sleep(10)

;// MOVE MODE - Title
If $MOVE_MODE Then
$mouse=MouseGetPos()
WinMove($wTITLE,"",$mouse[0]+$x_offset,$mouse[1]+$y_offset)
EndIf

$msg=GuiGetMsg()
Select

Case $msg=$btnClose
Exit


        Case $msg = $4
             Run("C:\Program Files\Draco2\updatesDv2.exe")

        Case $msg = $m1
             SoundPlay("C:\Program Files\Draco2\DracoTunes\Akon- Mr Lonely.mp3",0)

        Case $msg = $m2
             SoundPlay("C:\Program Files\Draco2\DracoTunes\Snopp Doggy Dog - Loddy Doddy.mp3",0)

        Case $msg = $m3
             SoundPlay("C:\Program Files\Draco2\DracoTunes\Game Over.mp3",0)

        Case $msg = $m4
             Soundplay("",0)

        Case $msg = $m5
             Run("C:\Program Files\Draco2\DracoMediaPlayer.exe")


Case $msg=$btnCut
$oWWD=Opt("WinWaitDelay",1)
$wPos=WinGetPos($wTITLE)
If $wPos[3]<>$wTITHEIGHT Then
If $mAnimate=1 Then
For $t=$wHEIGHT to $wTITHEIGHT step-6
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$t-1)
Next
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$wTITHEIGHT)
Else
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$wTITHEIGHT)
EndIf
ControlSetText($wTITLE,'','Button3','p')
ControlFocus($wTITLE,"","Static1"); remove the focus
Else
If $mAnimate=1 Then
For $t=$wTITHEIGHT to $wHEIGHT Step 6
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$t)
Next
Else
WinMove($wTITLE,'',$wPos[0],$wPos[1],$wWIDTH,$wHEIGHT)
EndIf
ControlSetText($wTITLE,'','Button3',$charM)
ControlFocus($wTITLE,"","Static1")
EndIf
Opt("WinWaitDelay",$oWWD)
ContinueLoop

Case $msg=$btnTop
If $wStateTop=0 Then
ControlSetText($wTITLE,'','Button1','l')
ControlFocus($wTITLE,"","Static1"); remove the focus
$wStateTop=1
Else
ControlSetText($wTITLE,'','Button1','m')
ControlFocus($wTITLE,"","Static1"); remove the focus
$wStateTop=0
EndIf
WinSetOnTop($wTITLE,"",$wStateTop)

Case $msg=$btnMin
WinSetState($wTITLE,"",@SW_MINIMIZE)



Case $msg=$wTITLEBorder
$MOVE_MODE=Not $MOVE_MODE;toggle mode
;// Calculate relative offset between window and mouse
If $MOVE_MODE Then
$mouse=MouseGetPos()
$window=WinGetPos($wTITLE)
$x_offset=$window[0]-$mouse[0]
$y_offset=$window[1]-$mouse[1]
GuiCtrlSetTip($wTITLEBorder,"Moving...")
GuiCtrlSetLimit($wTITLEBorder,0xFFFFFF)
GuiCtrlSetBkColor($wTITLEBorder,0x000000)
Else
GuiCtrlSetTip($wTITLEBorder,"Move")
GuiCtrlSetLimit($wTITLEBorder,$wColorFont_Title)
GuiCtrlSetBkColor($wTITLEBorder,$wColorBack_Title)
EndIf
EndSelect
Wend
EndFunc

4. This is the update script...

#include "GUIConstants.au3"
#include <Color.au3>

$dll = DLLOpen("cwebpage.dll")

$hwnd = GUICreate("Draco.v2",600,400,0,0,$WS_SIZEBOX+$WS_SYSMENU+$WS_CAPTION)
$pos = WinGetClientSize($hwnd)
GuiCtrlCreateLabel("",0,0,50,400)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("",550,0,50,400)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("",0,0,600,50)
GuiCtrlSetBkColor(-1,0x000000)
GuiCtrlCreateLabel("",0,325,600,75)
GuiCtrlSetBkColor(-1,0x000000)


DLLCall($dll,"long","EmbedBrowserObject","hwnd",$hwnd)

GUISetState()

DLLCall($dll,"long","DisplayHTMLPage","hwnd",$hwnd,"str","http://www.draco81.info/updates1.html")


GUISetState()



While 1
   $msg = GUIGetMsg()

If $msg = -3 Then ExitLoop
   $newpos = WinGetClientSize($hwnd)
   If Not @error And $newpos[0] <> $pos[0] And _
         $newpos[1] <> $pos[1] Then
      $pos = $newpos

      DLLCall($dll,"none","ResizeBrowser","hwnd",$hwnd,"int",$pos[0],"int",$pos[1])
   EndIf
WEnd

5. The music files are too big to post here, so you can just warp the script to play your own files....

6. This is the script for the music player( since you cant play the presets i guess this doesnt really matter.)

; Events and messages
Global Const $GUI_EVENT_CLOSE           = -3
Global Const $GUI_EVENT_MINIMIZE        = -4
Global Const $GUI_EVENT_RESTORE         = -5
Global Const $GUI_EVENT_MAXIMIZE        = -6
Global Const $GUI_EVENT_PRIMARYDOWN     = -7
Global Const $GUI_EVENT_PRIMARYUP       = -8
Global Const $GUI_EVENT_SECONDARYDOWN   = -9
Global Const $GUI_EVENT_SECONDARYUP     = -10
Global Const $GUI_EVENT_MOUSEMOVE       = -11


; State
Global Const $GUI_AVISTOP       = 0
Global Const $GUI_AVISTART      = 1
Global Const $GUI_AVICLOSE      = 2

Global Const $GUI_CHECKED       = 1
Global Const $GUI_INDETERMINATE = 2
Global Const $GUI_UNCHECKED     = 4

Global Const $GUI_ACCEPTFILES   = 8

Global Const $GUI_SHOW          = 16
Global Const $GUI_HIDE          = 32
Global Const $GUI_ENABLE        = 64
Global Const $GUI_DISABLE       = 128

Global Const $GUI_FOCUS         = 256
Global Const $GUI_DEFBUTTON     = 512

Global Const $GUI_EXPAND        = 1024


; Font
Global Const $GUI_FONTITALIC    = 2
Global Const $GUI_FONTUNDER     = 4
Global Const $GUI_FONTSTRIKE    = 8


; Resizing
Global Const $GUI_DOCKAUTO          = 0x0001
Global Const $GUI_DOCKLEFT          = 0x0002
Global Const $GUI_DOCKRIGHT         = 0x0004
Global Const $GUI_DOCKHCENTER       = 0x0008
Global Const $GUI_DOCKTOP           = 0x0020
Global Const $GUI_DOCKBOTTOM        = 0x0040
Global Const $GUI_DOCKVCENTER       = 0x0080
Global Const $GUI_DOCKWIDTH         = 0x0100
Global Const $GUI_DOCKHEIGHT        = 0x0200

Global Const $GUI_DOCKSIZE          = 0x0300; width+height
Global Const $GUI_DOCKMENUBAR       = 0x0220; top+height
Global Const $GUI_DOCKSTATEBAR      = 0x0240; bottom+height
Global Const $GUI_DOCKALL           = 0x0322; left+top+width+height

; Window Styles
Global Const $WS_TILED              = 0
Global Const $WS_OVERLAPPED         = 0
Global Const $WS_MAXIMIZEBOX        = 0x00010000
Global Const $WS_MINIMIZEBOX        = 0x00020000
Global Const $WS_TABSTOP            = 0x00010000
Global Const $WS_GROUP              = 0x00020000
Global Const $WS_SIZEBOX            = 0x00040000
Global Const $WS_THICKFRAME         = 0x00040000
Global Const $WS_SYSMENU            = 0x00080000
Global Const $WS_HSCROLL            = 0x00100000
Global Const $WS_VSCROLL            = 0x00200000
Global Const $WS_DLGFRAME           = 0x00400000
Global Const $WS_BORDER             = 0x00800000
Global Const $WS_CAPTION            = 0x00C00000
Global Const $WS_OVERLAPPEDWINDOW   = 0x00CF0000
Global Const $WS_TILEDWINDOW        = 0x00CF0000
Global Const $WS_MAXIMIZE           = 0x01000000
Global Const $WS_CLIPCHILDREN       = 0x02000000
Global Const $WS_CLIPSIBLINGS       = 0x04000000
Global Const $WS_DISABLED           = 0x08000000
Global Const $WS_VISIBLE            = 0x10000000
Global Const $WS_MINIMIZE           = 0x20000000
Global Const $WS_CHILD              = 0x40000000
Global Const $WS_POPUP              = 0x80000000
Global Const $WS_POPUPWINDOW        = 0x80880000

Global Const $DS_MODALFRAME         = 0x80
Global Const $DS_SETFOREGROUND      = 0x00000200
Global Const $DS_CONTEXTHELP        = 0x00002000

; Window Extended Styles
Global Const $WS_EX_ACCEPTFILES         = 0x00000010
Global Const $WS_EX_APPWINDOW           = 0x00040000
Global Const $WS_EX_CLIENTEDGE          = 0x00000200
Global Const $WS_EX_CONTEXTHELP         = 0x00000400
Global Const $WS_EX_DLGMODALFRAME       = 0x00000001
Global Const $WS_EX_LEFTSCROLLBAR       = 0x00004000
Global Const $WS_EX_OVERLAPPEDWINDOW    = 0x00000300
Global Const $WS_EX_RIGHT               = 0x00001000
Global Const $WS_EX_STATICEDGE          = 0x00020000
Global Const $WS_EX_TOOLWINDOW          = 0x00000080
Global Const $WS_EX_TOPMOST             = 0x00000008
Global Const $WS_EX_TRANSPARENT         = 0x00000020
Global Const $WS_EX_WINDOWEDGE          = 0x00000100
Global Const $WS_EX_LAYERED             = 0x00080000
Global Const $LBS_EX_FULLROWSELECT      = 0x00000020


; Label/Pic/Icon
Global Const $SS_CENTER         = 1
Global Const $SS_RIGHT          = 2
Global Const $SS_ICON           = 3
Global Const $SS_BLACKRECT      = 4
Global Const $SS_GRAYRECT       = 5
Global Const $SS_WHITERECT      = 6
Global Const $SS_BLACKFRAME     = 7
Global Const $SS_GRAYFRAME      = 8
Global Const $SS_WHITEFRAME     = 9
Global Const $SS_SIMPLE         = 11
Global Const $SS_LEFTNOWORDWRAP = 12
Global Const $SS_BITMAP         = 15
Global Const $SS_ETCHEDHORZ     = 16
Global Const $SS_ETCHEDVERT     = 17
Global Const $SS_ETCHEDFRAME    = 18
Global Const $SS_NOPREFIX       = 0x0080
Global Const $SS_NOTIFY         = 0x0100
Global Const $SS_CENTERIMAGE    = 0x0200
Global Const $SS_RIGHTJUST      = 0x0400
Global Const $SS_SUNKEN         = 0x1000


; Button
Global Const $BS_BOTTOM         = 0x0800
Global Const $BS_CENTER         = 0x0300
Global Const $BS_DEFPUSHBUTTON  = 0x0001
Global Const $BS_LEFT           = 0x0100
Global Const $BS_MULTILINE      = 0x2000
Global Const $BS_PUSHBOX        = 0x000A
Global Const $BS_PUSHLIKE       = 0x1000
Global Const $BS_RIGHT          = 0x0200
Global Const $BS_RIGHTBUTTON    = 0x0020
Global Const $BS_TOP            = 0x0400
Global Const $BS_VCENTER        = 0x0C00
Global Const $BS_FLAT           = 0x8000
Global Const $BS_ICON           = 0x0040
Global Const $BS_BITMAP         = 0x0080

; Checkbox
Global Const $BS_3STATE         = 0x0005
Global Const $BS_AUTO3STATE     = 0x0006
Global Const $BS_AUTOCHECKBOX   = 0x0003
Global Const $BS_CHECKBOX       = 0x0002

; Combo
Global Const $CBS_SIMPLE            = 0x0001
Global Const $CBS_DROPDOWN          = 0x0002
Global Const $CBS_DROPDOWNLIST      = 0x0003
Global Const $CBS_AUTOHSCROLL       = 0x0040
Global Const $CBS_OEMCONVERT        = 0x0080
Global Const $CBS_SORT              = 0x0100
Global Const $CBS_NOINTEGRALHEIGHT  = 0x0400
Global Const $CBS_DISABLENOSCROLL   = 0x0800
Global Const $CBS_UPPERCASE         = 0x2000
Global Const $CBS_LOWERCASE         = 0x4000


; Listbox
Global Const $LBS_NOTIFY            = 0x0001
Global Const $LBS_SORT              = 0x0002
Global Const $LBS_USETABSTOPS       = 0x0080
Global Const $LBS_NOINTEGRALHEIGHT  = 0x0100
Global Const $LBS_DISABLENOSCROLL   = 0x1000
Global Const $LBS_NOSEL             = 0x4000
Global Const $LBS_STANDARD          = 0xA00003


; Edit/Input
Global Const $ES_LEFT               = 0
Global Const $ES_CENTER             = 1
Global Const $ES_RIGHT              = 2
Global Const $ES_MULTILINE          = 4
Global Const $ES_UPPERCASE          = 8
Global Const $ES_LOWERCASE          = 16
Global Const $ES_PASSWORD           = 32
Global Const $ES_AUTOVSCROLL        = 64
Global Const $ES_AUTOHSCROLL        = 128
Global Const $ES_NOHIDESEL          = 256
Global Const $ES_OEMCONVERT         = 1024
Global Const $ES_READONLY           = 2048
Global Const $ES_WANTRETURN         = 4096
Global Const $ES_NUMBER             = 8192
;Global Const $ES_DISABLENOSCROLL = 8192
;Global Const $ES_SUNKEN = 16384
;Global Const $ES_VERTICAL = 4194304
;Global Const $ES_SELECTIONBAR = 16777216


; Date
Global Const $DTS_SHORTDATEFORMAT   = 0
Global Const $DTS_UPDOWN            = 1
Global Const $DTS_SHOWNONE          = 2
Global Const $DTS_LONGDATEFORMAT    = 4
Global Const $DTS_TIMEFORMAT        = 9
Global Const $DTS_RIGHTALIGN        = 32

; Progress bar
Global Const $PBS_SMOOTH    = 1
Global Const $PBS_VERTICAL  = 4


; AVI clip
Global Const $ACS_CENTER            = 1
Global Const $ACS_TRANSPARENT       = 2
Global Const $ACS_AUTOPLAY          = 4
Global Const $ACS_TIMER             = 8
Global Const $ACS_NONTRANSPARENT    = 16


; Tab
Global Const $TCS_SCROLLOPPOSITE    = 0x0001
Global Const $TCS_BOTTOM            = 0x0002
Global Const $TCS_RIGHT             = 0x0002
Global Const $TCS_MULTISELECT       = 0x0004
Global Const $TCS_FLATBUTTONS       = 0x0008
Global Const $TCS_FORCEICONLEFT     = 0x0010
Global Const $TCS_FORCELABELLEFT    = 0x0020
Global Const $TCS_HOTTRACK          = 0x0040
Global Const $TCS_VERTICAL          = 0x0080
Global Const $TCS_TABS              = 0x0000
Global Const $TCS_BUTTONS           = 0x0100
Global Const $TCS_SINGLELINE        = 0x0000
Global Const $TCS_MULTILINE         = 0x0200
Global Const $TCS_RIGHTJUSTIFY      = 0x0000
Global Const $TCS_FIXEDWIDTH        = 0x0400
Global Const $TCS_RAGGEDRIGHT       = 0x0800
Global Const $TCS_FOCUSONBUTTONDOWN = 0x1000
Global Const $TCS_OWNERDRAWFIXED    = 0x2000
Global Const $TCS_TOOLTIPS          = 0x4000
Global Const $TCS_FOCUSNEVER        = 0x8000


; TreeView
Global Const $TVS_HASBUTTONS        = 0x0001
Global Const $TVS_HASLINES      = 0x0002
Global Const $TVS_LINESATROOT       = 0x0004
;Global Const $TVS_EDITLABELS     = 0x0008
Global Const $TVS_DISABLEDRAGDROP   = 0x0010
Global Const $TVS_SHOWSELALWAYS     = 0x0020
;Global Const $TVS_RTLREADING    = 0x0040
Global Const $TVS_NOTOOLTIPS        = 0x0080
Global Const $TVS_CHECKBOXES        = 0x0100
Global Const $TVS_TRACKSELECT       = 0x0200
Global Const $TVS_SINGLEEXPAND      = 0x0400
;Global Const $TVS_INFOTIP      = 0x0800
Global Const $TVS_FULLROWSELECT     = 0x1000
Global Const $TVS_NOSCROLL          = 0x2000
Global Const $TVS_NONEVENHEIGHT     = 0x4000

; Slider
Global Const $TBS_AUTOTICKS = 0x0001
Global Const $TBS_VERT      = 0x0002
Global Const $TBS_HORZ      = 0x0000
Global Const $TBS_TOP       = 0x0004
Global Const $TBS_BOTTOM    = 0x0000
Global Const $TBS_LEFT      = 0x0004
Global Const $TBS_RIGHT     = 0x0000
Global Const $TBS_BOTH      = 0x0008
Global Const $TBS_NOTICKS   = 0x0010
Global Const $TBS_NOTHUMB   = 0x0080

; ListView
Global Const $LVS_REPORT            = 0x0001
Global Const $LVS_EDITLABELS        = 0x0200
Global Const $LVS_NOCOLUMNHEADER    = 0x4000
Global Const $LVS_NOSORTHEADER      = 0x8000
Global Const $LVS_SINGLESEL         = 0x0004
Global Const $LVS_SHOWSELALWAYS     = 0x0008

;Updown
Global Const $UDS_WRAP              = 0x0001
Global Const $UDS_ALIGNRIGHT        = 0x0004
Global Const $UDS_ALIGNLEFT         = 0x0008
Global Const $UDS_ARROWKEYS         = 0x0020
Global Const $UDS_HORZ              = 0x0040
Global Const $UDS_NOTHOUSANDS       = 0x0080

; Control default styles
Global Const $GUI_SS_DEFAULT_AVI        = $ACS_TRANSPARENT
Global Const $GUI_SS_DEFAULT_BUTTON     = 0
Global Const $GUI_SS_DEFAULT_CHECKBOX   = 0
Global Const $GUI_SS_DEFAULT_COMBO      = $CBS_DROPDOWN + $CBS_AUTOHSCROLL + $WS_VSCROLL
Global Const $GUI_SS_DEFAULT_DATE       = $DTS_LONGDATEFORMAT
Global Const $GUI_SS_DEFAULT_EDIT       = $ES_WANTRETURN + $WS_VSCROLL + $WS_HSCROLL + $ES_AUTOVSCROLL + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_GROUP      = 0
Global Const $GUI_SS_DEFAULT_ICON       = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_INPUT      = $ES_LEFT + $ES_AUTOHSCROLL
Global Const $GUI_SS_DEFAULT_LABEL      = 0
Global Const $GUI_SS_DEFAULT_LIST       = $LBS_SORT + $WS_BORDER + $WS_VSCROLL + $LBS_NOTIFY
Global Const $GUI_SS_DEFAULT_LISTVIEW   = $LVS_SHOWSELALWAYS + $LVS_SINGLESEL
Global Const $GUI_SS_DEFAULT_PIC        = $SS_NOTIFY
Global Const $GUI_SS_DEFAULT_PROGRESS   = 0
Global Const $GUI_SS_DEFAULT_RADIO      = 0
Global Const $GUI_SS_DEFAULT_SLIDER     = $TBS_AUTOTICKS
Global Const $GUI_SS_DEFAULT_TAB        = 0
Global Const $GUI_SS_DEFAULT_TREEVIEW   = $TVS_HASBUTTONS + $TVS_HASLINES + $TVS_LINESATROOT + $TVS_DISABLEDRAGDROP + $TVS_SHOWSELALWAYS
Global Const $GUI_SS_DEFAULT_UPDOWN     = $UDS_ALIGNRIGHT
Global Const $GUI_SS_DEFAULT_GUI        = $WS_MINIMIZEBOX + $WS_CAPTION + $WS_POPUP + $WS_SYSMENU



Opt("WinTitleMatchMode",2)
Opt("OnExitFunc","_exit")
Opt("GuiOnEventMode",1)
Global $mystatus = "Paused"
Global $pause = 0
Global $wintitle = "none"
$GUI = GuiCreate("DracoPlayer",400,35,350,300,-1)
$PLAY = GUICtrlCreateButton("Play",41,2,40,30)
$PAUSEBUT = GUICtrlCreateButton("Pause",82,2,40,30)
$STOP = GUICtrlCreateButton("Stop",123,2,40,30)
$LOAD = GUICtrlCreateButton("Load",164,2,40,30)
$STATUS = GUICtrlCreateLabel("Status: "&$mystatus&@CRLF,206,0,-1,30)
GuiSetState()
GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit")
GUISetOnEvent($GUI_EVENT_MINIMIZE,"_Minimize")
GUISetOnEvent($GUI_EVENT_RESTORE,"_Restore")
GuiCtrlSetOnEvent($PLAY,"_Play")
GuiCtrlSetOnEvent($STOP,"_Stop")
GuiCtrlSetOnEvent($LOAD,"_Load")
GuiCtrlSetOnEvent($PAUSEBUT,"_Pause")

HotKeySet("^{DEL}","_Exit")
While 1
    $stateplayer = WinGetState("DracoPlayer", "")
    if BitAnd($stateplayer ,8) Then
        $statemovie = WinGetState("VideoVideo", "")
        If BitAnd($statemovie, 16) Then
        WinSetState("VideoMovie","",@SW_RESTORE)
        EndIf
    EndIf
    sleep(50)
Wend

Func mciSendString($string)
   Local $ret
   $ret = DllCall("winmm.dll","int","mciSendString","str",$string,"str","","int",65534,"hwnd",0)
   If Not @error Then Return $ret[2]
EndFunc
Func _Exit()
    mciSendString("Close myvideo")
    Exit
EndFunc

Func _Play()
    $pause = 0
    mciSendString("play myvideo repeat")
    $mystatus = "PLAYING"
    Guictrlsetdata($STATUS,"Status: "&$mystatus&@CRLF)
    WinSetTitle($wintitle,"","VideoMovie")
EndFunc
Func _Stop()
    mciSendString("Stop myvideo")
    mciSendString("seek myvideo to start")
    $mystatus = "STOPPED"
    Guictrlsetdata($STATUS,"Status: "&$mystatus&@CRLF)
EndFunc
Func _Load()
    mciSendString("Close myvideo")
    $file = FileOpenDialog("OPEN","","Video (*.mp3;*.avi;*.mpg)")
    $wintitle = stringsplit($file,"\")
    $wintitle = $wintitle[$wintitle[0]]
    $file = '"'&$file&'"'
    mciSendString("open "&$file&" alias myvideo")
    _Play()
EndFunc
Func _Pause()
    If $pause = 0 Then
        mciSendString("stop myvideo")
        $mystatus = "PAUSED"
        Guictrlsetdata($STATUS,"Status: "&$mystatus&@CRLF)
        $pause = 1
    Else
        _Play()
    EndIf
EndFunc

Func _Minimize()
    WinSetState("VideoMovie","",@SW_MINIMIZE)
EndFunc
Func _Restore()
    WinSetState("VideoMovie","",@SW_RESTORE)
EndFunc

7. now in order for you to actually see the web page, you will need to put the cwebpage.dll in your system 32 folder. I have posted the dll but for those who would not trust me, you can easily do a google for it.

Now in order for you to get this to work right, you will need to read each code, and find out what i have named each, so that the corresponding codes will bring up the correct thing. I would just tell you what to name each code and where to place them, but i figure you can read just as well.

Here is the dll you need.

cwebpage.dll

Edited April 10, 2005 by Powder81

Insolence · April 10, 2005

How can you not have a zip program? It's very common, windows XP can even make .zip files I believe.

Powder81 · April 10, 2005

How can you not have a zip program?
<{POST_SNAPBACK}>

Does it really matter why i dont have one ore use them?

Why doesnt everyone else have a .rar program?

I use that at least 15 times a day.

I just dont think thats an issue...

zcoacoaz · April 10, 2005

Yes, windows xp has .zip built-in so i'm guessing he has 9x which doesn't always come with winzip. It's okay if he doesn't have it though if anyone can't uncompress the files i recommend 7-zip

Ejoc · April 10, 2005

I use 7-Zip also.

Part of the reason some people don't do .rar is because they can auto execute programs in the .rar, thus malicious software can be installed by opening a .rar.

w0uter has a valid point, many people are vary cautious about running random programs if you have no idea what it does. Sure your code may be fine, but its better safe then sorry.

Powder81 · April 10, 2005

Your right ejoc, i never thought about it that way.

I appologize.

August 31, 2005

I just want to get this straight, the only purpose of this script is to play custom music while playing runescape??? I'm sorry if I am mistaken but seeing as how RS is played in a window wouldnt it be easier to minimize and queue up your favorite songs in winamp or mp? I hope im not missing something but this seems like a *nearly* completely useless script.

w0uter · September 1, 2005

AFAIK, yes.

eltorro · September 1, 2005

I use 7zip also, but there are others too like IZarc which is more "Winzipish" and can also extract rars along with others.

P388l3s · September 1, 2005

How about TUGZip that has a clean front-end and does all the major Archive formats, plus it's free.

Also if you read from the top the poster actually said it was a pretty pointless script but was something he wanted to try to get his fingers wet at coding, so in that vein, good job.

P388l3s

EDIT: Fat Fingers strike again!

Edited September 1, 2005 by P388l3s

Gaboury · September 3, 2005

Get Winrar...you can compress .rar and .zip files...by the way I tried that and it works, if you have a .rar file just change the extension to .zip and it works! I don't know why but it works :whistle:

Cheers :dance:

Sign In

Well, after weeks of hard work.....

Recommended Posts

Powder81

w0uter

Insolence

zcoacoaz

Powder81

Insolence

Powder81

zcoacoaz

Ejoc

Powder81

Guest Dfox

w0uter

eltorro

P388l3s

Gaboury

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta