Hi,
wie bestimmt viele schon wissen kann man ab Windows 7 einen Hotspot vom Laptop aus erstellen via CMD. Ich hab das ganze mal in ein paar Code-Zeilen gepackt, damit man nicht immer alles neu in die CommandPrompt eingeben muss. Außerdem ist noch eine kleine Funktion zum erstellen von Passwörtern mit eingebaut..:) Man muss allerdings noch in der Systemsteuerung die Freigabe aktivieren, siehe Bild:
[Blockierte Grafik: http://praxistipps.s3.amazonaws.com/aktive-internetverbindung-teilen_5332b565.jpg]
Naja also wer es brauchen kann , ich nutze es mitlerweile relativ häufig und es funktioniert echt gut! Hier ist der Code:
[autoit]#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Process.au3>
#RequireAdmin
[/autoit][autoit][/autoit][autoit]main()
Func main()
GUICreate("WLAN Hotspot", 300, 140);, -1, -1, -1, $WS_EX_TOOLWINDOW)
GUISetBkColor(0x808080)
GUISetFont(11, 400, 1, "Century Gothic")
$newname = GUICtrlCreateLabel("Name:", 10, 10)
GUICtrlSetCursor(-1, 0)
;~ $name = GUICtrlCreateInput(@ComputerName & "-Hotspot", 100, 10, 190, 21)
$name = GUICtrlCreateInput("WLAN-" & Generate(5), 100, 10, 190, 21)
$newpw = GUICtrlCreateLabel("Passwort:", 10, 40)
GUICtrlSetCursor(-1, 0)
$pw = GUICtrlCreateInput(Generate(10), 100, 40, 190, 21);, $ES_PASSWORD)
$perm = GUICtrlCreateCheckbox(" Permanent", 9, 70)
$secure = GUICtrlCreateSlider(120, 70, 170, 30)
GUICtrlSetLimit(-1, 20, 5)
GUICtrlSetBkColor(-1, 0x808080)
GUICtrlSetData(-1, 10)
$on = GUICtrlCreateButton("An", 7, 105, 140, 24)
$off = GUICtrlCreateButton("Aus", 152, 105, 140, 24)
GUICtrlSetState($off, $GUI_DISABLE)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
Exit
ElseIf $msg = $on Then
GUICtrlSetState($on, $GUI_DISABLE)
GUICtrlSetState($name, $GUI_DISABLE)
GUICtrlSetState($pw, $GUI_DISABLE)
GUICtrlSetState($perm, $GUI_DISABLE)
GUICtrlSetState($off, $GUI_ENABLE)
If GUICtrlRead($perm) = $GUI_CHECKED Then
_RunDos("netsh wlan set hostednetwork mode=allow ssid=" & GUICtrlRead($name) & " key=" & GUICtrlRead($pw) & " keyUsage=persistent")
Else
_RunDos("netsh wlan set hostednetwork mode=allow ssid=" & GUICtrlRead($name) & " key=" & GUICtrlRead($pw) & " keyUsage=temporary")
EndIf
_RunDos("netsh wlan start hostednetwork")
ElseIf $msg = $off Then
GUICtrlSetState($off, $GUI_DISABLE)
GUICtrlSetState($on, $GUI_ENABLE)
GUICtrlSetState($name, $GUI_ENABLE)
GUICtrlSetState($pw, $GUI_ENABLE)
GUICtrlSetState($perm, $GUI_ENABLE)
_RunDos("netsh wlan stop hostednetwork")
ElseIf $msg = $newname Then
GUICtrlSetData($name, "WLAN-" & Generate(5))
ElseIf $msg = $secure Or $msg = $newpw Then
GUICtrlSetData($pw, Generate(GUICtrlRead($secure)))
EndIf
WEnd
EndFunc
Func Generate($max)
$chr = ""
For $i = 1 To $max
$nchr = Random(0, 1, 1)
If $nchr = 1 Then
$chr = $chr & _ToLetter(Random(1, 52, 1))
Else
$chr = $chr & Random(0, 9, 1)
EndIf
Next
Return $chr
EndFunc
Func _ToLetter($num)
If $num = 1 Then
Return "a"
ElseIf $num = 2 Then
Return "b"
ElseIf $num = 3 Then
Return "c"
ElseIf $num = 4 Then
Return "d"
ElseIf $num = 5 Then
Return "e"
ElseIf $num = 6 Then
Return "f"
ElseIf $num = 7 Then
Return "g"
ElseIf $num = 8 Then
Return "h"
ElseIf $num = 9 Then
Return "i"
ElseIf $num = 10 Then
Return "j"
ElseIf $num = 11 Then
Return "k"
ElseIf $num = 12 Then
Return "l"
ElseIf $num = 13 Then
Return "m"
ElseIf $num = 14 Then
Return "n"
ElseIf $num = 15 Then
Return "o"
ElseIf $num = 16 Then
Return "p"
ElseIf $num = 17 Then
Return "q"
ElseIf $num = 18 Then
Return "r"
ElseIf $num = 19 Then
Return "s"
ElseIf $num = 20 Then
Return "t"
ElseIf $num = 21 Then
Return "u"
ElseIf $num = 22 Then
Return "v"
ElseIf $num = 23 Then
Return "w"
ElseIf $num = 24 Then
Return "x"
ElseIf $num = 25 Then
Return "y"
ElseIf $num = 26 Then
Return "z"
ElseIf $num = 27 Then
Return "A"
ElseIf $num = 28 Then
Return "B"
ElseIf $num = 29 Then
Return "C"
ElseIf $num = 30 Then
Return "D"
ElseIf $num = 31 Then
Return "E"
ElseIf $num = 32 Then
Return "F"
ElseIf $num = 33 Then
Return "G"
ElseIf $num = 34 Then
Return "H"
ElseIf $num = 35 Then
Return "I"
ElseIf $num = 36 Then
Return "J"
ElseIf $num = 37 Then
Return "K"
ElseIf $num = 38 Then
Return "L"
ElseIf $num = 39 Then
Return "M"
ElseIf $num = 40 Then
Return "N"
ElseIf $num = 41 Then
Return "O"
ElseIf $num = 42 Then
Return "P"
ElseIf $num = 43 Then
Return "Q"
ElseIf $num = 44 Then
Return "R"
ElseIf $num = 45 Then
Return "S"
ElseIf $num = 46 Then
Return "T"
ElseIf $num = 47 Then
Return "U"
ElseIf $num = 48 Then
Return "V"
ElseIf $num = 49 Then
Return "W"
ElseIf $num = 50 Then
Return "X"
ElseIf $num = 51 Then
Return "Y"
ElseIf $num = 52 Then
Return "Z"
Else
Return ""
EndIf
EndFunc