Jump to content

JollyJumper

Members
  • Gesamte Inhalte

    112
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von JollyJumper

  1. Hallo,

     

    ich möchte mein bestehendes WLAN erweitern un ein zusätzlichen Stockwerk über WLAN einbinden.

    Gibt es die Möglichkeit eins Realis d.h. einen zweiten WLAN AP der via WLAN zum ersten verbunden ist und zusätzlich die Clients im 2. Stock bedient?

     

    DSL > LAN > WLAN 1. Stock > WLAN 2. Stock > Clients

     

    gruss JollyJumper

  2. Das sieht etwa so aus...

     

    'File Open /Save Dialoge

    'zunächst die benötigten API-Deklarationen

    Private Type OPENFILENAME

    lStructSize As Long

    hwndOwner As Long

    hInstance As Long

    lpstrFilter As String

    lpstrCustomFilter As String

    nMaxCustFilter As Long

    nFilterIndex As Long

    lpstrFile As String

    nMaxFile As Long

    lpstrFileTitle As String

    nMaxFileTitle As Long

    lpstrInitialDir As String

    lpstrTitle As String

    flags As Long

    nFileOffset As Integer

    nFileExtension As Integer

    lpstrDefExt As String

    lCustData As Long

    lpfnHook As Long

    lpTemplateName As String

    End Type

     

    Private Const OFN_READONLY = &H1

    Private Const OFN_OVERWRITEPROMPT = &H2

    Private Const OFN_HIDEREADONLY = &H4

    Private Const OFN_NOCHANGEDIR = &H8

    Private Const OFN_SHOWHELP = &H10

    Private Const OFN_ENABLEHOOK = &H20

    Private Const OFN_ENABLETEMPLATE = &H40

    Private Const OFN_ENABLETEMPLATEHANDLE = &H80

    Private Const OFN_NOVALIDATE = &H100

    Private Const OFN_ALLOWMULTISELECT = &H200

    Private Const OFN_EXTENSIONDIFFERENT = &H400

    Private Const OFN_PATHMUSTEXIST = &H800

    Private Const OFN_FILEMUSTEXIST = &H1000

    Private Const OFN_CREATEPROMPT = &H2000

    Private Const OFN_SHAREAWARE = &H4000

    Private Const OFN_NOREADONLYRETURN = &H8000

    Private Const OFN_NOTESTFILECREATE = &H10000

    Private Const OFN_NONETWORKBUTTON = &H20000

    Private Const OFN_NOLONGNAMES = &H40000

    Private Const OFN_EXPLORER = &H80000

    Private Const OFN_NODEREFERENCELINKS = &H100000

    Private Const OFN_LONGNAMES = &H200000

    Private Const OFN_SHAREFALLTHROUGH = 2

    Private Const OFN_SHARENOWARN = 1

    Private Const OFN_SHAREWARN = 0

     

    Private Declare Function GetSaveFileName Lib "comdlg32.dll" _

    Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) _

    As Long

    Private Declare Function GetOpenFileName Lib "comdlg32.dll" _

    Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) _

    As Long

     

    ...

    ....

     

     

    code

     

     

    'Speichern-Dialog

    Public Function ShowSaveDlg(f As Form, strFilter As String, _

    strTitel As String, strInitDir As String) As String

     

    Dim lngOpenFileName As OPENFILENAME

    Dim lngAnt As Long

     

    With lngOpenFileName

    .lStructSize = Len(lngOpenFileName)

    .hwndOwner = f.hWnd

    .hInstance = App.hInstance

    If Right$(strFilter, 1) <> "|" Then _

    strFilter = strFilter + "|"

     

    For lngAnt = 1 To Len(strFilter)

    If Mid$(strFilter, lngAnt, 1) = "|" Then _

    Mid$(strFilter, lngAnt, 1) = Chr$(0)

    Next

     

    .lpstrFilter = strFilter

    .lpstrFile = Space$(254)

    .nMaxFile = 255

    .lpstrFileTitle = Space$(254)

    .nMaxFileTitle = 255

    .lpstrInitialDir = strInitDir

    .lpstrTitle = strTitel

    .flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT Or _

    OFN_CREATEPROMPT

     

    lngAnt = GetSaveFileName(lngOpenFileName)

    If (lngAnt) Then

    ShowSaveDlg = Trim$(.lpstrFile)

    Else

    ShowSaveDlg = ""

    End If

    End With

    End Function

     

    ...

    ..

    Private Sub cmdLoad_Click()

    sFile = ShowOpenDlg(Me, "Textdateien (*.txt)|*.txt|All Files (*.*)|*.*", "Open Text File...", App.Path)

    If (sFile <> "") Then MsgBox "Ausgewählte Datei: " + sFile

    ..

    ..

     

    End Sub

     

    Private Sub cmdSave_Click()

    'Speichern...

    sFile = ShowSaveDlg(Me, "*.txt (Textdateien)|*.txt", "Save File", App.Path)

    If (sFile <> "") Then MsgBox "Gewählter Dateiname: " + sFile

    ...

    End Sub

  3. In Excel sieht das so aus (als Funktion):

     

    Function GetFirstTwoIPOct(The_Text As String)

    Dim stGotIt As String

    'Extracts the First two octets from a text string 1.2.3.4

    ''''''''''''''''''''''''''''''''''''''''''

    pos = InStr(1, The_Text, ".") 'Start left

    If pos = 0 Then

    stGotIt = ("N/A")

    Else

    pos = InStr(pos + 1, The_Text, ".") 'Start after 2nd left

    If pos = 0 Then

    stGotIt = ("N/A")

    Else

    i = 1

    'Do Until stGotIt Like (".*")

    Do Until i = pos

    stGotIt = Left(The_Text, i)

    i = i + 1

    Loop

    End If

    End If

    GetFirstTwoIPOct = stGotIt

    End Function

  4. Hier der Key der im Englischen XP Manage (Verwalten ) öffnet.

    Anstelle von Manage wird sehr wahrscheinlich Verwalten stehen.

     

     

    ----------------begin Copy and Paste-----------------

    Windows Registry Editor Version 5.00

     

    ; This will add "Computer Management" to the right-click of "My Computer"

     

    [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\Manage]

    @=hex(2):40,00,25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,73,00,79, 00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,6d,00,79,00,63,00,6f,00,6d,00, 70,00,75,00,74,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,34,00,30,00,30,00,00, 00

    "SuppressionPolicy"=dword:4000003c

     

    [HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\Manage\command]

    @=hex(2):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,73,00,79,00,73, 00,74,00,65,00,6d,00,33,00,32,00,5c,00,6d,00,6d,00,63,00,2e,00,65,00,78,00, 65,00,20,00,2f,00,73,00,20,00,25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25, 00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,63,00,6f,00, 6d,00,70,00,6d,00,67,00,6d,00,74,00,2e,00,6d,00,73,00,63,00,00,

    ----------end Copy and Paste--------------------

     

    PS: der Befehl lautet in Klartext: %windir%\system32\mmc.exe /s %windir%\system32\compmgmt.msc

×
×
  • Neu erstellen...