Forum » Visual Basic » .vbs codes

  1. Evilchicken

    Kent er iemand nog .vbs codes???

    ik ken deze codes al

    Code
    1
    
    msgbox \"hello\"  



    en

    Code
    1
    2
    3
    4
    5
    6
    7
    
     Set oWMP = CreateObject(\"WMPlayer.OCX.7\" )
    Set colCDROMs = oWMP.cdromCollection
    if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count - 1
    colCDROMs.Item(i).Eject
    Next \' cdrom
    End If 



    Kent er nog iemand een paar??

    Bewerkt door Evilchicken op zo 28-03-2004 om 20:08
    zo 28-03-2004 om 20:07
Reacties (10)

Reageren
  1. Depress

    Code
    1
    
    msgbox \"shut the hell up\"



    (google) << KLIK

    Bewerkt door Depress op zo 28-03-2004 om 20:20
    zo 28-03-2004 om 20:19
  2. Computerboy112

    wil je van die virusjes maken haha

    zo 28-03-2004 om 20:27
  3. Cia

    maakt een filetje op c:\\ met de naam test.txt en als inhoud test

    Set a = fs.CreateTextFile(\"C:\\test.txt\", True)
    a.WriteLine (\"test\")
    a.Close

    opent de mastaline je kan hiermee ook programma\'s openen

    Set shl = CreateObject(\"Wscript.shell\")
    shl.Run \"http://www.mastaline.com\"

    toon 100 keer een msgbox je kan de msgbox ook veranderen door een dandere code

    for i = 1 to 100
    msgbox \"test\"
    next

    sluit de pc af

    Set OpSysSet = GetObject(\"winmgmts(Shutdown)}//./root/cimv2\").ExecQuery(\"select * from Win32_OperatingSystem where Primary=true\")
    for each OpSys in OpSysSet
    OpSys.ShutDown()
    next

    toont een msgbox de 1 februari de msgbox kan je ook vervangen door andere code

    If Day(Now) = 1 And Month(Now) = 2 Then
    msgbox \"test\"
    End If

    probeer dit ff:

    Set shl = CreateObject(\"Wscript.shell\")
    shl.Run \"notepad\"
    shl.SendKeys(\"m\")
    Wscript.Sleep 1000
    shl.SendKeys(\"a\")
    Wscript.Sleep 1000
    shl.SendKeys(\"s\")
    Wscript.Sleep 1000
    shl.SendKeys(\"t\")
    Wscript.Sleep 1000
    shl.SendKeys(\"a\")
    Wscript.Sleep 1000
    shl.SendKeys(\"l\")
    Wscript.Sleep 1000
    shl.SendKeys(\"i\")
    Wscript.Sleep 1000
    shl.SendKeys(\"n\")
    Wscript.Sleep 1000
    shl.SendKeys(\"e\")
    Wscript.Sleep 1000
    shl.SendKeys(\" \")
    Wscript.Sleep 1000
    shl.SendKeys(\"r\")
    Wscript.Sleep 1000
    shl.SendKeys(\"u\")
    Wscript.Sleep 1000
    shl.SendKeys(\"l\")
    Wscript.Sleep 1000
    shl.SendKeys(\"e\")
    Wscript.Sleep 1000
    shl.SendKeys(\"s\")

    zo 28-03-2004 om 20:43
  4. Evilchicken

    kent er nog iemand een paar?

    di 30-03-2004 om 16:52
  5. Syroon

    uuhm ik kan een msn flooder maken
    benodigheden :
    2 timers
    1 textbox
    2 commandknoppen

    dit is dan de code :

    Private Sub Form_Load()
    Timer1.Enabled = False
    Timer3.Enabled = False
    End Sub

    Private Sub interval_Change()
    Timer2.interval = interval.Text
    End Sub

    Private Sub Text1_Change()
    Timer1.interval = Text1.Text
    End Sub

    Private Sub Timer1_Timer()
    Timer3.Enabled = True
    End Sub

    Private Sub Timer2_Timer()
    Label10.Caption = \"LIGHTNING FLOODER\"
    End Sub

    Private Sub Timer3_Timer()
    counter.Text = counter.Text + 1
    VBA.Interaction.SendKeys (flood.Text)
    SendKeys \"{Enter}\"
    interval.Enabled = False
    End Sub

    en ik kan een msn hack maken maar die gaak hier nie posten

    wo 31-03-2004 om 16:14
  6. Eviljeffrey

    zijn er al nieuwe codes bekend?

    Volgend bericht ( Dinsdag 17-05-2005 om 18:42 ) :
    Zijn er uitbreidingen, nieuwe codes?

    wo 09-06-2004 om 20:29
  7. Sothink

    wrm hop jij oude topics omhoog?

    di 17-05-2005 om 19:32
  8. Eviljeffrey

    Omdat ik er mss nog es mee wou beginnen en als er al nieuwe zijn...

    wo 18-05-2005 om 13:39
  9. Diabl0570

    Cia
    geen een van die scrips dede het ( teminste bij mij )
    heeft er iemand die scrips .. maar daan wel werkend ?

    zo 22-05-2005 om 21:59
  10. Underrap



    Maybe zijn deze tutorials geschreven door mij iets voor je :

    http://www.rootx.nl/phpBB2/viewtopic.php?t=595

    en binnenkort komt VBS deel 3 ..uit

    di 31-01-2006 om 21:27
Reageren