Hallo kleiner1,
das Tool SC kann anscheinend selbst keine Userdaten und Passwörter mitgeben, um sich remote anzumelden.
D.h. es muß bereits eine Remote-Verbindung bestehen zu dem Remote Server.
siehe auch --> http://serverfault.com/questions/1938…ks-from-another
Ich würde Dir auch zu BitBoy's Vorschlag raten...
PsService ist Teil einer Suite von ehemals Mark Russinovich. (Hat das ganze an MS$ verkauft)
Du kannst Dir die Suite hier herunterladen... --> Link
du hattest das im Ansatz schon richtig.
Aber bei Dir haben sich dann Kommas und schließende Klammern eingeschlichen, die da nicht hingehörten.
Das meinte ich damit.
Man verliert da schon mal die Kontrolle, wo ein Befehl aufhört und so 
In der Hilfe findest Du eine Erklärung, wenn Du nach dem Begriff "continuation character" suchst.
Although only one statement per line is allowed, a long statement can span multiple lines if an underscore " _" preceded by a blank is placed at the end of a "broken" line. String definition cannot be split in several lines, concatenation need to be used.
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]MsgBox(4096,"", "This is a rather long line, so I " & _
"broke it with the underscore, _, character.")
The semicolon (;) is the comment character. Unless the semicolon is within a string, all text following it is ignored by the script interpreter/compiler.
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]; The next line contains a meaningful, end-of-line comment
Sleep(5000) ;pause 5 seconds
You can combine underscore and semicolon to put comments on lines and still have a long statement span on next line.
[/autoit] [autoit][/autoit] [autoit]dim $b_ ; This _ is not a continuation character, nor is the next one
dim $k_
Dim $a[8][2] = [ _
[ "Word", 4 ], _ ; Comment 1
[ "Test", 3 ], _
[ "pi", 3.14159], _ ; Associate the name with the value
[ "e", 2.718281828465], _ ; Same here
[ "test;1;2;3", 123], _
[ ';', Asc(';') ], _ ; This comment is removed, but the strings remain.
["", 0] ]
It is also possible to comment of large blocks of script by using the #comments-start and #comments-end directives.
[/autoit]Ich denke, wir kommen so langsam zusammen... 
Also in dem Fall wäre ich hart gegenüber meinen Kunden und würde sagen
--> Mein Tool erwartet einen freien Port 25 oder 465 zum Verschicken der Support-Anfrage.
Ich denke 99% aller Firmen arbeiten standardmäßig mit Port 25.
Ansonsten bau in Dein Script eine Abfrage ein, ob Port 25 frei ist, ansonsten gehst Du halt mit SSL über Port 465.
Kannst Dir ja mein Script anschauen, da ist das mit drin.
Es wird wohl keine Firma mehr geben, die EDV hat und keine Emails verschickt...
ich denke, Du kommst mit dem Zeilenunbruch"_" durcheinander ...
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $hGUI
Global $hGUI2
Global $hGUI3
Global $Label1, $Label2, $Label3
Global $Group1
$hGUI = GUICreate("Form", 254, 185, 344, 251)
$Pic2 = GUICtrlCreatePic("C:\Bild.jpg", 3, 6, 249, 157, BitOR($SS_NOTIFY,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS), $WS_EX_CLIENTEDGE)
$MenuItem1 = GUICtrlCreateMenu("&Menü")
$Message= GUICtrlCreateMenuItem("Message", $MenuItem1)
$Test = GUICtrlCreateMenuItem("Test", $MenuItem1)
$Exit = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
GUISetState(@SW_SHOW)
Func AboutDlg ( )
[/autoit] [autoit][/autoit] [autoit]$hGUI2 = GUICreate("Info", 139, 107, 328, 363, BitOR ($WS_VISIBLE, $DS_MODALFRAME, $WS_CAPTION, $WS_SYSMENU), $WS_EX_DLGMODALFRAME)
GUICtrlCreateGroup("Info:", 6, 4, 127, 97)
$Label1 = GUICtrlCreateLabel("01", 16, 48, 90, 17)
$Label2 = GUICtrlCreateLabel("02", 16, 24, 112, 17)
$Label3 = GUICtrlCreateLabel("03", 16, 72, 83, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func AboutDlg2 ( )
[/autoit] [autoit][/autoit] [autoit]$hGUI3 = GUICreate("Test", 139, 91, 328, 363, BitOR ($WS_VISIBLE, $DS_MODALFRAME, $WS_CAPTION, $WS_SYSMENU),$WS_EX_DLGMODALFRAME)
$Group1 = GUICtrlCreateGroup("01", 6, 4, 127, 81)
$Label1 = GUICtrlCreateLabel("02", 16, 24, 63, 17)
$Label2 = GUICtrlCreateLabel("03", 16, 40, 101, 17)
$Label3 = GUICtrlCreateLabel("04", 16, 56, 103, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndFunc
[/autoit] [autoit][/autoit] [autoit]While (True)
[/autoit] [autoit][/autoit] [autoit]$aMsg = GUIGetMsg (True)
[/autoit] [autoit][/autoit] [autoit]Switch $aMsg[0]
[/autoit] [autoit][/autoit] [autoit]Case $GUI_EVENT_CLOSE
switch $aMsg[1]
case $hgui
exitloop
case $hGUI2
GUIDelete ($hGUI2)
case $hGUI3
GUIDelete ($hGUI3)
EndSwitch
Case $Message
AboutDlg ( )
Case $Test
AboutDlg2 ( )
Case $Exit
Exit
EndSwitch
WEnd
Exit (0)
[/autoit]jederzeit gerne.
Nur bitte den Thread "closen", wenn gelöst. (oben links) 
Danke
Hallo Dietmar,
_InetMail verwendet zum Versenden Dein Standard Email-Programm.
In diesem Programm hast Du für das Versenden Deiner Emails einen SMTP-Server angegeben.
Auf diesem SMTP-Server hast Du mit Deiner Email-Adresse einen Account, auf dem Du dich mit einem Passwort verifizierst.
Diese Daten kannst Du doch verwenden, um Deine Email zu verschicken.
Kannst das ja mal mit meiner Script ausprobieren, dann bist du unabhängig von Email-Programmen.
http://www.autoit.de/index.php?page=Thread&threadID=11263
Ist nur eine Erweiterung des obengenannten...
PS: Du versendest eine Email nie mit dem SMTP-Server des Empfängers, sondern mit "Deinem Eigenen" ...
Bei Fragen einfach melden 
Hallo neurobert,
den UNC-Namen bekommst Du so:
#Include <WinNet.au3>
$unc = _WinNet_GetUniversalName("R:")
MsgBox(0, '', $unc[0])
vielleicht hilft Dir ein Beispiel...???
#include <GUIConstants.au3>
#include <StaticConstants.au3>
$guiwidth = 400
GUICreate('TestGui',$guiwidth)
$label = GUICtrlCreateLabel("Dies ist ein zentriertes Label, das sich selber auflöst :-)",0,100,$guiwidth,200,$SS_CENTER)
GUISetState()
AdlibEnable("setdata",100)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd
Func setdata()
Local $data = guictrlread($label)
If $data = "" Then AdlibDisable()
GUICtrlSetData($label, StringTrimRight(StringTrimLeft($data,1),1))
EndFunc
der minimum sleep ist 10 auch wenn du sleep(0) anwendest.
Ich wollte nur sichergehen, dass das auch auf etwas langsameren Kisten funktioniert.
Natürlich ist die Methode von Xeno die bessere.
Ich hab nur verdeutlichen wollen, wo der Fehler liegt...
Dein Script ist schneller als die Dos-Box
setz einfach einen kleinen sleep dazwischen...
#include<Constants.au3>
$foo=Run(@ComSpec & " /c " & 'date /t', "", @SW_HIDE,$STDOUT_CHILD)
While 1
sleep(100)
$line=StdoutRead($foo)
If @error Then ExitLoop
MsgBox(0,"date:",$line)
Wend
poste doch mal bitte dein Script, damit man sich ein genaueres Bild von Deinem Problem machen kann.
Alles andere wäre raten mit der Glaskugel
ich denke nicht...
tweaky meinte wohl eher deine Aussage:
Das mit dem gui und buttons usw. habe ich schon.
Stell Dein Script mal online und dann schauen wir mal
ich denke mal du hattest mit Deiner "Ahnung" 10048 schon Recht.
Laut Google geht es eben nicht, gleichzeitig an einem Port zu senden und zu hören...
Daher hat blubbstar den Port vor den lauschen geschlossen...
UDPCloseSocket($socket)
$socket1 = UDPBind(@IPAddress1, $port[1])
welchen Fehler bekommst Du denn zurück?
in Scite:
Alt+F6
ersetze mal diese Zeile und siehe was passiert
$License_GUI = GUICreate("", 0, 0, 100, 100, $WS_CHILD, -1, $MainGUI)
mit:
$License_GUI = GUICreate("", 498, 316, 0, 0, $WS_CHILD, -1, $MainGUI)
ich denke du solltest dich erstmal mit den Grundzügen von AutoIt / Programmierung im Allgemeinen vertraut machen.
Das mit dem OnEventMode kommt dann später
versuch mal den Ansatz, ist aber keine Parade-Lösung.
Wie Oscar schon schreibt ist das eigentlich was für den OnEventMode...
#NoTrayIcon
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
DirCreate ( @ScriptDir & "\Files")
FileInstall ("C:\Users\Franz\Desktop\lizens.txt", @ScriptDir & "\Files\lizens.DATA")
$file = FileRead ( @ScriptDir & "\Files\lizens.DATA")
;meine Änderungen... Anfang
Global $Button1, $Button2, $Button3, $Button4, $Button5, $Button6, $Button7, $Button8, $Button9, $Button10
Global $Checkbox1, $Checkbox2, $Checkbox3, $Checkbox4, $Checkbox5, $Checkbox6, $Checkbox7, $Checkbox8
;meine Änderungen... Ende
#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$edit = GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
GUICtrlDelete ($Checkbox1)
GUICtrlDelete ($Checkbox2)
GUICtrlDelete ($Button1)
GUICtrlDelete ($Button2)
GUICtrlDelete ($edit)
ExitLoop
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
Exit
EndSwitch
WEnd
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput(@ScriptDir,160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
GUICtrlSetState($Input1, $GUI_ENABLE)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
DirCreate($PH1)
do
FileInstall ( "C:\Users\Franz\Desktop\Hotkey\hotkey.exe", GUICtrlRead($Input1) & '\hotkey.exe')
$PH1 = $PH1 + 50
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
sleep(1000)
GUICtrlSetState($Button6, $GUI_DISABLE)
GUICtrlSetData($Button6, 'Fertig!')
;_sound()
EndIf
EndSwitch
WEnd
Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc
guckst Du erste Seite erster Thread...
Hallo franjob,
bitte in Zukunft den Spoiler (SP) und den AutoIt-Quellcode Button für Deinen Code verwenden.
#NoTrayIcon
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>
#include <IE.au3>
#include <INet.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <EditConstants.au3>
$file = FileRead ( "lizens.txt")
#Region ### START Koda GUI section ### Form=
$hGUI1 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
GUICtrlCreateEdit ( $file, 165, 20, 350, 200,$ES_READONLY)
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Checkbox1 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen Nicht einverstanden", 168, 224, 270, 17)
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
$Checkbox2 = GUICtrlCreateRadio("Ich bin mit diesen Vereinbarungen einverstanden", 168, 264, 270, 17)
$Button1 = GUICtrlCreateButton("Schließen", 440, 264, 75, 25, 0)
GUICtrlSetState($Button1,$GUI_CHECKED)
$Button2 = GUICtrlCreateButton("Weiter", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$hGUI2 = GUICreate("Web Radio Installer", 600, 300, 466, 463)
GUISetBkColor(0xFFFFFF)
Guiseticon("images\Default\Web Radio.ico")
$bg = GUICtrlCreatePic("images\Default\bg.jpg", 0, 0, 145, 300, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Optionen", 145, 8, 450, 121)
$Label1 = GUICtrlCreateLabel("Installationspfad angeben", 160, 32, 125, 17)
$Checkbox3 = GUICtrlCreateRadio("Standart wählen", 160, 96, 113, 17)
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
$Checkbox4 = GUICtrlCreateRadio("Pfad selber wählen", 300, 96, 113, 17)
$Input1 = GUICtrlCreateInput("C:\Programme",160, 64, 345, 21)
GUICtrlSetState($Input1, $GUI_DISABLE)
$Button5 = GUICtrlCreateButton("Durchsuchen", 515, 64, 75, 25, 0)
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Status",145, 136, 450, 73)
$Progress1 = GUICtrlCreateProgress(160, 160, 350, 25)
$Button6 = GUICtrlCreateButton("Installieren", 515, 160, 75, 25, 0)
$Button7 = GUICtrlCreateButton("Zurrück", 440, 264, 75, 25, 0)
$Button8 = GUICtrlCreateButton("Abbrechen", 520, 264, 75, 25, 0)
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox1,-1)
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox1,1)
Case $Checkbox2
GUICtrlSetState($Button1, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button1
Exit
Case $Button8
If MsgBox(32 + 4, "Beenden", "Wollen sie wirklich Installation beenden?") = 6 Then _End()
Case $Button2
GUISetState ( @SW_HIDE, $hGUI1)
GUISetState ( @SW_SHOW, $hGUI2)
Case $Checkbox3
GUICtrlSetState($Button5, $GUI_DISABLE)
GUICtrlSetData($Input1, "C:\Programme")
GUICtrlSetState($Button5, $GUI_DISABLE)
Guictrlsetstate($Checkbox3,-1)
GUICtrlSetState($Button2, $GUI_ENABLE)
Guictrlsetstate($Checkbox3,1)
Case $Checkbox4
GUICtrlSetState($Button5, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
Guictrlsetstate($Checkbox2,-1)
GUICtrlSetState($Button5, $GUI_ENABLE)
Guictrlsetstate($Checkbox2,1)
Case $Button5
GUICtrlSetData($Input1, FileSelectFolder("Bitte Installationspfad wählen","", 1))
$PH = GUICtrlRead($Input1, 1)
If $PH < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
EndIf
Case $Button6
$PH1 = GUICtrlRead($Input1, 1)
If $PH1 < " " Then
MsgBox(16, "Error", "Bitte Pfad eingeben!")
Else
GUICtrlSetState($Button2, $GUI_ENABLE)
DirCreate($PH1)
FileInstall ( "C:\Users\Franz\Desktop\Hotkey\hotkey.exe", GUICtrlRead($Input1) & '\hotkey.exe')
GuiCtrlSetState($Button6,$GUI_DISABLE)
do
$PH1 = $PH1 + 10
sleep(1000)
guictrlsetdata($Progress1 , $PH1)
until $PH1 = 100
GUICtrlSetData($Button6,"Fertig")
sleep(1000)
;_sound()
EndIf
EndSwitch
WEnd
Func _End()
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGui1, "int", 500, "long", 0x00050004)
Exit
EndFunc
