KarlBerg

Hi,

in der Registry findest du alles was du willst, ohne lästiges Festplatten durchsuchen.

Brauchst also "nur" ein Prg. zu schreiben, dass aus der Registry den Pfad der Office-Produkte und welche installiert sind ausliest, und dann die Ergebnisse in ne Datei auf em Netzlaufwerk schreibt.

Dazu kannst'e dann noch den Rechnernamen zur Übersicht packen.

Das Prg. kannste ja an alle Mitarbeiter senden, mit der bitte es einmal auszuführen.

Beim ausführen wird dann eine BatchDatei erzeugt, die dein Programm und sich selbst beim nächsten Windows start löscht.

(Kannst'e auch in der Registry angeben, dass die Batch EINMAL ausgeführt wird)

Hier sind mal die RegistryPfad, die dir helfen sollten.

HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\

HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Word\Options

Das dumme ist, dass jeder User dann noch die Msmvb5.dll (oder so) braucht. Die kannste aber auch mit Fusion in die Exe packen.

Sollte alles soweit gehen.

MfG

KarlBerg

Hi,

das mit dem doppelten Wert, hab ich eigentlich schon in meinem 2. Post behoben (glaub ich).

*Egal*

Hab deinen Code jetzt so abgeändert, dass er laufen sollte.

Dim Wert1 As Integer


Private Sub Command1_Click()

For i = 0 To 15

    Text1(i) = Int((16 * Rnd) + 1)

Next i


For x = 0 To 15

    For z = 0 To 15

        If z <> x Then

            If Text1(z) = Text1(x) Then

                Wert1 = Int((16 * Rnd) + 1)

                Text1(x) = Wert1

                z = 0

                x = 0

            End If

        End If

    Next z

Next x


End Sub

MfG

KarlBerg

Hi,

ist noch en Fehler aufgefallen.

schreib unter z=0 noch x=0.

Also:

For x = 0 To 5

For z = 0 To 5

    If z <> x Then

        If FeldHlp(z) = FeldHlp(x) Then

            Wert1 = Int((50 * Rnd) + 1)  'zufall von 1 bis 50

            FeldHlp(x) = Wert1

            z = 0

            x = 0   '<-ÄNDERUNG

        End If

    End If

Next z

Next x

Ansonsten darf der Bereich des Zufalls (hier von 1 bis 50) nicht unter der Anzahl der Labels liegen, sonst kommste in ne Endlosschleife, weil man nicht jedem Label ne andere Nummer zuordnen kann, weils ja net genug gibt.

Sollte so jedenfalls Fehler frei laufen.

MfG

KarlBerg

Hi,

da musst'e mit Feldern arbeiten.

Wenn du z.B. das Label1 kopierst, wirst du gefragt, ob ein "Steuerelementefeld" verwenden willst.

Ja, du willst!

Sagen wir du kopierst "label1" 5 mal (wirst aber nur einmal gefragt, hast am Schluss 6 Labels).

Private Sub Command1_Click()

    For i = 0 To 5  '6 Felder, aber bei 0 beginnend

        Label1(i) = "Feld " & i

    Next i

End Sub

Die UngleichAbfrage musste mit auch mit Feldern (Variablen) lösen. Hab hier zusammengeknaupt, ist nicht schön, läuft aber auf den ersten Blick

Private Sub Command2_Click()

Dim Wert1

Dim FeldHlp(0 To 6) As Integer

Dim i


    For i = 0 To 5

        Wert1 = Int((50 * Rnd) + 1)  'zufall von 1 bis 50

        FeldHlp(i) = Wert1

    Next i


For x = 0 To 5

For z = 0 To 5

    If z <> x Then

        If FeldHlp(z) = FeldHlp(x) Then

            Wert1 = Int((50 * Rnd) + 1)  'zufall von 1 bis 50

            FeldHlp(x) = Wert1

            z = 0

        End If

    End If

Next z

Next x


    For i = 0 To 5

        Label1(i) = FeldHlp(i)

    Next i


End Sub

Hth

KarlBerg

Hi,

finde das Design Ok.

Nur die unterste Rot Linie würd ich durchziehen.

Und das Rote Hinterlegen beim MouseOver würd ich vielleicht auch nicht ganz so breit machen.

Englisch-Teil würde ich folgendes ändern:

unter Technical Skills

-"computer languages" ersetzen durch "programming languages"

-bei webservers: hinter Apache fehlt die Klammer zu

Wenn man (oben rechts) z.B. auf Englisch klickt, sollte man ins selbe Menü springen, wie das in dem man in der Deutschen Version war.

Ausserdem ist der Rote MouseOver-Hintergrund beim Englisch-"Button" nicht so weit, wie der beim Deutschen.

Das sollte genug sein

MfG

KarlBerg

Hi,

hab letztens gehört, dass es darauf ankommt, ob man in der Berufsschule sowas wie Wirtschaftslehre / BWL hatte oder net.

Ohne BWL keine FH-Reife.

Wenn du also ne Ausbildung als Straßenkehrer ohne BWL gemacht hast bezweifle ich, dass du studieren "darfst".

(Nix gegen Straßenkehrer )

Aber als FiSi wirst'e schon dürfen.

(Zumindest haben wir (auch FiSi) BWL.)

MfG

KarlBerg

Hi,

für fabige ScrollBars sollte das hier helfen

-----snip-----

</head>

<body>

<STYLE TYPE="text/css"><!--

BODY {

scrollbar-arrow-color:#FFFFFF;

scrollbar-base-color:#6D8693;

scrollbar-shadow-color:#F3F3F3;

scrollbar-Track-Color:#2D3851;

scrollbar-face-color:#617087;

scrollbar-highlight-color:#F3F3F3;

scrollbar-dark-shadow-color:#000000;

scrollbar-3d-light-color:#9BAAC1;

}

//--></STYLE>

----snip----

Hth

karlBerg

Hi,

hab hier einen Port-Scanner-Code, is zwar net von mir, aber verdammt schnell.

Wsk heisst das Winsock-Element

Die anderen Elemente wirst'e schon finden

-------------Snip----------

Public Max_Con

Public Max_Port

Public Last_Checked

Public url As String

Private Is_ready(33999) As Ready

Private Type Ready

Value As Integer

End Type

Private Sub Command1_Click()

blah = InputBox("How Many Sockets? (500 is good)", HowMany, 500)

Max_Con = blah

For x = 1 To blah

Load Wsk(x)

Next x

End Sub

Private Sub Command2_Click()

url = InputBox("URL to SCAN", , "localhost")

Me.Caption = url

Max_Port = InputBox("Maximum port to scan")

Call Check

End Sub

Private Sub Timer1_Timer()

Label3.Caption = Val(Label3.Caption) + 1 & " Second/s"

End Sub

Private Sub Wsk_Connect(Index As Integer)

Label1.Caption = "Last Checked In: " & Wsk(Index).RemotePort

List1.AddItem Index, 0

Wsk(Index).Close: Is_ready(Index).Value = 0 'set socket ready

End Sub

Private Sub Wsk_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Label1.Caption = "Last Checked In: " & Wsk(Index).RemotePort

Wsk(Index).Close: Is_ready(Index).Value = 0 'set socket ready

End Sub

Sub Check()

Strt:

Timer1.Enabled = True

DoEvents

For x = 1 To Max_Con

DoEvents

'Wsk(x).Close This is Bad!!

If Is_ready(x).Value <> 0 Then GoTo 20: ' Socket Isnt done checking skip

Wsk(x).Connect url, Last_Checked + 1

Is_ready(x).Value = 1 'Set socket not ready

Last_Checked = Last_Checked + 1

Label2.Caption = "Next To Be Scanned: " & Last_Checked

20:

Next x

If Val(Last_Checked) >= Val(Max_Port) Then

Timer1.Enabled = False

For y = 1 To Max_Con

'Clean Up

Is_ready(y).Value = 0

Unload Wsk(y)

Next y

MsgBox ("Stoped")

Exit Sub

Else:

GoTo Strt:

End If

End Sub

-------------Snip----------

Hth

KarlBerg

Hi,

hab dein "Problem" irgendwie nicht richtig verstanden.

-Willst du mit VB Daten aus ner Excel Tabelle auslesen?

-Willst du Daten aus ner ListView "Tabelle" auslesen?

-Oder arbeitest du mit ner MSFlexGrid?

Guck mal bei www.activevb.de, die wissen fast alles

MfG

KarlBerg

Hi,

das hier müsste bei allen Win-Versionen laufen:

------------------------------------------

Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _

(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

intret = ShellExecute(Me.hWnd, "open", "C:\winnt\system32\Odbcinst.chm", "", "", 5)

End Sub

-------------------------------------------

Hth

KarlBerg

Hi,

ich hätte da noch ein 2 Seiten Worddokument über

MO-Laufwerke.

Bräuchte halt deine Mail-Adresse.

MfG

KarlBerg

Hi,

also heute hat sich zumindest keiner für's Berichtsheft interessiert.

Für die AbschlussPrüfung werd ich dann (wahrscheinlich) noch nachtragen lassen.

Tschö

Karl Berg

Hi,

könnt' mir (f.doerr@gmx.de) auch jmd. die ZP01 Frühjahr schicken?

Danke

KarlBerg

Hi,

also bei uns (Saarland) ist "die Benutzung eines unkommentierten Tabellenbuches erlaubt".

Tschö

KarlBerg

Hi,

in der Einladung hat ja gestanden, dass man das Berichtsheft mitbringen muss.

Weiss jmd. ob die Prüfer Streß machen, wenn man noch KEINE Unterschrift vom Ausbildungsleiter drin hat.

Oder wird das Ding erst gar net kontrolliert.

Tschö

KarlBerg