Allgemein Fehler

[autoit]

TCPStartup()
#include <Array.au3>
#include <GUIConstants.au3>
#include 'Include.au3'
#include <Misc.au3>
#include <GuiListView.au3>
#include <inet.au3>
#include <A3LIPAddress.au3>
#include <ServiceControl.au3>
#include <guiconstants.au3>
Global Const $WS_EX_CONTROLPARENT = 0x00010000
Opt("TrayMenuMode",1)
Dim $Optionen, $MaxB=0
Global $EditMSG = ""
Global $SwapSendBT = 1
Global $SwapConnBT = 1
Global $name = 1,$exitloop = False

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Const $ServerPort = 8000
Const $ClientPort = 8001
Const $MaxMSGLength = 512

[/autoit] [autoit][/autoit] [autoit]

Local $FirstTimeRecv = 1
Local $FirstTimeSend = 1

[/autoit] [autoit][/autoit] [autoit]

Global $Hidecheck = 0
Global $name = 1

[/autoit] [autoit][/autoit] [autoit]

Dim $aReg[2]

[/autoit] [autoit][/autoit] [autoit]

Local $gui = -1, $ka = -1, $gui2 = -1

[/autoit] [autoit][/autoit] [autoit]

If _ArraySearch($CmdLine, "tray") Then
$guistate = @SW_HIDE
$trayshmsg = "Show"
Else
$guistate = @SW_SHOW
$trayshmsg = "To Tray"
EndIf
#cs
Global $sw_GUIStartupStatus = @SW_SHOW
If $CmdLine[0] > 0 Then
If $CmdLine[1] = "-tray" Then
$sw_GUIStartupStatus = @SW_HIDE
TraySetState(1)
EndIf
EndIf
#ce

[/autoit] [autoit][/autoit] [autoit]

