Nach dem ich nun bei german-autoit mehrere tage verzweifelt warte auf hilfe probiere iches nun mal hier auf rat eines netten Forum users.
Erstellt mit dem Makrogenerator + selbst definierte zeilen
z.b. :
Ich weis net was ich machen soll erst ging es, dann wieder net nun hab ich soviel rumgespielt nun geht er nicht weiter wo ist denn da der wurm drin
er bleibt immer am anfang oder bei 10% oder 20% stehen
hab hier noch mehrere versionen liegen aber das scheint die beste zu sein nur die geht nicht weiter bei
Code
Run("rundll32.exe shell32,SHHelpShortcuts_RunDLL AddPrinter")
WinWait("Druckerinstallations-Assistent","")
ControlClick("Druckerinstallations-Assistent","","Button7")
und danach hackt er dann auch nochmal
Code
BlockInput(1)
ProgressOn("Druckerinstallation", "Bitte warten!!!", "0 %")
Run("rundll32.exe shell32,SHHelpShortcuts_RunDLL AddPrinter")
WinWait("Druckerinstallations-Assistent","")
ControlClick("Druckerinstallations-Assistent","","Button7")
ProgressSet( 10, 10 & " %")
WinWait("Druckerinstallations-Assistent","Wenn Sie einen Plug && Play-Dr")
ControlClick("Druckerinstallations-Assistent","Wenn Sie einen Plug && Play-Dr","Button6")
WinWait("Druckerinstallations-Assistent","Wählen Sie die Option für den ")
ControlClick("Druckerinstallations-Assistent","Wählen Sie die Option für den ","Button1")
ControlCommand("Druckerinstallations-Assistent","Wählen Sie die Option für den ","Button4","UnCheck","")
ControlClick("Druckerinstallations-Assistent","Wählen Sie die Option für den ","Button6")
WinWait("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell")
ControlClick("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell","Button2")
ControlCommand("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell","ComboBox2","SelectString","PrintServer Network Port")
ControlClick("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell","Button8")
ProgressSet( 20, 20 & " %")
WinWait("Add Port","LPT1")
ControlClick("Add Port","LPT1","Button6")
WinWait("Create Remote PrintServer","PrintServer")
ControlClick("Create Remote PrintServer","PrintServer","Edit1")
ControlCommand("Create Remote PrintServer","PrintServer","Edit","Editpaste","4a-pc62")
ProgressSet( 30, 30 & " %")
ControlClick("Create Remote PrintServer","PrintServer","Edit2")
ControlCommand("Create Remote PrintServer","PrintServer","Edit","Editpaste","172.16.2.126")
WinWait("Add Port","LPT1")
ControlClick("Add Port","LPT1","Button4")
WinWait("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell")
ControlClick("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell","#327701")
ProgressSet( 40, 40 & " %")
WinWait("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell")
ControlClick("Druckerinstallations-Assistent","&Einen neuen Anschluss erstell","#327701")
ControlClick("Druckerinstallations-Assistent","","Button3")
WinWait("Installation von Datenträger","&Dateien des Herstellers kopie")
ControlClick("Installation von Datenträger","&Dateien des Herstellers kopie","Button3")
ProgressSet( 50, 50 & " %")
WinWait("Datei suchen","&Suchen in:")
ControlCommand("Datei suchen","&Suchen in:","ComboBox1","SelectString","Lokaler Datenträger (C:)")
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","scripte")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","Drucker4a")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
ProgressSet( 60, 60 & " %")
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","3740")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
ProgressSet( 70, 70 & " %")
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","common")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
ProgressSet( 80, 80 & " %")
WinWait("Installation von Datenträger","&Dateien des Herstellers kopie")
ControlClick("Installation von Datenträger","&Dateien des Herstellers kopie","#327700")
ControlClick("Installation von Datenträger","&Dateien des Herstellers kopie","Button1")
WinWait("Druckerinstallations-Assistent","")
$CLVItem = ControlListView("Druckerinstallations-Assistent","","SysListView322","FindItem","HP Deskjet 3740 Series")
ControlListView("Druckerinstallations-Assistent","","SysListView322","SelectClear")
ControlListView("Druckerinstallations-Assistent","","SysListView322","Select",$CLVItem)
WinWait("Druckerinstallations-Assistent","&Vorhandenen Treiber beibehalt")
ControlClick("Druckerinstallations-Assistent","&Vorhandenen Treiber beibehalt","#327701")
ControlClick("Druckerinstallations-Assistent","&Vorhandenen Treiber beibehalt","Button13")
ProgressSet( 90, 90 & " %")
WinWait("Druckerinstallations-Assistent","Soll dieser Drucker als Standa")
ControlClick("Druckerinstallations-Assistent","Soll dieser Drucker als Standa","Button15")
WinWait("Druckerinstallations-Assistent","Wenn dieser Drucker freigegebe")
ControlClick("Druckerinstallations-Assistent","Wenn dieser Drucker freigegebe","Button17")
ControlClick("Druckerinstallations-Assistent","Wenn dieser Drucker freigegebe","Button20")
WinWait("Druckerinstallations-Assistent","Fertigstellen des Assistenten")
ControlClick("Druckerinstallations-Assistent","Fertigstellen des Assistenten","Button22")
ProgressSet( 100, 100 & " %")
ProgressOff()
BlockInput(0)
Alles anzeigen
anderer Code anderer Weg aber das problem mit
[autoit];AutoIt supports no Popup menus and Special menus
[/autoit]Code
Opt("WinTitleMatchMode", 4)
WinWait("Program Manager","FolderView")
$CLVItem = ControlListView("Program Manager","FolderView","SysListView321","FindItem","Arbeitsplatz")
ControlListView("Program Manager","FolderView","SysListView321","SelectClear")
ControlListView("Program Manager","FolderView","SysListView321","Select",$CLVItem)
WinWait("Arbeitsplatz","")
ControlClick("Arbeitsplatz","","Edit1")
ControlCommand("Arbeitsplatz","","Edit","Editpaste","\\4a-pc62")
WinWait("Print Server (4a-pc62)","")
;AutoIt supports no Popup menus and Special menus
WinWait("classname=SHELLDLL_DefView","FolderView")
WinWait("Druckerverbindung herstellen","Auf dem Server für den Drucker")
ControlClick("Druckerverbindung herstellen","Auf dem Server für den Drucker","Button1")
WinWait("Druckerinstallations-Assistent","")
ControlClick("Druckerinstallations-Assistent","","Button3")
WinWait("Installation von Datenträger","&Dateien des Herstellers kopie")
ControlClick("Installation von Datenträger","&Dateien des Herstellers kopie","Button3")
WinWait("Datei suchen","&Suchen in:")
ControlCommand("Datei suchen","&Suchen in:","ComboBox1","SelectString,"Arbeitsplatz")
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","Adobe")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","scripte")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","Drucker4a")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","3740")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","common")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
$CLVItem = ControlListView("Datei suchen","&Suchen in:","SysListView321","FindItem","")
ControlListView("Datei suchen","&Suchen in:","SysListView321","SelectClear")
ControlListView("Datei suchen","&Suchen in:","SysListView321","Select",$CLVItem)
WinWait("Installation von Datenträger","&Dateien des Herstellers kopie")
ControlClick("Installation von Datenträger","&Dateien des Herstellers kopie","#327700")
ControlClick("Installation von Datenträger","&Dateien des Herstellers kopie","Button1")
WinWait("Druckerinstallations-Assistent","")
$CLVItem = ControlListView("Druckerinstallations-Assistent","","SysListView322","FindItem","HP Deskjet 3740 Series")
ControlListView("Druckerinstallations-Assistent","","SysListView322","SelectClear")
ControlListView("Druckerinstallations-Assistent","","SysListView322","Select",$CLVItem)
ControlClick("Druckerinstallations-Assistent","","Button4")
Alles anzeigen