Hallo kira,
zu 2) benutze das Makro @WindowsDir Ergebnis siehe
[autoit]MsgBox(0,"",@WindowsDir
[/autoit]damit ist 1) wohl auch erledigt.
zu 3)
ShellExecute("C:\Dokumente und Einstellungen\Heidi\Eigene Dateien\TrueCrypt Setup 6.3a.exe"),"","","",@SW_HIDE
[/autoit]Du solltest wenn du AutoIt-Skripte einstellst auch die AutoIt-Tags verwenden,
mfg (Auuto)Bert
Hallo sonyman,
ich dachte dabei an die Funktion _CommListPorts der UDF, mit WMI sollte es aber auch möglich sein,
mfg (Auto)Bert
Hallo diepfeile,
so:
#include <FF.au3>
If Not _FFConnect("127.0.0.1",4242) Then
MsgBox(64,"Fail","Can't connect to FireFox!")
Exit
EndIf
$data = _FFReadHTML("html",7)
;ClipPut($data)
Run("notepad.exe")
WinWaitActive("Unbenannt - Editor")Global $colKeys
Global $oUml = ObjCreate("Scripting.Dictionary") ; funkey spoilerreader (Dank an 'BugFix')
$oUml.Add('µ', 'µ')
$oUml.Add('ö', 'ö')
$oUml.Add('ü', 'ü')
$oUml.Add('ä', 'ä')
$oUml.Add('ß', 'ß')
$oUml.Add('Ä', 'Ä')
$oUml.Add('Ö', 'Ö')
$oUml.Add('Ãœ', 'Ü')
$oUml.Add('/', ' oder ')
$oUml.Add('\', ' - ')
$oUml.Add('&', '&')
$oUml.Add(':', '_')
$oUml.Add('?', '')
$oUml.Add('!', '')
$oUml.Add('|', '-')
$oUml.Add(';', '_')
$colKeys = $oUml.Keys
ControlSetText("Unbenannt - Editor","","Edit1",$data)
For $strKey In $colKeys ;funkey spoilerreader
If StringInStr($sdata, $strKey, 1) Then $sdata = StringReplace($sdata, $strKey, $oUml.Item($strKey))
Next
_FFDisConnect()
fnktioniert es (aus spoilerreader von funkey heruaskopiert),
mfg (Auto)Bert
Hallo Flitzer,
eigentlich hätte ich erwartet, dass
[autoit]_RMC_AddDataAxis($ChartID,1,$RMC_DATAAXISBottom, 0, 1000 , 0 , 0, $ColorWhite , $ColorWhite ,$RMC_LINESTYLEDOT,0,"","")
[/autoit]dies die Lösung ist, aber leider erzeugt dies eine Beschriftung auf der rechten Seite. Entweder ist diermchart.au3 noch etwas buggy oder ich habe nicht die neueste Version. Die möglichen rmchart-Funktionen/Konstanten etc. schaust du dir am besten direkt in der rmchart.au3 an, bzw. bittest du @progandy um Unterstüzung da er ja rmChart.au3 geschrieben hat
mfg (Auto)Bert
Ja ich weiß, dass wenn man hier:
[autoit]$Winlist = WinList("")
[/autoit][autoit]
die array von $winlist so einstellt:$Winlist[0][1]
[/autoit]
dass man dann die PID rausbekommt..
wenn ich mir die Hilfe zu WinList anschaue, kann ich nirgendwo einen Hinweis finden dass WinList auch die PID zurückgibt,
mfg (Auto)Bert
Hallo tegron, das Beispiel-Skript funktioniert bei mir einwandfrei, bei den includes war ich tatsächlich zu grosszügig (dieses Beispiel wurde schon oft an spez. Bedürfnisse des Hilfesuchenden angepasst, dadurch sind noch überflüssige dabei gewesen)
Benötigt wird nur:
#include <GUIConstantsEx.au3>
[/autoit]dieses Include enthält Konstanten für die GUI wie z.B. $GUI_DISABLE, $GUI_ENABLE, $GUI_EVENT_CLOSE und andere die aber in diesem Beispiel nicht benötigt werden.
Starte doch einfach das Beispiel, es verwaltet URL-Adressen in einer INI und man kann sich eine anhand des Namens in der ComboBox aussuchen, die komplette URL wird dann in der Scite-Konsole ausgegeben.
Ich dachte mir das du nach gleichem Schema deine verschiedenen EXEn ausführen könntest.
mfg (Auto)Bert
Hallo Tegron,
ich denke dass du dieses kleine Beispielskript auf deine Bedürfnisse anpassen kannst:
;#include <GuiComboBox.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]Const $sElect = "bitte eine URL auswählen"
Global $URL
If Not FileExists(@ScriptDir & "\URL.INI") Then
$sData = "AutoIt=http://www.autoit.de" & @LF & "Der Thread=http://www.autoit.de/index.php?page=Thread&postID=122400#post122400" & @LF & "AutoIt V3=http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
IniWriteSection(@ScriptDir & "\URL.INI", "URLs", $sData)
EndIf
$hGui = GUICreate("Combobox mit INI ", 300, 160, 302, 218)
$hcboProg = GUICtrlCreateCombo($sElect, 8, 8, 200, 25)
$hbtnAdd = GUICtrlCreateButton("&Hinzufügen", 213, 
$hlblURL = GUICtrlCreateLabel("", 8, 35, 200, 50)
$list1 = IniReadSection(@ScriptDir & "\URL.INI", "URLs")
ConsoleWrite($list1 & @CRLF)
For $i = 1 To $list1[0][0]
GUICtrlSetData($hcboProg, $list1[$i][0])
Next
$hbtnOpen = GUICtrlCreateButton("&Öffnen", 8, 85)
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $hbtnAdd
$write1 = InputBox("URL", "Bitte eine gülzige eingeben")
If $write1 <> "" Then
$write2 = InputBox("URL verwalten unter", "Bitte Kurzbegriff eingeben")
If $write2 <> "" Then IniWrite(@ScriptDir & "\URL.INI", "URLs", $write2, $write1)
GUICtrlSetData($hcboProg, $write2, $write2)
EndIf
show_Selection()
Case $hcboProg
show_Selection()
Case $hbtnOpen
;hier $URL öffnen
ConsoleWrite($URL & @CRLF)
EndSwitch
WEnd
Func show_Selection()
If GUICtrlRead($hcboProg) = $sElect Then
GUICtrlSetState($hbtnOpen, $GUI_DISABLE)
GUICtrlSetData($hlblURL, "")
Else
GUICtrlSetState($hbtnOpen, $GUI_ENABLE)
$Prog = GUICtrlRead($hcboProg)
ConsoleWrite("ausgewählt: " & $Prog & @CRLF)
$URL = IniRead(@ScriptDir & "\URL.INI", "URLs", $Prog, "")
GUICtrlSetData($hlblURL, $URL)
EndIf
EndFunc ;==>show_Selection
mfg (Auto)Bert
Hallo
dann poste doch bitte dein Skript
mfg (Auto)Bert
du benutzt in deinem Skript zwar GuiCtrlSetData, aber ohne den Default-Parameter. Hättest du anstelle von
[autoit]Case $Button1
$Read = GUICtrlRead($Input1)
GUICtrlSetData($Combo1, $Read)
GUICtrlSetData($Input1, "")
dies
[autoit]Case $Button1
$Read = GUICtrlRead($Input1)
GUICtrlSetData($Combo1, $Read, $Read)
GUICtrlSetData($Input1, "")
geschrieben hätte es funktioniert
mfg (Auto)Bert
komisch ist, dass bei _ftp_fileput und bei _ftp_progressupload der rückgabewert 0 ist, aber @error auf 0 bleibt
deshalb nocheinmal:
schaffst du es denn mit einem anderen Programm z.B. FileZilla Daten hochzuladen?
mfg (Auto)Bert
Hallo autoitinstallermaker,
_GUICtrlListView_GetItemTextString
--------------------------------------------------------------------------------Listet die komplette Zeile eines Listview Items auf
#Include <GuiListView.au3>
_GUICtrlListView_GetItemTextString($hWnd[, $iItem = -1])
Edit: irrtümlich Skar für Threadersteller gehalten, deshalb korrigiert
Hallo
hier das Beispiel aus der Hilfe zu _GUICtrlStatusBar_EmbedControl :
#include <GuiConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <SendMessage.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]_Main()
[/autoit] [autoit][/autoit] [autoit]Func _Main()
[/autoit] [autoit][/autoit] [autoit]Local $hGUI, $hProgress, $hInput, $input, $progress, $hStatus
Local $aParts[4] = [80, 160, 300, -1]
; Erstellt eine GUI
$hGUI = GUICreate("StatusBar: Control einbinden", 400, 300)
;===============================================================================
; Standard ist 1 Abschnitt und kein Text
$hStatus = _GUICtrlStatusBar_Create($hGUI)
_GUICtrlStatusBar_SetMinHeight($hStatus, 20)
;===============================================================================
GUISetState()
; Initialisiert drei Abschnitte
_GUICtrlStatusBar_SetParts($hStatus, $aParts)
_GUICtrlStatusBar_SetText($hStatus, "Abschnitt 1")
_GUICtrlStatusBar_SetText($hStatus, "Abschnitt 2", 1)
; Bindet eine Progressbar in das Control ein
If @OSType = "WIN32_WINDOWS" Then
$progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_SMOOTH)
$hProgress = GUICtrlGetHandle($progress)
_GUICtrlStatusBar_EmbedControl($hStatus, 2, $hProgress)
Else
$progress = GUICtrlCreateProgress(0, 0, -1, -1, $PBS_MARQUEE) ; Der Stil 'marquee' funktioniert bei Windows XP und neuer
$hProgress = GUICtrlGetHandle($progress)
_GUICtrlStatusBar_EmbedControl($hStatus, 2, $hProgress)
_SendMessage($hProgress, $PBM_SETMARQUEE, True, 200) ; Der Stil 'marquee' funktioniert bei Windows XP und neuer
EndIf
$input = GUICtrlCreateInput("Dies wurde eingebunden", 0, 0)
$hInput = GUICtrlGetHandle($input)
_GUICtrlStatusBar_EmbedControl($hStatus, 3, $hInput, 3)
; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
clezZ die Progress soll in der Statsbar eingebettet sein
mfg (Auto)Bert
Poste einmal dein bisheriges Skript und ich zeige dir dann wie ich das in Post #6 gemeint habe
mfg (Auto)Bert
Hallo
benutze den default-Parameter
GUICtrlSetData ( controlID, data [, default] )
mfg (Auto)Bert
Hallo
noch einmal der Hinweis auf ShellexecuteWait. Wenn du dieses verwendest brauchst du die While Schleife nicht. Der 1. Ping danach muss erfolgreich sein, ansonsten war der Tunnelaufbau nicht erfolgreich,
mfg (Auto)Bert
Hallo
allein dieser Auszg deines Skriptes
[autoit]Case $button2
MsgBox(0, "Hinweis!", "Klick aufs Chatfenster!")
Sleep(2000)
Send("Hallo, ich bin ein nerviger Bot")
Send("{ENTER}")
Sleep(3000)
Send("Ich nerve für IMMER")
Send("{ENTER}")
Sleep(3000)
Send("Ich hoffe doch ich nerve nicht zu stark?!")
Send("{ENTER}")
Sleep(3000)
Case $button3
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
ShellExecute("http://www.youtube.com/watch?v=9kl6r65NgVk")
zeigt dass du spamen und nerven möchtest 
. Lies dir also die Forenregeln durch.
MoD bitte closen
Hallo x4FF3,
oder nimm ShellExecuteWait anstelle ShellExecute, dann steht der Tunnel
mfg (Auto)Bert
Hallo
mache es doch so:
[autoit]ShellExecute(@ProgramFilesDir & "\Funkwerk\packetalarm SSL VPN Client\packetalarm_SSL_VPN_Client.exe", "/start /t=Zertifikat /u=" & $User & "@domain.local /pwd=" & $Password & " /cpwd=passwort")
while $Ping = 0
$ping = Ping("192.168.30.3",5000)
wend
MsgBox(0,"PING AFTER IF",$ping)
;Sleep(2000)
DriveMapAdd($Laufwerk, "\\SERVER\Netzlaufwerk", 0, "domain.local\" & $User, $Password)
danke schaut sogar noch besser aus
weil 2radio (verschiedene gehen ja nicht)danke
würde auch gehen, man muss sie nur jeweils am Anfang und am Ende mit guictrlcreategroup trennen.
Die Lösung mit ComboBox finde ich aber auch die bessere,
mfg (Auto)Bert
