Jump to content

Best Script Ever!


Ejoc
 Share

Recommended Posts

This has to be the best AutoIt script EVER!!!!!

Enjoy:

$szFunc = ""
$szFile = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
if $szFile <> "" Then
    Run(@ComSpec & ' /c START "" "' & $szFile & '\AutoIt.chm"',"",@SW_HIDE)
    WinWait("AutoIt Help")
    Send("!n" & $szFunc & "{ENTER}")
Else
    Run(@Comspec & ' /c START http://www.autoitscript.com/autoit3/downloads.php',"",@SW_HIDE)
Endif

I also made a "lite" version:

$szFunc = ""
$szFile = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
if $szFile <> "" Then
    Run(@ComSpec & ' /c START "" "' & $szFile & '\AutoIt.chm"',"",@SW_HIDE)
    WinWait("AutoIt Help")
    Send("!n" & $szFunc & "{ENTER}")
Endif

*EDIT added Xenogis' modification and gafrost's

Edited by Ejoc
Start -> Programs -> AutoIt v3 -> AutoIt Help File -> Index -> (The Function you are asking about)----- Links -----DllStruct UDFsRSA Crypto UDFs
Link to comment
Share on other sites

Now when a newb posts we can say "Run this script"

edit:

Slightly better

$szFunc = ""
$szFile = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
if $szFile = "" Then
    MsgBox(0,"No Autoit","Is AutoIt installed?")
    exit
Endif

Run(@ComSpec & ' /c START "" "' & $szFile & '\AutoIt.chm"',"",@SW_HIDE)
WinWait("AutoIt Help")
WinActivate ( "AutoIt Help" )
Send("!n")
Send($szFunc&"{enter}")
Edited by Xenogis

[font="Times"] If anyone remembers me, I am back. Maybe to stay, maybe not.----------------------------------------------------------------------------------------------------------[/font][font="Times"]Things I am proud of: Pong! in AutoIt | SearchbarMy website: F.R.I.E.S.A little website that is trying to get started: http://thepiratelounge.net/ (not mine)[/font][font="Times"] ----------------------------------------------------------------------------------------------------------[/font][font="Arial"]The newbies need to stop stealing avatars!!! It is confusing!![/font]

Link to comment
Share on other sites

Not just my best script, it's THE best script ever  :D

<{POST_SNAPBACK}>

If the noob does not have Autoit installed. How can they run the script, and to have it send them to the download site, to download AutoIt? :)

:D Hello!!!

Link to comment
Share on other sites

It opens the help file to a certain function. The opening a browser to dl it is a secondary feature. If you install AutoIt via .zip and not the .exe it would open the browser :)

That way when noob #874635 asks how do I send text to a window you can just hit them with a script, something they'll run vs. RTFM which they get pissy at :D

$szFunc = "ControlSend"
$szFile = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
if $szFile <> "" Then
    Run(@ComSpec & ' /c START "" "' & $szFile & '\AutoIt.chm"',"",@SW_HIDE)
    WinWait("AutoIt Help")
    Send("!n" & $szFunc & "{ENTER}")
Else
    Run(@Comspec & ' /c START http://www.autoitscript.com/autoit3/downloads.php',"",@SW_HIDE)
Endif
Edited by Ejoc
Start -> Programs -> AutoIt v3 -> AutoIt Help File -> Index -> (The Function you are asking about)----- Links -----DllStruct UDFsRSA Crypto UDFs
Link to comment
Share on other sites

So someone has a zip version, and you send them to Autoit downloads, to perhaps download the installer version, so it can be installed. So the script can read the new registry key, set by the installer, then it will open the helpfile, as in the script?

Am I correct, with this knowledge?

I am not sure if a noob, will understand any of this?

Edit: Why does the script, send them to Autoit downloads, when they already have the Autoit files and the helpfile already.

Edited by MHz
Link to comment
Share on other sites

They dont need to understand it at all. Chances are they installed AutoIt w/ the .exe, which means it will open the help file 99% of the time, going to the dl page will only happen like 1% of the time.

What happens when you run the script, chances are it will open your autoit help file to ControlSend (thats what this script will do 99% of the time) Thats what this script does, you are focusing on something that will almost never happen. If you prefer focus on the "lite" version

$szFunc = "ControlSend"
$szFile = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
if $szFile <> "" Then
    Run(@ComSpec & ' /c START "" "' & $szFile & '\AutoIt.chm"',"",@SW_HIDE)
    WinWait("AutoIt Help")
    Send("!n" & $szFunc & "{ENTER}")
Endif
Start -> Programs -> AutoIt v3 -> AutoIt Help File -> Index -> (The Function you are asking about)----- Links -----DllStruct UDFsRSA Crypto UDFs
Link to comment
Share on other sites

  • 3 weeks later...

This has to be the best AutoIt script EVER!!!!!

Enjoy:

$szFunc = ""
$szFile = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
if $szFile <> "" Then
    Run(@ComSpec & ' /c START "" "' & $szFile & '\AutoIt.chm"',"",@SW_HIDE)
    WinWait("AutoIt Help")
    Send("!n" & $szFunc & "{ENTER}")
Else
    Run(@Comspec & ' /c START http://www.autoitscript.com/autoit3/downloads.php',"",@SW_HIDE)
Endif

I also made a "lite" version:

$szFunc = ""
$szFile = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
if $szFile <> "" Then
    Run(@ComSpec & ' /c START "" "' & $szFile & '\AutoIt.chm"',"",@SW_HIDE)
    WinWait("AutoIt Help")
    Send("!n" & $szFunc & "{ENTER}")
Endif

*EDIT added Xenogis' modification and gafrost's

<{POST_SNAPBACK}>

:(

Here is the start of my most best script ever....

Dim $scvgdsadEDEssddfzDSCSDCDSBrainsize= ""

Dim $zzDDFcdsdgfssesddgesgghfrsdsHEADsize= "XXXXXXXXXLarge"

Dim $XXddkeksdjgkdjeskerjfksdjfjekDoorSise= "Toosmall"

Dim $dkfjekskeksjadjfkdfejkjerkejreHELP= "Jerry@carpentersrus.com"

If $zzDDFcdsdgfssesddgesgghfrsdsHEADsize >= "XXXXXXXXXXLarge" Then _Help()

Func _Help()

#include <INet.au3>

$s_MailTo=$dkfjekskeksjadjfkdfejkjerkejreHELP

$s_MailSubject="Help, I can't go home."

$s_MailBody="Please come and make my door bigger again"

_INetMail($s_MailTo, $s_MailSubject, $s_MailBody)

WinWaitActive("Mail To:")

If WinExists("Mail To:") Then

Sleep(5000)

Send("!+D")

EndIf

WinWaitActive("Signature")

If WinActive("Signature") Then

Send("O")

EndIf

EndFunc

Now thats funny, Hope you can take a joke, remember you were a newb once.

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...