Hi Leute,
hab da mal ne Frage, ich tue mir ein Netzwerklaufwerk mit der Funktion DriveMapAdd() verbinden.
Dach dieses verbindet im Hintergund und as Fenster wird nicht automatisch geöffnet.
Wie kriege ich es am besten hin, dass das Fenster mit dem verbundenem Laufwerk sich dann beim verbinden
automatisch öffnet?
Gruß Remax
Hi probiers mal mit:
[autoit]_RunDOS('Explorer "' & $picdir & '"')
[/autoit]achso
[autoit]#include <process.au3>
[/autoit]nicht vergessen
Franz
Hi,
oder einfach Run('explorer.exe ' & 'c:\')
Mega
ohh vielen dank 
auf so was einfach kommt man nicht...
hab noch ne kleine Frage, wenn ich über ein Button in meiner Anwendung cmd.exe aufrufe und ein paar Befehle sende, wird die Anwendung im Hintergrund geschloßen, so dass nur cmd.exe läuft. Wie kann ich das verhindern, bzw. kennt ihr das Problem?
Code?
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\Programme\TuneUp Utilities 2007\Data\RescueCenter_grey_16x16.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#Include <String.au3>
#include <WindowsConstants.au3>
#include <process.au3>
$lwbuchstabe = StringSplit(_DriveLetterFree(),"|")
$Userschreibe = 'Benutzername'
$Passschreibe = 'Passwort'
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\remax\Desktop\autoit\Form1.kxf
$Form1 = GUICreate("KT Checker V.0.1.1", 424, 201, 193, 115)
$Input1 = GUICtrlCreateInput("ffmcp", 32, 40, 137, 21)
$Button1 = GUICtrlCreateButton("C$", 208, 32, 73, 25, 0)
$Button2 = GUICtrlCreateButton("D$", 208, 72, 73, 25, 0)
$Group4 = GUICtrlCreateGroup("Verbinde", 200, 16, 161, 89)
$Group1 = GUICtrlCreateGroup("Clientname", 24, 24, 153, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input2 = GUICtrlCreateInput(lesenuser(), 32, 88, 137, 21)
$Group2 = GUICtrlCreateGroup("Benutzername", 24, 72, 153, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input3 = GUICtrlCreateInput(lesenpasswort(), 32, 136, 137, 21, BitOR(32,128))
$Group3 = GUICtrlCreateGroup("Passwort", 24, 120, 153, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Ping", 208, 128, 73, 25, 0)
$Combo1 = GUICtrlCreateCombo($lwbuchstabe[1], 296, 32, 57, 25)
GUICtrlSetData(-1,_DriveLetterFree())
$Combo2 = GUICtrlCreateCombo($lwbuchstabe[2], 296, 72, 57, 25)
GUICtrlSetData(-1,_DriveLetterFree())
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\remax\Desktop\autoit\pic.jpg", 368, 24, 44, 44)
$Group5 = GUICtrlCreateGroup("KT", 8, 8, 409, 185)
$Button4 = GUICtrlCreateButton("Speichern", 32, 168, 57, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
IF $nMsg <> 0 Then ;Einlesen von Eingabefeldern
$client_eingabe = GUICtrlRead($Input1)
$user_eingabe = GuiCtrlRead($Input2)
$pw_eingabe = GuiCtrlRead($Input3)
$c_eingabe = GUICtrlRead($Combo1)
$d_eingabe = GUICtrlread($Combo2)
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
DriveMapAdd($c_eingabe,"\\" & $client_eingabe &"\C$", 8, $user_eingabe, $pw_eingabe)
_RunDOS('Explorer "' & $lwbuchstabe[1] & '"')
Case $Button2
DriveMapAdd($d_eingabe,"\\" & $client_eingabe &"\D$", 8, $user_eingabe, $pw_eingabe)
_RunDOS('Explorer "' & $lwbuchstabe[2] & '"')
Case $Button3
AutoItSetOption ("WinTitleMatchMode",2)
;$Adresse = InputBox("Ping", "Geben Sie die IP Adresse ein:", $client_eingabe)
run("cmd.exe")
WinWait("cmd")
Send("ping " & $client_eingabe)
Sleep(100)
Send("{ENTER}")
Exit
Case $Button4
$user_eingabe = _StringEncrypt(1, $user_eingabe, 'k6P9TbN8e4')
IniWrite(@ScriptDir & '\KT-Checker.ini', 'Account1', 'User', $user_eingabe)
$pw_eingabe = _StringEncrypt(1, $pw_eingabe, 'k6P9TbN8e4')
IniWrite(@ScriptDir & '\KT-Checker.ini', 'Account1', 'Pass', $pw_eingabe)
EndSwitch
EndIf
WEnd
Func _DriveLetterFree()
Local $i, $v, $j, $letters, $aAllDrives = DriveGetDrive("ALL")
For $i = 67 To 90 ; Buchstaben 'C' bis 'Z' durchgehen
$v = 0
For $j = 1 To $aAllDrives[0] ; Alle belegten Buchstaben
If Chr($i) & ':' = $aAllDrives[$j] Then ; Buchstabe ist nicht frei
$v = 1 ; dann kennzeichnen
ExitLoop ; und For $j - Schleife verlassen
EndIf
Next
If $v <> 1 Then $letters &= Chr($i) & ':|' ; War der Buchstabe noch frei, dann in die Liste übernehmen
Next
$letters = StringTrimRight($letters, 1) ; den letzten '|' entfernen
Return $letters
EndFunc
Func lesenuser()
$Userread = IniRead(@ScriptDir & '\KT-Checker.ini', 'Account1', 'User', '')
$Userread = _StringEncrypt(0, $Userread, 'k6P9TbN8e4')
return $Userread
EndFunc
Func lesenpasswort()
$Passread = IniRead(@ScriptDir & '\KT-Checker.ini', 'Account1', 'Pass', '')
$Passread = _StringEncrypt(0, $Passread, 'k6P9TbN8e4')
return $Passread
EndFunc
Sobald ich auf Ping gehe geht meine Anwendung aus 
Hi,
kein Wunder in Zeile 71 sagst du ja auch Exit
Mega
Außerdem gibt es Ping auch in AutoIt, nur nicht so ausführlich 
Ping(IPAddress)
[/autoit]grml man oh man 
Ja die Ping() Funktion ist mir bekannt, macht aber nicht das was ich will
gruß remax
ps. vielen dank, wie immer xD
