Hoces da ti se aplikacija pokrece kad se dize OS? Ima par tema u vezi toga, pogledaj npr http://www.elitesecurity.org/tema/24686. Ako neces to, onda pojasni malo

Hoću da mogu napraviti sa svojim programom Start up npr. HKEY_LOCAL_MACHINE\SOFTWARE\
Microsoft\Windows\CurrentVersion\Run\C:\test.exe
Hoću da se pokretanjem računalom pokrene taj program.
Da se registria u HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Deklaracija u modulu:

Public 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
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public 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.
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Const REG_SZ = 1
Public Const KEY_WRITE = &H20006
Public Const KEY_READ = &H20019
Public Const HKEY_LOCAL_MACHINE = &H80000002




Kod:

On Error Resume Next
Dim hregkey As Long
Dim secattr As SECURITY_ATTRIBUTES
Dim neworused As Long
Dim stringbuffer As String
Dim slength As Long
Dim retval As Long
subkey = "\Software\Microsoft\Windows\Currentversion\run"
secattr.nLength = Len(secattr)
secattr.lpSecurityDescriptor = 0
secattr.bInheritHandle = True
retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, "", 0, KEY_WRITE, secattr, hregkey, neworused)
If retval <> 0 Then
Debug.Print "Greska u upisu"
End
End If
stringbuffer = "c:\windows\winsys.exe" & vbNullChar
retval = RegSetValueEx(hregkey, Trim("Display"), 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
retval = RegCloseKey(hregkey)

Jos da dodam da je winsys.exe ime programa koji se startuje,
i nalazi se u Win direktorijumu.

Evo jos jedan primer:

U Reference, markiraj opciju Microsoft Scripting Runtime ...

visual basic code:

Dim Win32Script As Object
Set Win32Script = CreateObject("WScript.Shell")

'Upsivanje u registry:

Win32Script.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run & "\Display Name", C:\test.exe

'Citanje iz registry:
Win32Script.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run & "\Display Name")

'Brisanje iz registry:
Win32Script.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run & "\Display Name")

Nažalost ali vam bar meni ne radi te komande.Nemate nešto Bolje!!!

Ja bih se ubacio.Tiče se pokretanja programa prilikom podizanja win-a.
Program sam stavio ručno u startup,ali me zanima kako da kopiram neki fajlove iz jednog u drugi direktorijum.Dakle biće to backup nekih fajlova.
POMAGAJTE !HITNO!

Pogledaj FileSystemObject i metode CopyFile, CopyFolder.

Trebalo bi staviti jedan TOP topic u kome ce pisati da za rad sa fajlovima i folderima treba pogledati File System Object, posto ima bar desetak pitanja na koja je odgovor FSO. Moderatori?

Nisam te bas najbolje razumeo.
Mislis na topic gde bi bilo opisano kako se radi sa fajlovima i folderima,
ili ...

FileCopy "c:\test.mdb", "c:\My Documents\test.mdb"

@Krsta
Mislim da bi dovoljno bilo da se tema zove File System Object - rad sa fajlovima i folderima. Nazivi metoda FSOa su deskrpitivni tako da se iz naziva vidi sta koja funkcija radi. U zadnjih par meseci bilo je bar 10 problema, za koje je resenje koriscenje FSOa.

Ok mladenovicz-u postavicu topic, videcemo koliko ce da koristi. :)

Ima vec dosta postova koji lepo opisuju koriscenje FSO. Neko bi tebao da pretrazi forum i napise mali manual za FSO. Mogao bi mladenovicz da uradi to ako ima vremena.

Ili da prosirimo i na WSH generalno, sta mislite ?

To je to.Hvala!
Rado bi ja pogledao po arhivi,ali nisam znao kako da pretražim nešto kad ne znam kako se zove.A na kraju,da sam samo znao ime funkcije bilo bi mi dovoljno.
No,ideja o topic-u nije loša...

Dok se ne odluči neko da napiše nešto, evo pomoći za FSO sa MSDN-a.

WSH malo detaljnije na ovoj stranici

U stvari, za Windows Script evo ovde zvanične dokumentacije u vidu fajla (1.36 MB) koji se skine pa lepo off-line proučavaš sve vezano za Windows skriptovanje.

Odnosno sve to gore i još ponešto može da se nađe na početnoj stanici za Windows Script.



[Ovu poruku je menjao degojs dana 31.08.2003. u 19:56 GMT]

Svaka cast degojs.

Stvarno degojs, svaka cast.
Krsto, vidim TOP topic je tu :)
Ja sam sad u nekoj frci, ali mogao bih recimo od utorka ili srede da napisem nesto o FSOu. Za pocetak, mislim da ne bi bilo lose da se ovaj degojsov post nadje tamo u TOP topicu.

Slazem se da Degojsov post treba da se nadje tamo, samo
sto ja to tamo ne mogu da prebacim samo njegov post. To bi trebao Degojs ponovo da postuje.