Keskustelu: Koodit: VB6: CD-Haksori

sooda [17.03.2005 14:38:43]

Iki-ihana CD-Haksori jolla on naurettu niin paljo ettei jaksa muistaa. Eli avaa ja sulkee etäkoneen CD-asemaa ja msgboxailee myös, kunha koneessa on toi servuohjelma. Multiohjaustuki (monta kerralla) mukana :)
Kannattaa hakea filut tuolta http://sooda.dy.fi/foo/ceedee/, tässä olevista listauksista ei oikeen ole hyötyä tavallaan. (kaikki.zipissä on siis joka filu, tarttee ladata vain se)

Taas vaihteeks yks WS-"opas" :)

Eli tarvitset siis kohdekoneelle ton srvc.exe:n pyörimään ja tarttet sen ip:n jolla pääset suoraan siihe, palomuurin, natin tms taakse ei luonnollisesti pääse :(

clientohjelma (se jolla ohjataan)

Private Sub Form_Load()
    tietty = ws(0).LocalIP ' ohjelma näyttää myös kätevästi oman koneen ibben
End Sub

Private Sub avaa_Click() ' sanotaan valitulle että avaa romppuasema
    'ehtona että yhteys toimii
    If ws(ne.ListIndex).State = sckConnected Then ws(ne.ListIndex).SendData KOMMAND_Avaa & KOMMAND_Loppu
End Sub

Private Sub sule_Click() ' ja edellisen käänteisfunktio :)
    If ws(ne.ListIndex).State = sckConnected Then ws(ne.ListIndex).SendData KOMMAND_Sule & KOMMAND_Loppu
End Sub

Private Sub kerro_Click()
    ' msgboxailu bonuksena :)
    ws(ne.ListIndex).SendData KOMMAND_Puhu & kertomus & KOMMAND_Loppu
End Sub

Private Sub AvaaNe_Click() ' avaa jokaisen cd johon on yhteys
    For i = 0 To ws.UBound ' loopitaan jokainen soketti
        If ws(i).State = sckConnected Then ws(i).SendData KOMMAND_Avaa & KOMMAND_Loppu
    Next
End Sub

Private Sub SuleNe_Click() ' arvaat varmaan...
    For i = 0 To ws.UBound
        If ws(i).State = sckConnected Then ws(i).SendData KOMMAND_Sule & KOMMAND_Loppu
    Next
End Sub

Private Sub Puhu_Click() ' samantapainen ku aiemmat
    For i = 0 To ws.UBound
        If ws(i).State = sckConnected Then ws(i).SendData KOMMAND_Puhu & kertomus & KOMMAND_Loppu
    Next
End Sub

Private Sub Löydä_Click() ' https://www.ohjelmointiputka.net/koodivinkit/24083-vb6-l%C3%A4hiverkon-koneiden-etsiminen
   ip = ws(0).LocalIP
   runko = Left(ip, InStrRev(ip, "."))
   For i = 1 To 254
       Caption = "Etsitään: " & i
       ws(ws.UBound).Close
       DoEvents
       ws(ws.UBound).Connect runko & i, PORTTI
       startti = Timer
       Do
           DoEvents
       Loop Until startti + 0.1 < Timer
       If ws(ws.UBound).State = sckConnected Then
           Load ws(ws.UBound + 1)
       Else
           ws(ws.UBound).Close
       End If
       DoEvents
   Next
   Caption = "CD-Haksori"
End Sub

Private Sub ne_DblClick()
    ' valikosta saa kätevästi valittua mitä valitulle tehdään
    ' tarttee vaan klikata
    PopupMenu m
End Sub

Private Sub ota_Click() ' (ainaki yrittää) ottaa yhteyden
    ws(ws.UBound).Close
    ws(ws.UBound).Connect tietty, PORTTI
End Sub

Private Sub ws_Close(Index As Integer) ' ilmotetaan jos joku lähtee pois
    ne.List(Index) = ne.List(Index) & " (katki)"
End Sub

Private Sub ws_Connect(Index As Integer) ' wössin yhdistettyä laitetaan se listaan
    ne.AddItem ws(Index).RemoteHost, Index
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End ' siltä varalta että ollaan Löydässä
End Sub

servuohjelma

Private Sub Form_Load()
    tietty = ws(0).LocalIP ' ohjelma näyttää myös kätevästi oman koneen ibben
End Sub

Private Sub avaa_Click() ' sanotaan valitulle että avaa romppuasema
    'ehtona että yhteys toimii
    If ws(ne.ListIndex).State = sckConnected Then ws(ne.ListIndex).SendData KOMMAND_Avaa & KOMMAND_Loppu
End Sub

Private Sub sule_Click() ' ja edellisen käänteisfunktio :)
    If ws(ne.ListIndex).State = sckConnected Then ws(ne.ListIndex).SendData KOMMAND_Sule & KOMMAND_Loppu
End Sub

Private Sub kerro_Click()
    ' msgboxailu bonuksena :)
    ws(ne.ListIndex).SendData KOMMAND_Puhu & kertomus & KOMMAND_Loppu
End Sub

Private Sub AvaaNe_Click() ' avaa jokaisen cd johon on yhteys
    For i = 0 To ws.UBound ' loopitaan jokainen soketti
        If ws(i).State = sckConnected Then ws(i).SendData KOMMAND_Avaa & KOMMAND_Loppu
    Next
End Sub

Private Sub SuleNe_Click() ' arvaat varmaan...
    For i = 0 To ws.UBound
        If ws(i).State = sckConnected Then ws(i).SendData KOMMAND_Sule & KOMMAND_Loppu
    Next
End Sub

Private Sub Puhu_Click() ' samantapainen ku aiemmat
    For i = 0 To ws.UBound
        If ws(i).State = sckConnected Then ws(i).SendData KOMMAND_Puhu & kertomus & KOMMAND_Loppu
    Next
End Sub

Private Sub Löydä_Click() ' https://www.ohjelmointiputka.net/koodivinkit/24083-vb6-l%C3%A4hiverkon-koneiden-etsiminen
   ip = ws(0).LocalIP
   runko = Left(ip, InStrRev(ip, "."))
   For i = 1 To 254
       Caption = "Etsitään: " & i
       ws(ws.UBound).Close
       DoEvents
       ws(ws.UBound).Connect runko & i, PORTTI
       startti = Timer
       Do
           DoEvents
       Loop Until startti + 0.1 < Timer
       If ws(ws.UBound).State = sckConnected Then
           Load ws(ws.UBound + 1)
       Else
           ws(ws.UBound).Close
       End If
       DoEvents
   Next
   Caption = "CD-Haksori"
End Sub

Private Sub ne_DblClick()
    ' valikosta saa kätevästi valittua mitä valitulle tehdään
    ' tarttee vaan klikata
    PopupMenu m
End Sub

Private Sub ota_Click() ' (ainaki yrittää) ottaa yhteyden
    ws(ws.UBound).Close
    ws(ws.UBound).Connect tietty, PORTTI
End Sub

Private Sub ws_Close(Index As Integer) ' ilmotetaan jos joku lähtee pois
    ne.List(Index) = ne.List(Index) & " (katki)"
End Sub

Private Sub ws_Connect(Index As Integer) ' wössin yhdistettyä laitetaan se listaan
    ne.AddItem ws(Index).RemoteHost, Index
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End ' siltä varalta että ollaan Löydässä
End Sub

ja jaettu moduuli jossa on yhteiset konstantit

' komennot joilla käsketään sitä
Public Const KOMMAND_Loppu = vbTab
Public Const KOMMAND_Avaa = vbVerticalTab
Public Const KOMMAND_Sule = vbBack
Public Const KOMMAND_Puhu = vbFormFeed
' tietenki ;)
Public Const PORTTI = 31337

T.M. [19.03.2005 15:55:39]

Eikös tää oo periaatteessa laitonta? :D
Vois melkee luokitella jonkinlaiseksi virukseksi... tjsp :P

tejeez [19.03.2005 16:26:31]

Mistä lähtien etäkäyttösoftat on ollu laittomia? :o

T.M. [19.03.2005 16:37:12]

No jos ilman lupaa käyttää, ni sit se periaattees on laitont :)

