Jump to content

ADDING REGKEY

flip2405

By flip2405,
in AutoIt General Help and Support

 Share

Recommended Posts

flip2405 Wayfarer

flip2405

Posted
Posted (edited)

To make this a little safer i included the source seems all the virus's floating around here today If ya could please help i need to actually know how to do this not just have it done for me so i can make edits to the source such as hotkeys and passwords witch i dont want stored in inis

#NoTrayIcon

While 1 
    HotKeySet("^l", "Hide")
    sleep(200)
    HotKeySet("^S", "Show")
WEnd


Func hide()
    ProcessClose("aim6.exe")
$G = PixelSearch(902,721,1023,767,0xF78F84)
mousemove($G[0]  , $G[1]  )
EndFunc


Func Show()
    Global $Password
    Global $checkpw
$Password = "password"
$checkpw = InputBox("Password","Please enter a password.","","*")
If $checkpw = $Password Then
        $Process = ProcessExists("explorer.exe")
     If $process = 0 Then
     Run("explorer.exe")
     EndIf
        ShellExecute("C:\Program Files\AIM6\aim6.exe","/d locale=en-US ee://aol/imApp")

Else
    $WrongPass = Msgbox(5,"Wrong password", "You have got an invailed password")
    if $WrongPass  = 4 Then
    Send("^S")
     EndIf
     If $WrongPass = 2 Then
        Msgbox(0,"Screenlock","Your screen will be locked until correct password is typed please wait 30 secounds and hit Ctrl+shift to do so") 
            while 1  
             ProcessClose("explorer.exe")
             if $checkpw = $password Then ExitLoop
            WEnd
        
    EndIf
EndIf
EndFunc
Edited by d3m0n
Link to comment
Share on other sites
ChromeFan Universalist

ChromeFan

Posted
Posted 

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Program_Name", "REG_SZ", @AutoItExe) ; @ScriptFullPath

Website: www.cerescode.comForum: www.forum.cerescode.comIRC: irc.freenode.net , Channel: #Ceres--------------------Autoit Wrappers, Great additions to your script (Must See) (By: Valuater)Read It Befor Asking Question Click Here...--------------------Join Monoceres's Forums http://www.monoceres.se--------------------There are three kinds of people: Those who make things happen, those who watch things happen, and those who ask, ‘What happened?’” –Casey Stengel
Link to comment
Share on other sites
flip2405 Wayfarer

flip2405

Posted
  • Author
Posted 

RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Program_Name", "REG_SZ", @AutoItExe) ; @ScriptFullPathoÝ÷ Ûú®¢×ºÚ"µÍÓÕ^RXÛÛYÕÜ]J ][ÝÒÑVWÓÐÐSÓPPÒSIÌLÔÓÑÐTIÌLÓZXÜÜÛÙ   ÌLÕÚ[ÝÜÉÌLÐÝ[Ú[ÛÌLÔ[][ÝË ][ÝÛ^ÙÜ[K^I][ÝË   ][ÝÔQ×ÔÖ][ÝË]]Ò]^JHÈØÜ[]Ú[HBÝÙ^TÙ]
    ][Ý×  ][ÝË  ][ÝÒYI][ÝÊBÛY

BÝÙ^TÙ]
    ][Ý×É][ÝË  ][ÝÔÚÝÉ][ÝÊBÑ[[ÈYJ
BØÙÜÐÛÜÙJ    ][ÝØZ[M^I][ÝÊBÌÍÑÈH^[ÙXÚ
L
ÌKLË
ÍËÎ
B[ÝÙ[[ÝJ ÌÍÑÖÌH ÌÍÑÖÌWH
B[[Â[ÈÚÝÊ
BÛØ[  ÌÍÔÜÝÛÜÛØ[ ÌÍØÚXÚÜÂÌÍÔÜÝÛÜH  ][ÝÜÜÝÛÜ  ][ÝÂÌÍØÚXÚÜÈH[]Þ
    ][ÝÔÜÝÛÜ  ][ÝË  ][ÝÔXÙH[HÜÝÛÜ][ÝË  ][ÝÉ][ÝË    ][ÝÊ][ÝÊBY  ÌÍØÚXÚÜÈH    ÌÍÔÜÝÛÜ[ ÌÍÔØÙÜÈHØÙÜÑ^ÝÊ    ][ÝÙ^Ü^I][ÝÊBY ÌÍÜØÙÜÈH[[   ][ÝÙ^Ü^I][ÝÊB[YÚ[^XÝ]J   ][ÝÐÎÌLÔÙÜ[H[ÉÌLÐRSMÌLØZ[M^I][ÝË  ][ÝËÙØØ[OY[UTÈYNËØ[ÛÚ[P   ][ÝÊB[ÙB ÌÍÕÜÛÔÜÈHÙØÞ
K   ][ÝÕÜÛÈÜÝÛÜ    ][ÝË  ][ÝÖ[ÝH]HÛÝ[[Z[YÜÝÛÜ   ][ÝÊBY    ÌÍÕÜÛÔÜÈH
[Ù[
    ][Ý×É][ÝÊB[YY  ÌÍÕÜÛÔÜÈH[ÙØÞ
    ][ÝÔØÜY[ØÚÉ][ÝË    ][ÝÖ[ÝØÜY[Ú[HØÚÙY[[ÛÜXÝÜÝÛÜÈYXÙHØZ]ÌÙXÛÝ[È[]Ý
ÜÚYÈÈÛÉ][ÝÊBÚ[HHØÙÜÐÛÜÙJ    ][ÝÙ^Ü^I][ÝÊBY ÌÍØÚXÚÜÈH    ÌÍÜÜÝÛÜ[^]ÛÜÑ[[Y[Y[[

So this will work and it will only run the regadd one time i dont want it going crazy or asking if regkey wants to be added every time windows starts i dont mind it asking once but it'l get annoying after a while of asking

Link to comment
Share on other sites
dbzfanatic Universalist

dbzfanatic

Posted
Posted

Should've used mine. :) It checked if the key existed and only added it if it didn't

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote]
Link to comment
Share on other sites
flip2405 Wayfarer

flip2405

Posted
  • Author
Posted

Should've used mine. :) It checked if the key existed and only added it if it didn't

Yes but as i told you in pm i need to have the source to it because i need to beable to change the script as in hotkeys passwords the file name all that...

all ya gave me was exe and with the exe i cant do nothing but run it cant change any passwords cant do none of that unless i put them in an ini witch can be viewed by any one that can find it witch is just compleatly pointless to call it a password then

Link to comment
Share on other sites
dbzfanatic Universalist

dbzfanatic

Posted
Posted

It's 3 lines of code geeze :) Can't you think of how to implement it from the helpfile?

#NoTrayIcon
#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
$key = RegRead("HKLM\Software\Microsoft\Windows\Current Version\Run","Hide_aim")
If $key = "" Then
    RegWrite("HKLM\Software\Microsoft\Windows\Current Version\Run","Hide_aim","REG_SZ",@ScriptFullPath)
EndIf

While 1
    HotKeySet("^l", "Hide")
    sleep(200)
    HotKeySet("^S", "Show")
WEnd


Func hide()
    ProcessClose("aim6.exe")
$G = PixelSearch(902,721,1023,767,0xF78F84)
mousemove($G[0]  , $G[1]  )
EndFunc


Func Show()
    Global $Password
    Global $checkpw
$Password = "mark"
$checkpw = InputBox("Password","Please enter a password.","","*")
If $checkpw = $Password Then
        $Process = ProcessExists("explorer.exe")
     If $process = 0 Then
     Run("explorer.exe")
     EndIf
        ShellExecute("C:\Program Files\AIM6\aim6.exe","/d locale=en-US ee://aol/imApp")

Else
    $WrongPass = Msgbox(5,"Wrong password", "You have got an invailed password")
    if $WrongPass  = 4 Then
    Send("^S")
     EndIf
     If $WrongPass = 2 Then
        Msgbox(0,"Screenlock","Your screen will be locked until correct password is typed please wait 30 secounds and hit Ctrl+shift to do so")
            while 1 
             ProcessClose("explorer.exe")
             if $checkpw = $password Then ExitLoop
            WEnd
        
    EndIf
EndIf
EndFunc
Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote]
Link to comment
Share on other sites
ChromeFan Universalist

ChromeFan

Posted
Posted

did you search the forum first? Advance seach? there are many ways to do it...

Website: www.cerescode.comForum: www.forum.cerescode.comIRC: irc.freenode.net , Channel: #Ceres--------------------Autoit Wrappers, Great additions to your script (Must See) (By: Valuater)Read It Befor Asking Question Click Here...--------------------Join Monoceres's Forums http://www.monoceres.se--------------------There are three kinds of people: Those who make things happen, those who watch things happen, and those who ask, ‘What happened?’” –Casey Stengel
Link to comment
Share on other sites
flip2405 Wayfarer

flip2405

Posted
  • Author
Posted

It's 3 lines of code geeze :) Can't you think of how to implement it from the helpfile?

#NoTrayIcon
#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****
$key = RegRead("HKLM\Software\Microsoft\Windows\Current Version\Run","Hide_aim")
If $key = "" Then
    RegWrite("HKLM\Software\Microsoft\Windows\Current Version\Run","Hide_aim","REG_SZ",@ScriptFullPath)
EndIf

While 1
    HotKeySet("^l", "Hide")
    sleep(200)
    HotKeySet("^S", "Show")
WEnd


Func hide()
    ProcessClose("aim6.exe")
$G = PixelSearch(902,721,1023,767,0xF78F84)
mousemove($G[0]  , $G[1]  )
EndFunc


Func Show()
    Global $Password
    Global $checkpw
$Password = "mark"
$checkpw = InputBox("Password","Please enter a password.","","*")
If $checkpw = $Password Then
        $Process = ProcessExists("explorer.exe")
     If $process = 0 Then
     Run("explorer.exe")
     EndIf
        ShellExecute("C:\Program Files\AIM6\aim6.exe","/d locale=en-US ee://aol/imApp")

Else
    $WrongPass = Msgbox(5,"Wrong password", "You have got an invailed password")
    if $WrongPass  = 4 Then
    Send("^S")
     EndIf
     If $WrongPass = 2 Then
        Msgbox(0,"Screenlock","Your screen will be locked until correct password is typed please wait 30 secounds and hit Ctrl+shift to do so")
            while 1 
             ProcessClose("explorer.exe")
             if $checkpw = $password Then ExitLoop
            WEnd
        
    EndIf
EndIf
EndFunc

Now what if i have no spaces in my program has no spaces in it such as

hideaim.exe is the _ still nessisarry

Link to comment
Share on other sites
dbzfanatic Universalist

dbzfanatic

Posted
Posted

No and that's not the program name, just the keyname to create. It was an aesthetic choice nothing more.

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct linkScreenRec ProSimple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF[quote name='renanzin' post='584064' date='Sep 26 2008, 07:00 AM']whats help ?[/quote]
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...