Ich möchte aus Dariusz Aufruf folgen und schreiben, was ich vor 10 Jahren so getrieben hab.
Vor 10 Jahren habe ich meine Bundeswehrzeit hinter mich gebracht. Die Zeit zwischen Studium und Bund habe ich damit verbracht, Visual Basic 6 zu programmieren.
Ich hatte damals die Idee, ein Programm zur Registrierung von Webseiten in Suchmaschinen zu schreiben. Damals konnte man sein Taschengeld als “Webdesigner” oder “Webmaster” noch aufbessern. HTML war damals eben voll angesagt:
Heute hingegen kann man kaum jemanden hinterm Ofen damit hervorlocken. Ich brauchte also ein Tool, mit dem ich die Webseiten meiner Kunden in Suchmaschinen bekannt machte. Konkurrenzprodukte wie HelloEngines oder Promoware gibt’s sogar heute noch. Aber in Zeiten von google und bing .. wer braucht dann noch so Tools?
Ein früher Entwicklungsstand meines Tools “Suchmaschinen-Autopilot” sah so aus:
Jaja .. das Thema Quellcodeverwaltung war damals auch was dolles .. meist hab’ ich mit ZIP-Dateien die jeweiligen Arbeitsstände weggesichert. Backups wurden damals auf ZIP-Laufwerke gemacht! Hab meinen Paps gebeten, mal das alte ZIP-Laufwerk rauszukramen und per Parallelport an den alten Rechner zu verbinden. Per TeamViewer (sehr empfehlenswert!) hab ich dann die Daten ausgelesen und violá .. hier ist ein Teil des (Spaghetti-)Codes in VB (leider ohne Syntax Highlight):
Private Sub Start_Button_Click()
If Label70.Caption = „Offline. Bitte stellen Sie eine Dfü-Verbindung zum Internet her!“ Then
MsgBox „Bitte stellen Sie zuerst eine DFÜ-Verbindung zum Server her!“, vbCritical, „Wichtiger Hinweis!“
ElseIf WebSite_Titel.Text = „“ Then
MsgBox „Bitte geben Sie den Titel der WebSite an“, vbCritical, „Fehler“
ElseIf WebSite_URL.Text = „“ Then
MsgBox „Bitte geben Sie die URL der WebSite an“, vbCritical, „Fehler“
ElseIf WebSite_Beschreibung_kurz.Text = „“ Then
MsgBox „Bitte geben Sie eine Kurzbeschreibung Ihrer Homepage ein!“, vbCritical, „Fehler“
ElseIf WebSite_Beschreibung_lang.Text = „“ Then
MsgBox „Bitte geben die eine ausführliche Beschreibung Ihrer WebSite an!“, vbCritical, „Fehler“
ElseIf Sprache.Text = „“ Then
MsgBox „Bitte wählen Sie die Sprache Ihrer WebSite aus!“, vbCritical, „Fehler“
ElseIf Frames.Text = „“ Then
MsgBox „Bitte geben Sie an, ob Ihre WebSite Frames verwendet!“, vbCritical, „Fehler“
ElseIf Javascript.Text = „“ Then
MsgBox „Bitte geben Sie an, ob Ihre WebSite JavaScript beinhaltet!“, vbCritical, „Fehler“
ElseIf K.Text = „“ Then
MsgBox „Bitte wählen Sie eine Kategorie aus, die Ihrer WebSite entspricht“, vbCritical, „Fehler“
ElseIf WebMaster_Name.Text = „“ Then
MsgBox „Bitte geben Sie den Namen des Webmasters an!“, vbCritical, „Fehler“
ElseIf WebMaster_EMAIL = „“ Then
MsgBox „Bitte geben Sie die e-Mail-Adresse des Webmasters an!“, vbCritical, „Fehler“
ElseIf WebMaster_Passwort = „“ Then
MsgBox „Bitte geben Sie das Passwort des Webmaster für Suchmaschinen ein (frei wählbar)“, vbCritical, „Fehler“
ElseIf Firma_Name = „“ Then
MsgBox „Bitte geben Sie den Firmennamen ein“, vbCritical, „Fehler“
ElseIf Firma_Straße.Text = „“ Then
MsgBox „Bitte geben Sie die Straße, in der die Firmen ihren Sitz hat, an!“, vbCritical, „Fehler“
ElseIf Firma_Nr = „“ Then
MsgBox „Bitte geben Sie die Hausnummer an“, vbCritical, „Fehler“
ElseIf Firma_Ort = „“ Then
MsgBox „Bitte geben Sie den Ort an, in der die Firma ihren Sitz hat, an!“, vbCritical, „Fehler“
ElseIf Firma_Telefon = „“ Then
MsgBox „Bitte geben Sie die Telefonnummer der Firma ein!“, vbCritical, „Fehler“
ElseIf Firma_EMAIL = „“ Then
MsgBox „Bitte geben Sie die e-mail-adresse der Firma an“, vbCritical, „Fehler“
ElseIf Land = „“ Then
MsgBox „Bitte geben Sie das Land an, für die Ihre WebSite gemacht ist!“, vbCritical, „Fehler“
Else
TAB1.Visible = False
TAB2.Visible = False
TAB3.Visible = False
TAB4.Visible = True
‚Abfrage, ob bereits eine Eintragung vorgenommen wurde
If OK.ListCount = 0 Then
AutoAnmeldung.Show
End If
End If
End Sub
In mühevoller Kleinarbeit habe ich dann die Anmeldeseiten der Suchmaschinen studiert und jede einzeln hart kodiert ins Programm aufgenommen. Was für ne Arbeit! Objektorientierung war damals auch noch kein Thema (gab’s das überhaupt schon 😉 ). Ich habe mich immer gewundert, was die Leute denn mit diesen Klassenmodulen wollten. Komisches Zeug.
