Jump to content
Sign in to follow this  
JReinn

Random fraze

Recommended Posts

JReinn

#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.

Share this post


Link to post
Share on other sites
SpookMeister

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 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]

Share this post


Link to post
Share on other sites
JReinn

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 comments

Wow thanks, fast reply... Just what I needed! Thanks! :P

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.