Jump to content

Gabburd

Active Members
  • Posts

    69
  • Joined

  • Last visited

Profile Information

  • Location
    United States

Gabburd's Achievements

Wayfarer

Wayfarer (2/7)

2

Reputation

  1. Try GUICtrlCreateMenu() There's a great example for it in the help file. Edit: Slightly misunderstood your post the first time, try something like this: #include <GUIConstants.au3> GUICreate("AForm1", 180, 115, 197, 115) $filemenu = GUICtrlCreateMenu ("&File") $exititem = GUICtrlCreateMenuitem ("Exit",$filemenu) $Input1 = GUICtrlCreateInput("", 56, 32, 89, 21) $Input2 = GUICtrlCreateInput("", 56, 64, 89, 21) $Name = GUICtrlCreateLabel("&Name:", 16, 32, 39, 17) $Label = GUICtrlCreateLabel("&Label:", 16, 64, 39, 17) HotKeySet( "!n", "SetInputOne" ) HotKeySet( "!l", "SetInputTwo" ) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func SetInputOne() GUICtrlSetState( $Input1, $GUI_FOCUS ) EndFunc Func SetInputTwo() GUICtrlSetState( $Input2, $GUI_FOCUS ) EndFunc
  2. Try this #include <file.au3> _FileCreate("command.fil")
  3. I would suggest reading through the help file to get a broad-brush idea of how stuff works in AutoIt. Hope this helps!
  4. Nice! Hadn't noticed that before.Great idea to use the Ini file!
  5. Very entertaining! Just a thought to make the adding of more words easier, would be to put the following at the top of your script: Global $verbs = "eat|measure|attack|reply to|fire|infuriate|immobilize|rip|dry|call|" & _ "run over|curse|break|smash|kiss|play with|plug in|paint|enlighten|burn|" & _ "jump over|check on|catch|throw|wax|fix|avoid|smack|find|invest in|" & _ "discuss|talk to|ignite|scold|congratulate|insult|study|ignore|elaborate on|sit on|" & _ "feed|salt|fry|simplify|delete|bake|pay for|entertain|medicate|move|" & _ "compute|destroy|discover|heat|freeze|liquify|shred|turn on|scratch|throw away|" & _ "conquer|run over|blow up|banish|water|sharpen|perfect|argue with|cut off|pickle|" & _ "tickle|sedate|KILL|annoy|redesign|design|brainstorm with|euthanize|maim|gouge|" & _ "dine with|color|poke|solidify|evaporate|decorate|race|hypnotize|lie to|stare at|" & _ "employ|sniff|barbecue|tilt|steady|knock out|hide|cover up|stretch|fight" Global $adjects = "rusty|crusty|crazy|angry|entertaining|hot|mad|dying|criminal|deadly|" & _ "broken|lost|metalic|sharp|blue|frozen|telepathic|run-away|educational|scientific|" & _ "perfect|imperfect|odd looking|smelly|cute|simple|sharp|superior|heavy|odd|" & _ "fluffy|pointless|yellow|green|red|purple|sad|compressed|square|round|" & _ "evaporating|artistic|thin|thick|tall|short|miniature|pathetic|strict|titanium|" & _ "stupid|2 year old|squeaking|spinning|radioactive|adorable|darkly anticipated|edible|56 year old|newborn|" & _ "oddly colored|stuffed|fake|rad|realistic|stationary|spherical|cubic|sensitive|infuriated|" & _ "intricate|mental|quarterback|loud|quiet|genius|thoughtful|thoughtless|clueless|cheerful|" & _ "depressed|hysterical|sorcerous|accursed|pickled|nondescript|intriguing|opinionated|political|" & _ "Canadian|intimidating|Puerto Rican|feline|painted|inferior|hypnotized|sick|healthy|immortal|unfortunate" Global $nouns = "chili|grandma|arm|computer|keyboard|grandpa|cracker|soup|TV|cat|" & _ "lamp|light|table|dad|mom|brother|sister|shoe|door|telephone|" & _ "aunt|uncle|shark|lake|nuclear missle|candlestick|beached whale|wife|juice box|bunny|" & _ "wall|perfume|Coca-cola|pepsi|soda|pencil|doughnut|Duct Tape|floppy disk|cd|" & _ "dollar bill|paper|printer|mouse pad|rat|flowers|trash can|light bulb|pair of scissors|recipies|" & _ "poo poo|wireless modem|microphone|spatula|milkshake|empire|Kit Kat bar|popsicle|left ear|colon|" & _ "peanut butter|hammock|pillow|house|iPod|lava lamp|magician|butler|statue|dictionary|" & _ "ceiling fan|hard drive|finger|modem|pinto bean|sofa|submarine|camera|elephant|bagel|" & _ "dolphin|pickles|pig|toe|pinky finger|football|notebook|binder|burger|fries|" & _ "milk|pie|blanket|tooth|paintbrush|tongue|flag|Mountain Dew|napkin|VCR" $verbs = StringSplit($verbs, "|") $adjects = StringSplit($adjects, "|") $nouns = StringSplit($nouns, "|")oÝ÷ Ø Ý¶§­êeiDz¢êëjwh,Þ~éܶ*'Â+ajëh×6Func randomize($type) If $type = "v" Then Return $verbs[Random(1, $verbs[0], 1) ] ElseIf $type = "adj" Then Return $adjects[Random(1, $adjects[0], 1) ] ElseIf $type = "n" Then Return $nouns[Random(1, $nouns[0], 1) ] Else Return "{ERROR: Invalid argument passed to function}" EndIf EndFunc ;==>randomize
  6. For associating your file with a file type try this function. http://www.autoitscript.com/forum/index.ph...st&p=211980 The paths of any files opened will be listed in the $Cmdline array.
  7. _StringBetween() returns an array, not a string. Try this: #include <INet.au3> #include<String.au3> #include <Array.au3> $userid = "tom" $profile = 'www.myspace.com/' & $userid $values = _StringBetween(_INetGetSource($profile), 'friendid=', '" id=') _ArrayDisplay( $values, "$values" )
  8. Oops, I didn't catch that the first time. Yes you need to use: Send("{CTRLDOWN}") Send("{CTRLUP}")
  9. Here's what you were looking for: http://www.autoitscript.com/forum/index.ph...=0&p=119090
  10. You could do this numerous ways, here's one example which executes the script twice: For $i = 1 To 2 Send("^{down}") Sleep(300000) Send("^{up}") Send("{z down}") Sleep(150000) Send("{z up}") Next
  11. Such as this: http://www.autoit.es/
  12. Try using the 'net share' command in cmd. For example: #include <Process.au3> _RunDos('net share c$ /Delete') ;This will remove the share if it exists _RunDos('net share c$=c:') ;This will make the share if it does not existoÝ÷ ØêÚºÚ"µÍÚ[ÛYH ÔØÙÜË]LÉÝÂ[ÚQ]J ÌÎNÐÉÌÎNÊBÙÐÞ ÌÎNÉÌÎNË ÌÎNÕHÈ]HÈÝÚY ÌÎNÊBÚQ]J ÌÎNÐÉÌÎNÊBÙÐÞ ÌÎNÉÌÎNË ÌÎNÕHÈ]HÈÚY ÌÎNÊB[ÈÚQ]J ÌÍÓ]BWÔ[ÜÊ ÌÎNÛ]ÚH ÌÎNÈ [È ÌÍÓ] [È ÌÎNÉÌÍÏIÌÎNÈ [È ÌÍÓ] [È ÌÎNÎÌÎNÊB[[Â[È[ÚQ]J ÌÍÓ]BWÔ[ÜÊ ÌÎNÛ]ÚH ÌÎNÈ [È ÌÍÓ] [È ÌÎNÉÌÍÈÑ[]IÌÎNÊB[[
  13. Try looking at the UBound function, UBound($matches) should work nicely.
  14. Try this: #include <file.au3> $oracle_folder = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\oratemp" IF NOT FileExists($oracle_folder) THEN DirCreate($oracle_folder) $ora = "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme" $FoldersToMove = "Oracle*" $FolderArray = _FileListToArray( $ora, $FoldersToMove, 2) For $i = 1 To $FolderArray[0] DirMove($ora & "\" & $FolderArray[$i], $oracle_folder & "\" & $FolderArray[$i], 1) Next
  15. Take a look here: http://www.autoitscript.com/forum/index.php?showtopic=23111
×
×
  • Create New...