Hi,
mal überlegen
Enter ging nicht mehr
Pfeiltaste nach links oder rechts sprang immer ein ganzes Wort weiter
Tab ging nicht mehr
Buchstaben gingen auch nicht mehr
Achso: Die Tastenkombi funktioniert in einem anderen Script einwandfrei.
Nur eben hier nicht, wo ich ispressed zusätzlich verwende 
Hi,
ich will von eBay-Seiten bestimmte Bezeichnungen auslesen.
Es soll die Bezeichnung des Artikels und das Datum vom Ende der Auktion ausgelesen werden.
Leider habe ich nicht wirklich ne Ahnung wie ich da anfangen soll.
Könnte mir jemand einen Tipp geben 
EDIT: Hat sich erledigt.
Hab die Befehle _INetGetSource und Stringbetween genommen.
Denke damit läuft es 
Danke 
Hi,
ich habe dieses Script geschrieben
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<Misc.au3>
;Durch dieses Script wird die DFÜ-Verbindung gestartet
;Zusätzlich wird noch der Internet Explorer gestartet
;Wird das Script während einer aktiven Internetverbindung angeklickt, wird die Verbidung getrennt
;Außerdem werden dann noch alle Internet Explorer Fenster geschlossen
$titel = "Netzwerkverbindungen"
$titel2 = "Verbinden mit"
Opt("WinTitleMatchMode", 2)
[/autoit] [autoit][/autoit] [autoit]$dll = DllOpen("user32.dll")
While 1
If _IsPressed("20", $dll) Then
$abrufen = 1
Else
$abrufen = 0
EndIf
ExitLoop
WEnd
DllClose($dll)
[/autoit] [autoit][/autoit] [autoit]If $abrufen = 1 Then
ShellExecute("C:\Programme\Outlook Express\msimn.exe")
WinWait("- Outlook Express")
WinActivate("- Outlook Express")
Send("^m")
Sleep(100)
WinClose("- Outlook Express")
ShellExecute("C:\Programme\Internet Explorer\iexplore.exe")
ElseIf $abrufen = 0 Then
Run("Rasphone.exe")
WinWait($titel)
If ControlCommand($titel, "&Verbinden...", "Button1", "IsVisible", "") Then
ControlClick($titel, "&Verbinden...", 1449)
WinWaitClose($titel, "&Verbinden...")
ShellExecute("C:\Programme\Internet Explorer\iexplore.exe")
Else
ControlClick($titel, "&Auflegen", 1449)
WinWait($titel, "&Ja")
ControlClick($titel, "&Ja", 6)
WinWait($titel, "Abbrechen")
ControlClick($titel,"Wählen &Sie eine Netzwerkverbi","Button2")
Do
WinClose(" - Microsoft Internet Explorer")
If WinExists("Internet Explorer", "&Registerkarten schließen") Then ControlClick("Internet Explorer", "&Registerkarten schließen", 6)
Until Not WinExists(" - Microsoft Internet Explorer")
EndIf
EndIf
Es soll die DFÜ-Verbindung und anschließend der IE gestartet werden.
Dies funktioniert.
Wenn ich jedoch die "strg"-Taste drücke und das Script starte, soll Outlook Express gestartet werden, Die E-Mails abgerufen werden (dadurch wird auch die Internet-Verbindung gestartet) und der IE geladen werden.
Leider ist nachdem das Script beendet ist die Tastatur verstellt.
Enter funktioniert nicht mehr, usw.
Erst wenn ich den PC neustarte, funktioniert sie wieder.
Denke das hat mit der dll zu tun.
Aber was stimmt da nicht
EDIT: Hab mal nach und nach einzelne Befehle deaktiviert.
Also wenn ich
Send("^m")
[/autoit]weglasse, dann geht die Tastatur.
EDIT2: Hab nun die zu überprüfende Taste von Strg auf die Leertaste geändert und nun geht es.
Warum weiss ich allerdings nicht sicher
Kann es sein, dass es zu Problemen kommt, wenn die zu überprüfende Taste gleich ist wie die Tastenkombi (Strg+m) die später ausgeführt wird.
Aber zu diesem Zeitpunkt ist ipressed ja schon abgeschlossen.
Naja Hauptsache es funktioniert.
Wenn es mir trotzdem jemand erklären könnte warum dies so ist, hätte ich nix dagegen
OK,
Es soll eine Internetseite (eBay, irgendein Artikel) zu den Favoriten hinzugefügt werden.
Dabei soll jedoch der Name des Links geändert werden (dies funktioniert :D)
Außerdem soll der Link in einen bestimmten Ordner meiner Favoriten gespeichert werden. (dies funktioniert nicht X()
EDIT:
Hab nun ne Lösung gefunden
Nutze nun eine Funktion aus dem englischen Board um die url zu erstellen
#include<String.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("WinTitleMatchMode", 2)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$pfad_fav = "E:\Favoriten"
[/autoit] [autoit][/autoit] [autoit];Name des Titelfensters
$ie_titel = "Favoriten hinzufügen"
;URL auslesen
$url = ControlCommand("", "", "Edit1", "GetLine", 1)
;"Favoriten speichern" aufrufen
Send("^d")
WinWait($ie_titel)
WinActivate($ie_titel)
;Url-Bezeichnung
$bezeichnung_ori = ControlCommand($ie_titel, "", "Edit1", "GetLine", 1)
$zeit = _StringBetween($bezeichnung_ori, "endet ", " MESZ)")
$bezeichnung_pos = StringInStr($bezeichnung_ori, "(Artikel") -2
$bezeichnung = StringLeft($bezeichnung_ori, $bezeichnung_pos)
$split1 = StringSplit($zeit[0], ".")
$split2 = StringSplit($split1[3], " ")
$tag = $split1[1]
$monat = $split1[2]
$jahr = "20" & $split2[1]
$zeit = $split2[2]
$zeit2 = _StringInsert($zeit, "_", 2)
$zeit3 = _StringInsert($zeit2, "_", 5)
;Url-Bezeichnung neu
$bezeichnung_neu = $jahr & "." & $monat & "." & $tag & " " & $zeit3 & " " & $bezeichnung
;url erstellen
_WshUrlShortcut($pfad_fav & "\" & $bezeichnung_neu & ".url", $url)
;"Favoriten speichern" beenden
ControlClick($ie_titel, "Abbrechen", 2)
;Funktion zum erstellen eines Url
Func _WshUrlShortcut($sFilePath, $sUrl)
Local $oUrlLink, $oWshShell
$oWshShell = ObjCreate("WScript.Shell")
If Not @error Then
$oUrlLink = $oWshShell.CreateShortcut($sFilePath)
If IsObj($oUrlLink) Then
$oUrlLink.TargetPath = $sUrl
$oUrlLink.Save
If FileExists($sFilePath) Then
Return True
EndIf
EndIf
EndIf
EndFunc
Hi,
ich habe ein Script geschrieben, womit ich Links im IE7 abspeichern kann.
Dabei wird automatisch die Bezeichnung geändert (für eBay)
Es läuft soweit, allerdings sind 2 kleinere Problem da:
Ich will einen bestimmten Ordner der Favoriten auswählen ("E:\Favoriten\Links\eBay\beobachten). Leider wird ein anderer Ordner ausgewählt.
Wie kann ich meinen Ordner auswählen?
Habe ControlSend verwendet.
Ich würde es gerne so machen. Ich habe eine eBay-Seite auf und klicke dann mein Script. Dann soll die aktuelle Seite gespeichert werden.
Jedoch habe ich ein Problem, wenn ich zwei eBay Fenster auf habe. Dann kann ja sein, dass das falsche Fenster ausgewählt wird 
EDIT: Dies funktioniert. Ich lege es mir einfach zu den Links dann klappts
#include<String.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("WinTitleMatchMode", 2)
[/autoit] [autoit][/autoit] [autoit]$titel = "Favoriten hinzufügen"
[/autoit] [autoit][/autoit] [autoit]WinActivate("Internet Explorer")
Send("^d")
WinWait($titel)
WinActivate($titel)
ControlSend($titel, "", "ComboBox1", "E:\Favoriten\Links\eBay\beobachten")
;Bezeichnung
$ori = ControlCommand($titel, "", "Edit1", "GetLine", 1)
$zeit = _StringBetween($ori, "endet ", " MESZ)")
$bezeichnung_pos = StringInStr($ori, "(Artikel") -2
$bezeichnung = StringLeft($ori, $bezeichnung_pos)
$split1 = StringSplit($zeit[0], ".")
$split2 = StringSplit($split1[3], " ")
$tag = $split1[1]
$monat = $split1[2]
$jahr = "20" & $split2[1]
$zeit = $split2[2]
$zeit2 = _StringInsert($zeit, "_", 2)
$zeit3 = _StringInsert($zeit2, "_", 5)
$bezeichnung_neu = $jahr & "." & $monat & "." & $tag & " " & $zeit3 & " " & $bezeichnung
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]ControlSend($titel, "", "Edit1", $bezeichnung_neu)
ControlClick($titel, "&Hinzufügen", 1)
was ist den bitte ein "Xenobiologist"
Hoppla, jetzt ernsthaft oder was?
Fange mal an:
Forumsgott
Mega
Alleswisser
Helpy
Denke das reicht mal
aber dabei muß ich ja leider mein Passwort eingeben. Möchte ich nur ungern
Hat noch einer ne Idee
verstehs nicht so ganz,
klar ich kann dort meine Verbindung auswählen.
Aber kann ich dies auch mit AutoIt starten, so wie wenn ich auf die Verknüpfung in der Schnellstartleiste klicke?
aha
hab ich gemacht, dann kommt
"Netzwerkverbindungen
Bitte wählen Sie eine Netzwerkverbindung"
Hi,
bei dieser "Variante" kommt das schwarze Dos-Fenster und der Öffnen mit-Dialog
Geht also leider auch nicht
Danke, danke, bin froh auch mal jemandem hier zu helfen :teufel:
Hm, also warum es so ist kann ich dir nicht erklären, denke halt, dass er Leerzeichen überliest (vielleicht ?()
Habs so gelöst.
#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#NoTrayIcon
dim $newfile, $file
#Region ### START Koda GUI section ### Form=
Local $Form1 = GUICreate("Sonderzeichen in Dateinamen ersetzen.", 390, 70, -1, -1)
Local $Label1 = GUICtrlCreateLabel("XML-Dir:", 10, 12, 40, 12)
Local $Input1 = GUICtrlCreateInput("", 60, 10, 300, 20)
GUICtrlSetData($Input1, '')
Local $Button1 = GUICtrlCreateButton("...", 364, 10, 20, 20, 0)
Local $Label2 = GUICtrlCreateLabel("", 10, 47, 200, 16)
Local $Button2 = GUICtrlCreateButton("Ersetze", 220, 45, 80, 20, 0)
GUICtrlSetState($Button2, $GUI_DEFBUTTON)
Local $Button3 = GUICtrlCreateButton("Ende", 304, 45, 80, 20, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button2
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
$dir = _FileListToArray (GUICtrlRead($Input1), '*.*')
$var = IniReadSection(@ScriptDir & "\rename.ini", "Replace")
For $z = 1 to UBound($dir) -1
$newfile = $dir[$z]
For $i = 1 To UBound($var) -1
If StringInStr($var[$i][0], '"') Then $var[$i][0] = StringReplace($var[$i][0], '"', '')
If StringInStr($newfile, $var[$i][0]) Then $newfile = StringReplace($newfile, $var[$i][0], $var[$i][1])
GUICtrlSetData($Label2, $newfile)
Next
If $z = UBound ($dir) -1 Then
GUICtrlSetData($Label2, 'Fertig !!!')
Else
GUICtrlSetData($Label2, $newfile)
EndIf
FileMove(GUICtrlRead($Input1) & '\' & $dir[$z], GUICtrlRead($Input1) & '\' & $newfile, 0)
Next
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
Case $Button1
$l = FileSelectFolder("Wählen Sie ein Verzeichnis aus:", @ScriptDir, 2, GUICtrlRead($Input1))
If $l <> '' Then
GUICtrlSetData($Input1, $l)
EndIf
Case $Button3
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
In der ini muß du aus dem Leerzeichen dies machen
[autoit]" "
[/autoit]teste dies mal ... damit du wieder aus dem Wald herausfindest
#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
#NoTrayIcon
dim $newfile, $file
#Region ### START Koda GUI section ### Form=
Local $Form1 = GUICreate("Sonderzeichen in Dateinamen ersetzen.", 390, 70, -1, -1)
Local $Label1 = GUICtrlCreateLabel("XML-Dir:", 10, 12, 40, 12)
Local $Input1 = GUICtrlCreateInput("", 60, 10, 300, 20)
GUICtrlSetData($Input1, '')
Local $Button1 = GUICtrlCreateButton("...", 364, 10, 20, 20, 0)
Local $Label2 = GUICtrlCreateLabel("", 10, 47, 200, 16)
Local $Button2 = GUICtrlCreateButton("Ersetze", 220, 45, 80, 20, 0)
GUICtrlSetState($Button2, $GUI_DEFBUTTON)
Local $Button3 = GUICtrlCreateButton("Ende", 304, 45, 80, 20, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button2
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
$dir = _FileListToArray (GUICtrlRead($Input1), '*.*')
$var = IniReadSection(@ScriptDir & "\rename.ini", "Replace")
For $z = 1 to UBound($dir) -1
$newfile = $dir[$z]
For $i = 1 To UBound($var) -1
If StringInStr($newfile, $var[$i][0]) Then $newfile = StringReplace($newfile, $var[$i][0], $var[$i][1])
GUICtrlSetData($Label2, $newfile)
Next
If $z = UBound ($dir) -1 Then
GUICtrlSetData($Label2, 'Fertig !!!')
Else
GUICtrlSetData($Label2, $newfile)
EndIf
FileMove(GUICtrlRead($Input1) & '\' & $dir[$z], GUICtrlRead($Input1) & '\' & $newfile, 0)
Next
GUICtrlSetState($Button2, $GUI_ENABLE)
GUICtrlSetState($Button3, $GUI_ENABLE)
Case $Button1
$l = FileSelectFolder("Wählen Sie ein Verzeichnis aus:", @ScriptDir, 2, GUICtrlRead($Input1))
If $l <> '' Then
GUICtrlSetData($Input1, $l)
EndIf
Case $Button3
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Danke, es läuft nun perfekt
Einstellungen:
Remove unneeded
Place at top
Slient mode
EDIT:
Wow bist du schnell
Es kommt nun kein Fenster mehr "no includes".
Allerdings werden die unnötigen includes leider nicht gelöscht, wenn keine Funktion mehr da ist
Danke,
kleiner Schönheitsfehler hab ich eben mit der neuen Version noch entdeckt.
Wenn ich bsp:
_ArrayAdd()
einfüge, deine Script benutze, wird
#include<Array.au3>
eingefügt, OK
Wenn ich
_ArrayAdd()
nun wieder lösche, kommt ne Meldung "no includes", OK
aber
#include<Array.au3>
wird nicht gelöscht
Also immer, wenn keine Funktion mehr da ist, werden die includes nicht gelöscht
hatte ich auch schon
Fehler:
Für diesen Vorgang ist keine Anwendung der angegebene Datei zugeordnet
Danke, danke
1. Ok, wenn ich dies weiß, dann lösche ich als die ini-Datei
2. OK funktioniert nun habs auf alle löschen umgestellt. Hatte es auf unnötige löschen
Danke
Hi,
ich habe die Verknüpfung zu meiner DFÜ-Verbindung in meiner Schnellstartleiste liegen.
Kann ich diese Verbindung mit AutoIt starten?
Mit run und shellexecute geht es leider nicht.
Bin dann noch auch rasdial gestossen, aber dort muß man seinen Benutzername und sein Passwort eintragen. Dies möchte ich eigentlich nicht.
Hab auch mal im englischen Forum geschaut.
Dort stehen zwar viele Lösungen, aber irgendwie funktionieren bei mir keine
Bei dieser
[autoit]Run("explorer.exe C:\Dokumente und Einstellungen\XXXXXX\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch\datei.lnk")
[/autoit]
kommt ne Meldung: Möchsten Sie die Datei öffnen oder speichern
Danke :]
