Jump to content

desaku

Active Members
  • Posts

    34
  • Joined

  • Last visited

About desaku

  • Birthday 09/08/1993

Profile Information

  • Location
    Long Beach, CA

desaku's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. Yes, I know
  2. Gah, Avast! says it's infected ! Man, I would have loved it.
  3. This is godly, I've been looking for something like this. All I have to say is this: While 1 ;; (send hi-five) Wend
  4. OK. I have a bunch of SWF files (in the form of web cartoons) on my hard drive so I made this script. I runs in the directory with the SWF files then spits out an HTML file listing all of them in a current directory. I suppose that you could modify it for other things, but I leave that to you. ;; -------------------------------- ;; SWF Cataloger ;; -------------------------------- ;; ;; Sets things up;; #Include <File.au3> #Include <Array.au3> #include <IE.au3> ;; $swf=_FileListToArray(@ScriptDir, "*.swf", 1) ;; If @Error = 4 Then $r_swf = "No SWFs Found." Else $r_swf = "" EndIf ;; FileDelete(@ScriptDir & "\catalog.html") FileWrite(@ScriptDir & "\catalog.html", @CRLF & '<body>') FileWrite(@ScriptDir & "\catalog.html", @CRLF & '<strong>List of SWF files in ' & @ScriptDir & '</strong>') FileWrite(@ScriptDir & "\catalog.html", @CRLF & '<hr>') FileWrite(@ScriptDir & "\catalog.html", @CRLF & '<table>') ;; if $r_swf = "" Then For $count = $swf[0] to 1 Step -1 FileWrite(@ScriptDir & "\catalog.html", @CRLF & '<li><i>Compiled Flash File (SWF) - </i> ' & '<a href="' & $swf[$count] & '">' & $swf[$count] & '</a></li>') Next Else FileWrite(@ScriptDir & "\catalog.html", @CRLF & '<p>' & $r_swf & '</p>') EndIf ;; FileWrite(@ScriptDir & "\catalog.html", @CRLF & '<hr><br><br><br><br><i>' & 'Genterated by an AutoIt script' & '</i>') _IECreate(@ScriptDir & "\catalog.html") ;;
  5. Great script. Mavis Beacon tips his hat to you.
  6. Thx, uhh... does AutoIT do animated GIFs because I can replace the pic with a happier one if it does (well, I still have to keep the death note theme XD).
  7. I was bored one night and I was done with my Geometry HW so I ask my buddies: "What if there was a Death Note Command Line? " Then we all thought and I made this. Its a little incomplete but its a start XD. I love its wiki command. Also expect some differences between that actual code and the binary. Death Note wiki This was originally meant to teach people (my friends) a "DOS-like" interface while keeping them entertained. Also, I ran this under WINE in Ubuntu and the ENTER key does not work. Here's a screenshot: deathnote_cmd_0.0.0.2.au3 deathnote_cmd_0.0.0.2.exe
  8. Anybody see anything wrong with the "Ramen Timer" code?
  9. AutoIt is great! Especially for people who eat ramen. MsgBox(0+64,"DISCALMER",'Although it says "Ramen Timer", use it for things other than ramen.') GUICreate("Ramen Timer", 400, 300, 200, 100) GUISetState(@SW_SHOW) $timer = GUICtrlCreateLabel(" Ramen Timer",0,0,400,100) GUICtrlSetFont($timer, 36, 450, 2 , "Tahoma") $file = GUICtrlCreateMenu("File") $start = GUICtrlCreateMenuitem("Start! Alt+S",$file) $help = GUICtrlCreateMenu("Help") $about = GUICtrlCreateMenuitem("About...",$help) $exit = GUICtrlCreateMenuitem("Exit! Alt+F4",$file) GUICtrlCreateLabel("Minutes",100,80,100,20) $naka = GUICtrlCreateInput("3",100,100,100,20) GUICtrlCreateUpdown($naka) GUICtrlCreateLabel("Seconds",200,80,100,20) $nuka = GUICtrlCreateInput("0",200,100,100,20) GUICtrlCreateUpdown($nuka) $heading = GUICtrlCreateInput("Note to self...",0, 200, 400, 20) GUICtrlCreateLabel("Input the heading for the reminder.", 0, 175, 400, 20) $message = GUICtrlCreateInput("...check on ramen.",0, 250, 400, 20) GUICtrlCreateLabel("Input the message for the reminder.", 0, 225, 400, 20) $example = GUICtrlCreateButton("Display Message",140 , 135, 100, 25) HotKeySet("!s","start") $naki = GUICtrlRead($naka) $nuki = GUICtrlRead($nuka) Break(0) While 1 $msg = GUIGetMsg() if $msg = $GUI_EVENT_CLOSE Then ExitLoop EndIf if $msg = $start Then $min = GUICtrlRead($naka)*60000 $sec = GUICtrlRead($nuka)*1000 MsgBox(0+64,"Notice","Set timer to: " & $min/60000 & " min." & $sec/1000 & " sec.") GUISetState(@SW_HIDE) Sleep($min + $sec) GUISetState(@SW_SHOW) MsgBox(0+64,GUICtrlRead($heading),GUICtrlRead($message)) EndIf if $msg = $about Then MsgBox(0, "Timer", "Created by David Nuon. (C) 2007") EndIf if $msg = $exit Then ExitLoop EndIf if $msg = $example Then MsgBox(0+64,GUICtrlRead($heading),GUICtrlRead($message)) MsgBox(0+64,"Hey","That is what the reminder will look like") EndIf WEnd GUIDelete() Func start() $min = GUICtrlRead($naka)*60000 $sec = GUICtrlRead($nuka)*1000 MsgBox(0+64,"Notice","Set timer to: " & $min/60000 & " min." & $sec/1000 & " sec.") GUISetState(@SW_HIDE) Sleep($min + $sec) GUISetState(@SW_SHOW) MsgBox(0+64,GUICtrlRead($heading),GUICtrlRead($message)) EndFunc
×
×
  • Create New...