Moj program (Shutdown/Restart/Log Off & Error Handler & ...)

[ VRKY @ 19.05.2004. 16:19 ] @

Pozdrav:

Pitanje br.1
Želim ako bude neki error da se pokaže neki MsgBox,koja je naredba za to.

Pitanje br.2
Opcije Log off , Turn off i Restart rade samo na XP-u jer samo znam za Xp za to sourceve,zna li ko te sourceve da radi na svim Windowsima.

Program je daleko od završetka.

Pozdrav

[Ovu poruku je menjao mladenovicz dana 22.05.2004. u 18:25 GMT]

[ mladenovicz @ 19.05.2004. 16:35 ] @

Code:

Private MySubName()
    On Error GoTo Proc_Error

Proc_Exit:
    On Error Resume Next
    ' clean up code goes here
    Exit Sub ' or Exit Function

Proc_Error:
    MsgBox Err.Number & " - " & Err.Description
    Resume Proc_Exit
End Sub

2)
http://www.elitesecurity.org/poruka/274467

[ mladenovicz @ 19.05.2004. 18:05 ] @

Code:

Private MySubName()
    On Error GoTo Proc_Error

    ' ovde ide kod procedure/funkcije

Proc_Exit:
    On Error Resume Next
    'ovde setujes objekte na nothing ako ih ima
    Exit Sub ' or Exit Function

Proc_Error:
    MsgBox Err.Number & " - " & Err.Description
    Resume Proc_Exit
End Sub

2) ne znam sta ti nije jasno. imas kod za shutdown/restart/logoff. Pise sta treba da ide u modul. Napravi modul, pasteuj kod tamo i onda pozivaj

Code:

    LogOffNT True
    RebootNT True
    ShutDownNT True

zavisno od tog koje je dugme klknuto.

P.S.
Kod ti je necitak, jer ga ne nazubljes. Sve ti je u istoj liniji. Koristi tab (pogledaj npr kod za shutdown na linku koji sam postavio)

[ VRKY @ 19.05.2004. 19:44 ] @

Di treba da ovo stavim:

Code:
LogOffNT True
RebootNT True
ShutDownNT True

[ mladenovicz @ 20.05.2004. 08:50 ] @

Treba da stavis na Click event za odgovarajuce dugme umesto Shell Shutdown ..... Nazivi funkcija su poprilicno opisni.

[ VRKY @ 20.05.2004. 12:04 ] @

Želim da kad se pritisne npr.Command.... da se meni može poslat mail,znači da kad se pritisne na to da se otvori Outlook EXpress i da se iz njega meni može poslat mail.

[ mladenovicz @ 20.05.2004. 12:26 ] @

Code:

Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click()
    ShellExecute Me.hWnd, "open", "mailto:[email protected]", vbNull, vbNull, SW_SHOWNORMAL
End Sub

[ VRKY @ 20.05.2004. 15:50 ] @

Još jedno pitanje:
Želim da sa opcije Restart,lLOg off,Turn off ima pasword.Znači kad neko npr. oće ugasiti komp klikne na Turn off i ono ga traži password.Kako to napraviti.
Pozdrav

[ VRKY @ 20.05.2004. 15:52 ] @

E i zaboravio sam ovo:
Da ima optionbutton na kojem se može određivati želi li se koristiti password ili ne??

[ VRKY @ 21.05.2004. 14:08 ] @

Kako narikat kad se program pokrene da se ne može povećavati prozor programa.Kad stavim u Enabled False ne mogu niš da pokrenem u programau,pa moram ubit program iz Task Menegera.

[ mladenovicz @ 21.05.2004. 14:11 ] @

U design timeu podesi formi BorderStyle = 1 - Fixed Single

[ VRKY @ 21.05.2004. 14:22 ] @

Može li se kako drukčije jer mi se taj okvir ne sviđa ja koristim 5-Sisable .......

[ BeastMaster @ 21.05.2004. 14:42 ] @

Pa onda izaberi 4 (Fixed ToolWindow) identično izgleda kao 5 samo što je fiksnih dimenzija.

