Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt

Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt 03.01.2008. u 12:32 · pre 229 meseci #1

Ne mogu da nadjem gresku. Evo koda:

Code:
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 Const SW_SHOW = 5

Private Sub cmdAktiviraj_Click()
If lblVreme.Caption = Vreme And lblDatum.Caption = Datum Then
ShellExecute hwnd, "open", Sajt, vbNullString, vbNullString, SW_SHOW
End If
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 900
Vreme = txtVreme.Text
Datum = txtDatum.Text
Sajt = txtSajt.Text
End Sub
Private Sub Timer1_Timer()
lblVreme.Caption = Time
lblDatum.Caption = Date
End Sub

Unapred Hvala,
Aleksandar

Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt 03.01.2008. u 12:59 · pre 229 meseci #2

Pa, hajd' razmisli malo, kada treba da se izvrsi provera da li je odgovarajuce vreme a kada si ti stavio da se vrsi ta provera.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt 03.01.2008. u 15:26 · pre 229 meseci #3

Hm...malo mi je nelogicno da provera bude u dugmetu jer ce on onda proveriti i ako nisi kliknuo u tom trenutnku nista od otvaranja sajta :) ali kako drugacije?!

Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt 03.01.2008. u 16:56 · pre 229 meseci #4

Tako kako si napravio, proverio bi samo tada kada si kliknuo. Ono sto trebas da uradis je da proveru vrsis pri svakoj promeni teksta u label-i, a to je u dogadjaju Timer1_Timer.

Potpis

Nebojsa Milanovic:
-Trumpa smatram vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu
-Rusija ne laže, ne vodi osvajačke ratove
-Trump je svetla tačka u USA blatu
-Elon Musk, možda najpametniji i najtrezveniji Amerikanac

Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt 03.01.2008. u 17:29 · pre 229 meseci #5

Prvi deo vase poruke mi je jasan jel sam i ja to rekao :) ali drugi nije...Kolko sam razumeo treba da stavim proveru u kod Timer-a...shta onda sa dugmetom?!

Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt 03.01.2008. u 18:47 · pre 229 meseci #6

Pa ništa. Ja ionako ne znam za koj će, da prostiš, to dugme uopšte. Stavi ovako

Code:
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 Const SW_SHOW = 5

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 900
Sajt = txtSajt.Text
End Sub

Private Sub Timer1_Timer()
lblVreme.Caption = Time
lblDatum.Caption = Date
If lblVreme.Caption = txtVreme.Text And lblDatum.Caption = txtDatum.Text Then
ShellExecute hwnd, "open", Sajt, vbNullString, vbNullString, SW_SHOW
End If
End Sub

Potpis