Imam prog. napravljen u visual basic-u, ima li netko ideju kako da napravim da kad jednom pokrenem taj prog. da mi se on uvijek pokrece startanjem win-a, tj. u startup-u, i treba mi kod za to
Hvala
Hvala
visual basic startup problem
Zaključano
Zakačeno
Potrazi u Windows forumima kako se namesta da se neka aplikacija pokrece pri startup-u a onda odaberi neki nacin samo iz koda to uradi. Ako ne budes znao taj poslednji deo, pitaj
Ja koliko znam imaš varijantu da postaviš prečicu do programa u startup folder ili da upišeš u registry vrednost koja će da pokreće tvoj program.
Evo koda iz jednog mog programa:
Moraš da na početku fajla dodaš using Microsoft.Win32;
chkAutoStartUp je kontrola tipa CheckBox.
Evo koda iz jednog mog programa:
Code:
try
{
RegistryKey reg = Registry.CurrentUser.CreateSubKey(
"Software\\Microsoft\\Windows\\CurrentVersion\\Run");
if (chkAutoStartUp.Checked == true)
reg.SetValue("startWithWin", Application.ExecutablePath);
else reg.DeleteValue("startWithWin", false);
}
catch (Exception pe)
{
MessageBox.Show("Problem pri upisu u registry, izmene neće biti sačuvane" +
":\n" + pe.Message, "Error");
}
try
{
RegistryKey reg = Registry.CurrentUser.CreateSubKey(
"Software\\Microsoft\\Windows\\CurrentVersion\\Run");
if (chkAutoStartUp.Checked == true)
reg.SetValue("startWithWin", Application.ExecutablePath);
else reg.DeleteValue("startWithWin", false);
}
catch (Exception pe)
{
MessageBox.Show("Problem pri upisu u registry, izmene neće biti sačuvane" +
":\n" + pe.Message, "Error");
}
Moraš da na početku fajla dodaš using Microsoft.Win32;
chkAutoStartUp je kontrola tipa CheckBox.
izmenjeno 1 put, poslednji put pr0gramer 11.12.2007. u 21:18
Izmene poruke
- pr0gramer11.12.2007. u 21:18zapis iz teksta poruke
hm..
Private Sub Form_Load()
try
{
RegistryKey reg = Registry.CurrentUser.CreateSubKey(
"Software\\Microsoft\\Windows\\CurrentVersion\\Run");
if (chkAutoStartUp.Checked == true)
reg.SetValue("startWithWin", Application.ExecutablePath);
else reg.DeleteValue("startWithWin", false);
}
catch (Exception pe)
{
MessageBox.Show("Problem pri upisu u registry, izmene nec'e biti sac(uvane" +
":\n" + pe.Message, "Error");
}
End Sub
ovako ne radi, mora da sam nesto u kodu zeznuo
Private Sub Form_Load()
try
{
RegistryKey reg = Registry.CurrentUser.CreateSubKey(
"Software\\Microsoft\\Windows\\CurrentVersion\\Run");
if (chkAutoStartUp.Checked == true)
reg.SetValue("startWithWin", Application.ExecutablePath);
else reg.DeleteValue("startWithWin", false);
}
catch (Exception pe)
{
MessageBox.Show("Problem pri upisu u registry, izmene nec'e biti sac(uvane" +
":\n" + pe.Message, "Error");
}
End Sub
ovako ne radi, mora da sam nesto u kodu zeznuo
Možda treba promeniti kod malo ja ne znam VB.NET.
Reci nam koju grešku dobijaš.
I jel si dodao onu using direktivu?
Reci nam koju grešku dobijaš.
I jel si dodao onu using direktivu?
Citat:
toxi_programer: Možda treba promeniti kod malo ja ne znam VB.NET.
Reci nam koju grešku dobijaš.
I jel si dodao onu using direktivu?
Reci nam koju grešku dobijaš.
I jel si dodao onu using direktivu?
Imports u VB.NET, ne using.
Potpis
Mislim, šta reći !
Citat:
pr0gramer: ovako ne radi, mora da sam nesto u kodu zeznuo
Jesi - pomesao si vb.net i c# kod.
koristim vb6, tek sam počeo raditi u njemu, pa vas molim dali mi netko može reći koji kod da stavim pod
Private Sub Form_Load()
Hvala
Private Sub Form_Load()
Hvala
evo krckova klasa....
http://static.elitesecurity.or...8/488354/clsRegistryAccess.cls
http://static.elitesecurity.or...8/488354/clsRegistryAccess.cls
Code:
Dim Registry As New clsRegistryAccess
Dim lRet As Long
Dim AppPath As String
AppPath = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
lRet = Registry.WriteString("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", App.Title, AppPath)
Dim Registry As New clsRegistryAccess
Dim lRet As Long
Dim AppPath As String
AppPath = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
lRet = Registry.WriteString("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", App.Title, AppPath)
ajoj al je ovo mator kod :)
odavno vec imam u planu da napisem novu klasu (od "nule") ali ne stize se... al ok, radi posao jos uvek i ova :D
odavno vec imam u planu da napisem novu klasu (od "nule") ali ne stize se... al ok, radi posao jos uvek i ova :D
http://img160.imagevenue.com/i...?image=89384_vb_122_1028lo.JPG
opet imam problema, gore je screenshot
Hvala
opet imam problema, gore je screenshot
Hvala
pa jesi ubacio klasu u program?
@Aleksandar Ružičić i ova klasa je super,barem meni :D
@Aleksandar Ružičić i ova klasa je super,barem meni :D
Nisam, dali mi možeš objasniti to s klasom, kako da ubacim?
Hvala
Hvala
U Project prozoru desni klik/add/Class Module pa na tab Existing, pronadjes klasu i kad je uvezes, CTRL+S da bi je snimio.
Potpis
Svoje najlepše dane proveo sam noću.
ali koju klasu trebam ubaciti za ovaj kod?
Dim Registry As New clsRegistryAccess
Dim lRet As Long
Dim AppPath As String
AppPath = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
lRet = Registry.WriteString("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", App.Title, AppPath)
Dim Registry As New clsRegistryAccess
Dim lRet As Long
Dim AppPath As String
AppPath = Replace(App.Path & "\" & App.EXEName & ".exe", "\\", "\")
lRet = Registry.WriteString("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", App.Title, AppPath)
Imam utisak da nisi iskopirao kod iz klase koju je @The_End_is_close okacio zajedno sa primerom za njeno pozivanje.
Evo ga ovde: http://static.elitesecurity.or...8/488354/clsRegistryAccess.cls
Kreiraj novi Class Module i iskopiraj ovaj kod u njega pa usnimi. Zatim koristi kod za njeno pozivanje.
Evo ga ovde: http://static.elitesecurity.or...8/488354/clsRegistryAccess.cls
Kreiraj novi Class Module i iskopiraj ovaj kod u njega pa usnimi. Zatim koristi kod za njeno pozivanje.
Potpis
Svoje najlepše dane proveo sam noću.
ili moze direktno da ubaci klasu,bez kopiranja....
opet ne radi...
Može mi netko od vas to napraviti pa mi poslati source za vb6
Hvala
Može mi netko od vas to napraviti pa mi poslati source za vb6
Hvala
Evo ti to isto napravljeno.
Potpis
Svoje najlepše dane proveo sam noću.
hvala, ovo radi...