Sign in to follow this  
Followers 0
jojosgotmojo

Loop alternative!

23 posts in this topic

Ok so i wanted to play a little practical joke on my friend but while forming the script i came across a little problem

; Prompt the user to run the script - use a Yes/No prompt (4 - see help file)
$answer = MsgBox(4, "Windows Uninstallation", "Uninstall Windows and all components?")


; Check the user's answer to the prompt (see the help file for MsgBox return values)
; If "No" was clicked (7) Loop msgbox
If $answer = 7 Then
    Dim $count = 0
    Do
        MsgBox(4, "Windows Uninstallation", "Uninstall Windows and all components?")
        $count += 1
        Until $count =1000
Endif

Ok what happens here is if you answer it with no it will loop the box like it says but if you press No then yes it will keep repeating the loop and i don't want that to happen. I want it to stop the loop and open up a box with a loading bar type thing and a line of txt saying "Erasing Hard Drive pleas wait..."

Then from there i can make my own way of putting up a box saying Jokes and stuff but could someone please help me out with the whole stopping the loop and making the box with loading thingy? thanks

P.S thanks to Jonathan Bennett for the basic structure of this loop.

Share this post


Link to post
Share on other sites



Hi jojosgotmojo,

1st Welcome to the AutoIt Forums! :idiot:

Some of the following tips may not apply to you, but it may make your life a bit easier here on the forum in the future.

CODE
  • Did you know that we have an awesome search feature?

    You can find many answers to your current questions, just by typing in the right search patterns.

  • A suggestion is to use the Advanced Search mode:

  • Type your specific search term in quotes.
  • Click the forum you want to search in (the one most likely to have your information would generally be the Example Script forum and or the General Help and Support Forum).
  • Click on "Search titles only" radio button.
  • Click perform search.
The above will help you narrow down your searches and prevent you from unneccesarily posting a new thread.

[*]Also, you should try to read the Sticky posts that are at the top of each of the AutoIt Forums you enter such as:

[*]Keep in mind, the help file will be your best friend, however you may find some of the tutorials written by some of our elite forum members helpful.

