| |
VB & Windows APIRe: Altes Projekt in vb6 AnGeL-Bot fürs IRC mit Problemchens | | | Autor: tuvok81 | Datum: 07.02.18 17:15 |
| Hallo,
mir hat gestern jemand geholfen, um eine IPv6 Addresse eines IRCservers herauszufinden.
Beispiel ist hier z.B. irc6.quakenet.org es funktioniert soweit...
Gibt es hier eine elegantere Möglichkeit, dass Ganze ohne text Dateien bzw. der ping.exe bzw. .bat datei durchzuführen? ich bin leider kein VB6 Programmierer... wäre daher für Hilfe dankbar.
Else
'Changes from sbs at 06.2.2018 resolve ServerHostnames to connect'
'Quick and Dirty Coding to resolve IPv6 IRCserver'
Dim F As Long
F = FreeFile
Open ".\ping.bat" For Output As F
Print #F, "ping.exe -6 -n 1 -w 10 " & HostName & " > .\ping6.txt" & _
vbCrLf
Close F
Shell "ping.bat", vbNormalFocus
Wait 1000
F = FreeFile
Open ".\ping6.txt" For Input As F
While Not EOF(F)
Dim line As String
Dim fields() As String
Input #F, line
If Len(line) > 4 Then
If Left$(line, 4) = "Ping" Then
If InStr(line, "[") <> 0 Then
fields = Split(line, "[")
Dim iplen As Integer
iplen = InStr(fields(1), "]")
AddCacheData HostName, Mid$(fields(1), 1, iplen - 1)
'AddCacheData HostName, Mid$(fields(1), 1, Len(fields(1)) - 2)
GoTo endloop
End If
End If
End If
Wend
endloop:
Close F
'END Changes from sbs at 06.2.2018 resolve ServerHostnames to connect'
End If Lebe lange und in Frieden
Beitrag wurde zuletzt am 07.02.18 um 17:16:52 editiert. | |
Re: Altes Projekt in vb6 AnGeL-Bot fürs IRC mit Problemchens | | | Autor: Franki | Datum: 11.02.18 03:50 |
| Hallo,
na ja, zuerst müsste man mal wissen was in der .bat Datei genau drin steht.
Im IRC wahr ich früher Jahrzehnte unterwegs, in VB6 kenne ich mich genau so lange aus.
Ich müsste mein eingerostetes/eingefrorenes Wissen mal wieder raus kramen, aber das Thema interessiert mich. Ich habe damals das Thema IRC mehr oder weniger unfreiwillig verlassen obwohl ich dagegen gelämpft habe, dass Facebook und Co. dieses Thema übernommen haben.
Schreib mir mal eine P.M. vielleicht können wir da was machen. Ich habe noch einen alten Rechner hier lauffähig wo ich deine Umgebung evtl. nachstellen kann.
Gruß
Frank | |
| 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 |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevDTA 3.0 Pro
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|