hi und hallo. folgendes problem. ich bastel mir grad eine kleine toolbar mit allem was man so brauch. also ipconfog, ping etc auf knopfdruck. beim ping habe ich ein eingabefeld in dem man dann die anzupingende ip eingeben soll und dann per button absenden. ich versuche im script die ip an die variable $Input 1 zu übergeben. aber irgendwie weiß ich dann nicht wie ich das ganze dann an die send anweisung übergebe. anbei sende ich euch mal mein script. ich hoffe ihr könnt mir da weiterhelfen.
[autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Adminbar", 155, 454, 494, 158)
GUISetBkColor(0x000000)
GUISetCursor (3)
$Button2 = GUICtrlCreateButton("Beenden", 24, 420, 113, 25, BitOR($BS_CENTER,$BS_FLAT), $WS_EX_CLIENTEDGE)
[/autoit][autoit][/autoit][autoit]$Button1 = GUICtrlCreateButton("ipconfig /all", 24, 56, 113, 25, BitOR($BS_CENTER,$BS_FLAT), $WS_EX_CLIENTEDGE)
GUICtrlSetTip(-1, "ipconfig Befehl")
$Label1 = GUICtrlCreateLabel("Tools", 40, 8, 66, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Input1 = GUICtrlCreateInput("Adresse", 8, 128, 137, 21)
$Label2 = GUICtrlCreateLabel("Bitte geben sie eine IP ein:", 8, 112, 138, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("IP anpingen", 8, 152, 137, 25, 0)
GUISetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Send( "{lwin}")
Send("{u}")
WinWait("Ausführen","")
If Not WinActive("Ausführen","") Then WinActivate("Ausführen","")
WinWaitActive("Ausführen","")
Send("cmd{ENTER}")
WinWait("C:\WINDOWS\system32\cmd.exe","")
Send("ipconfig{SPACE}{SHIFTDOWN}7{SHIFTUP}all{ENTER}")
Case $Button2
Exit
Case $Button3
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Send( "{lwin}")
Send("{u}")
WinWait("Ausführen","")
If Not WinActive("Ausführen","") Then WinActivate("Ausführen","")
WinWaitActive("Ausführen","")
Send("cmd{ENTER}")
WinWait("C:\WINDOWS\system32\cmd.exe","")
Send("ping{space}")
Send($Input1)
EndSwitch
WEnd