JReinn Posted March 2, 2009 Share Posted March 2, 2009 expandcollapse popup#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### $Form1 = GUICreate("*Random Fraze*", 277, 157, 192, 124) $Button1 = GUICtrlCreateButton("Start", 88, 64, 105, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndIf Case $Button1 While 2 ;Loop Start Run("Notepad.exe") Sleep(1000) $Random = Random(1, 104, 1) Switch $Random Case 1 $nValue = "Football" Case 2 $nValue = "Playstation 3" Case 3 $nValue = "Spiderman" Case 4 $nValue = "Good money guide" Case 5 $nValue = "free wow gold" Case 6 $nValue = "how to get wow gold fast" Case 7 $nValue = "warcraft 3 hacks" Case 8 $nValue = "wow hacks" Case 9 $nValue = "d3scene.com" Case 10 $nValue = "mmowned.com hacks and cheats" Case 11 $nValue = "good ptc site" Case 12 $nValue = "cheap vacations" Case 13 $nValue = "Nba championship" Case 14 $nValue = "funny vidoes" Case 15 $nValue = "funny animals" Case 16 $nValue = "funny clips" Case 17 $nValue = "free music downloads" Case 18 $nValue = "free downloads" Case 19 $nValue = "funny humans" Case 20 $nValue = "trustworthy paying sites" Case 21 $nValue = "game forums" Case 22 $nValue = "hacking forums" Case 23 $nValue = "how to get free money" Case 24 $nValue = "vending machine hacks" Case 25 $nValue = "youtube.com advertising guide" Case 26 $nValue = "youtube.com advertising?" Case 27 $nValue = "google advertising guide" Case 28 $nValue = "warhammer online faq" Case 29 $nValue = "warhammer online pics" Case 30 $nValue = "neobux.com payment proof" Case 31 $nValue = "blacksmithing projects" Case 32 $nValue = "welder info" Case 33 $nValue = "how to be emo" Case 34 $nValue = "how to be gangster" Case 35 $nValue = "myspace advertising" Case 36 $nValue = "money guide" Case 37 $nValue = "how to make batch files" Case 38 $nValue = "batch fil commands" Case 39 $nValue = "colormyprofile" Case 40 $nValue = "alt codes" Case 41 $nValue = "free schoolproject downloads" Case 42 $nValue = "free novel downloads for school" Case 43 $nValue = "drawing forum" Case 44 $nValue = "how to trick the police" Case 45 $nValue = "how to behave against others" Case 46 $nValue = "free hacks and tools for games" Case 47 $nValue = "world clock" Case 48 $nValue = "blackhatforums" Case 49 $nValue = "Nazakada" Case 50 $nValue = "Harry Potter info" Case 51 $nValue = "Hermione" Case 52 $nValue = "Ron - Harry Potter" Case 53 $nValue = "The lord of the rings ebook" Case 54 $nValue = "money making guide ebook" Case 55 $nValue = "how to earn loads of money fast" Case 56 $nValue = "easy paypal money" Case 57 $nValue = "math forms" Case 58 $nValue = "wikipedia.pl" Case 59 $nValue = "marcdk" Case 60 $nValue = "Winner" Case 61 $nValue = "how to train your writing skills" Case 62 $nValue = "welder pictures" Case 63 $nValue = "free movies" Case 64 $nValue = "free music" Case 65 $nValue = "free games download" Case 66 $nValue = "warez forums" Case 67 $nValue = "free gifts" Case 68 $nValue = "free presents" Case 69 $nValue = "dailymotion" Case 70 $nValue = "dailyhaha" Case 71 $nValue = "how to be a good boyfriend" Case 72 $nValue = "Free proxy" Case 73 $nValue = "free proxies" Case 74 $nValue = "good proxy site" Case 75 $nValue = "hidemyass" Case 76 $nValue = "automated youtube accounts" Case 77 $nValue = "programs for youtube views" Case 78 $nValue = "free photoshop torrent" Case 79 $nValue = "Utorrent" Case 80 $nValue = "Download msn messenger" Case 81 $nValue = "newest messenger update" Case 82 $nValue = "free messenger emotions" Case 83 $nValue = "fireproxy server" Case 84 $nValue = "good programming language" Case 85 $nValue = "C++ tuts" Case 86 $nValue = "Asm tuts" Case 87 $nValue = "good tutorials for C++" Case 88 $nValue = "Asm Tutorials (good)" Case 89 $nValue = "download Vb6 studio" Case 90 $nValue = "best warez-site" Case 91 $nValue = "radioblogclub.com" Case 92 $nValue = "How to paint your hair" Case 93 $nValue = "Html tutorial" Case 94 $nValue = "Css Tutorials" Case 95 $nValue = "Counterstrike hacks and cheats" Case 96 $nValue = "wallhack" Case 97 $nValue = "material hack" Case 98 $nValue = "starcraft 2 release" Case 99 $nValue = "warcraft 4 release date" Case 100 $nValue = "Good working proxy list" Case 101 $nValue = "cheap laptops" Case 102 $nValue = "surveys" Case 103 $nValue = "how to setup vbulletin" Case 104 $nValue = "how to setup your own forum" EndSwitch Sleep(1000) Send($nValue) Sleep(100) Send("{Enter}") WEnd ;End Loop EndSwitch WEnd That way it takes one of the 104 random words/frazes. But I would like to ask, if it can take the words from a .txt file. Like you have a file with 100 words, and you would like to use that instead. (So you have like 2 Radio buttons saying: "Use frazes in Bot" & "Use my own frazes", and then you have to search for your file. Any help is appreciated. Thanks. Link to comment Share on other sites More sharing options...
SpookMeister Posted March 2, 2009 Share Posted March 2, 2009 (edited) Make a file of your quotes Football Playstation 3 Spiderman Good money guide ... Then use something like this #include <file.au3> Dim $aRecords, $s_path = "C:\test\phrases.txt" ; stick the file into an array If Not _FileReadToArray($s_path, $aRecords) Then MsgBox(4096, "Error", " Error reading log to Array error:" & @error) Exit EndIf ; Grab a random line whenever you need it $phrase=$aRecords[Random(1, $aRecords[0], 1)] MsgBox(0, "Phrase", $phrase) [edit] to add some comments Edited March 2, 2009 by SpookMeister [u]Helpful tips:[/u]If you want better answers to your questions, take the time to reproduce your issue in a small "stand alone" example script whenever possible. Also, make sure you tell us 1) what you tried, 2) what you expected to happen, and 3) what happened instead.[u]Useful links:[/u]BrettF's update to LxP's "How to AutoIt" pdfValuater's Autoit 1-2-3 Download page for the latest versions of Autoit and SciTE[quote]<glyph> For example - if you came in here asking "how do I use a jackhammer" we might ask "why do you need to use a jackhammer"<glyph> If the answer to the latter question is "to knock my grandmother's head off to let out the evil spirits that gave her cancer", then maybe the problem is actually unrelated to jackhammers[/quote] Link to comment Share on other sites More sharing options...
JReinn Posted March 2, 2009 Author Share Posted March 2, 2009 Make a file of your quotes Then use something like this #include <file.au3> Dim $aRecords, $s_path = "C:\test\phrases.txt" ; stick the file into an array If Not _FileReadToArray($s_path, $aRecords) Then MsgBox(4096, "Error", " Error reading log to Array error:" & @error) Exit EndIf ; Grab a random line whenever you need it $phrase=$aRecords[Random(1, $aRecords[0], 1)] MsgBox(0, "Phrase", $phrase) [edit] to add some commentsWow thanks, fast reply... Just what I needed! Thanks! 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