sooda [19.03.2005 16:49:04]

Miks olisi? Kuka muka käskee ajaa tota. :) Samalla syyllä voisi sanoa vaikka VNC-ohjelmia viruksiksi.

esakom [19.03.2005 20:05:30]

Tuohan on lähinnä hauska, ympäristöissä jossa tuollainen olisi "laitonta", pitäisi kyllä olla käyttäjähallinta/oikeuksienhallinta sellaisella tasolla ettei tuota servusoftaa saisi sinne ujutettua... Ja virukset on asia ihan erikseen, eihän tässä ole mitään virukseen viittaavaakaan (jos sellaiseksi ei lasketa kummallista toimintaa, sitten olisi moni microsoftinkin ohjelma virus)

Gwaur [19.03.2005 22:49:14]

tejeez kirjoitti:

Mistä lähtien etäkäyttösoftat on ollu laittomia? :o

Esimerkiksi PuTTY on laiton maissa joissa kryptaus on laitonta. :) Tästä paksuilla kirjaimilla tietenkin ilmoitetaan PuTTYn sivuilla. Kryptauksen laillisuudesta eri maissa kerrotaan ainakin tällä sivustolla.

KuinKala [20.03.2005 01:02:14]

Tyttöystävää ei juuri hymyilyttänyt :D

