Sign in to follow this  
Followers 0
flip2405

ADDING REGKEY

11 posts in this topic

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

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

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ÝÙ^]
    ][Ý×É][ÝË  ][ÝÔÚÝÉ][ÝÊ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[[^]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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Share this post


Link to post
Share on other sites

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

ty much bud

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