VB6 - Call mit Variable (Ausgangspunkt)

Hallo,
mittlerweile läuft meine Anwendung ganz gut. Aber wie es so ist, man möchte sie ja immer optimieren und möglichst universell weiterentwickeln.

Zum Hintergrund:
Ich nutze mein Netbook (oder manchmal mein Notebook) sehr oft unterwegs mit der Bahn. Leider sind die Ressourcen des Akkus nun einmal beschränkt.

Deshalb bin ich der Meinung, bestimmte Dienste, welche unnötig Akkuressourcen verbrauchen, erst einmal auf "Manuell" zu stellen. Starten kann ich sie ja immer noch, wenn ich sie benötige (natürlich auch danach wieder beenden).

Auf die Laufzeit des Akkus hat es sich auf jeden Fall sehr positiv ausgewirkt, auch auf die Geschwindigkeit beim starten. Eigentlich ja auch logisch.

Nun habe ich mir mittels VB6 einfach eine kleine Combobox, welche in der rechten oberen Bildschirmecke erscheint, gebastelt.

Hier kann ich nun festlegen, ob ich nun doch alles was Netzwerk betrifft ein oder ausschalten möchte mit einem kurzen Klick.

Man muss natürlich in der Reihenfolge des Startens bzw. Beendens von Diensten die Abhängigkeiten untereinander beachten. Wichtig ist mir dann natürlich auch, dass ich beim Akltivieren der Netzwerkeigenschaften auch den Virenscanner und die Firewall mit starte.

Funktioniert auch ganz gut.

Nun zur Umsetzung und meinen Fragen:
Mit einem Click-Ereignis innerhalb meiner Combobox durchläuft das Sub natürlich alle If-Abfragen, damit es weiß, was ich gerade möchte. Dazu habe ich die Public-Variable "Dienst" definiert und definiere sie vor jeder If-Abrage neu mit dem Namen des gerade gewünschten Dienstes.

Danach kommt ein Call-Aufruf an ein privates Sub (könnte man natürlich je genauso als Funktion machen, aber ich denke, dass dies eigentlich ohnehin egal ist, oder?).

Im privaten Sub wird nun mittels Case nun geprüft ob der Dienst schon läuft oder nicht. Entsprechend kommt dann halt der Versuch den Dienst zu starten oder zu beenden (es handelt sich je um ein Sub zum beenden bzw. starten).

Nach der Prüfung wird entweder das starten oder beenden ausgelöst, Err ausgewertet (Zähler um 1 hochsetzen), und dann gehts zurück. Und so weiter und so weiter...
Zum Schlus dann halt eine Info ob erfolgreich oder mit wie vielen Fehlern beendet.

Momentan sind es bei manchen Geschichten schon bis zu 18 Diensten, welche ich in der richtigen Reihenfolge starten / beenden möchte.

So, nun zu meinen laienhaften Fragen...

Kann ich beim Aufruf mittels "Call" dem "Call" irgendwie einen Variableninhalt als String übergeben? Ich möchte vor dem jeweiligen If-Anfang einfach die private Subroutine als String übergeben (spart ja dann viel Arbeit, da man viel kopieren kann)

Ich möchte die endgültige exe einfach flexibel halten, damit ich jederzeit was hinzufügen kann ohne VB6 anzuwerfen un die gaze Geschichte neu zu kompilieren. Sehr gerne möchte ich die Ergebnisse dann auch allen anderen (natürlich kostenlos) zur Verfügung stellen. Eigentlich hat ja jeder, der sein Notebook intensiv nutzt das Problem der begrenzten Akkudauer. Hier könnten meine Erfahrungen der notwendigen Dienste (bzw. untereinander abhängigen Dienste) jedem helfen.

Im Prinzip wäre es das Einfachste, wenn man eine relativ flexible exe erstellen könnte, welche sich die Infos aus einer zugehörigen ini-Datei holt.

Und genau hier sehe ich das Problem. Ich muss meine exe so gestalten, dass sie bei der Auswahl eines Eintrags aus der Combobox in die ini-Datei unter dem entsprechenden Eintrag "[WLAN ein]" nachschaut wie viele Positionen darunter erscheinen und diese dann der Reihe nach abarbeitet. Somit könnte jeder einfache Einträge in dieser ini-Datei hinzufügen (natürlich unter dem korrekten Dienstnamen und unter Berücksichtigung der Abhängigkeiten).

Ich denke mal, gerade in der heutigen Zeit, wo wir alle mit unseren Notebooks, welche mit Diensten nur so überladen sind, wäre das keine schlechte Idee?

Aber ich habe ein bissl meine Probleme mit den eben genannten Sachen. Wenn mir jemand dabei helfen könnte wäre es toll.

Ich möchte dann gerne den fertigen zusammengebastelten Code hier als Anleitung für alle posten, da, wie ich denke, sich sehr viele dafür interessieren würden.

Gruß
Torsten

Private Sub Test (strTest as String)
	msgbox strTest
End Sub

Call Test "Hallo"  

Dim MeineVariable As String

MeineVariable = "BlaBlaBla"  

Call Meine Variable

> Dim MeineVariable As String
> 
> MeineVariable = "BlaBlaBla"  
> 
> Call Meine Variable
> 

[Eintrag1]
ErsterEintrag=MeinWert1
ZweiterEintrag=Mein Wert2

[Eintrag2]
...

Dim Section As String, Key As String, KeyData As String

' Abschnitt  
Section = GetIniString(vbNullString, "", "", INIFile, 32767)  

' Eintrag im Abschnitt      
Key = GetIniString(Section, vbNullString, "", INIFile, 32767)  

' Wert des Eintrags  
KeyData = GetIniString("", "", vbNullString, INIFile, 32767)