ADDING REGKEY

[flip2405]

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

expandcollapse popup

#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 September 29, 2008 by d3m0n

[ChromeFan]

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

[flip2405]

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

[dbzfanatic]

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

[flip2405]

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

[dbzfanatic]

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

expandcollapse popup

#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

[ChromeFan]

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

[flip2405]

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

expandcollapse popup

#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

[dbzfanatic]

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

[flip2405]

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

ty much bud

[Xand3r]

Try this i made a tray controller for the startup part >_<