Jump to content

[Ideal] Protect You Script From Being Edited...

z0mgItsJohn
 Share

Recommended Posts

z0mgItsJohn Universalist

z0mgItsJohn

Posted
Posted

Hello... I Would Of Posted This In The Other Forum.. But I Got An Error..

Well The First Ideal Is..

"Password Protect Your Script"

This Is One Way To Password Protect Your Program...

$Password = "Example..."

$Input_Password = InputBox ( " Password Required" , " " & @CRLF & " " & @CRLF & " " & @CRLF & " " & @CRLF & "Password :")

If $Input_Password = $Password Then
MsgBox (0, "Correct Password" , "The Password You Typed Is Correct",5)
Sleep (2500)
#include <Your_Script.au3>
Exit 
EndIf

MsgBox(16,"Incorrect Password","The Password You Typed Is Incorrect",0)
ExitoÝ÷ Ù8^Iç(Òy©V¢é]äèZ¸­y.­*.­Çr¸©µ8^jâµà'¢Ø^­'+S«K¢,.)N¬jëh×6#Include <Source.au3>oÝ÷ Ù8^h^.
©W"Ò-Z¥täàn´Ò¢g¨å±:*&¦)^"Ôá{ ¨ºWNyꮢ֮¶­sb4æ6ÇVFRfÇCµ6÷W&6RæS2fwC
"

Well.. If You Need Help Understanding My Ideals Just Add Me On MSN...

MSN = maxell225@hotmail.com

Latest Projects :- New & Improved TCP Chat

Link to comment
Share on other sites
JustinReno Universalist

JustinReno

Posted
Posted (edited)

Yes, I can. And also, a good learning point is AutoIt 123 (I think its located at the top of the examples forum).

Here should be a pretty simple example:

#Include <GuiConstants.au3> ;This file includes variables for GUI stuff.

$GUI = GuiCreate("Testing", 200, 200) ;This creates the GUI named Testing, the size is 200x200 pixels.
$Button1 = GuiCtrlCreateButton("Function1", 0, 0) ; Creates the button for function one.
$Button2 = GuiCtrlCreateButton("Function2", 0, 50) ; Creates the button for function two.
GuiSetState(@SW_SHOW) ;Makes the GUI visible.
While 1 ;Makes a loop that runs forever.
       $Message = GuiGetMsg() ;Catches any thing pressed on the GUI.
       Switch
                Case $GUI_EVENT_CLOSE ;If the X button was pressed at top
                         Exit
                Case $Button1 ;If $Button1 is clicked...
                        _Function1()
                Case $Button2 ;If $Button2 is clicked...
                       _Function2()
      EndSwitch
WEnd

Func _Function1()
       MsgBox(0, "Hi!", "Button 1 was pressed!")
EndFunc

Func _Function2()
       MsgBox(0, "Hi!", "Button 2 was pressed!")
EndFunc

This should work, not sure. :)

Edited by JustinReno
Link to comment
Share on other sites
z0mgItsJohn Universalist

z0mgItsJohn

Posted
  • Author
Posted

Theres.. And Error In The Switch Thing o.o.. Could You Maybe Fix The Script And Report :)

And Could You Tell Me If This Is A Pretty Good Script For My First One.. ^_^

;------------------------------->
;= Author : John O.
;= Program Name : Auto Website
;= Version : 1.5
;= Made : December 7, 2007
;------------------------------->

Sleep (75)
$Set_Web_1 = InputBox ( " Set Website One", "Auto Website v1.5 By John O." & @CRLF & "" & @CRLF & "" & @CRLF & "Set A Website For (Alt+F1)")
Sleep (75)
$Set_Web_2 = InputBox ( " Set Website Two", "Auto Website v1.5 By John O. " & @CRLF & "" & @CRLF & "" & @CRLF & "Set A Website For (Alt+F2)")
Sleep (75)
$Set_Web_3 = InputBox ( " Set Website Three", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & "" & @CRLF & "Set A Website For (Alt+F3)")
Sleep (75)
$Set_Web_4 = InputBox ( " Set Website Four", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & ""& @CRLF & "Set A Website For (Alt+F4)")
Sleep (75)
$Set_Web_5 = InputBox ( " Set Website Five", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & ""& @CRLF & "Set A Website For (Alt+F5)")
Sleep (75)
$Set_Web_6 = InputBox ( " Set Website Six", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & ""& @CRLF & "Set A Website For (Alt+F6)")
Sleep (75)
$Set_Web_7 = InputBox ( " Set Website Seven", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & ""& @CRLF & "Set A Website For (Alt+F7)")
Sleep (75)
$Set_Web_8 = InputBox ( " Set Website Eight", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & ""& @CRLF & "Set A Website For (Alt+F8)")
Sleep (75)
$Set_Web_9 = InputBox ( " Set Website Nine", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & ""& @CRLF & "Set A Website For (Alt+F9)")
Sleep (75)
$Set_Web_10 = InputBox ( " Set Website Ten", "Auto Website v1.5 By John O. "& @CRLF & "" & @CRLF & ""& @CRLF & "Set A Website For (Alt+F10)")

