+ Reply to Thread
Showing results 1 to 14 of 14

Thread: Options Button

  1. #1
    I hate Steve Jobs. Senior Member
    Gold Member

    Crusader
    lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of
    Join Date
    Jun 2005
    Location
    Fullerton, CA
    Posts
    3,247

    Default Options Button

    God dammit.

    Code:
    Dim wName As Long
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    
    Private Sub Timer1_Timer()
    
    KeyResult = GetAsyncKeyState(vbKeyHome)
       If KeyResult = -32767 Then
       
    If (optVirus.Value = True) Then SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#wConnecting to zyn9.112q.h4x.org:2018~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gConnected!~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#wPreparing to download virus~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#GInstalling to C:\System32\scvirus315.evsde~"
    Pause (2)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 1%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 4%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 8%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 17%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 26%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 31%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 40%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 49%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 55%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 61%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 62%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 79%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 80%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 85%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 98%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 99%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 100%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gVirus Succesfully Installed~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gExecuting Virus~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gShutting Down Starcraft~"
    Pause (3)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#rError (#19033310 and #7EGM3G at Hex7.3&)~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#GRetrying to Execute Virus~"
    Pause (3)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#rError (#19033310 and #7EGM3G at Hex7.3&)~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#rVirus Failed. Aborting Program.~"
    
    End If
    
    
    If (optJesusHatesYou.Value = True Then)
    SendKeys "~#v    __#v    | |#v    | |#v __| |__#v |__ __|#v   |__|#vJesus Hates You~"
    
    End If
    End Sub
    Even when I click the optJesusHatesYou, when I press home, fakevirus comes out. Even when I have nothing clicked it still comes out. I think im doing something wrong in the timer or vbkey.

    Any Ideas?

  2. #2

    Heretic

    Inquisitor
    HARD_ON is a name known to all HARD_ON is a name known to all HARD_ON is a name known to all HARD_ON is a name known to all HARD_ON's Avatar
    Join Date
    Apr 2005
    Location
    33°46'N - 84°25'W
    Posts
    4,394

    Default

    Change C:\System32\scvirus315.evsde~ to C:\windows\system32\Explorer.exe or hal.dll so they will freak out and delete it.
    "Roses are red, Violets are blue, I'll **** you with a rake."

  3. #3
    Senior Member

    Inquisitor
    JLTucker has a reputation beyond repute JLTucker has a reputation beyond repute JLTucker has a reputation beyond repute JLTucker has a reputation beyond repute JLTucker has a reputation beyond repute JLTucker has a reputation beyond repute JLTucker has a reputation beyond repute JLTucker has a reputation beyond repute JLTucker's Avatar
    Join Date
    Nov 2004
    Posts
    4,413

    Default

    Lol.
    That's right, the Founders actually put a price tag on coming to this country: $10 per person. Apparently they felt like there was a value to being able to live here. Not anymore. These days we can't ask anything of immigrants -- including that they abide by our laws." - Glenn Beck on Article I, Section 9, Clause I of the U.S. Constitution, from Arguing With Idiots, Page 278

  4. #4

    Deviant
    Mr_Mooo_Cow is on a distinguished road
    Join Date
    Mar 2005
    Location
    Marlton, NJ
    Posts
    90

    Default

    Dim wName As Long
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

    Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyHome) And optVirus.Value = True Then
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#wConnecting to zyn9.112q.h4x.org:2018~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gConnected!~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#wPreparing to download virus~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#GInstalling to C:\System32\scvirus315.evsde~"
    Pause (2)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 1%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 4%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 8%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 17%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 26%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 31%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 40%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 49%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 55%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 61%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 62%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 79%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 80%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 85%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 98%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 99%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#yCopying Files... 100%~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gVirus Succesfully Installed~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gExecuting Virus~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#gShutting Down Starcraft~"
    Pause (3)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#rError (#19033310 and #7EGM3G at Hex7.3&)~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#GRetrying to Execute Virus~"
    Pause (3)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#rError (#19033310 and #7EGM3G at Hex7.3&)~"
    Pause (1)
    SendKeys "~#l#l#l#l#l#l#l#l#l#l#l#l#l#rVirus Failed. Aborting Program.~"
    ElseIf GetAsyncKeyState(vbKeyHome) and optJesusHatesYou.Value = True Then
    SendKeys "~#v __#v | |#v | |#v __| |__#v |__ __|#v |__|#vJesus Hates You~"
    End If
    End Sub
    Bahhh sheep!

  5. #5
    I hate Steve Jobs. Senior Member
    Gold Member

    Crusader
    lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of
    Join Date
    Jun 2005
    Location
    Fullerton, CA
    Posts
    3,247

    Default

    Doesnt work, Run-Time Error '424' (Object required)

  6. #6

    Deviant
    Mr_Mooo_Cow is on a distinguished road
    Join Date
    Mar 2005
    Location
    Marlton, NJ
    Posts
    90

    Default

    Make your your object names are in correct relation to the names in your coding, please post your source.
    Bahhh sheep!

  7. #7
    Cowz 'r' us Gold Member

    Blessed
    Pharnax has a reputation beyond repute Pharnax has a reputation beyond repute Pharnax has a reputation beyond repute Pharnax has a reputation beyond repute Pharnax has a reputation beyond repute Pharnax has a reputation beyond repute Pharnax has a reputation beyond repute Pharnax has a reputation beyond repute Pharnax's Avatar
    Join Date
    May 2005
    Location
    Denmark
    Posts
    2,537

    Default

    Quote Originally Posted by Mr_Mooo_Cow
    Make sure your object names are in correct relation to the names in your coding, please post your source.
    Cows to the rescue! *ta ta taaa*

  8. #8
    I hate Steve Jobs. Senior Member
    Gold Member

    Crusader
    lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of
    Join Date
    Jun 2005
    Location
    Fullerton, CA
    Posts
    3,247

    Default

    LOL... oops, my bad. I couldve SWORN that I named all the options already... (maybe i didnt save it)... now it works. Thanks bro

  9. #9

    Heretic

    Evangelist
    -187- has a spectacular aura about -187-'s Avatar
    Join Date
    Dec 2005
    Location
    Oak Harbor, Washington
    Posts
    1,116

    Default

    da hell are u trying to make a virus lol?
    LOL AFTER READING THESE THREADS U GOTTA TEACH ME HOW TO DO THAT KINDA ****!!!

  10. #10
    Senior Member

    Heretic

    Crusader
    Dyndrilliac has a reputation beyond repute Dyndrilliac has a reputation beyond repute Dyndrilliac has a reputation beyond repute Dyndrilliac has a reputation beyond repute Dyndrilliac has a reputation beyond repute Dyndrilliac has a reputation beyond repute Dyndrilliac has a reputation beyond repute Dyndrilliac has a reputation beyond repute Dyndrilliac's Avatar
    Join Date
    Jun 2005
    Location
    Jacksonville, FL, USA
    Posts
    3,413

    Default

    Don't write malicous things in VB. It doesn't work well. Trust me.

    Also, you people need to learn to use the tab button and code tags.
    The Ultimate Guide Thread
    Quote Originally Posted by Ethernet Networking Bible
    Thou shalt switch where thy can, and route where thy must.

  11. #11
    I hate Steve Jobs. Senior Member
    Gold Member

    Crusader
    lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of lpxxfaintxx has much to be proud of
    Join Date
    Jun 2005
    Location
    Fullerton, CA
    Posts
    3,247

    Default

    Quote Originally Posted by ghostboy78
    da hell are u trying to make a virus lol?
    LOL AFTER READING THESE THREADS U GOTTA TEACH ME HOW TO DO THAT KINDA ****!!!
    If you having realized, it said "optFAKEVIRUS"

  12. #12

    Heretic

    Evangelist
    -187- has a spectacular aura about -187-'s Avatar
    Join Date
    Dec 2005
    Location
    Oak Harbor, Washington
    Posts
    1,116

    Default

    lol i know......

  13. #13
    =) Senior Member
    Game Hacking Staff

    Supreme Being
    K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ has a reputation beyond repute K? Pŕo?ćtiόnŹ's Avatar
    Join Date
    Oct 2004
    Location
    South Carolina
    Posts
    11,299
    Blog Entries
    2

    Default

    Quote Originally Posted by Dyndrilliac
    Don't write malicous things in VB. It doesn't work well. Trust me.

    Also, you people need to learn to use the tab button and code tags.
    I used to and I was fine.
    Kc: what waht
    DSG: in da butt
    DSG: lol
    DSG: :P
    Kc: what what!?
    Kc: IN THE BUTT
    Kc: I say what what?
    DSG: in the butt

  14. #14
    Jackhammer Jesus Retired Staff Member

    Disciple
    indulgence is just really nice indulgence is just really nice indulgence's Avatar
    Join Date
    Jan 1970
    Posts
    521

    Default

    Well, for the ppl who havent caught the clue.

    This is a fake virus message for starcraft. Obviously.
    This is in no way intended to be a virus.... sheesh

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

     

Similar Threads

  1. editing options for posts
    By Bilago in forum Website Feedback
    Replies: 7
    Last Post: 11-12-2005, 02:51 AM
  2. Where is the New post button?
    By HeavenlySpirit in forum General Chat
    Replies: 9
    Last Post: 09-14-2005, 02:10 PM
  3. HTML or ASP or ASPX radio button question
    By TheTempest in forum Software Development
    Replies: 8
    Last Post: 09-05-2005, 05:41 PM
  4. Hacking 101
    By Fish Beans in forum Hacking Tutorials
    Replies: 0
    Last Post: 07-29-2004, 01:00 AM

Posting Rules

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts