Hallo
Jo ich bin bei RTL^^ Ich kann es ja mal probieren dummerweise ist das RTL mehr so RTL Nord Also wenn du nicht zufällig aus Schleswig Holstein/MeckPom/Hamburg kommst, bringt dir das sowieso nichts
Mfg Spider
Hallo
Jo ich bin bei RTL^^ Ich kann es ja mal probieren dummerweise ist das RTL mehr so RTL Nord Also wenn du nicht zufällig aus Schleswig Holstein/MeckPom/Hamburg kommst, bringt dir das sowieso nichts
Mfg Spider
Hallo
Forum = Zusammen zum Ziel kommen.
Könntest du uns bitte schildern wie du das Problem gelöst hast? Falls hier jemand zufällig die gleiche oder eine ähnliche Frage hat,
muss er/sie nicht erst ein neuen Thread erstellen, sondern kann einfach per Suche diesen Thread, und somit auch die Lösung, finden.
Danke.
Mfg Spider
Hallo und herzlich :willkommen: hier im Forum
Cool ich mach auch grad ein Praktikum bei RTL (...)
Viel spaß sonst noch hier im Fourm
Mfg Spider
Hallo
Hier habe ich dir mal eben ein Test script geschrieben. Probier mal es zum laufen zu bringen, am besten mit dem gleichen Port
Server:
;Test SERVER
TCPStartup()
$IP = "192.168.0.2"; IP des Clients
$PORT = 1234
$con = -1
While $con = -1
$con = TCPConnect($IP,$PORT)
Sleep(500)
WEnd
TCPSend($con,"Alles OK, Test verlief ohne Probleme!")
TCPCloseSocket($con)
TCPShutdown()
Client:
;Test CLIENT
TCPStartup()
$IP = "192.168.0.3" ;IP Des Servers
$PORT = 1234
$Listen = TCPListen($IP,$PORT)
$con = -1
While $con = -1
$con = TCPAccept($Listen)
Sleep(500)
WEnd
$recv = ''
While $recv = ''
$recv = TCPRecv($con,32)
WEnd
TCPCloseSocket($con)
TCPShutdown()
MsgBox(0,"",$recv)
Die IP Einstellungen musst du natürlich noch ändern!
Mfg Spider
Hallo
Jo, aber ich denke mal das dieses Projekt sowieso nicht mehr so großartig am laufen ist (siehe Datum [5.1.2007])
Mfg Spider
Edit: Ah, jetzt hab ich dein Edit gelesen
Hallo
Jo, GuiCtrlCreateGraphic sollte dir da weiter helfen.
Wenn du diese daten vom Task Manager auslesen willst sollte dir vlt das hier weiterhelfen:
[autoit]#include <array.au3>
Global $Network[1][2]
$pid = Run("taskmgr","",@SW_HIDE)
WinWait("Windows Task-Manager")
For $i = 0 To ControlListView("", "", 2600, "GetItemCount") -1
ReDim $Network[$i + 1][2]
$Network[$i][0] = ControlListView("", "", 2600, "GetText", $i, 0)
$Network[$i][1] = ControlListView("", "", 2600, "GetText", $i, 1)
Next
_ArrayDisplay($Network)
ProcessClose($pid)
Mfg Spider
Hallo
Halte dies für eine Gute Idee. Würde dann aber ein neuen Thread machen und dann genau die gleiche Systematik reinmachen wie auch im Englischen Forum (link)
Warten wir mal ab was die Community sagt
Mfg Spider
Hallo
Personal ID ausweis Generator:
EDIT: Darf ich leider Rechtlich nicht Posten. Wer ihn trozdem haben will einfach ne PM an mich!
[/autoit]Mfg Spider
Hallo
Ups :> Hab anstatt javaprogramm javascript gelesen :comp1: Naja nobody is perfect :O
Mfg Spider
Hallo
Naja ich sag nur:
ZitatShoutbox, [ Sonntag | 01:43 ]
<Alina> Oh dieser leckere Rotwein geht langsam in den Kopf.
@derda: Wenn es Javascript ist Probier es doch mal mit der ie.au3! Da könntest du es ja mit Automatisieren!
Mfg Spider
Hallo
für den IDEv2 tag gibt es hier ein beispiel (ide1&2) aber leider nur lesen.. Villeciht hilft es dir ja trozdem weiter
http://www.autoitscript.com/forum/index.php?showtopic=43950&hl=ID3
Mfg Spider
Hallo
Ja, huggy hatte schon recht. Wir sind in einem Forum wo andere andere helfen wollen. Trallala wollte nur helfen, da schreibt man nicht sowas wie "was ist das denn für ein kack"
@I3iLLiG: Bitte zügle das nächste mal etwas deine Wortwahl. (ohne verdreher =))
Mfg Spider
Hallo
Markus is 18! Juhu dann kannste dir endlich Wodka u.a. kaufen =) Achso und führerschein kommt auch. Ausserdem kannst du dich Selbst in der SChule krankschreiben!! *beneid^^*
Naja..wie dem auch sei. Alles gute!
Mfg spider
Hallo
Probier das mal aus, ob da die gleiche Fehlermeldung kommt:
[autoit]$Pfad = InputBox ( "Name", "MSG", "Default" )
$ID = InputBox ( "Name", "MSG", "Default" )
RunWait('runas /profile /user:'&@ComputerName&'\'&$ID&' "'&$Pfad&'"')
Mfg Spider
Hallo
Wenn ich das richtig verstanden habe willst du den DivX converter auf C: schieben, und da starten?? Der Syntax müsste wiefolgt Lauten
[autoit]Run(@ProgramFilesDir&"\DivX\DivX Converter\Converter.exe");Nomralerweise C:\Programme\DivX\DivX Converter\Converter.exe
[/autoit]Benutzt du Vista oder XP? Weil bei Vista brauchst du nochmal extra Rechte um in den Programmordner zu schreiben. Falls du Vista benutzt einfach ganz oben am anfang des Scriptes #RequireAdmin einfügen!
Zu dem 2.: DirDelete(@TempDir) sollte hier schon reichen. Ein paar dateien kannst du nicht entfernen, weil sie von Windows oder einem anderen Programm grade verwendet werden.
Mfg Spider
Hallo
Was pee damit sagen wollte: du wirst sofort gekickt bei Online Spielen wenn die Merken, dass du Cheatest. Außerdem ist es einfach unfair den anderen gegenüber. Also lass es lieber.
Mfg Spider
Hallo
Dafür gibt es doch das AutoIt tutorial! Hier ein beispiel zu Iniread: http://wiki.autoit.de/wiki/index.php/Tutorial#Ini-Dateien
Natürlich kannst du auch selbst bsp's hinzufügen
Mfg Spider
Hallo
Dir wird warhscheinlich eher geholfen, wenn du das nächste mal den Sourcecode direkt hierein Postest.
Source:
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
Const $ServerPort = 8000
Const $ClientPort = 8001
Const $MaxMSGLength = 512
Local $FirstTimeRecv = 1
Local $FirstTimeSend = 1
Global $Hidecheck = 0
Global $name = 1
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
;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
$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
;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)
$label1 = GUICtrlCreateLabel("Ready", 0, 136,300, 18,BitOR($SS_SIMPLE,$SS_SUNKEN))
$labelip = GUICtrlCreateLabel(" Your IP: " & @IPAddress1, 0, 4, 300, 13 )
$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")
$check1 = GUICtrlCreateRadio ("list IP's", 45, 70, 55)
GUICtrlSetTip($check1, "With that you can look which Computers are in the Network!")
$check2 = GUICtrlCreateRadio ("Set your IP!", 100, 70, 80)
GUICtrlSetTip($check2, "With that you can change your IP!")
$button66 = GUICtrlCreateButton ("Go -->",20, 100, 180)
GUICtrlSetTip($button66, "Next Step...")
$traysh = TrayCreateItem($trayshmsg)
TrayCreateItem("")
$traypi = TrayCreateItem( "Ping")
TrayCreateItem("")
;$trayinfo = TrayCreateItem("Info")
;TrayCreateItem("")
$trayexit = TrayCreateItem("Exit")
GUISetState(@SW_SHOW)
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)
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
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()
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()
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))
EndSelect
WEnd
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
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
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
#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
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
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
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
Mfg Spider
Hallo
meinst du mit OU Orgasiational Unit oder so, also den Firmen namen?! Klär uns mal bitte auf
Mfg Spider
Hallo
Kein problem, auch wenn ich nicht weiß was du mit einer Datei voller Nul(l)en anfangen willst, aber das wird wohl für immer ein Rästel bleiben
Mfg Spider