Esperti di Visual Basic, Help!

[Cthulhu]

Ho appena finito di creare un programma in Visual Basic per la gestione di un archivio personale ma mi mancano da completare due cosucce...

1) devo fare in modo che l'utente non possa terminare il programma tramite il task manager (ctrl-alt-canc)

2) il programma deve avviarsi all'avvio di win xp

Se qualcuno potesse aiutarmi ne sarei infinitamente grato!!!

[Emptiness]

Cthulhu

Ho appena finito di creare un programma in Visual Basic per la gestione di un archivio personale ma mi mancano da completare due cosucce...

1) devo fare in modo che l'utente non possa terminare il programma tramite il task manager (ctrl-alt-canc)

2) il programma deve avviarsi all'avvio di win xp

Se qualcuno potesse aiutarmi ne sarei infinitamente grato!!!

1) Non credo proprio si possa fare, o meglio, non conosco una API addetta a certe funzioni...a meno che non elimini direttamente l'eseguibile del TM...

2) O modifichi certe chiavi di registro o metti un collegamento al programma in Esecuzione Automatica.

[<TheShop>Evoc Thurner]

puoi postare il codice relativo alla gestione degli archivi?

[vegetto]

Riguardo alla seconda domanda prova ad usare questo codice, l'ho scritto adesso quindi può esserci qualche errore


'Nel Modulo:
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni 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.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Const HKEY_LOCAL_MACHINE = &H80000002
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Public Sub SaveString(hKey As Long, StrPath As String, StrValue As String, StrData As String)
Dim KeyH&
r = RegCreateKey(hKey, StrPath, KeyH&)
r = RegSetValueEx(KeyH&, StrValue, 0, 1, ByVal StrData, Len(StrData))
r = RegCloseKey(KeyH&)
End Sub



Poi nel form_load metti:
SaveString HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", "NomeDelProg", "C:\PercorsoProg"

Mentre per la TaskBar:
Nelle Proprietà del Form metti: ShowMeInTaskBar = False

[gymvideo]

ma se l'hai scritto te quel codice perchè ci sono i commenti in inglese?

[Emptiness]

gymvideo

ma se l'hai scritto te quel codice perchè ci sono i commenti in inglese?

Vegetto, mi sa che non reggi molto con certe cose...

[nicjedi]

gymvideo

ma se l'hai scritto te quel codice perchè ci sono i commenti in inglese?

Ehm..non c'è nessun commento in inglese...al massimo le proprietà degli oggetti sono in inglese, ma quello è ovvio...

Ciao

Nicola

[Emptiness]

nicjedi

Ehm..non c'è nessun commento in inglese...al massimo le proprietà degli oggetti sono in inglese, ma quello è ovvio...

Ciao

Nicola

Guarda bene...
Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

[<TheShop>Evoc Thurner]

gymvideo

ma se l'hai scritto te quel codice perchè ci sono i commenti in inglese?

[nicjedi]

Emptiness

Guarda bene...
Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Ah e..l'avem mia et ..

Ciao

Nicola

[<TheShop>Evoc Thurner]

nicjedi

Ah e..l'avem mia et ..

Ciao

Nicola

8|

[vegetto]

MSDN

[vegetto]

Ho usato l' MSDN , dato che ritorna utile anche a me per un programma di video scrittura, sto ancora a livelli troppo bassi con il visual basic e alcune volte mi aiuto con msdn, quando sarò più esperto non credo di averne più bisogno.