Jump to content

WTS

Active Members
  • Posts

    225
  • Joined

  • Last visited

Everything posted by WTS

  1. was this really made in autoit?? i don't see how you added that extra button next to the minimize.. dllcall?? i would prefer source rather than screenshots, kind of a tease that doesn't please... enough. looks good though
  2. |-|EH 7|-|I5 IS -F|_||\|
  3. ??? ??? ??????? ???? ?? ?? ?
  4. nice job.. are you still working on it uten?
  5. i havent defraged my machine in almost 2 months, because i have 12%> free space, and disk defragmentor says i need atleast 15% to properly run, should i defrag anyways? i'm going to remove stuff but need more dvd disks this weekend.. edit: gah! this is the second time i posted in scripts and scraps!
  6. very nice job erifash
  7. froze my system a couple of times.., so it sets the priority of all window processes that are found to realtime, i always thought setting them to normal or lower would make for more speed
  8. ouch.. i have 80 gigs hd with 6 gigs free space..
  9. very nice, i started a ruler project a few months ago this will help alot
  10. I use autoit inconjunction with php for some my pages
  11. awesome magic colors i have a suggestion, instead of reg, maybe use inifile instead?? ;read Dim $Color1, $Color1, $MyIni = 'magiccolors.ini' Global $Color1 = IniRead($MyIni,'Color', 'Color1',$Color1) Global $Color2 = IniRead($MyIni,'Color', 'Color2',$Color1) ;write IniWrite($MyIni,'Color','Color1',$Color1) IniWrite($MyIni,'Color','Color2',$Color2)
  12. post in the wrong forum section?? i would never do that
  13. I generally look for ways around installers , diffenetly my choice is software that doesn't need to be installed.
  14. i've never heard of tail gone crazy but it looks good.
  15. i like it
  16. i saw something that did the same thing which gave me an idea heres a gui. #include <GUIConstants.au3> $Default = ControlgetText( "","Notification Area", "Button1") $Form1 = GUICreate("StartMenu Changer", 321, 143, 192, 125) $Input1 = GUICtrlCreateInput("End", 27, 44, 189, 21, -1, $WS_EX_CLIENTEDGE) $Set = GUICtrlCreateButton("Set startmenu text", 27, 73, 113, 26) GUICtrlCreateLabel("Change Start Menu text", 26, 15, 116, 17) $Reset = GUICtrlCreateButton("Reset", 229, 72, 78, 26) $Random = GUICtrlCreateButton("Random", 147, 73, 78, 26) $RandomText = StringSplit('Dont,OMG!,WTF,End,Hot,Cool,tarts',',') GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Set ControlSetText( "","Notification Area", "Button1", GUICtrlRead($Input1)) Case $msg = $Reset ControlSetText( "","Notification Area", "Button1", $Default) Case $msg = $Random ControlSetText( "","Notification Area", "Button1", $RandomText[Random(1,UBound($RandomText) -1)]) Case Else ;;;;;;; EndSelect WEnd Exit
  17. cool.. but man whats up with all the new constants in the latest beta..
  18. awesome find. [edit]alot of the functions can be done in autoit..
  19. it generates random sayings see also : http://www.autoitscript.com/forum/index.php?showtopic=30412
  20. as i see it Autoit, or programing in general is a work in progress, the developers continue to work on new features, and bug fixes.. it's a never ending battle, i'm soooooo happy the autoit developers are as active as they are.
  21. WTS

    lock

    nothing wrong with learning.. i know how you did it, and probably alot of users can replicate what it does just by your description..
  22. reminds me of one of my very firsts scripts.
  23. it mysteriously disapeared? I think this is it.. WMP.au3 #cs _wmpcreate($show, $left, $top, $width = 100, $height = 100) $show: 1 = shows controls 2 = hides controls Return: The object for the control #ce Func _wmpcreate($show, $left, $top, $width = 100, $height = 100) $oWMP = ObjCreate("WMPlayer.OCX") If $oWMP = 0 Then Return 0 $oWMP.settings.autoStart = "False" If $show = 1 Then GUICtrlCreateObj($oWMP, $left, $top, $width, $height) EndIf Return $oWMP EndFunc #cs _wmploadmedia( $object, $URL, $autostart = 1 ) $object: Object returned from the _wmpcreate() $URL: Path or URL of the media $autostart: 1 = yes 0 = no Return: None #ce Func _wmploadmedia( $object, $URL, $autostart = 1 ) $object.URL = $URL If $autostart = 1 And $object.controls.isAvailable("play") Then $object.controls.play() EndFunc #cs _wmpsetvalue( $object, $setting, $para=1 ) $object: Object returned from the _wmpcreate() $setting: "play" "stop" "pause" "invisible" (Hides all) "control" (Shows controls) "nocontrol" (Hides controls) "fullscreen" "step" (frames to step before freezing) "fastforward" "fastreverse" "volume" (0 To 100) "rate" (-10 To 10) "playcount" Return: None #ce Func _wmpsetvalue( $object, $setting, $para=1 ) Select Case $setting = "play" If $object.controls.isAvailable("play") Then $object.controls.play() Case $setting = "stop" If $object.controls.isAvailable("stop") Then $object.controls.stop() Case $setting = "pause" If $object.controls.isAvailable("pause") Then $object.controls.pause() Case $setting = "invisible" $object.uiMode = "invisible" Case $setting = "controls" $object.uiMode = "mini" Case $setting = "nocontrols" $object.uiMode = "none" Case $setting = "fullscreen" $object.fullscreen = "true" Case $setting = "step" If $object.controls.isAvailable("step") Then $object.controls.step($para) Case $setting = "fastForward" If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward() Case $setting = "fastReverse" If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse() Case $setting = "volume" $object.settings.volume = $para Case $setting = "rate" $object.settings.rate = $para Case $setting = "playcount" $object.settings.playCount = $para EndSelect EndFunc WMP_Example.au3 #include <GUIConstants.au3> #include <wmp.au3> ; == GUI generated with Koda == $Form1 = GUICreate("AForm1", 518, 439, 192, 125) $wmp = _wmpcreate(1, 8, 8, 425, 425);creates object _wmpsetvalue( $wmp, "nocontrols" );hides controls GUISetState(@SW_SHOW) _wmploadmedia( $wmp, @HomeDrive & "\WINDOWS\clock.avi" );loads media ;Sleep(1000) ;_wmpsetvalue( $wmp, "controls" );shows controls While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else ;;;;;;; EndSelect WEnd Exit
×
×
  • Create New...