Sleep (75)
TrayTip ( "Auto Website v1.5 By John O.", "[Notice]" & @CRLF & "" & @CRLF & "Press (Alt+Esc) To Exit",0)
Sleep (75)

While 1
Sleep (75)
HotKeySet ( "!{f1}", "Run_Web_1" )
Sleep (75)
HotKeySet ( "!{f2}", "Run_Web_2" )
Sleep (75)
HotKeySet ( "!{f3}", "Run_Web_3" )
Sleep (75)
HotKeySet ( "!{f4}", "Run_Web_4" )
Sleep (75)
HotKeySet ( "!{f5}", "Run_Web_5" )
Sleep (75)
HotKeySet ( "!{f6}", "Run_Web_6" )
Sleep (75)
HotKeySet ( "!{f7}", "Run_Web_7" )
Sleep (75)
HotKeySet ( "!{f8}", "Run_Web_8" )
Sleep (75)
HotKeySet ( "!{f9}", "Run_Web_9" )
Sleep (75)
HotKeySet ( "!{f10}", "Run_Web_10" )
Sleep (75)
HotKeySet ( "!{esc}", "Exit_" )
WEnd

Func Run_Web_1()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website One...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_1 , "", @SW_HIDE)
EndFunc

Func Run_Web_2()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Two...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_2 , "", @SW_HIDE)
EndFunc

Func Run_Web_3()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Three...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_3 , "", @SW_HIDE)
EndFunc

Func Run_Web_4()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Four...",0)
Sleep (1000)    
Run("cmd /c start " & $Set_Web_4 , "", @SW_HIDE)
EndFunc

Func Run_Web_5()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Five...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_5 , "", @SW_HIDE)
EndFunc

Func Run_Web_6()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Six...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_6 , "", @SW_HIDE)
EndFunc

Func Run_Web_7()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Seven...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_7 , "", @SW_HIDE)
EndFunc

Func Run_Web_8()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Eight...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_8 , "", @SW_HIDE)
EndFunc

Func Run_Web_9()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Nine...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_9 , "", @SW_HIDE)
EndFunc

Func Run_Web_10()
TrayTip ( "Auto Website v1.5 By John O.", "Running Website Ten...",0)
Sleep (1000)
Run("cmd /c start " & $Set_Web_10 , "", @SW_HIDE)
EndFunc

Func Exit_()
TrayTip ( "Auto Website v1.5 By John O.", "Exiting...",0)
Sleep (1000)
Exit
EndFunc

Latest Projects :- New & Improved TCP Chat

Link to comment
Share on other sites
JustinReno Universalist

JustinReno

Posted
Posted

That is a good script, the only suggestion I would put in is:

You could use this to run web pages:

