emoyasha Posted January 25, 2008 Share Posted January 25, 2008 (edited) okay i want to shake a chat window kind of like a nudge effect on msn here is my code expandcollapse popup$sText = '<font face="Verdana" size=-1>' & StringReplace($sText, "::ScriptDir::", @ScriptDir) For $r = 0 To $MaxChildWindow - 1 If $ChildConversation[$r] = $sUsername Then $Read = _IEBodyReadHTML($ChildShowText[$r]) If $Read == 0 Then $Read = "" EndIf _IEBodyWriteHTML($ChildShowText[$r], $Read & $sText) $iDocHeight = $ChildShowText[$r].document.body.scrollHeight $ChildShowText[$r].document.parentwindow.scrollTo (0, $iDocHeight) If Not WinActive($ChildWindow[$r]) Then WinFlash($ChildWindow[$r], "", 2, 250) soundplay ("type.wma") Switch $sText Case '/Nudge' soundplay ("nudge.wma") winactivate($ChildWindow[$r]) $hwnd = wingethandle($ChildWindow[$r]) GUISetStyle ($DS_SETFOREGROUND, -1, $hwnd) $title = $ChildWindow[$r] $x=0 do $x = 1 + $X WinMove ( $title, "", 0, 1 ) WinMove ( $title, "", 3, 5 ) WinMove ( $title, "", 1, 1 ) WinMove ( $title, "", 10, 20 ) WinMove ( $title, "", 5, 1 ) WinMove ( $title, "", 0, 2 ) WinMove ( $title, "", 60, 5 ) WinMove ( $title, "", 0, 0 ) until $X = 10 EndSwitch EndIf ExitLoop ElseIf $r = $MaxChildWindow - 1 Then StartConversation($sUsername) $q = @extended _IEBodyWriteHTML($ChildShowText[$q], $sText & "<br>") If Not WinActive($ChildWindow[$q]) Then WinFlash($ChildWindow[$q], "", 2, 250) soundplay ("type.wma") Switch $sText Case '/Nudge' soundplay ("nudge.wma") winactivate($ChildWindow[$q]) $hwnd = wingethandle($ChildWindow[$q]) GUISetStyle ($DS_SETFOREGROUND, -1, $hwnd) $title = $ChildWindow[$q] $x=0 do $x = 1 + $X WinMove ( $title, "", 0, 1 ) WinMove ( $title, "", 3, 5 ) WinMove ( $title, "", 1, 1 ) WinMove ( $title, "", 10, 20 ) WinMove ( $title, "", 5, 1 ) WinMove ( $title, "", 0, 2 ) WinMove ( $title, "", 60, 5 ) WinMove ( $title, "", 0, 0 ) until $X = 10 EndSwitch it wont work the window dosent move... so what do i do? Edited January 25, 2008 by emoyasha Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
BrettF Posted January 25, 2008 Share Posted January 25, 2008 $GUI = GUICreate ("", 200, 200) GUISetState (@SW_SHOW) $Win = WinGetPos ($GUI) For $i = 1 to 10 WinMove ($GUI, "", $Win[0] + 10, $win[1]) Sleep (10) WinMove ($GUI, "", $Win[0], $win[1] + 10) Sleep (10) WinMove ($GUI, "", $Win[0] - 10, $win[1]) Sleep (10) WinMove ($GUI, "", $Win[0], $win[1] - 10) Sleep (10) WinMove ($GUI, "", $Win[0], $win[1]) Next Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
Fossil Rock Posted January 25, 2008 Share Posted January 25, 2008 I think it's called shaken baby window syndrome (SBWS). Isn't this considered child window abuse? Shouldn't it be reported? Agreement is not necessary - thinking for one's self is! Link to comment Share on other sites More sharing options...
BrettF Posted January 25, 2008 Share Posted January 25, 2008 (edited) Aye. You should. And talking of shaking, aparently the shaky camera work in Cloverfield was causing people to get motion sickness... Edited January 25, 2008 by Bert Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
emoyasha Posted January 26, 2008 Author Share Posted January 26, 2008 will try soon Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
BrettF Posted January 26, 2008 Share Posted January 26, 2008 _WinAPI_FlashWindow Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
emoyasha Posted January 26, 2008 Author Share Posted January 26, 2008 it dosent seem to work, is there a way to do it using the title like this $sUsername & " - Conversation" Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
emoyasha Posted January 26, 2008 Author Share Posted January 26, 2008 h-e-l-l-o? Spoiler Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)----------------------------------- Link to comment Share on other sites More sharing options...
BrettF Posted January 26, 2008 Share Posted January 26, 2008 h-e-l-l-o?Yes? I was out. Funnily enough its Australia Day here... And i was out having a good time. >_>. Aussie Aussie Aussie! *falls over from being drunk* What doesnt work? Look at opt in the help file or Window Titles and Text (Advanced) under Usage. An example for _WinAPI_FlashWindow and _WinAPI_FlashWindowEx: _WinAPI_FlashWindow: #AutoIt3Wrapper_au3check_parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 ; _Win_API Examples ; Function: _WinApi_FlashWindow #include <WinAPI.au3> #include <GUIConstants.au3> Opt('MustDeclareVars', 1) Example_Internal() Func Example_Internal() Local $hwnd, $msg, $btnFlash $hwnd = GUICreate("__WinAPI_FlashWindow Example", 200, 200) $btnFlash = GUICtrlCreateButton("Flash Window", 50, 85, 100, 30) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit Case $msg = $btnFlash GUISetState(@SW_MINIMIZE) Sleep(1000) _WinAPI_FlashWindow($hwnd) Sleep(6000) EndSelect WEnd EndFunc ;==>Example_Internal _WinAPI_FlashWindowEx: expandcollapse popup#AutoIt3Wrapper_au3check_parameters= -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 ; _Win_API Examples ; Function: _WinApi_FlashWindowEx #include <WinAPI.au3> #include <GUIConstants.au3> Opt('MustDeclareVars', 1) Example_Internal() Func Example_Internal() Local $hwnd, $Flash, $Timeout, $btnFlash, $msg, $flashrate, $timeoutrate, $flashing = False $hwnd = GUICreate("Form1", 229, 170, 193, 125) $Flash = GUICtrlCreateInput("20", 80, 72, 121, 21) $Timeout = GUICtrlCreateInput("500", 80, 103, 121, 21) GUICtrlCreateLabel("Please input the flash rate, and the time between flashes", 8, 24, 214, 41) GUICtrlCreateLabel("Flash Rate:", 16, 72, 58, 17) GUICtrlCreateLabel("Timeout (ms)", 16, 104, 64, 17) $btnFlash = GUICtrlCreateButton("Flash Window", 80, 136, 75, 25, 0) GUISetState(@SW_SHOW) #endregion While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit Case $btnFlash If $flashing Then _WinAPI_FlashWindowEx($hwnd, 0) $flashing = False Else $flashrate = GUICtrlRead($Flash) $timeoutrate = GUICtrlRead($Timeout) _WinAPI_FlashWindowEx($hwnd, 2, $flashrate, $timeoutrate) GUICtrlSetData($btnFlash, "Stop Flashing") $flashing = True EndIf EndSwitch WEnd EndFunc ;==>Example_Internal Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now