Sign in to follow this  
Followers 0
z0mgItsJohn

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

21 posts in this topic

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^(Ò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

Share this post


Link to post
Share on other sites



:)

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Do you know how compiling works? If you ever do get to uncompile it with a editor, you would be able to see everything in the source, even includes. They both look untested and unsecure.

Edited by JustinReno

Share this post


Link to post
Share on other sites

O.. Well I Know The Password Part Works.. But Kinda Useless If The Person Can Un-Compile Your Script And See The Password..

Well.. Thanks Anyways..

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


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

You have to have ten or more posts.

Share this post


Link to post
Share on other sites

O.. Ok.. Thanks~

O And Can You Help Me With Something.. If You Got An Msn Can U Add Me ... MSN = maxell225@hotmail.com

I Would Ask For Help Here.. But It Would Take Me A While To Figure Out What To Type..


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

I don't have a currently working MSN account, its OK to type it here, Ive got basically til midnight to answer questions, and so does the AutoIt team. :)

Share this post


Link to post
Share on other sites

Well Could You Explain.. To Me How I Could Write A Scrip To Make A Window With 10 Options..

Like Option 1 Gos To Func One.. Could You Explain GUI Pretty Much...


Latest Projects :- New & Improved TCP Chat

Share this post


Link to post
Share on other sites

#9 ·  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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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Í   ½à À°ÅÕ½Ðí!¤ÌÌìÅÕ½Ðì°ÅÕ½Ðí  ÕÑѽ¸ÈÝÌÁÉÍÍÌÌìÅÕ½Ðì¤)¹Õ¹

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

#16 ·  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

Share this post


Link to post
Share on other sites

The problem is he was going to Post in Example Forum without even testing it, uncompile option is no longer supported if he ever sees, and even if he uncompile it he will see his method will not work out.

Share this post


Link to post
Share on other sites

Oh, then sorry for my post and sorry PSaltyDS. Thanks Generator.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

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