| |
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 |
|
|
sevOutBar 4.0
Vertikale Menüleisten á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere 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
|
|