#Include <IE.au3>
_IECreate("www.google.com")oÝ÷ Ù«­¢+Ø%¹±Õ±ÐíÕ¥
½¹ÍѹÑ̹ÔÌÐìíQ¡¥Ì¥±¥¹±ÕÌÙÉ¥±Ì½ÈU$ÍÑÕ¸((ÀÌØíU$ôÕ¥
ÉÑ ÅÕ½ÐíQÍÑ¥¹ÅÕ½Ðì°ÈÀÀ°ÈÀÀ¤íQ¡¥ÌÉÑÌÑ¡U$¹µQÍÑ¥¹°Ñ¡Í¥é¥ÌÈÀÁàÈÀÀÁ¥á±Ì¸(ÀÌØí   ÕÑѽ¸ÄôÕ¥
Ñɱ
ÉÑ    ÕÑѽ¸ ÅÕ½Ðíչѥ½¸ÄÅÕ½Ðì°À°À¤ì
ÉÑÌÑ¡ÕÑѽ¸½Èչѥ½¸½¹¸(ÀÌØí ÕÑѽ¸ÈôÕ¥
Ñɱ
ÉÑ    ÕÑѽ¸ ÅÕ½Ðíչѥ½¸ÈÅÕ½Ðì°À°ÔÀ¤ì
ÉÑÌÑ¡ÕÑѽ¸½Èչѥ½¸Ñݼ¸)Õ¥MÑMÑÑ¡M]}M!=¤í5­ÌÑ¡U$٥ͥ±¸)]¡¥±Äí5­Ì±½½ÀÑ¡ÐÉչ̽ÉÙȸ(ÀÌØí5ÍÍôÕ¥Ñ5Í ¤í
ѡ̹äÑ¡¥¹ÁÉÍͽ¸Ñ¡U$¸(MÝ¥Ñ ÀÌØí5ÍÍ(
ÍÀÌØíU%}Y9Q}
1=Mí%Ñ¡`ÕÑѽ¸ÝÌÁÉÍÍÐѽÀ(á¥Ð(
ÍÀÌØí  ÕÑѽ¸Äí%ÀÌØí ÕÑѽ¸Ä¥Ì±¥­¸¸¸(}չѥ½¸Ä ¤(
ÍÀÌØí  ÕÑѽ¸Èí%ÀÌØí ÕÑѽ¸È¥Ì±¥­¸¸¸(}չѥ½¸È ¤(¹MÝ¥Ñ )]¹()Õ¹}չѥ½¸Ä ¤(5Í  ½à À°ÅÕ½Ðí!¤ÌÌìÅÕ½Ðì°ÅÕ½Ðí  ÕÑѽ¸ÄÝÌÁÉÍÍÌÌìÅÕ½Ðì¤)¹Õ¹()Õ¹}չѥ½¸È ¤(5Í   ½à À°ÅÕ½Ðí!¤ÌÌìÅÕ½Ðì°ÅÕ½Ðí  ÕÑѽ¸ÈÝÌÁÉÍÍÌÌìÅÕ½Ðì¤)¹Õ¹
Link to comment
Share on other sites
z0mgItsJohn Universalist

z0mgItsJohn

Posted
  • Author
Posted

YAY! Check Out My GUI Example :)

#Include <GuiConstants.au3> 

$GUI = GuiCreate(" GUI Example", 180, 225) 
$Button1 = GuiCtrlCreateButton("Button 1", 63, 30) 
$Button2 = GuiCtrlCreateButton("Button 2", 63, 60) 
$Button3 = GuiCtrlCreateButton("Button 3", 63, 90) 
$Button4 = GuiCtrlCreateButton("Button 4", 63, 120)
$Button5 = GuiCtrlCreateButton("Button 5", 63, 150)
$Button6 = GuiCtrlCreateButton("    Exit    ", 63, 180)
GuiSetState(@SW_SHOW) 
While 1     
       $Message = GuiGetMsg() 
       Sleep (25)
       Switch $Message
                Case $GUI_EVENT_CLOSE 
                         Exit
                Case $Button1 
                        _Button1()
                Case $Button2 
                        _Button2()
                Case $Button3
                        _Button3() 
                Case $Button4
                        _Button4()
                Case $Button5
                        _Button5()
                Case $Button6
                        _Button6()
       EndSwitch
WEnd

Func _Button1()
       MsgBox(0, "Messege Box", "Button 1 Was Pressed")
EndFunc

Func _Button2()
       MsgBox(0, "Messege Box", "Button 2 Was Pressed")
EndFunc
   
Func _Button3()
       MsgBox(0, "Messege Box", "Button 3 Was Pressed")
EndFunc

Func _Button4()
       MsgBox(0, "Messege Box", "Button 4 Was Pressed")
   EndFunc
   
Func _Button5()
       MsgBox(0, "Messege Box", "Button 5 Was Pressed")
   EndFunc
   
Func _Button6()
       Exit 
   EndFunc

Latest Projects :- New & Improved TCP Chat

Link to comment
Share on other sites
therks Universalist

therks

Posted
Posted

Not bad, and if you want to use a separate function for each button, you can also do this.

#Include <GuiConstants.au3> 
Opt('GUIOnEventMode', 1)

$GUI = GuiCreate(" GUI Example", 180, 225) 
   GUISetOnEvent($GUI_EVENT_CLOSE, '_Quit')
$Button1 = GuiCtrlCreateButton("Button 1", 63, 30) 
   GUICtrlSetOnEvent(-1, '_Button1')
$Button2 = GuiCtrlCreateButton("Button 2", 63, 60) 
   GUICtrlSetOnEvent(-1, '_Button2')
$Button3 = GuiCtrlCreateButton("Button 3", 63, 90) 
   GUICtrlSetOnEvent(-1, '_Button3')
$Button4 = GuiCtrlCreateButton("Button 4", 63, 120)
   GUICtrlSetOnEvent(-1, '_Button4')
$Button5 = GuiCtrlCreateButton("Button 5", 63, 150)
   GUICtrlSetOnEvent(-1, '_Button5')
$Button6 = GuiCtrlCreateButton("    Exit    ", 63, 180)
   GUICtrlSetOnEvent(-1, '_Button6')
GuiSetState(@SW_SHOW) 
While 1     
    Sleep(100)
WEnd

Func _Button1()
       MsgBox(0, "Messege Box", "Button 1 Was Pressed")
EndFunc

Func _Button2()
       MsgBox(0, "Messege Box", "Button 2 Was Pressed")
EndFunc
   
Func _Button3()
       MsgBox(0, "Messege Box", "Button 3 Was Pressed")
EndFunc

Func _Button4()
       MsgBox(0, "Messege Box", "Button 4 Was Pressed")
EndFunc
   
Func _Button5()
       MsgBox(0, "Messege Box", "Button 5 Was Pressed")
EndFunc
   
Func _Button6()
       Exit 
EndFunc

Func _Quit()
       Exit
EndFunc

Just another way to do things. :)

Also, you don't need the Sleep(25) in your code because the GUIGetMsg() function will auto-sleep for you. My code doesn't use GUIGetMsg so it DOES need a sleep.

My AutoIt Stuff | My Github

Link to comment
Share on other sites
BrettF Universalist

BrettF

Posted
Posted

Use ShellExecute () to open the webpage... Might be a better alternitave to IE?

Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version!
Link to comment
Share on other sites
PsaltyDS Universalist

PsaltyDS

Posted
Posted

And Please Can You Help Me So I Can Post In The Example Script Part..

Please consider what you are going to post MUCH more carefully before you put it in Example Scripts!

You obviously made no attempt at all to search the forums for the hundreds of topics that already cover this, made no attempt to learn about the encryption that is already in AutoIt, don't know that the uncompile option is no longer present in the current version of AutoIt, and just plain didn't think it through.

As a former Noob in AutoIt and many other things, and current Noob in others, I am sympathetic with getting excited about figuring something out and sharing it. But you need to look around and see what's already there before you assume you are adding anything.

:)

Valuater's AutoIt 1-2-3, Class... Is now in Session!For those who want somebody to write the script for them: RentACoder"Any technology distinguishable from magic is insufficiently advanced." -- Geek's corollary to Clarke's law
Link to comment
Share on other sites
JustinReno Universalist

JustinReno

Posted
Posted (edited)

He is new here PSaltyDS, don't be so harsh on him. If I were a newb, or noob, I would have no idea AutoIt had encryption. When you go to a software forum, do you start searching to see if there program doesn't have an uncompile option or encryption? :) He was just saying that he learned something new, don't freak out. ^_^

Edited by JustinReno
Link to comment
Share on other sites
manofman Seeker

manofman

Posted
Posted

Please consider what you are going to post MUCH more carefully before you put it in Example Scripts!

You obviously made no attempt at all to search the forums for the hundreds of topics that already cover this, made no attempt to learn about the encryption that is already in AutoIt, don't know that the uncompile option is no longer present in the current version of AutoIt, and just plain didn't think it through.

As a former Noob in AutoIt and many other things, and current Noob in others, I am sympathetic with getting excited about figuring something out and sharing it. But you need to look around and see what's already there before you assume you are adding anything.

:)

Just say i realy like your message because i think now people want to all his work do for him and lot of people dont look at help file dont make test dont search at forum but the key of succes is trying searching and learn and get help if realy need.

PS. i dont point this mesage to anyone in particular

and i know in this way a lot of time you will dont get help.

Link to comment
Share on other sites
manofman Seeker

manofman

Posted
Posted

He is new here PSaltyDS, don't be so harsh on him. If I were a newb, or noob, I would have no idea AutoIt had encryption. When you go to a software forum, do you start searching to see if there program doesn't have an uncompile option or encryption? :) He was just saying that he learned something new, don't freak out. ^_^

Yeah its sure for this but i think in general PSaltyDS say true
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
Go to topic listing

  • Recently Browsing   0 members

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