[ VRKY @ 21.05.2004. 14:57 ] @

Hvala care.

[ VRKY @ 21.05.2004. 18:12 ] @

Imam jednu ideju samo ne znam kako je ostvariti.
Želim npr. Kad se pritisne Restart da se puni (kao kod instalacije nekog programa ono od 0% do 100%) i kad se napuni 100% da se komp restarta.
Ili jednostavnije kako se to pravi od 0% do 100%.

[ mladenovicz @ 21.05.2004. 19:14 ] @

Progressbar (Microsoft Windows Common Controls)

[ VRKY @ 21.05.2004. 20:18 ] @

Ma znam ja da je to Progressbar ali koji sourc trebam stavit da se ono počne puniti.
Možerš li tu uplodati formu za sourcom i Progressbar-om.Da vidim kako to izgleda.
Pozdrav

[ BeastMaster @ 21.05.2004. 21:20 ] @

Ne znam dal sam te baš dobro razumeo ali u svakom slučaju evo ti mali primer progers bara koj se "puni" uz pomoć najobičnijeg tajmera....

Pozdrav

[ VRKY @ 21.05.2004. 21:39 ] @

Neštima nešto,otvara mi se u Notepad-u i sve je nekako pomješano,niš ne razumim.
Aj stavi tu sourc ili nešto drugo samo da vidim kako to ide.

[ BeastMaster @ 21.05.2004. 21:50 ] @

Pa samo pokreni ProgresBar.vbp (otvori ga u VB-u)

P.S. Potreban ti je i SP6 za VB jer je Win common controls 6.0 (SP6)...

[ Marko_L @ 22.05.2004. 12:56 ] @

Stavi 1 Progressbar i 1 Timer na formu i ukucaj sledeći kod:

Code:
Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
Timer1.Interval = 1 'brzina kojom zelis da se popunjava progress izrazen u milisekundama
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1 'broj koraka kojim se popunjava progress
If ProgressBar1.Value = 100 Then
MsgBox "Progress je stigao do kraja"
Timer1.Enabled = False
End If
End Sub

[ VRKY @ 22.05.2004. 15:00 ] @

Kako doći do Progressbar-a.I pod kakvim je imenom.Dolazi li se do njega ovako:
Project-Componentes-Controls i kako se sad tu zove???

[ Marko_L @ 22.05.2004. 15:04 ] @

Microsoft Windows Common Controls 6.0 (SP4)

[ VRKY @ 22.05.2004. 16:17 ] @

Može li neko uplodati neku ikonu koju mogu stavit za svoj program,jer ne znam koju bi ikonu stavio.
Pozdrav

[ filipc @ 22.05.2004. 16:26 ] @

Evo ti jedna a ti kazi da li ti se svidja :D

[ mladenovicz @ 22.05.2004. 16:27 ] @

VRKY, ajde ne diraj naziv teme. Tema ne moze da se zove Moj program, vec mora da ima veze sa pitanjima koja su postavljena.

[ VRKY @ 22.05.2004. 22:20 ] @

Još jedno pitanje:
Napravim npr u Menu Editoru.... Restart i kako mogu napravit da kad se npr. pritisne F5 da se restarta komp.

[ filipc @ 22.05.2004. 22:57 ] @

Veoma lako...
Kad pravis meni znaci prvo napravis meni "restrart" i podmeni "restart" ili sl.

E kad se pravi meni on te pite shortcut ti stavi na f5 i to je to.

[ filipc @ 22.05.2004. 23:08 ] @

evo primera...

[ VRKY @ 23.05.2004. 07:29 ] @

Pozdrav:
Evo još jedno pitanje:
Npr. postavim CommandBut.... i zove se Restart,i kad ja npr. stavim kursor na njega da se onako na brzinu pojavi ko neki opis (kao na ES-u kad se stavim kursor na neki forum pa piše opis foruma)

[ BeastMaster @ 23.05.2004. 11:08 ] @

ToolTipText....

[ VRKY @ 23.05.2004. 13:09 ] @

Hvala to radi.
A kako nariktat da kad se isto stavi kursor na taj CommandBu.... da on onako posvijetli (što li već) kao kod Turn off Computer?
Pozdrav

[ filipc @ 23.05.2004. 13:14 ] @

E Vrky kako si uradio ono kad stavis strelicu na turn off ono se kursor pretvori u ruku sa kaziprstom?

[ VRKY @ 23.05.2004. 13:43 ] @

Kilkneš na taj Button pa MouseIcon (tu odabereš ikonu) i onda MousPointer staviš na 99- Custom

[ mladenovicz @ 23.05.2004. 13:47 ] @

@VRKY
Pogledaj ovu temu

[ VRKY @ 23.05.2004. 14:15 ] @

aj ti to meni malo objasni jer iz onog ne kužim šta treba

[ mladenovicz @ 23.05.2004. 14:48 ] @

Otvori novi projekat, stavi na formu tri buttona i pasteuj onaj kod pa ces videti sta i kako radi. Kad je mis iznad buttona (MouseMove event) menja mu se backcolor, a kad je van buttona (na formi) vraca mu stari backcolor. Podesi boje prema svojim potrebama i to je to.

[ VRKY @ 23.05.2004. 20:37 ] @

Pitanje:
Želim stavit u svoj program opcije Turn off Monitir i Turn on Mo….. Kako da to napravim ,sourc???

[ filipc @ 24.05.2004. 21:27 ] @

Citat:

Di treba da ovo stavim:

[Code:]
LogOffNT True
RebootNT True
ShutDownNT True
[/code]

Ovo ne mogu nikako da uradim...
Moze li neko da mi prikaze izgled koda u vb kako izgleda sta treba da uradim?
Kako da postavim na event?

[ VRKY @ 24.05.2004. 21:29 ] @

Private Sub Command1_Click()
LogOffNT True
End Sub

itd......

[ filipc @ 24.05.2004. 21:38 ] @

Citat:

VRKY:Private Sub Command1_Click()
LogOffNT True
End Sub

itd......

To nije tacno mora jos nesto da se doda evo te glupe greske:

sub or function not defeined!

[ Marko_L @ 24.05.2004. 22:23 ] @

Jbt, jel toliko teško pročitati temu od početka.Evo ti ovde http://www.elitesecurity.org/tema/54245/0#348844 je mladenovicz dao link ka kodu koji ti treba da bi to funkcionisalo.

[ VRKY @ 24.05.2004. 22:26 ] @

Pa trebaš da još staviš ono što je rekao mladenovicz u modul

[ filipc @ 24.05.2004. 23:13 ] @

Ma procitao sam celu temu najmanje 10 puta ali mi ponovo nije jasno!
Kakav je to modul?
Sta treba da uradim da dodjem da tog modula?

Potpuno sam zbunjen a ovo mi je potrebno molim nekog ako moze da mi bolje objasni.

[ VRKY @ 25.05.2004. 16:51 ] @

Zna li ko ovo

Citat:

VRKY:Pitanje:
Želim stavit u svoj program opcije Turn off Monitir i Turn on Mo….. Kako da to napravim ,sourc???

[ mladenovicz @ 25.05.2004. 17:18 ] @

http://www.google.com/search?q...um=0&ie=utf-8&oe=utf-8

[ VRKY @ 26.05.2004. 17:26 ] @

Kako napravit da se program može koristiti npr. 30 dana ,a kad to istekne da on više ne radi,dakle treba ukucat seriski kod.Kako to napravit??

[ filipc @ 26.05.2004. 18:13 ] @

Veoma prosto samo se forum treba prelistati :)

Code:
Private Sub Form_Load()
'Trazi u registru setting nazvan "Count" i vrijednost upisuje u Text1
Text1.Text = GetSetting(App.Title, "Settings", "Count", Text1.Text)
'Na vrijednost dodaje +1 (Na startu u property Text1.Text upisi nulu)
Text1 = Text1 + 1
If Text1 > 9 Then
MsgBox "Trial Version Expired",vbinformation
end
End If
End Sub

