{"id":680,"date":"2010-03-08T20:17:10","date_gmt":"2010-03-08T19:17:10","guid":{"rendered":"http:\/\/minibrain.wordpress.com\/2010\/03\/08\/was-hast-du-vor-10-jahren-programmiert\/"},"modified":"2010-03-08T20:17:10","modified_gmt":"2010-03-08T19:17:10","slug":"was-hast-du-vor-10-jahren-programmiert","status":"publish","type":"post","link":"https:\/\/abramowitsch.de\/blog\/?p=680","title":{"rendered":"Was hast Du vor 10 Jahren programmiert?"},"content":{"rendered":"

Ich m\u00f6chte aus Dariusz<\/a> Aufruf folgen und schreiben, was ich vor 10 Jahren so getrieben hab.<\/p>\n

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.<\/p>\n

Ich hatte damals die Idee, ein Programm zur Registrierung von Webseiten in Suchmaschinen zu schreiben. Damals konnte man sein Taschengeld als \u201cWebdesigner\u201d oder \u201cWebmaster\u201d noch aufbessern. HTML war damals eben voll angesagt:<\/p>\n

\"Code_HTML_For_Food\"<\/a><\/p>\n

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\u2019s sogar heute noch. Aber in Zeiten von google und bing .. wer braucht dann noch so Tools?<\/p>\n

Ein fr\u00fcher Entwicklungsstand meines Tools \u201cSuchmaschinen-Autopilot\u201d sah so aus:<\/p>\n

\"image\"<\/a><\/p>\n

Jaja .. das Thema Quellcodeverwaltung war damals auch was dolles .. meist hab\u2019 ich mit ZIP-Dateien die jeweiligen Arbeitsst\u00e4nde 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\u00e1 .. hier ist ein Teil des (Spaghetti-)Codes in VB (leider ohne Syntax Highlight):<\/p>\n

Private Sub Start_Button_Click()
\n\u00a0\u00a0\u00a0 If Label70.Caption = „Offline. Bitte stellen Sie eine Df\u00fc-Verbindung zum Internet her!“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte stellen Sie zuerst eine DF\u00dc-Verbindung zum Server her!“, vbCritical, „Wichtiger Hinweis!“
\n\u00a0\u00a0\u00a0 ElseIf WebSite_Titel.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie den Titel der WebSite an“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf WebSite_URL.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie die URL der WebSite an“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf WebSite_Beschreibung_kurz.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie eine Kurzbeschreibung Ihrer Homepage ein!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf WebSite_Beschreibung_lang.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben die eine ausf\u00fchrliche Beschreibung Ihrer WebSite an!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Sprache.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte w\u00e4hlen Sie die Sprache Ihrer WebSite aus!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Frames.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie an, ob Ihre WebSite Frames verwendet!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Javascript.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie an, ob Ihre WebSite JavaScript beinhaltet!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf K.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte w\u00e4hlen Sie eine Kategorie aus, die Ihrer WebSite entspricht“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf WebMaster_Name.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie den Namen des Webmasters an!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf WebMaster_EMAIL = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie die e-Mail-Adresse des Webmasters an!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf WebMaster_Passwort = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie das Passwort des Webmaster f\u00fcr Suchmaschinen ein (frei w\u00e4hlbar)“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Firma_Name = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie den Firmennamen ein“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Firma_Stra\u00dfe.Text = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie die Stra\u00dfe, in der die Firmen ihren Sitz hat, an!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Firma_Nr = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie die Hausnummer an“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Firma_Ort = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie den Ort an, in der die Firma ihren Sitz hat, an!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Firma_Telefon = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie die Telefonnummer der Firma ein!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Firma_EMAIL = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie die e-mail-adresse der Firma an“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 ElseIf Land = „“ Then
\n\u00a0\u00a0\u00a0 MsgBox „Bitte geben Sie das Land an, f\u00fcr die Ihre WebSite gemacht ist!“, vbCritical, „Fehler“
\n\u00a0\u00a0\u00a0 Else
\n\u00a0\u00a0\u00a0 TAB1.Visible = False
\n\u00a0\u00a0\u00a0 TAB2.Visible = False
\n\u00a0\u00a0\u00a0 TAB3.Visible = False
\n\u00a0\u00a0\u00a0 TAB4.Visible = True
\n\u00a0\u00a0\u00a0 ‚Abfrage, ob bereits eine Eintragung vorgenommen wurde
\n\u00a0\u00a0\u00a0 If OK.ListCount = 0 Then
\n\u00a0\u00a0\u00a0 AutoAnmeldung.Show
\n\u00a0\u00a0\u00a0 End If
\n\u00a0\u00a0\u00a0 End If
\nEnd Sub<\/span><\/p>\n

In m\u00fchevoller Kleinarbeit habe ich dann die Anmeldeseiten der Suchmaschinen studiert und jede einzeln hart kodiert ins Programm aufgenommen. Was f\u00fcr ne Arbeit! Objektorientierung war damals auch noch kein Thema (gab\u2019s das \u00fcberhaupt schon \ud83d\ude09 ). Ich habe mich immer gewundert, was die Leute denn mit diesen Klassenmodulen wollten. Komisches Zeug.<\/p>\n","protected":false},"excerpt":{"rendered":"

Ich m\u00f6chte 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 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[1],"tags":[],"class_list":["post-680","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3Ug90-aY","_links":{"self":[{"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/680","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=680"}],"version-history":[{"count":0,"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=\/wp\/v2\/posts\/680\/revisions"}],"wp:attachment":[{"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=680"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=680"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/abramowitsch.de\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=680"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}