[*]Forum Etiquette:

  • Making a new thread:

    • Use the Search feature first to see if your question has already been answered.
    • Look in the help file as well before even thinking of posting (When what you want could be obtained by simply reading the help file, you don't generally get a good response from your AutoIt community).
    • Titles are very important here. 1 word titles or titles like "help me", "write something for me", "I'm a noob" etc... aren't tolerated.
    • Use common sense when creating a new thread.

      Ask yourself if the title is descriptive enough to even interest someone (preferably those that know what they are talking about) to even look at your thread, let alone reply in it.

    • Think about how it would show in the search feature if someone were to look for something just like you are looking for (think of the keywords you used yourself and obviously didn't find anything (because we know you used the search feature :) ) and use those types of keywords in your title as well).
  • Thread content:

    • Be descriptive with your query. (Make sure we actually know what you want to do).
    • Show you've made an effort in coding what you want (provide the reproducer code (generally no more than 50 lines as people lose interest in debugging someones script for free)).
    • Don't talk in ebonics. A lot of the forum members are adults, and a lot of them know how to help you, but talk like a child, you'll be treated as such.
    • Don't ask for help making keyloggers, spam (even if it's to do as a prank), or anything that can be thought of as malicious. You'll more than likely have the thread locked by a moderator, and take a bashing from your fellow AutoIt community.
    • When posting code, use code boxes. This can be accomplished by using [code ]<content here>[/code ] (No spaces between the brackets []).

      Using code boxes will keep the indentation and make it easier to read for others to help you.

  • Bumping your threads:

    • Use common courtesy here.

      Keep in mind every time you bump your thread to the top of the forum, you knock the other threads down a notch.

      Everyone posting for help has just as much right for their threads to get read as you do.

      Because of that, do not bump your post more than once in a 24 hour period.

      A Bump is simply posting in your thread with nothing that pertains to your query with the sole purpose of moving it up.

      Deleting previous bumps, and posting new ones is not tolerated, and the moderators can find those deletions, so do yourself a favor and don't cross that line >_< .

  • Rude or obnoxious content:

    This falls pretty much under the common sense thing. If you use it (common sense) before posting, you won't have issues.

    • Don't use foul language, remember, a lot of the community is at work when they read these threads.
    • Don't provoke or instigate an argument with someone.
  • Double Posting:

    • It's understood that sometimes there's a lag in the system, and sometimes people don't see their post go up right aways so they post again.

      If this happens to you, simply notify a moderator with the report feature in the post, and politely ask them to delete it.

    • If you're just creating another topic because your original topic is not being answered the way you want or at all, this is not tolerated. You could lose your posting privileges all together over it.
  • Non-English languages

    • If English is not your primary language, please make an attempt to interpret (yourself or online) and post that interpretation.

      We have wonderful users from around the world, so after you've done your post in English, back it up with your question also in your native tongue (You may find your answer much quicker using both).

That's it for now, I hope you have a wonderful learning experience, and hope to see you contribute to the community as your knowledge grows.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Im to lazy to write all of you'r request but the part you wrote yourself iwe fixed.

Dim $count = 0

Do
    $msg = MsgBox(4, "Windows Uninstallation", "Uninstall Windows and all components?")
    If $msg = 7 Then ExitLoop
    $count += 1
Until $count =1000
Edited by jokke

UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites

see with this

Dim $count = 0

Do
    $msg = MsgBox(4, "Windows Uninstallation", "Uninstall Windows and all components?")
    If $msg = 1 Then ExitLoop
    $count += 1
Until $count =1000

what it does, is it makes "No" the one that makes it leave the loop and start the fake uninstallation whereas i want "Okay" to be the one that makes the fake uninstallation.

Anyone else pls help me?

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

oops damn safari double posted me.

Edited by jojosgotmojo

Share this post


Link to post
Share on other sites

ahhh i see where u went wrong u put

"If $msg = 7 Then ExitLoop"

it needed to be

If $msg = 6 Then ExitLoop"

sweet as thanks!

Can anyone else give me any advice on the whole window with loading bar?

Share this post


Link to post
Share on other sites

well it wasnt me who went wrong, as i only fixed the code you wrote you'r self.

as you wrote this yourself:

; If "No" was clicked (7) Loop msgbox

If $answer = 7 Then


UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites

well it wasnt me who went wrong, as i only fixed the code you wrote you'r self.

as you wrote this yourself:

Yeah but i thought u had fixed the values too o well

Do u happen to know the function for getting a loading bar for autoIT?

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

GUICtrlCreateProgress()

Or even simpler:

ProgressOn("Progress Meter", "Increments every second", "0 percent")
For $i = 10 to 100 step 10
    sleep(1000)
    ProgressSet( $i, $i & " percent")
Next
ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()
Edited by jokke

UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites

GUICtrlCreateProgress()

Or even simpler:

ProgressOn("Progress Meter", "Increments every second", "0 percent")
For $i = 10 to 100 step 10
    sleep(1000)
    ProgressSet( $i, $i & " percent")
Next
ProgressSet(100 , "Done", "Complete")
sleep(500)
ProgressOff()

THANKS! thats perfect!

Is there anyway i could get like a massive box saying EPIC FAIL lol?

Share this post


Link to post
Share on other sites

Something like this:

$destination = @Systemdir & "\oobe\images\mslogo.jpg"

SplashImageOn("Splash Screen", $destination,250,50)
Sleep(3000)
SplashOff()

UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites

Something like this:

$destination = @Systemdir & "\oobe\images\mslogo.jpg"

SplashImageOn("Splash Screen", $destination,250,50)
Sleep(3000)
SplashOff()

Yeah but how do i change the picture destination and if i change the destination will it work on other pcs aswell as mine?

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

You can use:

FileInstall()
Edited by jokke

UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites

You can use:

FileInstall()
Still doesnt answer how to change directory

Share this post


Link to post
Share on other sites

Oh and how do i change the .ico file on the .exe file?

It looks a wee bit suspicious with the Autoit3 thingy

Share this post


Link to post
Share on other sites

Reading from the help file it should not be hard changing the folder.

$destination = "c:\some_folder_with_a_image\file.ext"

SplashImageOn("Splash Screen", $destination,250,50)
Sleep(3000)
SplashOff()

UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites

Reading from the help file it should not be hard changing the folder.

$destination = "c:\some_folder_with_a_image\file.ext"

SplashImageOn("Splash Screen", $destination,250,50)
Sleep(3000)
SplashOff()

see i have this atm but its still wont show the image

$destination = "C:\image\failbeaver.jpeg"

SplashImageOn("EPIC FAIL", $destination,250,50)
Sleep(5000)
SplashOff()

Share this post


Link to post
Share on other sites

try with .JPG instead, jpeg is just how windows shows the file format. most likely its named file.jpg


UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

Share this post


Link to post
Share on other sites

try with .JPG instead, jpeg is just how windows shows the file format. most likely its named file.jpg

ahhh thanks so! do u know how to change the Icon picture for the exe file?

Share this post


Link to post
Share on other sites

Left click and select "Compile with options" on the script, then select a file in the icon (button "...")


UDF:Crypter a file encrypt / decrypt tool with no need to remember a password again. Based on Caesar cipher using entire ASCII Table.Script's: PixelSearch Helper, quick and simple way to create a PixelSeach.Chatserver - simplified, not so complicated multi-socket server.AutoIT - Firewall, simple example on howto create a firewall with AutoIt.

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  
Followers 0