;DirCreate(@WindowsDir &"\KANREFF\Network Manager\")
;filecopy(@ScriptFullPath,@WindowsDir &"\KANREFF\Network Manager\"&@scriptname,9)
;filecopy(@ScriptDir & "\kanreff.pic", @WIndowsDir & "\KANREFF\Network Manager\kanreff.pic",9)
TraySetIcon("shell32.dll",18)
;Intro

[/autoit] [autoit][/autoit] [autoit]

$reg4 = RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Check")
If $reg4 = False Then ;Der Erste Start
$mask = GetSubnetMask()
$subnetmask = $mask
RegWrite("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Subnetmask","REG_SZ",$subnetmask)
Regwrite("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Check","REG_SZ","2")
;Regwrite("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network manager Intro","REG_SZ","1")
;$reg3 = RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Intro")
;If $reg3 == 1 Then
;$gui44=GUICreate("test")
;$pic=GUICreate("1234", 300, 50, 0, 0,$WS_POPUP,$WS_EX_MDICHILD,$gui44)

;$ctrl = GUICtrlCreatePic (@ScriptDir &"/kanreff.jpg", 0, 0, 300, 50)
;GUICtrlSetState($ctrl, $GUI_DISABLE)
;$ExitID = GUICtrlCreateButton("Exit", 300, 175, 75, 25)
;GUISetState()
;sleep(2500)
;GUIDelete()
;EndIF
;Else ;Alles danach!
;$mask = RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Subnetmask")
;$subnetmask = $mask
;$reg3 = RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Intro")
;If $reg3 == 1 Then
;$gui44=GUICreate("test")
;$pic=GUICreate("1234", 300, 50, 0, 0,$WS_POPUP,$WS_EX_MDICHILD,$gui44)
;$ctrl = GUICtrlCreatePic (@ScriptDir &"/kanreff.jpg", 0, 0, 300, 50)
;GUICtrlSetState($ctrl, $GUI_DISABLE)
;$ExitID = GUICtrlCreateButton("Exit", 300, 175, 75, 25)
;GUISetState()
;sleep(2500)
;GUIDelete()
;EndIF
EndIF

[/autoit] [autoit][/autoit] [autoit]

;MainWIndow

[/autoit] [autoit][/autoit] [autoit]

$abcip0=@IPAddress1
$abcip=StringSplit($abcip0,".")
$IPAddress = $abcip[1] & "." & $abcip[2] & "." & $abcip[3] & "." & 1
$gui = GUICreate("Network Manager",230,170,-1, -1);,$WS_BORDER)
;WinSetTrans ( "KANREFF Network Manager", "", 1000 )
$filemenu = GUICtrlCreateMenu("File")
$pingitem = GUICtrlCreateMenuitem ("Direct Ping",$filemenu)
$separator4 = GUICtrlCreateMenuitem ("",$filemenu,7)
$traymin = GUICtrlCreateMenuitem ("To Tray",$filemenu)
$separator2 = GUICtrlCreateMenuitem ("",$filemenu,7)
$optitem = GUICtrlCreateMenuitem("Options",$filemenu)
$separator = GUICtrlCreateMenuitem ("",$filemenu,7)
$exititem = GUICtrlCreateMenuitem ("Exit",$filemenu)
$extramenu = GUICtrlCreateMenu("Specially")
$fireitem = GUICtrlCreateMenuitem ("Configure W Firewall",$extramenu)
$helpmenu = GUICtrlCreateMenu("?")
$confitem = GUICtrlCreateMenuitem("Configurations", $helpmenu)
;$separator6 = GUICtrlCreateMenuitem ("",$helpmenu,7)
;$aboutitem = GUICtrlCreateMenuitem("About KANREFF", $helpmenu)

[/autoit] [autoit][/autoit] [autoit]

$label1 = GUICtrlCreateLabel("Ready", 0, 136,300, 18,BitOR($SS_SIMPLE,$SS_SUNKEN))
$labelip = GUICtrlCreateLabel(" Your IP: " & @IPAddress1, 0, 4, 300, 13 )

[/autoit] [autoit][/autoit] [autoit]

$ipi = _IPAddress_Create($gui,20, 35)
_IPAddress_SetAddressStr($ipi,$IPAddress)
GUICtrlSetTIp($ipi, 'Please enter IP mask and select between "set" or "list"!')
$label4 = GUICtrlCreateLabel(" - ",148,39, 13, 13)
$ipi5 = GUICtrlCreateInput("255" ,167, 35, 44, 20)
$Updown = GUICtrlCreateUpdown(-1)
GUICtrlSetLimit(-1, 255, "1")

[/autoit] [autoit][/autoit] [autoit]

$check1 = GUICtrlCreateRadio ("list IP's", 45, 70, 55)
GUICtrlSetTip($check1, "With that you can look which Computers are in the Network!")

[/autoit] [autoit][/autoit] [autoit]

$check2 = GUICtrlCreateRadio ("Set your IP!", 100, 70, 80)
GUICtrlSetTip($check2, "With that you can change your IP!")

[/autoit] [autoit][/autoit] [autoit]

$button66 = GUICtrlCreateButton ("Go -->",20, 100, 180)
GUICtrlSetTip($button66, "Next Step...")

[/autoit] [autoit][/autoit] [autoit]

$traysh = TrayCreateItem($trayshmsg)
TrayCreateItem("")
$traypi = TrayCreateItem( "Ping")
TrayCreateItem("")
;$trayinfo = TrayCreateItem("Info")
;TrayCreateItem("")
$trayexit = TrayCreateItem("Exit")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg(1)
$trmsg = TrayGetMsg()
Select

Case $msg[0] = $exititem OR $trmsg = $trayexit OR $msg[0] = $GUI_EVENT_CLOSE
If $msg[1] = $gui Then
$quitmsg78 = msgbox(36, "Network Manager", "Do you really want to Quit?")
If $quitmsg78 = 6 Then
;soundplay("exit.wav",1)
Exit
EndIf
Else
GUISetState(@SW_HIDE, $msg[1])
EndIf

;Case $trmsg = $trayinfo;$msg[0] = $aboutitem OR
;MsgBox(64,"About KANREFF Network Manager", "KANREFF Network Manager" & @CRLF & "Version 0.1 Alpha" & @CRLF & "Designed and Coded by ChiefORZ" & @CRLF & @CRLF & "© 2007 by KANREFF ANIMATIONS" & @CRLF & "http://kanreff.tk/")

Case $msg[0] = $traymin OR $trmsg = $traysh
If $Hidecheck = 1 Then
$Hidecheck = 0
GUISetState(@SW_SHOW, $gui)
TrayItemSetText ($traysh, "To Tray")
ElseIF $Hidecheck = 0 Then
$Hidecheck = 1
GUISetState(@SW_HIDE, $gui)
TrayItemSetText($traysh, "Show")
EndIf

Case $msg[0] = $check2
GUICtrlSetState($ipi5, $GUI_DISABLE)
GUICtrlSetData($label1, "Set your IP!")

Case $msg[0] = $check1
GUICtrlSetState($ipi5, $GUI_ENABLE)
GUICtrlSetData($label1,"list IP's!")

Case $msg[0] = $pingitem OR $trmsg = $traypi
$ip55 = InputBox("Direct Ping", "Set the IP witch is to be connected!", @IPAddress1)
$ping55 = Ping($ip55)
If $ping55 Then
$67 = Msgbox(36, "IP check", "Found successfully!"& @CRLF &"Open Shared Files?")
If $67 = 6 Then
Run("explorer \\" & $ip55)

[/autoit] [autoit][/autoit] [autoit]

EndIf
Else
msgbox (48, "ERROR", "Couldn't connect to: " & $ip55)
EndIf

Case $msg[0] = $button66
TCPStartup()
If BitAnd(GUICtrlRead($check1),$GUI_CHECKED) = $GUI_CHECKED Then
$ka = WinGetPos("Network Manager")
$ip3 = $abcip[1] & "." & $abcip[2] & "." & $abcip[3] & "."
$gui4 = GUICreate("Network Manager",$ka[2] - 6, 130, $ka[0], $ka[1] + $ka[3], $WS_DLGFRAME + $WS_POPUP, Default, $gui)
$listview = GUICtrlCreateListView(" IP | Name ",10, 20, 210, 110)
$iplistl=GUICtrlCreateLabel("Ready",35,5,100,15)
$button11=GUICtrlCreateButton("Go",140,0,45, 19)
$button12=GUICtrlCreateButton("Hide",185,0,45, 19)
$ip = _IPAddress_GetAddressStr($ipi)
$ip24 = StringSplit($ip, ".")
$name = 1
GUISetState(@SW_SHOW)
While 1
$msg3 = GUIGetMsg()
Select
Case $msg3 = $button11
TCPStartup()
GUICtrlSetData($button11,"Abort")
While 1
For $x = $ip24[4] To GUICtrlRead($ipi5)
$msg = GUIGetMsg()
If $msg = $button11 Then $exitloop = True
If $exitloop Then ExitLoop
$ip55 = $ip3 & $x
GUICtrlSetData($iplistl, $ip55)
$ping44 = Ping($ip55, 50)
If $name = 1 Then
If $ip55 = @IPAddress1 Then
$iptoname = @ComputerName & "(Your PC)|"
EndIf
Else
$iptoname = _TCPIpToName($ip55,1)
EndIf
If Not @error Then
$iptoname=_TCPIpToName($ip55,1)
;$iptoname2 = _ArrayDisplay($iptoname)
GUICtrlCreateListViewItem($ip55 & "|" & $iptoname, $listview)
EndIf
Next
If $exitloop Then ExitLoop
WEnd
$exitloop = False
GUICtrlSetData($button11,"Go")
GUICtrlSetData($iplistl,"Ready")
Case $msg3 = $button12
GUISetState(@SW_HIDE)
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

ElseIf BitAnd(GUICtrlRead($check2),$GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetData($label1, "Wait...")
$subnetmask=RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Subnetmask")
$ip = _IPAddress_GetAddressStr($ipi)
$ip23 = StringSplit($ip, ".")
$ip2 = $ip23[1] & "." & $ip23[2] & "." & $ip23[3]
$sCon_name = "LAN-Verbindung"
$sSetmask = $subnetmask
$sSetgetw = $ip2 & ".1"
$sSetdns = $ip2 & ".1"
$sSetipadrr = $ip
$_setip = _SetIp($sCon_name,$sSetipadrr,$sSetmask,$sSetgetw,1,$sSetdns)
$error = @error
If $error Then
If $error = "1" Then
MsgBox(16,"_SetIP Error","netsh.exe not exists!")
EndIf
EndIf
If @IPAddress1 = $ip Then
GUISetCursor(1)
msgbox (48, "Network Manager", "Your IP was changed sucessfully!")
GUISetState(@SW_RESTORE,$gui)
GUICtrlSetData($labelip," Your IP: " & @IPAddress1)
GUICtrlSetData($label1, "Ready")
Else
GUISetCursor(1)
msgbox(0, "Network Manager", "Your IP couldn't change!")

EndIf

EndIf

Case $msg[0] = $optitem
$optgui = OptGUI()

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $fireitem
$ka = WinGetPos("Network Manager")
$gui34 = GUICreate("Firewall Settings",$ka[2] - 6, 130, $ka[0], $ka[1] + $ka[3], $WS_DLGFRAME + $WS_POPUP, Default, $gui)
$status = GUICtrlCreateLabel("Windows Firewall is currently:", 24, 30, 142, 17)
$Status = GUICtrlCreateLabel("Status", 170, 30, 58, 17)
$Start = GUICtrlCreateButton("Start", 30, 60, 73, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 135, 60, 73, 25, 0)
$exitfire = GUICtrlCreateButton("Back", 90, 90, 73, 25, 0)
GUISetState(@SW_SHOW)
_Startup()
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $Start
If _ServiceExists("", "SharedAccess") Then
GUICtrlSetColor($Status, 0x000000)
GUICtrlSetData($Status, "Starting...")
_StartService("", "SharedAccess")
Sleep(2000)
GUICtrlSetColor($Status, 0x008000)
GUICtrlSetData($Status, "Started")
EndIf

Case $nMsg = $Stop
If _ServiceExists("", "SharedAccess") Then
GUICtrlSetColor($Status, 0x000000)
GUICtrlSetData($Status, "Stopping...")
_StopService("", "SharedAccess")
Sleep(2000)
GUICtrlSetColor($Status, 0xff0000)
GUICtrlSetData($Status, "Stopped")
EndIf

Case $nMsg = $exitfire
GUISetState(@SW_HIDE)
;GUIDelete($gui)
EndSelect
WEnd
;$fireitem = FireGUI()

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $confitem
$prt = ""
$ProgName="ipconfig /all"
$PrtArray=StringSplit(_SysProg($ProgName &" " &$Optionen), @CrLf)
For $i=1 To UBound($PrtArray, 1)-1
If StringLen($PrtArray[$i])>$MaxB Then $MaxB=StringLen($PrtArray[$i])
If $PrtArray[$i]<>"" Then $Prt &=$PrtArray[$i] &@CrLF
Next
_IEPrt($Prt, $ProgName, 9*$MaxB, 9*UBound(StringSplit($Prt, @CrLf), 1))

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func OptGUI()
$ka = WinGetPos("Network Manager")
$reg = RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Startup")
$reg2 = RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Intro")
$gui2 = GUICreate("Options",$ka[2] - 6, 130, $ka[0], $ka[1] + $ka[3], $WS_DLGFRAME + $WS_POPUP, Default, $gui)
$startup1 = GUICtrlCreateCheckbox("At Startup", 20, 20)
$picture = GUICtrlCreateCheckbox("Intro",100, 20)
if $reg == 1 Then
GUICtrlSetState($startup1,$GUI_CHECKED)
Else
GUICtrlSetState($startup1,$GUI_UNCHECKED)
EndIf
if $reg2 ==1 Then
GUICtrlSetState($picture,$GUI_CHECKED)
Else
GUICtrlSetState($picture,$GUI_UNCHECKED)
EndIf

$optok = GUICtrlCreateButton("OK", 120, 105,40, 23)
$optab = GUICtrlCreateButton("Abort", 180, 105,40, 23)
GUICtrlCreateLabel(" Subnetmask:", 0,50)
$subnetmask2=RegRead("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Subnetmask")
$subnetz = _IPAddress_Create($gui2 ,94 ,47)
_IPAddress_SetAddressStr($subnetz,$subnetmask2)
;$subnetz2 = _IPAddress_GetAddressStr($subnetz)
GUISetState(@SW_SHOW)
While 1
$optmsg = GUIGetMsg()
Select
Case $optmsg = $optok ;OR $optmsg = $optok1
$subnetz2 = _IPAddress_GetAddressStr($subnetz)
Regwrite ("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Subnetmask","REG_SZ",$subnetz2)
If BitAnd(GUICtrlRead($startup1),$GUI_CHECKED) = $GUI_CHECKED Then
Regwrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","Team NRClog.exe","REG_SZ",@WindowsDir&"\KANREFF\Network Manager\"&@scriptname)
Regwrite ("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Startup","REG_SZ","1")
Regwrite ("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager07","REG_SZ",@WindowsDir &"\KANREFF\Network Manager\"&@scriptname)
ElseIf BitAND(GUICtrlRead($startup1),$GUI_UNCHECKED) = $GUI_UNCHECKED Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","Team NRClog.exe")
RegWrite("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Startup","REG_SZ","0")
EndIf
If BitAnd(GUICtrlRead($picture),$GUI_CHECKED) = $GUI_CHECKED Then
Regwrite ("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Intro","REG_SZ","1")
ElseIf BitAND(GUICtrlRead($picture),$GUI_UNCHECKED) = $GUI_UNCHECKED Then
RegWrite("HKEY_CURRENT_USER\SOFTWARE\KANREFF\Network Manager","Network Manager Intro","REG_SZ","0")
EndIf
GUISetState(@SW_HIDE)
;GUIDelete($gui2)
Return
Case $optmsg = $optab ;OR $optmsg = $optab1
GUISetState(@SW_HIDE)
;GUIDelete($gui2)
Return
EndSelect
WEnd
EndFunc

Func _StartUp()
If _ServiceExists("", "SharedAccess") Then
If _ServiceRunning("", "SharedAccess") = 1 Then
GUICtrlSetColor($Status, 0x008000)
GUICtrlSetData($Status, "Started")
ElseIf _ServiceRunning("", "SharedAccess") = 0 Then
GUICtrlSetData($Status, "Stopped")
GUICtrlSetColor($Status, 0xff0000)
EndIf
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func SetButtonStatus()
If GUICtrlRead($EditMSG) == "" And $SwapSendBT = 1 Then
GUICtrlSetState($BTSend, $GUI_DISABLE)
$SwapSendBT = 0
ElseIf GUICtrlRead($EditMSG) <> "" And $SwapSendBT = 0 Then
GUICtrlSetState($BTSend, $GUI_ENABLE)
$SwapSendBT = 1
EndIf

If GUICtrlRead($ServerIP) <> "" And $SwapConnBT = 0 Then
GUICtrlSetState($BTConn, $GUI_ENABLE)
$SwapConnBT = 1
ElseIf GUICtrlRead($ServerIP) == "" And $SwapConnBT = 1 Then
GUICtrlSetState($BTConn, $GUI_DISABLE)
$SwapConnBT = 0
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _SetIp($sCon_name,$sSetipadrr,$sSetmask,$sSetgetw,$nReturn = 1,$sSetdns = "")
$netsh = @SystemDir&"\netsh.exe"
If @OSTYPE <> "WIN32_NT" Then $netsh = @ScriptDir&"\netsh.exe"
If Not FileExists($netsh) Then Return SetError(1,0,0)
$pid = Run($netsh&' interface ip set address name="'&$sCon_name&'" source=static addr='&$sSetipadrr&' mask='&$sSetmask&' gateway='&$sSetgetw&' gwmetric=1',@WindowsDir,@SW_HIDE,2); Here it sets the adresses
While ProcessExists($pid)
Sleep(100)
WEnd
$status = StdoutRead($pid)
If StringLeft($status,3) <> "OK." Then Return SetError(2,0,$status)
If $sSetdns <> "" Then
$pid = Run($netsh&' interface ip set dns name="'&$sCon_name&'" static '&$sSetdns,@WindowsDir,@SW_HIDE,2)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

#cs
Func _TCPIpToName($sIp,$hDll_Ws2_32 = "Ws2_32.dll")
Local $vbinIP,$vaDllCall,$vptrHostent,$vzptrName
Local $INADDR_NONE = 0xffffffff
$vaDllCall = DllCall($hDll_Ws2_32,"long","inet_addr","str",$sIp)
If @error Then Return SetError(1,0,"") ; inet_addr DllCall Failed
$vbinIP = $vaDllCall[0]
If $vbinIP = $INADDR_NONE Then Return SetError(2,0,"") ; inet_addr Failed
$vaDllCall = DllCall($hDll_Ws2_32,"ptr","gethostbyaddr","long_ptr",$vbinIP,"int",4,"int",2) ; 2 = AF_INET
If @error Then Return SetError(3,0,"") ; gethostbyaddr DllCall Failed
$vptrHostent = $vaDllCall[0]
If $vptrHostent = 0 Then
$vaDllCall = DllCall($hDll_Ws2_32,"int","WSAGetLastError")
If @error Then Return SetError(5,0,"") ; gethostbyaddr Failed, WSAGetLastError Failed
Return SetError (4,$vaDllCall[0],"") ; gethostbyaddr Failed, WSAGetLastError = @Extended
EndIf
$vzptrName = DllStructCreate("ptr",$vptrHostent)
Return __TCPIpToName_szStringRead(DllStructGetData($vzptrName,1))
EndFunc
#ce

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _SysProg($Which)
Local $h, $i, $Prt
$i=Run(@ComSpec &" /c " &$Which, @SystemDir, @SW_HIDE, $STDOUT_CHILD+$STDERR_CHILD)
ProcessWaitClose($i)
$h=StdOutRead($i)
If @Error=0 Then $Prt=$h
$h=StdErrRead($i)
If @Error=0 Then $Prt = $h
$Prt=StringReplace($Prt, Chr(154), "Ü")
$Prt=StringReplace($Prt, Chr(129), "ü")
$Prt=StringReplace($Prt, Chr(142), "Ä")
$Prt=StringReplace($Prt, Chr(132), "ä")
$Prt=StringReplace($Prt, Chr(153), "Ö")
$Prt=StringReplace($Prt, Chr(148), "ö")
Return "<body scroll=auto><Pre>" &$Prt
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _IEPrt($Was, $Titel, $Breite=660, $Hoehe=400, $Links=100, $Oben=100)
Dim $IE=ObjCreate("InternetExplorer.Application.1")
$IE.Navigate("about:blank")
$IE.Left=$Links
$IE.Top=$Oben
$IE.Width=$Breite
$IE.Height=$Hoehe
$IE.Visible=True
$IE.Document.Body.InnerHtml="Bitte warten.."
$IE.Toolbar=False
$IE.Menubar=False
$IE.Statusbar=False
$IE.Document.Body.InnerHtml=$Was
WinSetTitle("about:blank","","Information")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func GetSubnetMask()
$cmd = Run("ipconfig",@WorkingDir,@SW_HIDE,2)
$ipconfigvar = StdOutRead($cmd)

$subnetstart = StringInStr($ipconfigvar, ". : 255.")
$subnetend = StringInStr($ipconfigvar, @CR, 0, 5)
$subnetlenght = $subnetend - $subnetstart
$subnetmask1 = StringMid($ipconfigvar, $subnetstart + 4, 15)
$subnetmask = StringStripCR($subnetmask1)

Return $subnetmask
EndFunc

[/autoit]