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
.