Keskustelu: Ohjelmointikysymykset: VB6: onkelma koulussa :(

tuota noin, kun koulussa meillä on verkkopalvelinkurssi ja ekalla kerralla pääsin suht hyvälle koneelle(missä olen ennenkin ollut) , ja nyt tokalla ja kolmanella kerralla siihen koneelle ennen minua on rynnännyt eräs poika. Hän on AIKA iso kokoinen (leveydessä) ja ei ikinä ikinä päästä mua siihen, ja en vitti vetää nokkaan sitä siin kaikkien eesä (kerran jo melkeen vetäsin :) ja ***** se ärsyttää!! ja maikka vaan imee munaa siel oman pöydän takana eikä sano mitää! (tää kyseinen poika nuoleskelee sitä maikkaa), .. ja nyt mä oon saanu tarpeekseni! mä oon tehny vb:llä sellasen ohjelman mikä kyl ottaa sitä kaaliin ku se avaa koneen, mutta... ku mulla on tietotekniikkaa torstaina viimeks ja se verkkopalvelin on maanantai iltapäivällä... ja siinä välillä siinä samaisella koneella käy muitankin , enkä haluis niitten kärsivän siit :):):):) ... ni tota miten mäs saisin siihen ajastuksen siihen ohjelmaan (että se käynnistyy maanantaina ja tiettyyn kellon aikaan) .. se ohjelma käynnistyy koneen mukana mutta miten sen saisi tarkkailemaan koska on oikea päivä ja kellon aika? ....tää on vähä epäselvä mut kysykää tarkennusta :DD:

Laita koneen mukana käynnistyvään ohjelmaan ajastin, joka tutkii halutuin välein kellonaikaa. Jos jippo tehdään vain tiettynä viikonpäivänä, laita alkuun testaus, jolla näet kuluvan viikonpäivän. Jos ei oo sopiva, ohjelma sammuttaa itsensä.

Tai näin:
Ohjelma käynnistyy koneen mukana ja sekunnin välein tarkistaa ajan ja päivän, jos päivä ja aika on oikein niin käynnistää tämän ohjelma.

Joo, eli kaksi ohjelmaa, joista toinen käynnistyy automaattisesti Wintoosan mukana, ja valvoo milloin on oikea aika käynnistää varsinainen pilailuohjelma, tai mikä tämä nyt sitten onkaan. Esim. näin:

Private Sub Timer1_Timer()

If Date$ = "09-08-2004" And Time$ = "05:50:30" Then
  Shell "pilailuohjelma.exe"
End If

End Sub

Ja muista totta kai pistää ShowInTaskBar Falseksi. ;)

Suosittelen hunajavohvelin tapaa, mutta;
Saakos teidän koulun koneille asentaa, "ylimääräisiä ohjelmia"?
Tai no, itse en tähän voi sanoa mitään. Kokeilenhan minäkin koulussa aina kaikkea, mitä olen kotona tehnyt ;) (mutta testauksien jälkeen ,aina poistanut rojut).

Joo, voihan CoDeR sitten loistaa tunnilla, kun on ainoa, joka tajuaa heti, mikä on vikana, ja osaa poistaa vian. :)

hih.. juu kiitti! nyt alkaa tapahtuu (nauraa räkäisesti 8)
ja kyl me saadaan laittaa koulun koneille kamaa (tai ei sitä kiellettykkään oo :):)

tuota noin... miten mä saisin sen sillain että toi hunajavohvelin näyttämä esimerkki olis niinku näin: et jos on 09-08-2004 ja kello on siis niinkun vaik 8-10 niin silloin tulis toi shelli? siis jos kello on jotain kahdeksan ja kymmenen väliltä (esim. 8.30 tai 9.24.56, tai ihan mitä vaan), mutta jos se on yli tai alle 8-10 niin sit ei mittää.?? :) (vähä vaikee selittää mut toivottavasti tajusitte :)

100% varmuudella siihen ei mee kukaan muu. mä haluun tehä sen tol taval mitä selitin , jos joku osais auttaa?? :| (toivotaan)

Onnistuisikohan ihan vain vertailemalla:

If time < 10.00 and > 08.00 then
'shelli tähän
End if

