[es] - Kako da napravim program za automatsko pokretanje nekog file-a

ThGamEr
Student
Everywhere

Član broj: 112562
Poruke: 49
*.742.crnagora.net.

Profil

Kako da napravim program za automatsko pokretanje nekog file-a

^{29.05.2010. u 11:37 - pre 169 meseci}

Treba mi program koji ce pokretati jedan file na 15 minuta. Posto na kompu imam instaliran samo VB onda reko ajde da stavim u ovu temu. Znaci program koji ce raditi u pozadini, koji ce se dizati u startup-u i koji ce na svakih 15 minuta da pokrene jedan isti file sa neke lokacije.

Ok, to nebi trebalo da bude problem nekom ko zna programiranje, ali eto ja ne znam, a takav program ne mogu da nadjem na netu, pa reko da se obratim vamo.

Moze li neko da mi pomogne.

I am a professional killer, I kill for money,
but you are my friend, I kill you for nothing.

Odgovor na temu

t.marko016

Član broj: 255856
Poruke: 196
*.dynamic.isp.telekom.rs.

+10 Profil

Re: Kako da napravim program za automatsko pokretanje nekog file-a

^{29.05.2010. u 19:26 - pre 169 meseci}

Bratac jeste da ovakvih tema i odgovora ima na kilo al et dosadno mi pa da ti napisem :D.

Funkcijom "Shell" pokreces neki fajl, ovim kodom pokreces Widnows-ov Calculator umesto "Calc.exe" stavi putanju programa kog
pokreces.
"DateDiff" funkcija pravi razliku izmedju prvog i drugog vremena i pretvara sve to u minute tako da If petljom mozes da ispitas
dal je proso minut, dva, tri...
Sve ovo s vremenom je OK samo nece ti biti tacno u minut uvek ce po nekoliko sekundi da kasni, mozes jednostavnom racunicom to da sredis.
Da bi ti se pokretao program uz Windows moras da smestis putanju istog u Registry Editor.

Code:

Option Explicit

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 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
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
Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Const REGKEY = "Software\Microsoft\Windows\CurrentVersion\Run"
Const KEY_WRITE = &H20006

Dim Path As Long
Dim ST As Date

Private Sub Form_Load()
ST = Now
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 1000

If DateDiff("n", ST, Now) > 14 Then
    Shell ("Calc.exe")
    ST = Now
End If
End Sub

Private Sub Command1_Click()
If RegOpenKeyEx(HKEY_CURRENT_USER, REGKEY, 0, KEY_WRITE, Path) Then Exit Sub
  RegSetValueEx Path, App.Title, 0, REG_SZ, ByVal App.Path & "\" & App.EXEName & ".exe", Len(App.Path & "\" & App.EXEName & ".exe")
End Sub

Private Sub Command2_Click()
If RegOpenKeyEx(HKEY_CURRENT_USER, REGKEY, 0, KEY_WRITE, Path) Then Exit Sub
  RegDeleteValue Path, App.Title
End Sub

Na Command1 upisujes putanju u Regedit a na Command2 brises.

Dodaj malo kreativnosti i to je to.

Pozdrav

Odgovor na temu