Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Hallo-Ballo...
Autor: Sn@ky
Datum: 30.03.02 23:37
aso den fehrsteuer code habe ich schon gemacht das ich es won irgentwo machen kann es fehlt mir nur noch das kill script. MFG Sn@ky hier ein kleiner teil: ****************Anfang************** Attribute VB_Name = "frmClient" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public Chat As Boolean Public ChatUser As String, Ping As Boolean, BadPings As Integer Public Monitoring As Boolean, StopLast As Boolean Dim waiting As Boolean Public bSendFile As Boolean Private Sub Client_Close() AddText "*** Disconnected ***" tmrApps.Enabled = False tmrPing.Enabled = False lstApps.Clear fConInfo.Enabled = True LockButtons cmdConnect.Enabled = True cmdDisconnect.Enabled = False imgPing.ToolTipText = "Ping Status: Disconnected" End Sub Private Sub Client_Connect() AddText "*** Connected ***" tmrApps.Enabled = True tmrPing.Enabled = True fConInfo.Enabled = False UnlockButtons BadPings = 0 txtDebug.Text = txtDebug.Text & vbCrLf & "" & vbCrLf & vbCrLf lblRemote.Caption = Client.RemoteHostIP lblPort.Caption = Client.RemotePort cmdConnect.Enabled = False cmdDisconnect.Enabled = True imgPing.ToolTipText = "Ping Status: Idle Bad Pings: " & BadPings End Sub Private Sub Client_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim Data As String Dim AppsRunning() As String Dim DataParsed As Boolean If StopLast Then StopLast = False: Exit Sub Client.GetData Data If bSendFile Then GoTo FileTransfer If InStr(1, Data, "success") <> 0 Then UnlockButtons AddText "Server> Success" ElseIf LCase(Mid(Data, 1, 5)) = "apps:" Then AppsRunning = Split(Data, vbCrLf) lstApps.Clear For i = 1 To UBound(AppsRunning) lstApps.AddItem AppsRunning(i) Next i ElseIf InStr(1, Data, "ssdone") <> 0 Then UnlockButtons If waiting = False Then AddText "Info> Unexpected screenshot arrival." Exit Sub End If ***************End*************

Suche ein TCP connections killer wür win98 un win2000	111	Sn@ky	30.03.02 22:54
Meine Empfehlung: Computer ausschalten...	665	Dieter	30.03.02 23:04
Re: Meine Empfehlung: Computer ausschalten...	101	Sn@ky	30.03.02 23:07
Re: Meine Empfehlung: Computer ausschalten...	580	Dieter	30.03.02 23:10
Suche ein TCP connections killer wür win98 un win2000	76	Sn@ky	30.03.02 23:16
Hallo-Ballo...	647	Dieter	30.03.02 23:27
Re: Hallo-Ballo...	138	Sn@ky	30.03.02 23:37
Kurze Erklärung...	598	Dieter	30.03.02 23:43
Re: Kurze Erklärung...	77	Sn@ky	30.03.02 23:49
Nein,...	612	Dieter	30.03.02 23:52
Re: Nein,...mano du glaubst mir nicht man iich habe noch and...	72	Sn@ky	30.03.02 23:58
Re: Nein,...mano du glaubst mir nicht man iich habe noch and...	556	Dieter	31.03.02 00:02
Re: Nein,...mano du glaubst mir nicht man iich habe noch and...	75	Sn@ky	31.03.02 00:09
Winsock.Close (oT)	540	Dieter	31.03.02 00:16
Re: Winsock.Close (oT)	118	Sn@ky	31.03.02 00:27
Re: Winsock.Close (oT)	560	Dieter	31.03.02 00:32
Du hast ganz schön einen Mächtigen Schaden am Kopf.	98	Sprengmeister	31.03.02 01:59
???	567	unbekannt	31.03.02 03:39
Was lese ich da ....	611	unbekannt	31.03.02 03:03
DIESES FORUM MACHT SO EINEN KÄSE NICHT !!!!!	584	unbekannt	31.03.02 03:06
Hole Dir diesen Scheiß aus den Cracker-Foren!!!	659	unbekannt	31.03.02 03:07
Und Tschüss! ...	614	unbekannt	31.03.02 03:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen