God dammit.
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.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
Any Ideas?


LinkBack URL
About LinkBacks







Reply With Quote