thekoodaaja [20.03.2005 08:04:00]

Ei tota spywariksi taikka viiruksesksi taikka haitta ohjelmaksi voi luokitella. Omapahan vikasi, jos lataat ja ajat.

tkarkkainen [20.03.2005 14:40:41]

Haittaohjelma se kyllä minusta on, koska sen suorittaminen voi aiheuttaa epämiellyttäviä toimenpiteitä koneella. Periaatteessahan tuon voisi tunkea kohdekoneelle vaikka jonkun IE:n aukon kautta jostain nettisivulta.

Käytännössä taas tuon vaikutus ja leviäminen on tosi pientä, ja jokainen vähänkin tietokoneiden päälle ymmärtävä suojaa koneensa tuolta hetkessä.

hohoo [22.03.2005 18:21:40]

"Public Const PORTTI = 31337"

Palomuurit (ainakin Norton) blokkaa portin 31337 automaattisesti.

Linkku [30.03.2005 19:20:34]

lainaus:

"Public Const PORTTI = 31337"

Palomuurit (ainakin Norton) blokkaa portin 31337 automaattisesti.

Ja mistäs se johtuu?

CoDeR [31.03.2005 14:08:55]

toi on niinku nerokas :D, oon tehny tollasen samantapasen mut en osaa tehä monikäyttötukee ><. Paitsi et ku kokeilin koulus tota ja laitoin et eti lähiverkosta ni se rupes listaa niit ip:itä siihen ja sit kaatu =(. Ja että voisin tätä hyödyntää lisää niin tyhmän pitää kysyä selvitystä >< :

1. mikä toi ws.UBound niinku on?

2. Ja tota en kokonaa oikee tajunnu:

Private Sub Löydä_Click() ' https://www.ohjelmointiputka.net/koodivinkit/24083-vb6-l%C3%A4hiverkon-koneiden-etsiminen
   ip = ws(0).LocalIP
   runko = Left(ip, InStrRev(ip, "."))
   For i = 1 To 254
       Caption = "Etsitään: " & i
       ws(ws.UBound).Close
       DoEvents
       ws(ws.UBound).Connect runko & i, PORTTI
       startti = Timer
       Do
           DoEvents
       Loop Until startti + 0.1 < Timer
       If ws(ws.UBound).State = sckConnected Then
           Load ws(ws.UBound + 1)
       Else
           ws(ws.UBound).Close
       End If
       DoEvents
   Next
   Caption = "CD-Haksori"
End Sub

tossa nyt alkuun ^^

sooda [31.03.2005 18:56:57]

CoDeR:
1. ws.UBound on socketin (tai minkä tahansa indeksoidun .UBound-arvo) viimeinen indeksi, eli jos formilla on vaik obju ws(0), ws(1), ws(2) ja ws(3) <- tos 3 niin se antaa 3.

2. Jos sulla on vaik ip 192.168.1.1, niin toi nappaa siitä "192.168.1." ja koklaa monta ip:tä lisäämällä perään arvot 1...254, koklaamalla jokasta erikseen yhdistääkö. Kato se urli mikä siinä on.

CoDeR [01.04.2005 13:03:54]

joo nyt tajusin ton 2. kohan :D , mut tost ykkösest en oikee päässy perille o.O .... siis toi ws.UBuond siis sisältää kaikki koneet johon on yhdistetty? (eli jokasen ws:n) .. ja mitä meinaa socketti? ><

sooda [01.04.2005 15:08:07]

Se ubound siis antaa taulukon isoimman indeksiluvun vai mikä toi o, nimensä mukaisesti (upper bound) (Eli "Dim Mokke(10) <- UBound(Mokke) on 10". Ja socketilla tarkotan siis tota winsockia, eli tota objektia jolla pääsee nettiin leikkimään.

tejeez [28.04.2005 13:46:01]

lainaus:

Esimerkiksi PuTTY on laiton maissa joissa kryptaus on laitonta.

mutta eihän tuossa ole kryptausta? :P

tumetus [30.06.2006 10:50:07]

Kätevä on joo.. Mul meni kyl hetken aikaa et sain toimii ku se sano aina ku yritin käynnistää et: "Component 'MSWINSCK.OCX' or one of its dependencies not correctly registered: a file is missing or invalid". Tohon autto sit ku latasin ton tiedoston että tässä linkki jos joku kärsii samasta ongelmasta. ;)
http://www.ascentive.com/support/new/support_dll.phtml?dllname=MSWINSCK.OCX

moptim [25.07.2006 17:11:00]

mä laitoin myös sammutuksen :D

M4rc0 [28.01.2007 16:57:03]

KingOfTheWorld kirjoitti:

mä laitoin myös sammutuksen :D

Miten? Voitko kertoo?!?!?

M4rc0 [28.01.2007 16:59:03]

Tietäskö kukaan miten https://www.ohjelmointiputka.net/koodivinkit/23813-vb6-näppäimistöloki
sais lisättyä tohon?

Deic [03.04.2007 18:51:51]

M4rc0 pistät vaan ton loggerin siihen servuun ja laitat sendimään datan tohon sun hallinta paneeliis.

tronttu [24.01.2008 20:03:05]

Auttakaahan vähän aloitteliaa ! Miten saan tuon toimimaan, mitä noille "kaikki.zip" paketin tiedostoille pitää tehdä ?

Eipä tarvi enää. Sain toimimaan itekki :)

siika [22.08.2009 23:14:18]

HYvin toimii lisäsin tohon et voi piilottaa kaikki ikkunat ja palautttaa ne, näyttää goatsea uhrille ikkunassa jonka voi sulkea vain etänä (Ctrl+Alt+Del on siis etetty...), hiiriruton, siika.mp3 tiedoston soitto ja tuon: https://www.ohjelmointiputka.net/koodivinkit/23642-vb6-kuvakkeen-lisäys-systemtray-hin

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät

Kilpailu