Private Sub Text1_Change()
'Na promjenu u Text1 zapisuje u registar novu vrijednost settinga "Count"
SaveSetting App.Title, "Settings", "Count", Text1.Text
End Sub

Stavi na formu jedan textbox i u properties stavi na locked true
Ovo radi da se program moze startovati 10 puta, pa ti pogledaj source i promeni na koliko hoces.

[ filipc @ 26.05.2004. 18:36 ] @

zamolio bih mladenovicz-a ako moze da mi pomogne.
Imam jedan problem :
Sve sam uradio o regisrtvanju i radi sve kad ubacim moj serial number sve lepo proradi nego kako da to snimim jer mi trazi da registrujem uvek kad stratujem program?

Molim te ako mozes i znas da mi odgovoris.

Pozdrav , filipc

[ mladenovicz @ 26.05.2004. 18:41 ] @

Moras negde spolja da cuvas informaciju da li je program registrovan ili ne (registry, settings fajl, ....). Kad se aplikacija pokrene trazis informaciju da li je aplikacija registrovana, pa ako nije prikazes formu za registraciju,

[ filipc @ 26.05.2004. 18:45 ] @

Ali kako?
To meni nije jasno molim te ako mozes da mi malo to objasnis.

filipc

[ filipc @ 26.05.2004. 18:52 ] @

Molim te ako mozes da mi pojasnis kako da naprimer napravim .ini fajl "ProgramRegistered" u "c:\windows " i da tu pise ono sto je snimano od registered.'

Please Help.

Izvini sto sam dosadan .

filipc

[ mladenovicz @ 26.05.2004. 18:56 ] @

Pretrazi ovaj forum (keyword: INI) i sve ce ti se samo kasti :)

[ filipc @ 26.05.2004. 18:58 ] @

koja tema tacnije ima ih mnogo...

[ filipc @ 26.05.2004. 19:20 ] @

sve sam se snasao i napravio odgovarajuci text (.ini) ali sad kako da procitam taj .ini?

Da mi osurce posto onaj sto sam nasao nece da radi.

Pozdrav

[ filipc @ 26.05.2004. 20:49 ] @

@mladenovicz

Mozes li da mi postujes ovde source za citanje onog text fajla sto sam snimio posle registracije prog.

poz

[ BobMarley @ 26.05.2004. 22:15 ] @

moram da vas upozorim na jednu stvar , koje se zasad necu drzati dok ima dobrih ljudi da gube vrijeme, ali nemozes dati ime temi "Moj program" i onda svaki post = jedno pitanje.

Sada koliko ja vidim drugi ljudi su tebi napisali program bez da si ti ista napravio osim jednu formu otvorio. U pravilniku jasno pise da nema trazenja gotovih rjesenja i usluga od drugih .. eventualno nekih sitnih komadica programa.

[ VRKY @ 27.05.2004. 05:37 ] @

Ja ih pitam gdje zapnem,a program ima još mnogo toga osim ovog tu.
PoZdRaV

[ mladenovicz @ 27.05.2004. 09:56 ] @

@filipc
Modul za rad sa INI fajlom

@BobMarley
U pravu si, ali da je svako pitanje bilo nova tema, imali bar 20 novih tema do sada. Medjutim, mora da se uvede malo reda ovde.

@filipc, VRKY
Momci, vi bi trebalo da se malo uozbiljite. Vecinu stvari koju ste pitali mozete naci u MSDNu, a o pretrazi ovog foruma i googleu da ne pricam. Ajde malo pokazite samostalnosti u radu i ne ocekujte da dobijete sve na tacni, vec se potrudite malo. Jos jednom, sve sto se pitali moze da se nadje na ovom forumu, u MSDNu i googleu i to za veoma kratko vreme. Znaci, potrudite se malo vise, inace ce se postovi brisati.

Ovde cu zakljucati temu. Za sva nova pitanja, otvorite nove teme, ali pre toga procitajte FAQ top topic.