Tee sitten sellanen systeemi että saat itse disabloitua sen todella helposti ja nopeasti, koska epäilen että tuo 100 % varmuus onkin 99% varmuus... siis joskushan voi tapahtuu poikkeus et joku on kipeenä tai jotai systeemei muutetaan yms. Ihan vaan varmuuden vuoksi =)

Merkkijonoja ei pysty vertailemaan sen mukaan, kumman luku on suurempi, eikä Val-funktiokaan ottaisi tuosta muuta kuin tunnit. Time$-funktion sijaan kannattanee käyttää Timer-funktiota, joka palauttaa keskiyöstä kuluneiden sekuntien määrän. Esim. kun kello on kahdeksan aamulla, keskiyöstä on kulunut 8*60*60 sekuntia, eli 28800 sekuntia. Sitten pistät vain:

If Timer > 28800 Then ....

nii mut jos joku muu menee siihen koneelle ku se, ni se oon mä :) ja mä osaan purkaa sen ongleman (tietty:)

... juu mä voisin kokeilla tota timeri juttuu... mut onks tos kaikki mitä siihen tarvii.. ja pitääks toi timeri esim. esitellä jossain ja miten se sit kandeis tehä?
vähä neuvoi ku en oo ton tyyppisii juttui ikuna tehny :)

P.S kumma juttu mut tos mun kahen edellisen kommentin välis oli jonkun muun kommentti (mihin toi jälkimmäinen vastaa) , mutta en sit tiä mihi se hävis :|

Timer ei tarvi "esitellä" missään ja tuossahan sen käyttö on esitetty. Tietysti tuon voisi tehdä niin, että vertaa Timeria muuttujaan, johon tuo "aika" on laskettu ettei tule mitään typo-virheitä...

'Lasketaan ikkuna minkä sisällä ohjelma tekee jotain
Alku = 8 * 60 * 60: Loppu = 10 * 60 * 60
If Timer > Alku And Timer < Loppu Then
    'jotain...
End if

Edit: Typo

Jos jippo tehdään vain maanantaisin lisää alkuun testi:

If Weekday(Now) <> 1 Then End 'jos ei maanantai

Lisää projektiin Timeri (siis ajastin), jonka Interval = 10000 ( siis esim. 10 sek. ) ja Enabled = True. Timerin timer-tapahtumaan sitten koodi, jolla testaat kellonaikaa:

Private Sub Timer1_Timer
   If Time > "08:15" Then
     'käynnistä jippo
     End
   End If
End Sub

Ai merkkijonoja siis pystyy vertailemaan noin? Tuota en kyllä ole tiennyt, olen kai värkännyt liikaa QB:llä...

Se vaatii tosin nollan siihen eteen. "08:15" < "10:00" mutta "8:15" > "10:00". Tai sitten voi käyttää muunnosta Cdate("8:15") ja vertailu toimii oikein.

juu kiitti :D

Jaa... paras olisi tehdä sellainen Client-Server, jota voidaan ohjata serveriltä käsin. Serveriksi asetat oman koneesi ja Clientiksi Sen hemmon koneen - sitten esi ohjelmoit kaikki mahdolliset källit valmiiksi - hiiren nappien vaihtelut yms. ja näin voit halutessasi aina käynnistää ja sammuttaa källit - aina kun ope tulee katsomaan - sammutat sen ja käynnistät uudelleen kun se lähtee. Ope luulee kaveria hulluksi kun se väittää hiiren nappien vaihtavan paikkaa tai jonkun notepadin aukeavan itsekseen.

Se on aika helppo toteuttaa...

nii i mut koulun koneil/verkossa on sellaset estot et HUH HUH... mut jos osaat tehä ni neuvoi tänne.. oishan se ih anäpsäkkä :D:D:D

CoDeR kirjoitti:

nii i mut koulun koneil/verkossa on sellaset estot et HUH HUH...

Onhan niissä, mutta osan niistä voi kiertää helposti :D

no kertokaa miten! toi on ärsyttävää ku te vaa kerrotte mitä kaikkee pystyy tehä mut ette kerro yhtää miten... :)

kertokaa ny jotai :D