|
| |
Fortgeschrittene Programmierung| Re: WHOIS-Datenbank abfragen? | |  | Autor:  Dieter (Moderator) | | Datum: 18.04.02 14:39 |
| Hi kuechi,
ich habe mich mal hingesetzt und folgenden VB-Code zusammengeproggt.
Du brauchst:
- TextBox txtDomain
- CommandButton cmdWHOIS
- MultiLine-TextBox txtWHOIS
- Winsock-Control Winsock1
Und hier der Code:
<code><font color=#000099>Option</font> <font color=#000099>Explicit</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
cmdWHOIS_Click()
<font color=green>' WHOIS-Anfrage starten</font>
Screen.MousePointer = vbHourglass
txtWHOIS.Text = ""
<font color=#000099>With</font> Winsock1
.<font color=#000099>Close</font>
.LocalPort = 0
<font color=green>' Verbinden mit allwhois.com (Port 80)</font>
.Connect "www.allwhois.com", 80
<font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
txtDomain_Change()
<font color=green>' CommandButton aktivieren</font>
cmdWHOIS.Enabled = (Trim$(txtDomain.Text) <> "")
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
Winsock1_<font color=#000099>Close</font>()
<font color=green>' Winsock schließen</font>
Winsock1.<font color=#000099>Close</font>
Screen.MousePointer = vbNormal
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
Winsock1_Connect()
<font color=green>' Verbunden - jetzt Domainanfrage losschicken</font>
Winsock1.SendData "GET /cgi-bin/allwhois3.cgi?dn=" & txtDomain.Text & vbCrLf
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
Winsock1_DataArrival(<font color=#000099>ByVal</font> bytesTotal <font _
color=#000099>As</font> <font color=#000099>Long</font>)
<font color=green>' Daten werden empfangen</font>
<font color=#000099>Dim</font> sData <font color=#000099>As</font> <font _
color=#000099>String</font>
<font color=#000099>On</font> <font color=#000099>Error</font> Resume <font _
color=#000099>Next</font>
Winsock1.GetData sData
<font color=green>' nach den wirklichen Informationen suchen</font>
<font color=#000099>If</font> InStr(sData, "<textarea NAME=""description""" & _
"rows=10 cols=55 wrap=physical>") > 0 <font color=#000099>Then</font>
sData = Mid$(sData, InStr(sData, "<textarea NAME=""description"" rows=10" & _
"cols=55 wrap=physical>") + _
Len("<textarea NAME=""description"" rows=10 cols=55 wrap=physical>"))
sData = Mid(sData, "1", InStr(sData, "</textarea></form>") - 1)
<font color=green>' Chr(10) durch Chr(13)+Chr(10) ersetzen, da</font>
<font color=green>' Zeilenumbrüche sonst nicht korrekt dargestellt</font>
<font color=green>' werden (UNIX)</font>
sData = Replace(sData, Chr$(10), vbCrLf)
<font color=green>' Ausgabe im Textfeld</font>
txtWHOIS.Text = txtWHOIS.Text & sData & vbCrLf
<font color=#000099>End</font> <font color=#000099>If</font>
<font color=#000099>End</font> <font color=#000099>Sub</font>
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
Winsock1_<font color=#000099>Error</font>(<font color=#000099>ByVal</font> _
Number <font color=#000099>As</font> <font color=#000099>Integer</font>, _
Description <font color=#000099>As</font> <font color=#000099>String</font>, _
<font color=#000099>ByVal</font> Scode <font color=#000099>As</font> <font _
color=#000099>Long</font>, _
<font color=#000099>ByVal</font> Source <font color=#000099>As</font> <font _
color=#000099>String</font>, <font color=#000099>ByVal</font> HelpFile <font _
color=#000099>As</font> <font color=#000099>String</font>, _
<font color=#000099>ByVal</font> HelpContext <font color=#000099>As</font> _
<font color=#000099>Long</font>, _
CancelDisplay <font color=#000099>As</font> <font _
color=#000099>Boolean</font>)
<font color=green>' Fehler</font>
Winsock1.<font color=#000099>Close</font>
Screen.MousePointer = vbNormal
<font color=#000099>End</font> <font color=#000099>Sub</font></code>Viel Spaß damit!
Cu
Dieter | |
 | 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 |
 |
|
sevISDN 1.0 
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere Infos
|
| |
|
Copyright ©2000-2025 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
|
|
Sie sind aktuell nicht angemeldet.
