Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt

[es] :: Visual Basic 6 :: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt

[ Pregleda: 2270 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 11:32 - pre 198 meseci
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
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851



+4784 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 11:59 - pre 198 meseci
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.
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 14:26 - pre 198 meseci
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?!
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851



+4784 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 15:56 - pre 198 meseci
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.
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 16:29 - pre 198 meseci
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?!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.223.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 17:47 - pre 198 meseci
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

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 18:15 - pre 198 meseci
Ne radi kod...
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.223.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt03.01.2008. u 19:42 - pre 198 meseci
Polako proradiće...
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt04.01.2008. u 07:33 - pre 198 meseci
lol, kad juce poslepodne :) Nije mi jasno sto ne radi, kod je prefektan...
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.223.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt04.01.2008. u 16:58 - pre 198 meseci
Pa proradiće onda kada budeš jasnije izneo kako se ispoljava to "kod ne radi", tj. kada budeš malo rečitiji prilikom izlaganja problema, pa nam objasniš da li ti izbacuje neku grešku ili jednostavno ne radi ono što ti hoćeš, da li ti u textbox-ovima stoji ono što treba da stoji, tj. datum i vreme u odgovarajućem formatu, da li si isprobao delove koda pojedinačno, tj. da li ti kod za otvaranje sajta uopšte radi, znači kad ga probaš bez tajmera i slično... pa onda možemo sistemom eliminacije da utvrdimo koji deo koda pravi problem. Ovako kad kažeš kod ne radi, samo Kleopatra može da ti pomogne...
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt04.01.2008. u 18:09 - pre 198 meseci
Ok, izvini. Kod za sajt radi sigurno.Vreme i datum su u odgovarajucem formatu. Jednostavno nista ne uradi kada dodje do odredjenog datuma i vremena
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.223.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt04.01.2008. u 19:08 - pre 198 meseci
Onda verovatno imaš problem sa tajmerom, tj. najverovatnije promaši da apdejtuje poneku sekundu. Probaj da staviš sve iz tajmera u neku petlju i dodaj DoEvents na početku petlje, pa vidi šta se dešava.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt05.01.2008. u 16:29 - pre 198 meseci
hm, ja sam tek poceo, ne znam shta je petlja....
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.209.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt05.01.2008. u 21:07 - pre 198 meseci
Code:
Do
DoEvents
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
Exit Do
End If
Loop

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt06.01.2008. u 09:35 - pre 198 meseci
Ok, a to ide u?!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
89.216.223.*

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt06.01.2008. u 15:25 - pre 198 meseci
Pa stavi gde hoćeš, u Load event forme recimo ili u proceduru pa je pozovi od negde.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

GazdaSale
Beograd

Član broj: 134519
Poruke: 145
*.eunet.yu.



Profil

icon Re: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt06.01.2008. u 16:47 - pre 198 meseci
Ok, hvala na svemu!
 
Odgovor na temu

[es] :: Visual Basic 6 :: Ne mogu da nadjem gresku-U odredjeno vreme otvori sajt

[ Pregleda: 2270 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.